Répondre au message

Afficher la discussion dans une fenêtre contextuelle

Réponse à :
y_varelaDEVAW
en réponse à: -didier-

Bonjour @-didier- 

 

Qu'est-ce que je peux changer dans ton code pour pouvoir également sélectionner les Polylignes et Lignes ? 

 

 

;|
demande de y_varelaDEVAW
sur le site Autodesk
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/create-mleader-in-lisp/td-p/8334521
extraire la longueur d'une SPLINE et dessiner une MLEADER qui renseigne cette longueur
Le nombre de décimales est géré par la variable LUPREC
|;
(defun c:y_varelaDEVAW ( / ent pt)
    (setq ent (entsel"\nChoix de la spline \n"))
    (if (= "SPLINE" (cdr (assoc 0 (entget (car ent)))))
        (progn
            (setq pt (vlax-curve-getclosestpointto (car ent) (cadr ent)))
            (command "_mleader" pt pause (rtos
                      (vlax-curve-getDistAtParam (car ent)
                          (vlax-curve-getEndParam (car ent))
                          )
                      )
                     )
            );fin progn
    (alert "L'entité sélectionnée n'est pas une SPLINE")
    );fin du if c'est une spline ou non
    );fin defun
(prompt "\nLe nom de la commande est y_varelaDEVAW")
(princ)