Here is the lisp I am trying to automatically load on start up. Hope you can help me figure this out. I just switch from an old version of autocad and I'm trying to find my way around Intellicad.
Sean
;;;CADALYST 12/04 Tip1997: DimAutoLayer.LSP Dimension Layer Macros (c) 2004 Jack Foster
;Courtesy to CADalyst Magazine by Jack Foster
http://www.3ddesignservices.com
;Honorable mention to AUGI.COM for teaching me about the CmdActive in AutoLisp
;Turning a layer "On, Unlock and Thaw" before making the layer guarantees that it will be the active layer and useable.
;Dimlinear
(defun c:DL (/ )
(setq cdln (getvar "clayer"))
(command "Layer" "on" "dim" "unlock" "dim" "thaw" "dim" "m" "dim" "c" "6" "dim" "")
(command "dimlinear")
(while (> (getvar "CmdActive") 0)(command pause))
(setvar "clayer" cdln)
)
;dimangular
(defun c:DG (/ )
(setq cdln (getvar "clayer"))
(command "Layer" "on" "dim" "unlock" "dim" "thaw" "dim" "m" "dim" "c" "6" "dim" "")
(command "dimangular")
(while (> (getvar "CmdActive") 0)(command pause))
(setvar "clayer" cdln)
)
;dimaligned
(defun c:DA (/ )
(setq cdln (getvar "clayer"))
(command "Layer" "on" "dim" "unlock" "dim" "thaw" "dim" "m" "dim" "c" "6" "dim" "")
(command "dimaligned")
(while (> (getvar "CmdActive") 0)(command pause))
(setvar "clayer" cdln)
)
;dimradius
(defun c:DR (/ )
(setq cdln (getvar "clayer"))
(command "Layer" "on" "dim" "unlock" "dim" "thaw" "dim" "m" "dim" "c" "6" "dim" "")
(command "dimradius")
(while (> (getvar "CmdActive") 0)(command pause))
(setvar "clayer" cdln)
)
;dimdiameter
(defun c:DD (/ )
(setq cdln (getvar "clayer"))
(command "Layer" "on" "dim" "unlock" "dim" "thaw" "dim" "m" "dim" "c" "6" "dim" "")
(command "dimdiameter")
(while (> (getvar "CmdActive") 0)(command pause))
(setvar "clayer" cdln)
)
;dimcontinue
(defun c:DC (/ )
(setq cdln (getvar "clayer"))
(command "Layer" "on" "dim" "unlock" "dim" "thaw" "dim" "m" "dim" "c" "6" "dim" "")
(command "dimcontinue")
(while (> (getvar "CmdActive") 0)(command pause))
(setvar "clayer" cdln)
)
;dimbaseline
(defun c:DB (/ )
(setq cdln (getvar "clayer"))
(command "Layer" "on" "dim" "unlock" "dim" "thaw" "dim" "m" "dim" "c" "6" "dim" "")
(command "dimbaseline")
(while (> (getvar "CmdActive") 0)(command pause))
(setvar "clayer" cdln)
)