Question

为什么我的CAD在加载完一个AUTOLISP程序后（已经显示加载成功），但是运行该程序时打不开

程序
；draw square
（defun C:SQUARE（）
（setq pt1（getpoint“输入左下角点”））
（setq L（getdist“输入边长：”pt1））
（setq pt2（polar pt1 0.0L））
（setq pt3（polar pt2 1.57L））
（command“pline”pt1 pt2 pt3 pt4“C”）
）

Answer 1

你再试试这个
；draw square
（defun C:SQUARE（）
（setq pt1（getpoint “输入左下角点”））
（setq L（getdist “输入边长：”））
（setq pt2（polar pt1 0 L））
（setq pt3（polar pt2 (* 0.5 pi) L））
（command“pline”pt1 pt2 pt3 pt4“C”）
（princ）
）

追问

还是不行啊，不知道什么原因，也不是cad版本的问题

追答

（command“pline”pt1 pt2 pt3 pt4“C”）这句错了，哪里来的pt4？
去掉就好了。

追问

我觉的应该是搜索路径是问题，但是默认的搜索路径是什么？我保存到桌面上了

追答

我已经试过了，把那条语句里的pt4去掉，程序没有问题了。

工具——加载lisp程序——内容——保存

追问

你用的是第几版的cad？

追答

我用的12，这个和cad版本没有关系。我用06的也能运行。

追问

这过程有什么问题吗？

追答

用英文字体，标点符号也要英文的。
（）改为()
“ ”改为""
如果ok的时候，字体颜色会变成和我上图一样。