saisir une polyligne dans lisp - suite

[zebulon_]

La semaine dernière, nous avons parlé de ce sujet et trouvé une solution alliant l'utilisation de la variable cmdactive et l'utilisation d'une commande pause dans une boucle while.

 

Je voulais améliorer cette solution en vérifiant si l'utilisateur a bien créé une pline, malheureusement la comparaison sur des adresses d'entité n'a pas l'air de fonctionner....

 

 

(defun c:mapoly (/)

(setvar "CMDECHO" 1)

(setq ETL (entlast))

(command "_.pline"

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

(command pause)

)

)

(if (/= ETL (entlast))

(progn

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

)

)

(princ)

)

[Patrick_35]

Par son identificateur

 

(setq ETL (entlast))
(command "_.pline"
 (while (not (zerop (getvar "cmdactive")))
   (command pause)
 )
)
(if (/= (cdr (assoc 5 (entget (entlast)))) (cdr (assoc 5 (entget ETL))))
 (command "_.change" (entlast) "" "_properties" "_color" 3 "")
)

 

@+

[zebulon_]

ben voilà, il suffit de demander les papiers...

 

çà marche bien, merci.

 

Le seul cas où ça plante encore, c'est quand le fichier est entièrement vide et que dans entlast il y a nil.

 

Du coup (entget nil) renvoie une erreur.