comment savoir les codes DXF

[packagg]

Bonjour,

 

Je voudrais svoir comment on trouve les codes DXF

 

je voudrais savoir particulièrement le code du contenu "aire"

 

Merci d'avance !!!

[vincentp010]

Bonjour,

 

j'avais trouvé un lisp sur le forum, mais je n'arrive pas à retrouver la page.

Sinon je l'avais refait pour m'entrainer à mes débuts du lisp.

(defun c:DXF ()
  (setvar "cmdecho" 0)
  (command "annuler" "m")
  (setq ent2 "\tCodes DXF :\n\n")

(print)
(initget "Sous-entite")
(setq ent (entsel "Pointez l'objet à lister ses codes DXF (ou Sous-entite) :"))
(if (/= ent nil) (progn
(if (= ent "Sous-entite")
(setq ent (nentsel "Pointez la Sous-Entité à lister ses codes DXF :"))
)
 (setq ent (entget (car ent)))
 (setq nb (length ent))
 (setq nb1 0 nb2 0)
	  (while (< nb1 nb)
		 (setq ent1 (nth nb1 ent))
		 (setq ent1 (vl-prin1-to-string ent1))
		 (setq ent2 (strcat ent2 ent1 "\n"))                 
		 (setq nb1 (+ nb1 1))
		 (setq nb2 (+ nb2 1))
		 (if (> nb2 31) (progn (alert ent2) (setq ent2 "suite Codes DXF :\n\n" nb2 0)))
	  )   
  
(alert ent2)

))   
) 

 

EDIT: les smileys dans les balises code c'est enervant

 

[Edité le 5/8/2009 par vincentp010]

[packagg]

ok je vais voir ton lisp

merci ;)

[packagg]

OK C BON SUPER TON PROGRAMME

 

PAR CONTRE quel est le code DXF pour l'aire/la surface de l'élément

[(gile)]

Salut,

 

quel est le code DXF pour l'aire/la surface de l'élément

 

Il n'y en a pas. sont conservés dans les données DXF le minimum nécessaire à AutoCAD pour pouvoir reconstruire les objets.

tu trouveras un descriptif de tous les codes DXF dans l'aide aux développeurs (Reference DXF).

 

Tu peux obtenir l'aire d'un objet en lançant la commande AIRE (_AREA) sur l'objet et en récupérant la valeur conservée dans la variable système AREA.

 

Sinon, en utilisant la fonction Visual LISP vla-get-Area. Dans ce cas, l'argument doit être du type VLA-OBJECT et non ENAME.

 

PS : encore une fois, inutile de doubler tes messages...

[vincentp010]

Un petit exemple de ce qu'a expliqué (gile) :

(defun c:aire ()

(setq ent (car (entsel "Selectionnez l'objet dont vous voulez connaitre l'aire")))
(command "AIRE" "o" ent)
(setq aire (getvar "AREA"))
(print)
(princ "L'aire de l'objet est de ")
(princ aire)
(princ " m²")
(print) 

)