Lisp Error
You should really use a lisp code app like VS Code & installed with Lisp extensions as recommended by Autodesk:
https://help.autodesk.com/view/OARX/2025/ENU/?guid=GUID-7BE00235-5D40-4789-9E34-D57685E83875
This really helps you troubleshoot code like the one you posted.
First of all you cannot start a defun function with a missing open parenthesis:
defun c:ldr (/)In addition to adding the open parenthesis you should also localize your variables:
(defun c:ldr
; localize variables
(/ LL CC DD DIM color ML h a v c pt)All the commands that invoke going to MSPACE would fail if you're in a Layout that has no Paperspace Vports:
(command "_mspace")Since there's no such thing as "Setbacks" what exactly are you trying to select with this line of code:
(setq ssFire (ssget "w" pt1 pt2 '(("Setbacks"))))What does this line of code do:
(command "dimstyle" "PV-TEXT-NOTE" "mspace")When you enter the command at the command prompt this is what you need to answer:
This line of code would fail if there isn't an MLeader Style called "mspace":
(setvar "cmleaderstyle" "mspace")What's the purpose of the following multiple dimasz settings & dimtxt settings when none of these work:
(setvar "dimasz" 1'=10')
(setvar "dimasz" 1'=15')
(setvar "dimasz" 1'=20')
(setvar "dimtxt" 1-8")If 1-8" represents 1/8" which is = 0.125 then you should enter like this:
(setvar"dimtxt" 0.125)At the command prompt when you enter those system variables you'll see the response expected:
The following line of code will fail if layer "Anno" does not exist:
(setvar "clayer" "Anno")The following lines of code properly starts both if & progn functions with an open parenthesis but are missing matching closing parenthesis to the if & progn functions:
;equipment pad 1
(if (= (strcase ct) "MODEL") (progn ;if Model page
(setq pt (getpoint "\nEQUIPMENT\PAD1"))
(command "mleader" pt pause "nEQUIPMENT\PAD1")
;equipment pad 1
(if (= (strcase ct) "MODEL") (progn ;if Model page
(setq pt (getpoint "\nEQUIPMENT\PAD2"))
(command "mleader" pt pause "\nEQUIPMENT\PAD2")Also what is variable ct? This is not defined anywhere in your code so you'll end up with this error:
The following lines of code refers to a variable called ssTrench which again is not defined anywhere in your code:
;trench
(if (/= ssTrench nil) (progn
(setq pt (getpoint "\nTRENCH"))
(command "mleader" pt pause "(N) n(ENTRENCHED ~ # FT)")
;(e)structure
(setq pt (getpoint "\nSTRUCTURE"))
(command "mleader" pt pause "(E) \nSTRUCTURE")
)) ;ifSince it's nil then everything in between the progn function will not be executed:
All the lines that calls for Text Style "PV-TEXT-NOTE" will fail if that Style does not exist:
(command "text" "style" "PV-TEXT-NOTE" pt 1-8" pause Street1 ")Also notice the missing quote in front of 1-8", the missing quotes surround text Street1 and additional quote before the closing parenthesis:
If 1-8" represents 1/8" then you should enter like this:
(command "text" "style" "PV-TEXT-NOTE" pt "1/8" pause "Street1")
