[求助]：这个程序怎么啦

yby1968501

这个三维环形阵列程序我把它加载后发现错误？但不知错在哪里，希高手帮助解答一下。谢谢！

(defun C:u3dpolar (/sp ept n i ang setps ss)
; ; ;---------输入基本参数---------
  (setq        sp    (getpoint "指定阵列的中心点:")
        n     (getint "数目:")
        ang   (/ (getdist "总角度:") n)
        setps (/ (getdist "总高度:") n)
        ss    (ssget)
        i     0
  )
; ; ;---------保存部分系统变量---------
  (setq        envir0 (getvar "CMDECHO")
        envir1 (getvar "BLIPMODE")
        envir2 (getvar "OSNAPCOORD")
  )
; ; ;---------设置部分系统变量---------
  (setvar "CMDECHO" 0)
  (setvar "BLIPMODE" 0)
  (setvar "OSNAPCOORD" 1)
; ; ;---------三维环形阵列程序---------
  (repeat n
    (setq i   (+i 1)
          ept (list (car sp) (cadr sp) (+ (caddr sp) (* setps i)))
    )
    (command "array" ss "" "p" sp "2" (* ang i) "y")
    (command "move" "1" "" sp ept)
  )
; ; ;---------恢复系统变量---------
  (setvar "CMDECHO" envir0)
  (setvar "BLIPMODE" envir1)
  (setvar "OSNAPCOORD" envir2)
; ; ;-------结束----------------
  (princ "三维环形阵列已经完成")
  (princ)
)

陌生人

(setq i (+i 1)
应为 (+ i 1) 或者 (1+ i)
另外,(/sp ept n i ang setps ss)
/前加空格

已经得ept ,为什么不用copy?

f5612140

最初由 yby1968501 发布
[B](command "move" "1" "" sp ept)[/B]

"1" 這是數字1還是小寫L

lijiao

在VL中调试，很容易发现问题。