Lisp Symbole diamètre sur cote

[phil_vsd]

Bonjour,

 

J'ai vu passer un jour un petit lisp qui insérait un symbôle diamètre (Phi) sur les cotes sélectionnée...

 

Si vous savez où il se trouve...

 

Merci à vous !! ;)

[(gile)]

Salut,

 

Un truc domme ça ?

 

(defun c:diam (/ doc ss)
 (vl-load-com)
 (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
 (if (ssget '((0 . "DIMENSION")))
   (progn
     (vlax-for d (setq ss (vla-get-ActiveSelectionSet doc))
       (vla-put-TextPrefix d "%%C")
     )
     (vla-delete ss)
   )
 )
 (princ)
)

 

 

[phil_vsd]

Exactement,

 

Il me semblait qu'il était dans une de tes conversations avec une autre personne du forum...

 

Je reprenais tes messages un par un...

 

Encore merci ! La syntaxe va m'être utile !

 

Hey ! Fais signe quand t'es sur Salon ok ?

 

A+++++++

[lecrabe]

 

Hello

 

Ola, ola il est interdit de faire une bouffe sans Le Crabe !

 

Le Decapode

 

[phil_vsd]

Ha ben tiens je me disais un bon crustacé en mise en bouche !!

 

Toi aussi appelle quand tu passes dans le coin !! ça me fera plaisir de te revoir ! ;)