Aller au contenu

Messages recommandés

Posté(e)

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)

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 compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité