purgearchicad, le retour...

[x_all]

bonjour....

 

une fois de plus je viens vers vous pour une histoire de code...

je me sers courrament du lisp purgearchicad

 

il marche super bien, merci encore à (gille)...

mais, vlaty pas que maintenant, mes archi ont la manie de mettre des épaisseur à leur polylignes, et bien sur à l'interrieur de blocs grrrr

 

y aurai il moyen de mettre toutes les largeurs globales à 0

 

merci d'avance.... :)

[LUDWIG]

(defun c:poly0 (/ doc)
(vl-load-com)
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(vlax-for b (vla-get-Blocks doc)
(if (not (wcmatch (vla-get-name b) "`**_Space*"))
(vlax-for o b
(if (vlax-property-available-p o 'ConstantWidth)
(vla-put-ConstantWidth o 0.0)
)
)
)
)
(vla-regen doc acAllViewports)
(princ)
) 

 

http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=7049#pid

[x_all]

yeah !!!

 

super merci...

 

:)

[LUDWIG]

Rendons à César...

C'est du (Gile)

 

(et le vrai lien du forum est http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=17175#pid69457)