高手帮我看看程序那里错了

icefrog

CAD总说语法错误

(defun c:shiyan()
(setq qz "BJ10")
(setq a "A")
(setq d 15)
(setq x 1)
(setq j(list 0))
                 (setq a(strcat qz a))
                 (command "_insert" a pt1 (* (/ d 15) x) (/ d 15) 0)
                 (setq bb(entlast))
                 (setq bq(acet-ent-geomextents bb))
                 (setq bf2(car(car(cdr bq))))
                 (setq bf1(car(car bq)))
                 (setq bf(/ (- bf2 bf1) 2)) 
                 (setq e(- 0 (+ 10 bf 0.5 5)))
                 (setq j2(atan (/ (/ e 2.0) (sqrt (- (* r r) (* (/ e 2.0) (/ e 2.0)))))))
                 (setq j2(/ (* 180 j2) pi))
                 (setq j1(* 2 j2))
                 (setq j(cons j1 j)
                 (setq j(apply '+ j))
                 (command "_ROTATE" bb "" pt0 j)
                 (setq af bf)
               )
)

Andyhon

(command "_insert" a pt1 (* (/ d 15) x) (/ d 15) 0)

Pt1 可有赋值 ? .... 

(/ d 15) ==> (/ d 15.0) ?

icefrog

pt1赋值了 我没写上  这个是我的一个子程序  J2能查到值 J1就是空了

(setq j1(* 2 j2))  应该没错误啊

icefrog

谢谢LS 不过把最后的括号去了 现在提示  “输入的列表有缺陷”

carrot1983

icefrog发表于2010-2-9 14:42:00谢谢LS 不过把最后的括号去了 现在提示  “输入的列表有缺陷”

(defun c:tt ()
  (setq r 1000)    ; 添加
  (setq pt1 '(0 0 0))   ; 添加
  (setq pt0 '(0 0 0))   ; 添加
  (setq qz "BJ10")
  (setq a "A")
  (setq d 15)
  (setq x 1)
  (setq j (list 0))
  (setq a (strcat qz a))
  (command "_insert" a pt1 (* (/ d 15) x) (/ d 15) 0)
  (setq bb (entlast))
  (setq bq (acet-ent-geomextents bb))
  (setq bf2 (car (car (cdr bq))))
  (setq bf1 (car (car bq)))
  (setq bf (/ (- bf2 bf1) 2))
  (setq e (- 0 (+ 10 bf 0.5 5)))
  (setq j2 (atan
      (/ (/ e 2.0) (sqrt (- (* r r) (* (/ e 2.0) (/ e 2.0)))))
    )
  )
  (setq j2 (/ (* 180 j2) pi))
  (setq j1 (* 2 j2))
  (setq j (cons j1 j))
  (setq j (apply '+ j))
  (command "_ROTATE" bb "" pt0 j)
  (setq af bf)
)

不会调试 ＝＝ 不会写程序。