Surface

[Gueguette]

Bonjour,

 

je souhaiterais afficher de manière automatique sous forme de texte, les propriétés d'une surface définie par une polyligne ou une hachure (aire, longueur) coment faire

 

Merci d'avance pour vos infos.

 

Gueguette

[lesourd2]

Salut gueguette

 

Peut-etre un debut de piste par ici.

 

@+

[vinz34]

Salut,

 

Est-ce que tu as pensé aux champs ?

[(gile)]

Salut,

 

Tu trouveras, ici, un LISP qui permet d'insérer un champ "Aire" lié à l'objet sélectionné.

[Petibonom]

Bonjour,

 

j'espere que ces quelques lignes pourront vous aider.

 

 

(defun c:pol_aire ()

(setvar "cmdecho" 0)

(princ "\nSélectionnez un Cercle, Polyligne ou Polygone: ")

(setq objet (car (entsel)))

(if (or

(= (cdr (assoc 0 (entget objet))) "CIRCLE")

(and (or (= (cdr (assoc 0 (entget objet))) "LWPOLYLINE")

(= (cdr (assoc 0 (entget objet))) "POLYLINE"))

(< (cdr (assoc 70 (entget objet))) 16))

)

(progn

(setq htxt (cdr (assoc 40 (tblsearch "STYLE" (getvar "textstyle")))))

(if (= htxt nil)

(setq htxt 0.0)

)

(command "aire" "e" objet)

(setq pt1 (getpoint "\nPosition du texte: "))

(if (= htxt 0.0)

(setq h_txt (getdist "\nHauteur du texte: " pt1))

)

(setq ang (angtos (getangle "\nAngle du texte: " pt1) (getvar "aunits")))

(if (/= htxt 0.0)

(command "texte" pt1 ang (strcat (rtos (getvar "AREA") 2 (getvar "luprec")) " m2"))

(command "texte" pt1 h_txt ang (strcat (rtos (getvar "AREA") 2 (getvar "luprec")) " m2"))

)

)

(princ "\nCe n'est pas un objet Cercle, Polyligne ou Polygone")

)

(princ)

)

(princ "\n==> Pol_Aire")

(princ)