Hatch scale

[k005]

Hello friends;

I'm doing a scan here. However, I could not adjust the hatch scale. Where am I making a mistake?

Thanks in advance to my helpful friend.

error :  BOUNDARY created 1 region; error: ActiveX Server returned the error: unknown name: scale

; Tarama (hatch) işlemi
     (setq txtHight (getvar "Textsize"))
    (setq hatchObj (vla-addHatch
                     (vla-get-modelspace
                       (vla-get-activedocument
                         (vlax-get-acad-object)))
                     acHatchPatternTypePreDefined
                     "ANSI31"
                     :vlax-true))
    (vla-put-Color hatchObj 9)
    (vla-put-Scale hatchObj txtHight)

  

    (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex hsset)))
      (setq loopObj (vlax-make-safearray vlax-vbObject '(0 . 0)))
      (vlax-safearray-fill loopObj (list (vlax-ename->vla-object ent)))
      (vla-appendOuterLoop hatchObj loopObj))

[Sea-Haven]

Hmmm maybe not tested.

(vla-put-Scale hatchObj txtHight)

 ; PatternScale = 10.0 use dumpit.lsp

[Kent1Cooper · Accepted solution]

That's not the right VLA Property name.  To see all VLA Properties so you can look for what the right one is called:

(vlax-dump-object TheVLAobject)

In this case:

(vla-put-Patternscale ....

[k005]

Thank you very much. Ok. 🤗