Petite amelioration SVP

[lecrabe]

Hello

 

Voir ci apres un petit Lisp/VLisp qui force en couleur VERTE le texte d'une Cote FORCEE !

SVP j'aimerais qu'il force AUSSI : ligne d'attache, pointes de fleches, lignes d'attaches

Donc j'imagine qu'il faut 3 lignes de code supplementaires ...

 

Je sais que par un filtre subtil, on peut "avoir" les cotes forcees ! Mais bon ...

 

Merci d'avance de votre aide, Bye, lecrabe

 

;;

;; https://autocadtips.wordpress.com/2011/10/27/autolisp-find-dodgy-dimensions/

;;

(defun c:FindDodgyDims ( / ss )

(vl-load-com)

(if (setq ss (ssget "_X" '((0 . "*DIMENSION") (1 . "*?*"))))

(

(lambda ( i / e )

(while (setq e (ssname ss (setq i (1+ i))))

(vla-put-TextColor (vlax-ename->vla-object e) acgreen)

)

)

-1

)

)

(princ)

)

[bonuscad]

Salut Pat!

 

Donc j'imagine qu'il faut 3 lignes de code supplementaires ...

Très bien imaginé... ;)

 

Pour t'aider le fameux dump

(defun c:dump ( / ent obj)
 (while (setq ent (entsel "\nSélectionnez l'entité pour obtenir les données activeX: "))
   (setq obj (vlax-ename->vla-object (car ent)))
   (vlax-dump-object obj t)
   (vlax-release-object obj)
 )
 (princ)
)

 

Tu trouvera très vite:

ExtensionLineColor et DimensionLineColor

Après c'est un jeu d'enfant.

[-Olivier-]

Hello,

 

Pour t'aider le fameux dump

 

Merci Bruno, celui là je me le met de côté. :)

 

Olivier