Change Hatch Pattern Scale Lisp

[Anonymous]

I'd be really gratefull for some help

I need some lisp code that will change the hatch scale of a specific pattern.

I need to change all ANSI31 to a scale of 100 in multiple drawings.

With some recycling of code found on here I've got the below but cannot get it to run - I think it's close but not close enough!

Could anyone point me in the right direction please?

Many thanks in advance!

(defun c:hatchup ( / ss e ei)
(repeat (sslength (setq ss (ssget "x" '((0 . "HATCH")(2 . "ANSI31")))))
 (setq e (ssname ss 0) ei (entget e))
 (ssdel e ss)
 (entmod (subst '( 41 . "100") (assoc 2 ei) ei))
 )

(princ))

[Kent1Cooper · Accepted solution]

(entmod (subst '( 41 . 100) (assoc 41 ei) ei))

[no double-quotes around the 100]

[Anonymous]

That's great Kent, thanks very much.

It now runs but unfortunately even though it updates the scale value, the hatch doesn't update to match it.

Tried regenall and closing the file but it just wont update to match the scale - any ideas?

[Kent1Cooper]

---

@Anonymous wrote:

... unfortunately even though it updates the scale value, the hatch doesn't update to match it.

....

---

Is it an ANNOTATIVE Hatch object?  A couple of slots above the Scale in the Properties box, if it says Yes, and you set that to No, I expect it should work.

[Ranjit_Singh · Accepted solution]

Try below for example

(defun c:somefunc ( / )
(mapcar '(lambda (x)
(setpropertyvalue ent "PatternScale" 100)
) (mapcar 'cadr (ssnamex (ssget "_x" '((0 . "HATCH")(2 . "ANSI31")))))))

[Anonymous]

Thanks for the response guys.

Kent - no the text is not annotative.

Ranjit - thanks for the code but I received the following message when I ran it:

error: ADS request error

[Ranjit_Singh · Accepted solution]

I screwed up in the typing. I need to start debugging my code Try below

(defun c:somefunc ( / )
(mapcar '(lambda (x)
(setpropertyvalue x "PatternScale" 100)
) (mapcar 'cadr (ssnamex (ssget "_x" '((0 . "HATCH")(2 . "ANSI31")))))))

[Kent1Cooper]

---

@Anonymous wrote:

... no the text is not annotative. ....

---

[Nor is it text, but anyway....]  Grabbing at straws here -- I don't think it will help if saving/closing/re-opening the drawing doesn't, but just in case, might it require this:

(entupd e)

after the (entmod) part?

[Anonymous]

That did the trick Ranjit - thanks very much.

[JM_THS_4Y]

Thanks for the help, it also helped me, partially to me.
But I need, in addition to changing the scale, also change the transparency everything to 10% and as they are composites, which have background color, I also have to ensure that they are all with the color 252.

Can you help me please?

Thanks

J.M.