pb lisp pour remplir un tableau

[Zugzwang]

bonjour

c'est plutôt une question pour le support Zwcad qui je l'espère traine toujours sur le forum.

j'ai un lisp (plusieurs en fait) qui m'aident pour les métrés en invitant à poser le résultat des calcul dans une cellule de tableau à pointer par l'utilisateur.

Sur autocad, pas de soucis, mais sur Zwcad, quand on pointe une cellule,  l'éditeur de saisie s'active bien, mais le résultat du lisp est affiché à la ligne de commande...

une idée pour rendre compatible ce lisp (c'est la dernière ligne qui pose pb...)

 

merci d'avance

(defun c:STL (/ LG LT SEL tube X)
;; somme des longueurs de lignes poly spline  sélectionnées
;; invite à saisir une celulle de tableau

  (vl-load-com)
  (setq lg   0.0
lt   0.0
sel  nil
tube nil
  )
  (while (not sel)
    (setq sel (ssget (list '(-4 . "<OR") '(0 . "*POLYLINE") '(0 . "SPLINE") '(0 . "LINE") '(-4 . "OR>"))
     )
    )
  )
  (setq x (sslength sel))


  (repeat x
    (setq x (- x 1))
    ;; pour décaler et arriver à zéro à la fin on décrémente au début (le 1ere élément de la liste est en zéro)
    (setq tube (ssname sel x))

    (if (= (cdr (assoc 0 (entget tube))) "SPLINE")

      ;; si c'est une spline
      (progn
(command "aire" "ob" tube)
(setq lt (getvar "perimeter"))
      )
      ;; si c'est autre chose
      (progn
(setq lt
      (vla-get-Length
(vlax-ename->vla-object (ssname sel x))
      )
)
      )
    )

    (setq lg (+ lt lg))
  )


  (print (strcat "Longueur :" (rtos lg)))

  (command "MODIFTABLEAU" pause (rtos lg) )


  (princ)
)

 

[>>NicoM]

Je suis loin d'être un expert, mais essai avec "alert" à la place de "print" a la fin de ton code.