Sélection par rapport à un objet existant

[zebulon_]

Bonjour,

 

Ci-joint un lisp qui sélectionne les objets en s'appuyant sur un objet existant. Cela fonctionne en utilisant la commande autocad _divide. Cela implique une précision que j'ai fixé arbitrairement à 100.

 

(defun c:test ()

(setq ENT (car (entsel "\nSélectionner un objet ")))

(setq ETL (entlast))

(command "_divide" ent 100)

(setq ETL (entnext ETL))

(setq LISTPT nil)

(while ETL

(setq E (entget ETL))

(setq PT (trans (cdr (assoc 10 E)) 0 1))

(setq LISTPT (cons PT LISTPT))

(setq ETL (entnext ETL))

)

(setq OLDOS (getvar "OSMODE"))

(setvar "OSMODE" 0)

(command "_erase" "_p" "")

(command "_change" "_cp")

(foreach PT LISTPT

(command PT)

)

(command "" "" "_p" "_co" "14" "")

(setvar "OSMODE" OLDOS)

(princ)

)