Does anyone have a routine to globally set all hatches to non associative?
Cheers Cory
|
Does anyone have a routine to globally set all hatches to non associative?
Cheers Cory
I have this:Originally Posted by Mr Cory
Code:(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: ")
Thats exactly what i was after Thanks Paul!
Just one thing, where and what would i add to make it do it automatically?
You are welcome.
This will select and process all associated hatches automatically.
Code:(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: ")
Perfect thanks again!