lisp returning Unknown command but still works?

lisp returning Unknown command but still works?

Anonymous
Not applicable
1,399 Views
3 Replies
Message 1 of 4

lisp returning Unknown command but still works?

Anonymous
Not applicable

Why is my lisp returning "Unknown command "SET". Press F1 for help."

 

Command: SET
ENTER DRAWING SETUP SCALE ... 96
Unknown command "SET". Press F1 for help.
Unknown command "SET". Press F1 for help.
Auditing Header
Auditing Tables
Auditing Entities Pass 1
Pass 1 200 objects audited
Auditing Entities Pass 2
Pass 2 200 objects audited
Auditing Blocks
4 Blocks audited
Auditing AcDsRecords
Total errors found 0 fixed 0
Erased 0 objects

 

 

(DEFUN C:Set()
(SETQ A (GETREAL "\nENTER DRAWING SETUP SCALE ... "))
(SETQ B (* A 0.09375))
(SETQ C (/ A 2))
(Setit)
(PRINC) )


(DEFUN Setit()
(COMMAND "-INSERT" "\\\\Cporldata\\trust\\Templates\\CP_Styles.dwg" "0,0,0" "1" "1" "0")
(COMMAND "-DIMSTYLE" "R" "CP Dim Style")
(COMMAND "-STYLE" "ARIAL NARROW" "ARIAL NARROW" "" "" "" "" "" "")
(COMMAND "TEXTSTYLE" "ARIAL NARROW")
(SETVAR "TEXTSIZE" B)
(SETVAR "DIMSCALE" A)
(SETVAR "LTSCALE" C)
(COMMAND "-INSERT" "\\\\cporldata\\autocad\\R2016\\Support\\Templates\\DWTs\\CP MleaderStyle.dwg" "0,0,0" "1" "1" "0")
(SETVAR "CMLEADERSTYLE" "CP")
(COMMAND "MLEADERSCALE" A "")
(COMMAND "AUDIT" "Y")
(COMMAND "REGEN")
(PRINC)
)

0 Likes
Accepted solutions (2)
1,400 Views
3 Replies
Replies (3)
Message 2 of 4

Anonymous
Not applicable
Accepted solution

I am stupid.... had an extra "" on the 

(COMMAND "-STYLE" "ARIAL NARROW" "ARIAL NARROW" "" "" "" "" "")

 

thanks....

0 Likes
Message 3 of 4

rkmcswain
Mentor
Mentor
Accepted solution
For one, this line does not need the "" (enter) at the end.

(COMMAND "MLEADERSCALE" A "")

There is probably a similar error in another line somewhere.

R.K. McSwain     | CADpanacea | on twitter
Message 4 of 4

Anonymous
Not applicable

thank you.

I am slow this morning and everything is now functioning well.

 

These boards are awesome because of folks like you taking the time to reply! Thank you for that.

0 Likes