nomenclature des acier automatique LISP

[Invité pleche.damien]

BONJOURS A TOUSSE

J'ai un programme lisp ou je veux faire une cotation automatique de ferraillages, je veux faire donc apparaitre sur le dessin autocad les éllément suivant dans un calque zero:

 

; la cotation du type d'armature qui attaque au point "pt01" d'angle 0 distaance 50 en x

;le NBRE DE BARRES indiqué par la variable setq "nbrbarrestxt",

; ensuite j'indique dans l'avant dernier ligne le nbre de barres sont D= diametre défini dans une variable précédente et son type d'acier "filants",

et pour finir je lance la commande text.

 

Malheuresement mon programme lisp ne fonctionne pas, pour se qui veule me donner des éllément je vous en remerci d'avance.

 

REMARQUE: je ne mes que les ligne importante du programme, les variables sont défini dans un autre programme d'ensemble.

  ;
point de départ du text anotation des aciers
(setq Pttext (polar pt01 0 50))
 (setq pttext (polar pttext (* 3 (/ pi 2)) 10))
 (setq nbrbarrestxt (itoa nbrbarres))
 (setq dist2 (- (* dist 100) 8))
 (setq disttxt (rtos dist2))
 (setq texte1 (strcat nbrbarrestxt" " D " " "filants" ""))
(command "texte" Pttext 4 0 texte1)
))

[Invité pleche.damien]

Je relance pour se qui veule me donner des "tuyaux" je vous en remerci