1
AutoLISP (Vanilla / Visual) / Re: Lisp for this?
« Last post by framednlv on Today at 06:46:51 PM »We use design center
Code: [Select]
(defun c:EE ()(command "_adcnavigate" "X:/Standards/Disciplines/E/")(setvar 'clayer "0")(print "layer '0' is now current")(princ))
(defun c:MM ()(command "_adcnavigate" "X:/Standards/Disciplines/M/")(setvar 'clayer "0")(print "layer '0' is now current")(princ))
(defun c:PP ()(command "_adcnavigate" "X:/Standards/Disciplines/P/")(setvar 'clayer "0")(print "layer '0' is now current")(princ))