commandes autocad dans le lisp

[zebulon_]

Dans la suite de nos discussions concernant la commande _.pline à l'intérieur d'un lisp, j'ai écris une routine un peu plus "tout terrain", pour qu'elle soit appliquable à toutes les commandes autocad.

 

(defun mycmd (CMD / ETL LELEM RES OLDCMDECHO)

(setq OLDCMDECHO (getvar "CMDECHO"))

(setq ETL (entlast))

(setvar "CMDECHO" 1)

(command CMD

(while (not (zerop (getvar "cmdactive")))

(command pause)

)

)

(setvar "CMDECHO" OLDCMDECHO)

(setq LELEM nil)

(if (not ETL)

(setq ETL (entnext))

(setq ETL (entnext ETL))

)

(while ETL

(setq LELEM (cons ETL LELEM))

(setq ETL (entnext ETL))

)

(setq RES LELEM)

)

 

 

 

(defun c:mytest ()

(setq LE (mycmd "_.line"))

(foreach E LE

(command "_.change" E "" "_properties" "_color" 3 "")

)

(setq LE (mycmd "_.pline"))

(foreach E LE

(command "_.change" E "" "_properties" "_color" 4 "")

)

(setq LE (mycmd "_.arc"))

(foreach E LE

(command "_.change" E "" "_properties" "_color" 5 "")

)

(setq LE (mycmd "_.copy"))

(foreach E LE

(command "_.change" E "" "_properties" "_color" 6 "")

)

(mycmd "_.move")

(princ)

)

 

 

 

Votre avis ?

 

 

[Maximilien]

ben quand tu fait "_u" cela fait (Expression lisp)

perso je n'aime pas

 

je te propose d'aller voir ce lien

[Patrick_35]

C'est très bien et ça donne un aperçu de ce qu'il est possible de faire en lisp, mais pour faire un peu plus "lispien" plutôt que de se servir des commandes, on peut se servir aussi des entmod, voir des entmake

Exemple pour changer la couleur d'une entité en rouge

(setq ent (entget (car (entsel))))
(if (assoc 62 ent)
 (setq ent (subst (cons 62 1) (assoc 62 ent) ent))
 (setq ent (append (list (cons 62 1)) ent))
)
(entmod ent) ; Prise en compte des modifs sur l'entité
(entupd (cdr (assoc -1 ent))) ; Mise à jour à l'écran de l'entité
(princ)

 

@+

[didier]

hello,

t'as raison Patrick,

c'est plus propre

et c'est plus facilement transportable d'une machine à l'autre.

 

et vive la Bretagne ;)

amicalement