为什么这段小程序运行不起来，谢谢！

tjherrlu · 发表于 2012-10-29 09:38:50

(defun c: mypl(/ p1 p2 p3 p4)
(setq p1(getpoint ))
(setq p2(getpoint))
(setq p3(getpoint))
(setq p4(getpoint))
(command "pline" p1 p2 p3 p4 "c")
)

谢谢各位先！

仲文玉 · 发表于 2012-10-29 09:57:21

c:mypl c:后面不要有空格

zyhandw · 发表于 2012-10-29 10:12:07

楼上正解！
此外，还建议在getpoint中加入提示信息!

仲文玉 · 发表于 2012-10-29 10:30:40

本帖最后由仲文玉于 2012-10-29 10:31 编辑

(defun c:mypl (/ p1 p2 p3 p4)
(setq p1 (getpoint "\n请指定第1个点")
p2 (getpoint p1 "\n请指定第2个点")
p3 (getpoint p2 "\n请指定第3个点")
p4 (getpoint p3 "\n请指定第4个点")
)
(command "pline" p1 p2 p3 p4 "c")
)

仲文玉 · 发表于 2012-10-29 11:16:31

谢谢G版指点，学习了

chinawhy817 · 发表于 2012-10-29 12:33:12

罗马不是一天建成的，加油....

陨落 · 发表于 2012-10-29 12:39:39

你的c跟mypl之间多了一个空格，去掉这个空格就行了

tjherrlu · 发表于 2012-10-30 10:33:23

谢谢大家！！！！！！！！！

账号		自动登录	找回密码
密码			注册

为什么这段小程序运行不起来，谢谢！

相关帖子

点评