zebulon_ Posté(e) le 1 mars 2005 Posté(e) le 1 mars 2005 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)) C'est au pied du mur que l'on reconnaît le maçon ! (Anonyme) C’est en restant au pied du mur qu’on ne voit que le mur (Anonyme aussi)
Messages recommandés
Créer un compte ou se connecter pour commenter
Vous devez être membre afin de pouvoir déposer un commentaire
Créer un compte
Créez un compte sur notre communauté. C’est facile !
Créer un nouveau compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant