Insérer un champs dans un attribut de block

[DenisHen]

Bonjour à tous,

 

J'ai cherché dans les forums mais je n'ai rien trouvé, ou alors, je n'ai pas sûs comprendre leur fonctionnement, comme dans l'exemple de Maître (gile) dans "Totalarea.lsp" ou "Totalperim.lsp" bien trop complexes pour moi...

 

Voilà, j'ai une routine LiSP qui trace une polyligne fermée. Ensuite, j'insert un bloc avec différents attributs dont 2 que j'aimerai être des champs :

- l'aire de la popyligne

- la longueur de cette polyligne...

 

Voici ma commande du menu :

[  Plancher hourdis béton ep=16+4]^c^c(c:Plancher "pl" "bt" 20); 

Et voici mon LiSP :

(defun c:Plancher (Styl Typ Ep /)
 (setvar "cmdecho" 1)
 (cond
   ((eq Styl "dl") (setq Style "dalle "))
   ((eq Styl "pl") (setq Style "plancher "))
   (T (setq Style "INCONNU"))
 ) ;_ Fin de cond(cond
 (cond
   ((eq Typ "bt") (setq Planch "béton"))
   ((eq Typ "tc") (setq Planch "TCI"))
   ((eq Typ "pf") (setq Planch "Polystyrène+fibralith"))
   ((eq Typ "pl") (setq Planch "Polystyrène+languette"))
   (T (setq Planch "INCONNU"))
 ) ;_ Fin de cond
 (setq Niv (vlax-ldata-get "MetreCAD" "NivCour"))
 (command "-calque" "e"
   (strcat Niv "_" Style Planch "_" (rtos (fix Ep) 2 0) "cm")
   "co" "6" "" "T" "A" "" ""
   (princ "\nDessinez le contour du plancher :")
   (command "_.pline"
            (while (not (zerop (getvar "cmdactive"))) (command pause)) ;_ Fin de while
   ) ;_ Fin de command
 ) ;_ Fin de command
 (setq jspoly (ssadd (entlast) jspoly))
 (setq ename (ssname jspoly 0))
 (getVertices ename)
) ;_ Fin de defun

 

Voici la structure des attribut de mon bloc :

STYDALLE : Style
TYPDALLE : Planch 
EPDALLE : Ep
SURFDALLE : le champs "aire"
PERIDALLE : le champs "longueur"

 

Mon but et de garder un lien entre la polyligne et le bloc...

 

Merci pour toutes réponses éventuelles,

 

Denis...

[DenisHen]

Re à tous...

 

En fait, je que je cherche ressemble à "Pline_block" (de gile je pense), mais il est trop complexe pour moi...

 

Je dessine la pline "depuis" le lisp...

 

J'ai donc cette entité dans "jspoly"

 

Il ne me reste qu'à cliquer un point pour insérer mon block, car j'ai déjà toutes les données dans différentes variables...

 

Merci à tous