(defun C:dit () ; Put Dimensions to 0-Dim Layer
(command "-layer" "n" "0-DIM" "")
(command
"_.chprop"
(ssget "X" '((0 . "DIMENSION")))
""
"_LAyer"
"0-DIM"
""
); end command
); end defun
(c:dit)

Advertisements