[求助]：请各位朋友帮我看一下，此程序错在那？

zuoyushi

不好用

defun c:luox(/)
  (setq b1 (getpoint"请指定螺旋线基点："))  //setq函数用于给变量赋值
  (setq r (getreal"请指定螺旋线平均半径："))
  (setq disp ( getreal"请输入螺旋线节距："))
  (setq n (getint"请输入每圈细化段数："))
  (setq delta (/(* 2.0 pi) n))
  (setq j (/ disp n))
  (setq bb(caddr b1))
  (setq ang 0)
  (setq k 0)
  (command "ucs" "o" b1) //将坐标原点移到指定的螺旋线基点
  (command "3dpoly" (list r 0 0)) //以 (r,0,0) 为起点绘制多段线
  (repeat n //循环操作语句，n为循环次数
   (setq k(+ k 1))
      (setq ang(+ delat ang))
    (setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k ))))
    (command pt2)
    )
  (command "")
     )

好用
(defun C:luox(/)
  (setq b1 (getpoint"请指定螺旋线基点：")) //setq函数用于给变量赋值
  (setq r (getreal"请指定螺旋线平均半径："))
  (setq disp ( getreal"请输入螺旋线节距："))
  (setq n (getint"请输入每圈细化段数："))
  (setq delta (/(* 2.0 pi) n))
  (setq j (/ disp n))
  (setq bb(caddr b1))
  (setq ang 0)
  (setq k 0)
  (command "UCS" "o" b1) //将坐标原点移到指定的螺旋线基点
  (command "3dpoly" (list r 0 0)) //以（r,0,0）为起点绘制多段线
  (repeat n //循环操作语句，n为循环次数
    (setq k(+ k 1))
    (setq ang(+ delta ang))
    (setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k))))
    (command  pt2)
    )
  (command "")
   )
两个程序我一个一个字符对的，没有发现有错的地方，但前者就是不好用，后者好用，敬请高手帮忙给予指点，谢谢！！

ljpnb

(setq ang(+ delat ang))这句的变量错了，delta

zuoyushi

感谢2楼的，改过来后，我试了还是不行。

ljpnb

我试了一下可以啊，不过有一点说明一下，“//setq函数用于给变量赋值”不能用//来注释，应该用“;_”打头或直接用“;”打头。

doubao

晕，第一句就错了
defun c:luox(/)

（defun c:luox(/)... 才对嘛

另外， autolisp/vlisp 的注释是用 “；”（分号）打头的。
“// ”打头不是注释行，只是被忽略的无意义语句而已。不信你把那个“好用”的程序里用“// ”打头的注释行中的“// ”删掉，仍然好用。

注意那个“不好用”的程序里有一句注释是这样的：

//以  (r,0,0)  为起点绘制多段线

其中 (r,0,0)  在运行时被认为是lisp语句了， 自然出错。

而那个“好用”的程序里的注释是这样的：

//以（r,0,0）为起点绘制多段线

注意其中（r,0,0）的括号是中文字符，所以整个语句仍然是无效语句被忽略了，程序当然能够正常运行。


结论：一定要用分号（；）做注释！！！

neuwzy

6楼很强

hadeseyes

真的是啊,连括号的中英文也看得出

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060314
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. ;;;螺旋线
    
15. (defun C:luox ()
    
16.   (cmdla0)
    
17.   (if (null r)
    
18.     (setq r 1000)
    
19.   )
    
20.   (if (null dp)
    
21.     (setq 10)
    
22.   )
    
23.   (if (null n)
    
24.     (setq n 100)
    
25.   )
    
26.   (mkla "螺旋线" 3)
    
27.   (while (setq b1 (getpoint "\n请指定螺旋线基点<退出>: "))
    
28.     (setq r   (UREAL 7 "" "\n请指定螺旋线平均半径" r)
    
29.           dp  (UINT 1 "" "\n请输入螺旋线节距" dp)
    
30.           n   (UINT 1 "" "\n请输入每圈细化段数" n)
    
31.           da  (/ (* 2.0 pi) n)
    
32.           j   (/ dp n)
    
33.           bb  (caddr b1)
    
34.           ang 0
    
35.           k   0
    
36.     )
    
37.     (setvar "osmode" 0)
    
38.     (command "UCS" "o" b1)
    
39.     (command "3dpoly" (list r 0 0))
    
40.     (repeat n
    
41.       (setq k        (+ k 1)
    
42.             ang        (+ da ang)
    
43.             pt2        (list (* r (cos ang)) (* r (sin ang)) (+ 0 (* j k)))
    
44.       )
    
45.       (command pt2)
    
46.     )
    
47.     (command "")
    
48.   )
    
49.   (cmdla1)
    
50. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060314<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;螺旋线<br /> (defun C:luox ()<br />   (cmdla0)<br />   (if (null r)<br />     (setq r 1000)<br />   )<br />   (if (null dp)<br />     (setq 10)<br />   )<br />   (if (null n)<br />     (setq n 100)<br />   )<br />   (mkla "螺旋线" 3)<br />   (while (setq b1 (getpoint "\n请指定螺旋线基点<退出>: "))<br />     (setq r   (UREAL 7 "" "\n请指定螺旋线平均半径" r)<br />           dp  (UINT 1 "" "\n请输入螺旋线节距" dp)<br />           n   (UINT 1 "" "\n请输入每圈细化段数" n)<br />           da  (/ (* 2.0 pi) n)<br />           j   (/ dp n)<br />           bb  (caddr b1)<br />           ang 0<br />           k   0<br />     )<br />     (setvar "osmode" 0)<br />     (command "UCS" "o" b1)<br />     (command "3dpoly" (list r 0 0))<br />     (repeat n<br />       (setq k        (+ k 1)<br />             ang        (+ da ang)<br />             pt2        (list (* r (cos ang)) (* r (sin ang)) (+ 0 (* j k)))<br />       )<br />       (command pt2)<br />     )<br />     (command "")<br />   )<br />   (cmdla1)<br /> )[/FONT]

zuoyushi

谢谢各位的帮忙，可是我按照朋友们指点的，改后还是不行。