(defun C:DDEMO () ;;Displays Demolition Layers
(command "-layer" "Set" "0" "")
(command "-layer" "Thaw" "*DEMO*" "")
(princ)
); defun
or
(defun c:lay (/ e ) ;;Highlight All Objects on Selected Layer
(if (setq e (nentsel "Select entity on a layer: "))
(sssetfirst nil (ssget "_X" (list (cons 8 (cdr (assoc 8 (entget (car e))))))))
)
(princ)
)
(defun C:Test ()
(initget "Demo Help")
(setq uAns
(cond ((getkword "\nDisplay Demolition Layers [Demo/Help] <Demo> : "))
("Demo")))
(cond ((eq uAns "Demo")
(alert "Turn on Demo Layers.")
(C:DDEMO)
)
((eq uAns "Help")
(alert "Run Help Command.")
)
)
(princ))
(defun C:DDEMO () ;;Displays Demolition Layers
(command "-layer" "Set" "0" "")
(command "-layer" "Thaw" "*DEMO*" "")
(princ)
); defun
(if (setq MyHelp$ (findfile "MY Help File.txt"))
(startapp "explorer.exe" MyHelp$)(Print "No help found"))
## BRIEF ##
A brief (one paragraph) description here.
## DESCRIPTION ##
A long project description here.
Love to eat them mousies,
Mousies what I love to eat.
Bite they little heads off,
Nibble on they tiny feet.
-- Kliban
It has been said that we stand on one another's shoulders. If
this is the case, then programmers stand on one another's toes, and
software engineers dig each other's graves.
-- Unknown