Créer surface dynamique

[mateus]

Voilà j'ai un programme qui me donne la surface de ma polyligne avec son texte

 

Je voudrais affectée un champ au texte de surface,

 

Voilà mon programme

 

(defun c:stock()

(command "-calque" "n" "stock" "co" "90" "stock" "ch" "stock" ""); Création du calque stockage

(setq pt(getpoint "\nPoint d'origine de votre aire de stockage : ")); affecte a pt le point de départ

(command "polylign" pt "la" 0 0);debut de la polyligne

(while pt ; boucle

(setq pt (getpoint "\nPoint suivant(Return pour FIN): ")); repete l'action

(command pt)

)

(setq xg 0) (setq yg 0) (setq nc 0) (setq n 0);les variables "Ox et Oy" sont associées aux coordonnées des points l'air de stockage.

(setq nom (entlast))

(setq lt (entget nom))

(setq len (length lt))

(repeat len

(setq e1 (car (nth n lt)))

(if (= e1 10)

(progn

(setq xg (+ xg(cadr(nth n lt))))

(setq yg (+ yg(caddr(nth n lt))))

(setq nc(1+ nc))

)

)

(setq n(+ n 1))

)

(setq p1 (list(/ xg nc)(/ yg nc)))

(setq txt(getstring "\nNom du matériau stocké: "))

(command "aire" "O" (entlast))

(setq surfa(getvar "AREA"))

(command "texte" "m" p1 1 1 txt)

(command "texte" "" (strcat "Surface : " (rtos surfa 2 2) " m2"))

 

)

[jalna]

Salut

Gilles à fait un lisp qui correspond à ta demande

Total area