Bonjour le forum !
Il y a TRÉS longtemps que je n'ai pas mis les pieds ici, et encore plus longtemps que je n'ai pas tripatouillé du lisp...
Aujourd'hui j'aurais besoin d'un peu d'aide. Comme beaucoup, je "traite" mes plans archi avant de dessiner dessus (CVC).
Dans ma routine, je supprime les hachures solides par cet extraordinaire lisp (désolé j'ai perdu la source de généreux donateurs... gile, patrick_35, Bonuscad, Fraid, lecrabe ?). J'en ai même fait tout un tas de variante pour supprimer d'autres type d'objets (cotations, etc).
(defun c:supsolid ()
(vl-load-com)
(setq a (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
(vlax-for bl a
(vlax-for ent bl
(if (and (= (vla-get-objectname ent) "AcDbHatch")
(= (vla-get-PatternName ent) "SOLID")
)
(vla-delete ent)
)
)
)
(vla-regen (vla-get-activedocument (vlax-get-acad-object)) acActiveViewport)
)
Je cherche aujourd'hui à supprimer également les "gradients"...
Pattern-name qui commence par GR_* (mais je ne sais pas si c'est la bonne méthode : ne pourrait-il pas y avoir des motifs personnalisés, issu d'un export d'un autre logiciel par exemple, dont le nom de motif ne commence pas par GR_)
J'ai trouvé sur internet le code DXF 450 mais je ne sais pas comment l'exploiter dans mon code...
Est-ce que quelqu'un aurait une idée ? Merci d'avance
Je cherche aussi à supprimer la couleur d'arrière plan des hachures qui ont une couleur d'arrière plan... J'en fais un autre sujet.