icefrog 发表于 2010-2-9 11:46:00

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

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

Andyhon 发表于 2010-2-9 12:03:00

<p>(command "_insert" a pt1 (* (/ d 15) x) (/ d 15) 0)</p><p>Pt1 可有赋值 ? ....&nbsp; </p><p>(/ d 15) ==&gt; (/ d 15.0) ?<br/></p>

icefrog 发表于 2010-2-9 12:21:00

<p>pt1赋值了 我没写上&nbsp; 这个是我的一个子程序&nbsp; J2能查到值 J1就是空了 </p><p>(setq j1(* 2 j2))&nbsp; 应该没错误啊</p><p></p>

liminnet 发表于 2010-2-9 13:25:00

icefrog 发表于 2010-2-9 14:42:00

<p>谢谢LS 不过把最后的括号去了 现在提示&nbsp; “输入的列表有缺陷”</p><p></p>

carrot1983 发表于 2010-2-9 16:41:00

icefrog发表于2010-2-9 14:42:00static/image/common/back.gif谢谢LS 不过把最后的括号去了 现在提示&nbsp; “输入的列表有缺陷”

<p>(defun c:tt ()<br/>&nbsp; (setq r 1000)&nbsp;&nbsp;&nbsp;&nbsp;; 添加<br/>&nbsp; (setq pt1 '(0 0 0))&nbsp;&nbsp;&nbsp;; 添加<br/>&nbsp; (setq pt0 '(0 0 0))&nbsp;&nbsp;&nbsp;; 添加<br/>&nbsp; (setq qz "BJ10")<br/>&nbsp; (setq a "A")<br/>&nbsp; (setq d 15)<br/>&nbsp; (setq x 1)<br/>&nbsp; (setq j (list 0))<br/>&nbsp; (setq a (strcat qz a))<br/>&nbsp; (command "_insert" a pt1 (* (/ d 15) x) (/ d 15) 0)<br/>&nbsp; (setq bb (entlast))<br/>&nbsp; (setq bq (acet-ent-geomextents bb))<br/>&nbsp; (setq bf2 (car (car (cdr bq))))<br/>&nbsp; (setq bf1 (car (car bq)))<br/>&nbsp; (setq bf (/ (- bf2 bf1) 2))<br/>&nbsp; (setq e (- 0 (+ 10 bf 0.5 5)))<br/>&nbsp; (setq&nbsp;j2 (atan<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (/ (/ e 2.0) (sqrt (- (* r r) (* (/ e 2.0) (/ e 2.0)))))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (setq j2 (/ (* 180 j2) pi))<br/>&nbsp; (setq j1 (* 2 j2))<br/>&nbsp; (setq j (cons j1 j))<br/>&nbsp; (setq j (apply '+ j))<br/>&nbsp; (command "_ROTATE" bb "" pt0 j)<br/>&nbsp; (setq af bf)<br/>)<br/></p><p></p><p>不会调试 ＝＝ 不会写程序。</p><p></p>
页: [1]
查看完整版本: 高手帮我看看程序那里错了