Edit multiple hatches - impossible?

[Haggbakk]

Hi everyone!

 

Managed to create a lisp that changes hatch pattern via "-hatchedit". Worked fine when testing on one hatch but when testing the lisp out on several hatches in same model the problems occured. Seems like Hatchedit command only work on one hatch at a time.

 

Anyone got an idea how to edit multiple hatch patterns with one click?

[lpseifert]

you could make a selection set of the hatches and cycle through them to use "-hatchedit" on each one.

[Haggbakk]

My thoughts were going to that direction too, but I've got no idea how to do that. I'va Googled it without finding any good answers. How do I create a cycle?

[lpseifert]

have a look here

http://www.afralisp.net/autolisp/tutorials/selection-sets.php

[Haggbakk]

Ah, thank you. Visited that page earlier today, close but no cigar... I give it a try.

[abugintheground]

I've just had a similar problem, and found the easiest thing to do was to edit the properties of one and then use MATCHPROP to copy those settings to the others. Is that what you wanted to do?

[Tharwat]

My thoughts were going to that direction too, but I've got no idea how to do that. I'va Googled it without finding any good answers. How do I create a cycle?

 

Here is a selection set cycle you can start with, and you should complete the rest ...

(defun c:example (/ ss a ent ents)
(if (setq ss (ssget '((0 . "HATCH"))))
   (progn
     (setq a -1)
     (while (setq ent (ssname ss (setq a (1+ a))))
       (setq ents (entget ent))
      (vl-cmdf "_.-hatchedit" ents .............)
   )
   (princ)
 )
)
(princ)
)

 

hope this clear to you to give a start.

 

Best regards,

 

Tharwat

[Haggbakk]

I've just had a similar problem, and found the easiest thing to do was to edit the properties of one and then use MATCHPROP to copy those settings to the others. Is that what you wanted to do?

 

Good idea, but did you use MATCHPROP in a lisp? For me it jumps out of command line and asks me to pick from the view...

[Lt Dan's legs]

try alias for matchprop = MA

 

Maybe you can modify this

(defun c:test (/ ent)
 (while
   (not
     (and
       (setq ent (car (entsel "\nSpecify hatch patern: ")))
       (setq ent (entget ent))
       (eq "HATCH" (cdr (assoc 0 ent)))
     )
   )
   (prompt "\nPlease Select a hatch")
 )
 (entmod (subst (cons 2 "AR-SAND")(assoc 2 ent) ent))
 (princ)
)