topic Re: Hatch scale in Visual LISP, AutoLISP and General Customization Forum

Hatch scale

k005 — Sun, 26 May 2024 07:00:31 GMT

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))

Re: Hatch scale

Sea-Haven — Sun, 26 May 2024 08:03:22 GMT

Hmmm maybe not tested.

(vla-put-Scale hatchObj txtHight)

; PatternScale = 10.0 use dumpit.lsp

Re: Hatch scale

Kent1Cooper — Sun, 26 May 2024 10:33:02 GMT

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 ....

Re: Hatch scale

k005 — Sun, 26 May 2024 13:15:23 GMT

Thank you very much. Ok. 🤗