[Résolu] Lisp de modification export DWG

[Giropode]

Salut

 

(and (ssget "x" (list (cons 0 "HATCH") (cons 76 2)))
 (progn
   (vlax-for ele (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
     (vlax-invoke ele 'setpattern acHatchPatternTypeUserDefined (vla-get-patternname ele))
   )
   (vla-delete sel)
 )
)

 

@+

 

Bonjour,

 

Merci beaucoup ! Tu viens de me retirer une sacrée épine du pied !

 

Bonne journée.