Hozzunk ki minél többet az AutoCAD-ből
-
#305
Ha még érdekel a dolog, a következő AutoLisp kódot másold bele az általad használt AutoCAD menühöz tartozó *.mnl fájlba (Alapértelmezetten acad.mnl).
(defun c:layki ( / ) (layonoff T nil)) ; Kikapcsolja a nem XREF -hez tartozó rétegeket.
(defun c:laybe ( / ) (layonoff nil nil)) ; Bekapcsolja a nem XREF -hez tartozó rétegeket.
(defun c:xlayki ( / ) (layonoff T T)) ; Kikapcsolja az XREF -hez tartozó rétegeket.
(defun c:xlaybe ( / ) (layonoff nil T)) ; Bekapcsolja az XREF -hez tartozó rétegeket.
(defun layonoff (ki xref / reteg szin flag)
(setq reteg nil)
(while (setq reteg (tblnext "LAYER" (not reteg)))
(setq eleml (entget (tblobjname "LAYER" (cdr (assoc 2 reteg))))
szin (cdr (assoc 62 reteg))
flag (cdr (assoc 70 reteg))
)
(if (or (and xref (> (logand flag 16) 0))
(and (not xref) (= (logand flag 16) 0))
)
(if (or (and ki (> szin 0))
(and (not ki) (< szin 0))
)
(entmod (subst (cons 62 (* szin -1)) (cons 62 szin) eleml))
)
)
)
(princ)
)