[RÉSOLU] VLA : Echelle des hachures avec la méthode AddHatch

[Fraid]

Bonjour,

 

J'utilise la méthode AddHatch pour hachurer des objets.

 

(defun hachit ( motif sel ech / hach n vsel)
   (setq n -1)
   (repeat (sslength sel)
       (setq   vsel (vlax-ename->vla-object (ssname sel (setq n (1+ n))))
               hach (vla-addhatch 
                      (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) 
                       acHatchPatternTypePredefined 
                       motif 
                       :vlax-false 
                       acHatchObject
                   )
       )
       (if (> (vla-get-length vsel) 4.0)
        (progn
          (vlax-invoke hach 'AppendOuterLoop (list vsel))
          (vla-evaluate hach)
        )
       )
   )
)

 

qui fonctionne parfaitement,

mais si je veux que mon motif de hachure ai une échelle de 5

je ne trouve pas de solution.

Même en changeant la variable HPSCALE avant, cela ne sert à rien

La méthode SetPattern non plus ....

J'ai du rater une méthode.

[Fraid]

Oups, désolé du dérangement

j'avais mal fouillé les propriétés

c'est vla-put-PatternScale