Programmation lisp

[Titifonky]

Bonjour ,je suis un utilisateur d'autocad 2002 et j'essaye d'approfondir le langage lisp. Je voudrais savoir s'il existe une commande autre que "entget" pour connaitre toutes les propriétés d'un objet comme dans la fenêtre propriétés: le point de départ, le point d'arrivé, la longeur, le rayon, etc.. La fonction entget ne donne pas toutes les propriétés tel la longeur, etc... Merci d'avance ;)

[Tramber]

Et non, mon ami, la longueur n'est pas (sauf erreur) une propriété DXF (je te conseille de bien décortiquer les références DXF de l'aide).

 

Bon il y a NENTSEL, ENTSEL et qques fonctions particulières mais globalement, ce que tu as vu c'est tout ce que tu peux avoir pour l'accès à une entité.

 

Par ex, dans un poly avec des arcs de cercles, on te précise les points de départ et d'arrivée, le centre et l'angle et c'est tout.

 

Il faut produire des tas de calculs parfois pour obtenir des infos ou des géométries...

 

...c'est comme ca !

[chrchat]

utilise la fonction liste

[Tramber]

LISTE n'est pas une fonction (autolisp) mais une commande (Autocad), cher chrchat (chercéhacheherchat).

 

Précision surmon message précédent:

 

au fait, les codes DXF décrivent quand-même les propriétés telles que le calque, la couleur, le type de ligne,...etc.

Encore une fois, je te renvoie à la lecture de la section sur les DXF.

 

Bon Week-End.

[chrchat]

tout a fait Tramber, je suis d'accord avec toi, il me semblait simplement que Titifonky

avait plus besoin d'une commande Autocad qu'une fonction lisp puisque il voulait connaitre les propriétés ;)

 

 

[Tramber]

Oui mais encourageons-le puisqu'il est sur la voie du LISP !

 

Tiens au fait, vous connaissez BUBBLE pour AutoCAD.

 

Ca vaut le coup.

 

...bon rien à voir avec e développement LSP.

[chrchat]

je ne connaissais pas mais ca a l'air pas mal

[Patrick_35]

Bonjour à tous,

 

Il est possible de trouver par exemple la longueur d'un arc de cercle en passant par le visual lisp

L'exemple ci-dessous détermine la longueur d'un arc de cercle sans faire de grands calculs ainsi que sa couleur et tant qu'à faire, je liste toutes ses propriétés

 

(if (setq sel (ssget))
 (progn
   (setq sel (entget (ssname sel 0)))
   (if (= (cdr (assoc 0 sel)) "ARC")
     (progn
       (setq sel (vlax-ename->vla-object (cdr (assoc -1 sel))))
       (setq deb (vlax-curve-getStartParam sel))
       (setq fin (vlax-curve-getEndParam sel))
       (princ (strcat "\nLa longueur de l'arc est de : " (rtos (vlax-curve-getDistAtParam sel fin))))
       (princ (strcat "\nLa couleur de l'arc est : " (itoa (vlax-get-property sel 'color))))
       (princ "\nVoici les propriétés de l'arc")
       (terpri)
       (vlax-dump-object sel)
     )
     (Princ "\nCe n'est pas un arc qui à été choisit")
   )
 )
)
(princ)

 

@+

[Tramber]

C'est très sympa, mais si notre ami est sous 2000 et que tu ne lui donnes pas le :

(vl-load-com) [à charger avant le LSP de Patrick_35], il ne va pas comprendre tout !

 

Et puis, c'est valale pour ce sujet, nous devons passer dans ce forum.

[Patrick_35]

Salut Tramber

 

Exact, j’ai oublié le (vl-load-com)

Mais en ce qui concerne le forum, il me semble avoir répondu à la question de notre ami augure

C’est juste pour montrer le principe et qu’on peut accéder d’une autre manière aux propriétés d’un objet avec en plus des fonctionnalités qu’il n’y a pas dans autolisp

 

@+

[Titifonky]

Je vous remercie beaucoup pour vos reponses. Je me doutais un peu du résultat puisque j'avais déjà fais ma petite recherche, mais j'ai tout de même demander. On ne sais jamais etant donné que je ne programme pas tout les jours. :thumbup: