;;;;;;;;;; for DIMENSIONS
(defun c:DLDL
(/ sel1 CLAYER
) ;Switch from Layout Tab To Model Tab before stating LISP
(command "_.Tilemode" 1) ; To model space (setq sel1
(ssget "X" '
((0 .
"DIMENSION")))) ; SELECT ALL DIMENSION (setq OLDLAYER
(getvar "CLAYER")) ;GET CURRENT LAYER (COMMAND "_layer" "_m" "DIM" "_c" "10""" "") ;CREATE NEW LAYER (setvar "CLAYER" OLDLAYER
) ; SET ACTIVE LAYER TO PREVIOUS (command "CHPROP" sel1
"" ; CHANGE DIMENSION LAYER TO NEW LAYER "LAYER" "DIM"
"")
(command "_.Tilemode" 0) ;And back to last current layout );END PROGRAM
;;;;;;;;;; for HATCH
(defun c:DLHATCH
(/ sel1 CLAYER
) ;Switch from Layout Tab To Model Tab before stating LISP
(command "_.Tilemode" 1) ; To model space (setq sel1
(ssget "X" '
((0 .
"HATCH")))) ; SELECT ALL HATCH (setq OLDLAYER
(getvar "CLAYER")) ;GET CURRENT LAYER (COMMAND "_layer" "_m" "HATCH" "_c" "155" "" "_lw" "0.18" "" "") ;CREATE NEW LAYER (setvar "CLAYER" OLDLAYER
) ; SET ACTIVE LAYER TO PREVIOUS (command "CHPROP" sel1
"" ; CHANGE HATCH LAYER TO NEW LAYER "LAYER" "HATCH"
"")
(command "_.Tilemode" 0) ;And back to last current layout
(setq sel1
(ssget "X" '
((0 .
"HATCH")))) ; SELECT ALL HATCH (setq OLDLAYER
(getvar "CLAYER")) ;GET CURRENT LAYER (COMMAND "_layer" "_m" "HATCH" "_c" "155" "" "_lw" "0.18" "" "") ;CREATE NEW LAYER (setvar "CLAYER" OLDLAYER
) ; SET ACTIVE LAYER TO PREVIOUS (command "CHPROP" sel1
"" ; CHANGE HATCH LAYER TO NEW LAYER "LAYER" "HATCH"
"")
);END PROGRAM