12-18-2024
10:27 AM
- Marquer comme nouveau
- Marquer
- S'abonner
- Sourdine
- S'abonner au fil RSS
- Lien permanent
- Imprimer
- Signaler
12-18-2024
10:27 AM
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)