帮忙看下这个程序那里有问题啊 加载后提示错误列表输入，求帮助修改下
本帖最后由 243811238 于 2014-3-20 10:47 编辑下面绿色的单独执行都没问题，就是搞一起选择性的 不可以；了
(defun c:ic ()
(while (= lnm “1”)
(COMMAND "UNDO" "BE")
(setq p0 (getpoint))
(setq p1 (getpoint))
(setq ang (angle p0 p1))
(if (< ang (/ pi 2))
(progn
((setq ang 100)
)
)
(if (< ang (* (/ pi 2) 3))
(progn
(command "insert" "ic3" p0 "" "" "")
(command "explode" "l")
(setq ang 100)
)
)
(if (< ang (* pi 2))
(progn
(command "insert" "ic4" p0 "" "" "")
(command "explode" "l")
(setq ang 100)
)
)
(COMMAND "UNDO" "E")
)
(while(= lnm “3”)
(COMMAND "UNDO" "BE")
(setq p0 (getpoint))
(setq p1 (getpoint))
(setq ang (angle p0 p1))
(if (< (setq ang 100)
)
)
(if (< ang pi)
(progn
(command "insert" "3ic2" p0 "" "" "")
(command "explode" "l")
(setq ang 100)
)
)
(if ((progn
(setq ang 100)
)
)
(if (< (command "explode" "l")
(setq ang 100)
)
)
(COMMAND "UNDO" "E")
)
人呢都 ，帮帮忙啊 大哥们
页:
[1]