[求助]：为什么command出现下面错误

lidejun_55

(command "pline")
(while (setq pt1 (getpoint "\n下一点 : "))
  ……
  ……
  (command pt1)
)
(command "")

通过调试：在执行(command "")时出现下面的错误：
需要点或选项关键字。
; 错误: 函数被取消

Dallas_whu

(command "pline")
(WHILE (NOT (ZEROP (GETVAR "CMDACTIVE")))
(princ "\n下一点 : ")
.....
....
    (COMMAND PAUSE)
  )

lidejun_55

最初由 Dallas_whu 发布
[B](command "pline")
(WHILE (NOT (ZEROP (GETVAR "CMDACTIVE")))
(princ "\n下一点 : ")
.....
....
    (COMMAND PAUSE)
  ) [/B]

楼上的好像不行，怎么能在pline绘制完毕后退出pline呢？

xyp1964

最初由 lidejun_55 发布
[B](command "pline")
(while (setq pt1 (getpoint "\n下一点 : "))
  ……
  ……
  (command pt1)
)
(command "")

通过调试：在执行(command "")时出现下面的错误：
需要点或选项关键字。
; 错误: ?.. [/B]

把程序贴全！

参考

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060210 (2055)
   
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:test087 (/ rad)
    
16.   (while t
    
17.     (drawline)
    
18.     (setq ss (entlast))
    
19.     (command "zoom" "e")
    
20.     (setvar "pdmode" 36)
    
21.     (setvar "PDSIZE" -5)
    
22.     (setq a   10                        ;
    
23.           b   9                                ;33
    
24.           no1 1
    
25.           rad 0
    
26.           no2 3
    
27.           l   (strlen (rtos (getvar "cputicks") 2 0))
    
28.           i   0
    
29.     )
    
30.     (while (<= rad pi)
    
31.       (setq nb1        (rtos (getvar "cputicks") 2 0)
    
32.             l1        (strlen nb1)
    
33.             nb1        (substr nb1 (- l1 (- (fix no2) 1)))
    
34.             nb2        (rtos (getvar "cputicks") 2 0)
    
35.             l2        (strlen nb2)
    
36.             nb2        (substr nb2 (- l2 (- (fix no2) 1)))
    
37.             col        (rem (atoi (substr nb2 1)) 256)
    
38.       )
    
39.       (if (= col 0)
    
40.         (setq col 1)
    
41.       )
    
42.       (MKLA (rtos col 2 0) col)
    
43.       (setq r  (* a rad (sin (* b rad)) (sin (* b rad)))
    
44.             pt (polar (list 0 0) rad r)
    
45.       )
    
46.       (command "point" pt)
    
47.       (command "delay" "20")
    
48.       (command "erase" "l" "")
    
49.       (setq rad (+ rad (* Pi 0.001)))
    
50.     )
    
51.     (command "delay" "2000")
    
52.     (command "erase" "l" "")
    
53.   )
    
54.   (pxyp "YJFC  (一级方程)")
    
55. )
    
56. (defun drawline        ()
    
57.   (setq        a 10                                ;10
    
58.         b 9                                ;33
    
59.         no1 1
    
60.         rad 0
    
61.   )
    
62.   (command "pline")
    
63.   (while (<= rad pi)
    
64.     (setq r  (* a rad (sin (* b rad)) (sin (* b rad)))
    
65.           pt (polar (list 0 0) rad r)
    
66.     )
    
67.     (command pt)
    
68.     (setq rad (+ rad (* Pi 0.001)))
    
69.   )
    
70.   (command "")
    
71. )
    
72. (defun c:yjfc () (c:test086) (princ))[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060210 (2055)<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:test087 (/ rad)<br />   (while t<br />     (drawline)<br />     (setq ss (entlast))<br />     (command "zoom" "e")<br />     (setvar "pdmode" 36)<br />     (setvar "PDSIZE" -5)<br />     (setq a   10                        ;<br />           b   9                                ;33<br />           no1 1<br />           rad 0<br />           no2 3<br />           l   (strlen (rtos (getvar "cputicks") 2 0))<br />           i   0<br />     )<br />     (while (<= rad pi)<br />       (setq nb1        (rtos (getvar "cputicks") 2 0)<br />             l1        (strlen nb1)<br />             nb1        (substr nb1 (- l1 (- (fix no2) 1)))<br />             nb2        (rtos (getvar "cputicks") 2 0)<br />             l2        (strlen nb2)<br />             nb2        (substr nb2 (- l2 (- (fix no2) 1)))<br />             col        (rem (atoi (substr nb2 1)) 256)<br />       )<br />       (if (= col 0)<br />         (setq col 1)<br />       )<br />       (MKLA (rtos col 2 0) col)<br />       (setq r  (* a rad (sin (* b rad)) (sin (* b rad)))<br />             pt (polar (list 0 0) rad r)<br />       )<br />       (command "point" pt)<br />       (command "delay" "20")<br />       (command "erase" "l" "")<br />       (setq rad (+ rad (* Pi 0.001)))<br />     )<br />     (command "delay" "2000")<br />     (command "erase" "l" "")<br />   )<br />   (pxyp "YJFC  (一级方程)")<br /> )<br /> (defun drawline        ()<br />   (setq        a 10                                ;10<br />         b 9                                ;33<br />         no1 1<br />         rad 0<br />   )<br />   (command "pline")<br />   (while (<= rad pi)<br />     (setq r  (* a rad (sin (* b rad)) (sin (* b rad)))<br />           pt (polar (list 0 0) rad r)<br />     )<br />     (command pt)<br />     (setq rad (+ rad (* Pi 0.001)))<br />   )<br />   (command "")<br /> )<br /> (defun c:yjfc () (c:test086) (princ))[/FONT]