Routine to globally set all hatches to non associative?

[Mr Cory]

Does anyone have a routine to globally set all hatches to non associative?

Cheers Cory

[paulmcz]

Does anyone have a routine to globally set all hatches to non associative?

Cheers Cory

I have this:
(defun c:qass (/ ss sl ct e1)
(command "cmdecho" (getvar "cmdecho"))
(if (setq ss (ssget '((0 . "HATCH") (71 . 1))))
(setq sl (sslength ss)
ct (- sl 1)
)
(princ "\n No associative hatch found! ")
)
(if ss
(repeat sl
(setq e1 (entget (ssname ss ct)))
(entmod (subst (cons 71 0) (assoc 71 e1) e1))
(setq ct (- ct 1))
)
)
(princ)
)
(prompt "\n Type > qass < to remove hatch associativities: ")

[Mr Cory]

Thats exactly what i was after Thanks Paul!

Just one thing, where and what would i add to make it do it automatically?

[paulmcz]

You are welcome.

This will select and process all associated hatches automatically.

(defun c:qass (/ ss sl ct e1)
(command "cmdecho" (getvar "cmdecho"))
(if (setq ss (ssget "_x" '((0 . "HATCH") (71 . 1))))
(setq sl (sslength ss)
ct (- sl 1)
)
(princ "\n No associative hatch found! ")
)
(if ss
(repeat sl
(setq e1 (entget (ssname ss ct)))
(entmod (subst (cons 71 0) (assoc 71 e1) e1))
(setq ct (- ct 1))
)
)
(princ)
)
(prompt "\n Type > qass < to remove hatch associativities: ")

[Mr Cory]

Perfect thanks again! :)