高手请进！！

wei186

鄙人刚刚接触LISP，望各位前辈不要见笑 (defun c:lyx()
(setq pp1 (getpoint "\ngetpp1:"))
(setq rr1 (getreal "\ngetrr1:"))
(setq dd1 (/ rr1 (sin(/ pi 4))))
(setq pp2 (polar pp1 0 dd1))
(setq pp3 (polar pp2 (/ pi 2) dd1))
(setq pp4 (polar pp1 (/ pi 2) dd1))
(command "polygon" 4 "e" pp1 pp2 "i" rr1 "")
(command "arc" "c" pp3 pp2 "a" "90" "")
(command "arc" "c" pp4 (polar pp3 0 dd1) "a" "90" "")
(command "arc" "c" pp1 (polar pp4 (/ pi 2) (* dd1 2)) "a" "90" "")
(prin1)
) 不知怎么的执行到command "polygon" 4 "e" pp1 pp2 "i" rr1 ""后要用鼠标点击才可以继续最后还提示有不明命令，望各位不吝赐教！！！

meflying

这个是command使用不正确，要根据命令需要输入的数据正确输入参数，你就是参数不正确了，看是否每个的参数是否都对应命令行的输入

wei186

command不能这么用吗？

meflying

不是不能用，是参数不正确，比如要画一条直线，你使用LINE命令时，是输入两个点，最后加一个空回车，那么使用command就是(command "_.line" pt1 pt2 "")


pt1、pt2表示点，而""表示空回车，要一一对应，一定要保证每个参数都对应，否则就可能出问题

my_computer

看了才知道自己原来真的不是高手

wei186

非常感谢！！