[求助]：请求高手们把这个程序加个出错函数，可以让程序在不选对象的情况下正常的退出

andyhua5240

这个程序本来是Wkai斑竹的动态复制和动态旋转，但是程序没有出错处理，尤其是动态复制在提示选择对象时，如果用户击右键不选择任何对象退出时，命令行会出现一大串的错误信息？
这个问题如何改正呢？
谢谢！

我不会lisp，请求高手们给予改正，让这个精髓程序可以更加的完美。谢谢！

2. 
   
3.   [FONT=courier new]
   
4. ;_仿sketchup动态复制程序
   
5. (defun   c:dtc (/ p1 p2 s e cn a1 d1 ns cnn)
   
6.   (princ "\n*** 动态复制 ***")
   
7. ;__________________
   
8.   (defun ttt (ss n / m)
   
9.     (setq ee e
   
10.       ns (ssadd)
    
11.     )
    
12.     (while (setq ee (entnext ee))
    
13.       (setq ns (ssadd ee ns))
    
14.     )
    
15.     (command "erase" ns "")
    
16.     (command "copy" ss "" "m" "non" p1)
    
17.     (if (member (substr n (strlen n)) '("/" "*"))      
    
18.       (progn
    
19.         (setq m 0)
    
20.         (repeat        (atoi n)
    
21.           (setq m (1+ m))
    
22.           (cond
    
23.             ((= "/" (substr n (strlen n)))
    
24.              (command "non"(mapcar '(lambda (x y) (+ x (* m (/ (- y x) (atof n))))) p1 p2))
    
25.             )
    
26.             ((= "*" (substr n (strlen n)))
    
27.              (command "non"(mapcar '(lambda (x y) (+ x (* m (- y x)))) p1 p2))
    
28.             )
    
29.           )
    
30.         )
    
31.       )
    
32.       (command "non" (setq p2 (polar p1 a1 (atof n))))
    
33.     )
    
34.     (command)
    
35.   )
    
36. ;__________________
    
37.   (setq s (ssget))
    
38.   (setq p1 (getpoint "\n复制的起点:"))
    
39.   (command "undo" "be" "line" p1 p1 "" )
    
40.   (setq e (entlast) )
    
41.   (command "copy" s "" "non" p1 pause)
    
42.   (setq        p2 (getvar "lastpoint")
    
43.         a1 (angle p1 p2)
    
44.         d1 (distance p1 p2)
    
45.   )
    
46.   (setq cn "1*")
    
47.   (while (and cn (/= 0 (atof cn)))
    
48.     (ttt s cn)
    
49.     (initget 128)
    
50.     (princ "\n输入坐标=复制终点                         输入数值=修改间距 ")
    
51.     (princ "\n输入数值n并以 / 结束=间距内等分n次复制    输入数值n并以 * 结束=按间距复制n次 ")
    
52.     (setq cnn (getpoint "\n请按提示输入<退出>:"))
    
53.     (if        (= 'LIST (type cnn))
    
54.       (setq p2 cnn
    
55.             a1 (angle p1 p2)
    
56.             d1 (distance p1 p2)
    
57.       )
    
58.       (setq cn cnn)
    
59.     )
    
60.   )
    
61.   (entdel e)
    
62.   (command "undo" "e")
    
63.   (princ)
    
64. )
    
65. 
    
66. (defun c:dtr(/ p1 p2 p3 a1 cn cnn tmp e s)
    
67.   (princ "\n*** 动态旋转 ***")
    
68.   ;_____________________________
    
69.   (defun rc (os / ns ne)
    
70.     (setq ne (entlast)
    
71.       ns (ssadd)
    
72.     )
    
73.     (command "copy" os ""  "0,0"   "0,0")
    
74.     (while (setq ne (entnext ne))
    
75.       (setq ns (ssadd ne ns))
    
76.     )
    
77.     ns
    
78.   )
    
79.   (defun ttt (ss n / m ee ns sn )
    
80.     (setq ee e
    
81.       ns (ssadd)
    
82.     )
    
83.     (while (setq ee (entnext ee))
    
84.       (setq ns (ssadd ee ns))
    
85.     )
    
86.     (command "erase" ns "")   
    
87.     (if (member (substr n (strlen n)) '("/" "*"))      
    
88.       (progn
    
89.     (setq m 0)
    
90.     (repeat    (atoi n)
    
91.       (setq m (1+ m))
    
92.       (setq sn(rc ss))
    
93.       (cond
    
94.         ((= "/" (substr n (strlen n)))
    
95.          (command  "rotate" sn "" p1 (* m (/ a1 (atof n))))
    
96.         )
    
97.         ((= "*" (substr n (strlen n)))
    
98.          (command  "rotate" sn "" p1 (* m a1))
    
99.         )
    
100.       )
     
101.     )
     
102.       )
     
103.       (progn
     
104.     (setq sn(rc ss))
     
105.       (command  "rotate" sn "" p1 (setq a1 (atof n)))
     
106.       )
     
107.     )
     
108.   )
     
109.   ;_____________________________
     
110.   (setq s (ssget))
     
111.   (setq p1 (getpoint "\n旋转基点:"))
     
112.   (setq p2 (getpoint p1 "\n旋转起点:"))
     
113.   (command "undo" "be" "line" p1 p1 "")
     
114.   (setq e (entlast))
     
115.   (setq p3 (getpoint p1 "\n旋转终点:"))
     
116.   (setq tmp (rc s) )
     
117.   (command  "rotate" tmp ""  p1 "r"  p1  p2  p3)
     
118.   (setq cn "1*" a1 (* 180 (/ (-(angle p1 p3)(angle p1 p2))pi)))  
     
119.   (while cn   
     
120.     (ttt s cn)
     
121.     (initget 128)
     
122.     (princ "\n输入坐标=旋转终点                         输入数值=旋转角度 ")
     
123.     (princ "\n输入数值n并以 / 结束=角度内等分n次复制    输入数值n并以 * 结束=按角度复制n次 ")
     
124.     (setq cnn (getpoint "\n请按提示输入<退出>:"))
     
125.     (if    (= 'LIST (type cnn))
     
126.       (setq p3 cnn
     
127.         a1 (* 180 (/ (-(angle p1 p3)(angle p1 p2))pi))
     
128.       )
     
129.       (setq cn cnn)
     
130.     )
     
131.   )
     
132.   (entdel e)
     
133.   (command "undo" "e")
     
134.   (princ)
     
135. )
     
136.   [/FONT]
     

<br />   [FONT=courier new]<br /> ;_仿sketchup动态复制程序<br /> (defun   c:dtc (/ p1 p2 s e cn a1 d1 ns cnn)<br />   (princ "\n*** 动态复制 ***")<br /> ;__________________<br />   (defun ttt (ss n / m)<br />     (setq ee e<br />       ns (ssadd)<br />     )<br />     (while (setq ee (entnext ee))<br />       (setq ns (ssadd ee ns))<br />     )<br />     (command "erase" ns "")<br />     (command "copy" ss "" "m" "non" p1)<br />     (if (member (substr n (strlen n)) '("/" "*"))      <br />       (progn<br />         (setq m 0)<br />         (repeat        (atoi n)<br />           (setq m (1+ m))<br />           (cond<br />             ((= "/" (substr n (strlen n)))<br />              (command "non"(mapcar '(lambda (x y) (+ x (* m (/ (- y x) (atof n))))) p1 p2))<br />             )<br />             ((= "*" (substr n (strlen n)))<br />              (command "non"(mapcar '(lambda (x y) (+ x (* m (- y x)))) p1 p2))<br />             )<br />           )<br />         )<br />       )<br />       (command "non" (setq p2 (polar p1 a1 (atof n))))<br />     )<br />     (command)<br />   )<br /> ;__________________<br />   (setq s (ssget))<br />   (setq p1 (getpoint "\n复制的起点:"))<br />   (command "undo" "be" "line" p1 p1 "" )<br />   (setq e (entlast) )<br />   (command "copy" s "" "non" p1 pause)<br />   (setq        p2 (getvar "lastpoint")<br />         a1 (angle p1 p2)<br />         d1 (distance p1 p2)<br />   )<br />   (setq cn "1*")<br />   (while (and cn (/= 0 (atof cn)))<br />     (ttt s cn)<br />     (initget 128)<br />     (princ "\n输入坐标=复制终点                         输入数值=修改间距 ")<br />     (princ "\n输入数值n并以 / 结束=间距内等分n次复制    输入数值n并以 * 结束=按间距复制n次 ")<br />     (setq cnn (getpoint "\n请按提示输入<退出>:"))<br />     (if        (= 'LIST (type cnn))<br />       (setq p2 cnn<br />             a1 (angle p1 p2)<br />             d1 (distance p1 p2)<br />       )<br />       (setq cn cnn)<br />     )<br />   )<br />   (entdel e)<br />   (command "undo" "e")<br />   (princ)<br /> )<br /> <br /> (defun c:dtr(/ p1 p2 p3 a1 cn cnn tmp e s)<br />   (princ "\n*** 动态旋转 ***")<br />   ;_____________________________<br />   (defun rc (os / ns ne)<br />     (setq ne (entlast)<br />       ns (ssadd)<br />     )<br />     (command "copy" os ""  "0,0"   "0,0")<br />     (while (setq ne (entnext ne))<br />       (setq ns (ssadd ne ns))<br />     )<br />     ns<br />   )<br />   (defun ttt (ss n / m ee ns sn )<br />     (setq ee e<br />       ns (ssadd)<br />     )<br />     (while (setq ee (entnext ee))<br />       (setq ns (ssadd ee ns))<br />     )<br />     (command "erase" ns "")    <br />     (if (member (substr n (strlen n)) '("/" "*"))      <br />       (progn<br />     (setq m 0)<br />     (repeat    (atoi n)<br />       (setq m (1+ m))<br />       (setq sn(rc ss))<br />       (cond<br />         ((= "/" (substr n (strlen n)))<br />          (command  "rotate" sn "" p1 (* m (/ a1 (atof n))))<br />         )<br />         ((= "*" (substr n (strlen n)))<br />          (command  "rotate" sn "" p1 (* m a1))<br />         )<br />       )<br />     )<br />       )<br />       (progn<br />     (setq sn(rc ss))<br />       (command  "rotate" sn "" p1 (setq a1 (atof n)))<br />       )<br />     )<br />   )<br />   ;_____________________________<br />   (setq s (ssget))<br />   (setq p1 (getpoint "\n旋转基点:"))<br />   (setq p2 (getpoint p1 "\n旋转起点:"))<br />   (command "undo" "be" "line" p1 p1 "")<br />   (setq e (entlast))<br />   (setq p3 (getpoint p1 "\n旋转终点:"))<br />   (setq tmp (rc s) )<br />   (command  "rotate" tmp ""  p1 "r"  p1  p2  p3)<br />   (setq cn "1*" a1 (* 180 (/ (-(angle p1 p3)(angle p1 p2))pi)))  <br />   (while cn    <br />     (ttt s cn)<br />     (initget 128)<br />     (princ "\n输入坐标=旋转终点                         输入数值=旋转角度 ")<br />     (princ "\n输入数值n并以 / 结束=角度内等分n次复制    输入数值n并以 * 结束=按角度复制n次 ")<br />     (setq cnn (getpoint "\n请按提示输入<退出>:"))<br />     (if    (= 'LIST (type cnn))<br />       (setq p3 cnn<br />         a1 (* 180 (/ (-(angle p1 p3)(angle p1 p2))pi))<br />       )<br />       (setq cn cnn)<br />     )<br />   )<br />   (entdel e)<br />   (command "undo" "e")<br />   (princ)<br /> )<br />   [/FONT]<br />

秋枫

在(setq s (ssget))后面加一句(if (null s) (exit))

黄河之水

秋枫太历害了,我现在还在用秋枫做的程序.

carrot1983

[php]
(while (setq s (ssget))
......
)  ;;;end while
[/php]
s为nil时，自然退出，不是更好吗？
(if (null s) (exit)) 当然可以。不过会有“error: quit/exit”好像。。。呵呵

zml84

由于LISP函数提供了返回值，
所以对于出错函数的态度是，尽可能的在程序内通过结构去克服它。
<br>
个人感觉使用IF函数进行判断较好。其典型结构如下：

2. 
   
3. (defun xxx ()
   
4.     ...
   
5.     (if        (setq s (ssget))
   
6.         (progn
   
7.             ...
   
8.         )
   
9.         (princ "\n未选择到对象。")
   
10.     )
    
11.     (princ)
    
12. )
    

<br /> (defun xxx ()<br />     ...<br />     (if        (setq s (ssget))<br />         (progn<br />             ...<br />         )<br />         (princ "\n未选择到对象。")<br />     )<br />     (princ)<br /> )<br />

<br>
将楼主的代码整理后，如下：
[PHP]
;_仿sketchup动态复制程序
(defun c:dtc (/ p1 p2 s e cn a1 d1 ns cnn)
    (princ "\n*** 动态复制 ***")
;__________________
    (defun ttt (ss n / m)
        (setq ee e
              ns (ssadd)
        )
        (while (setq ee (entnext ee))
            (setq ns (ssadd ee ns))
        )
        (command "erase" ns "")
        (command "copy" ss "" "m" "non" p1)
        (if (member (substr n (strlen n)) '("/" "*"))
            (progn
                (setq m 0)
                (repeat        (atoi n)
                    (setq m (1+ m))
                    (cond
                        ((= "/" (substr n (strlen n)))
                         (command
                             "non"
                             (mapcar
                                 '(lambda (x y)
                                      (+ x (* m (/ (- y x) (atof n))))
                                  )
                                 p1
                                 p2
                             )
                         )
                        )
                        ((= "*" (substr n (strlen n)))
                         (command
                             "non"
                             (mapcar '(lambda (x y) (+ x (* m (- y x))))
                                     p1
                                     p2
                             )
                         )
                        )
                    )
                )
            )
            (command "non" (setq p2 (polar p1 a1 (atof n))))
        )
        (command)
    )
;__________________
    (if        (setq s (ssget))
        (progn
            (setq p1 (getpoint "\n复制的起点:"))
            (command "undo" "be" "line" p1 p1 "")
            (setq e (entlast))
            (command "copy" s "" "non" p1 pause)
            (setq p2 (getvar "lastpoint")
                  a1 (angle p1 p2)
                  d1 (distance p1 p2)
            )
            (setq cn "1*")
            (while (and cn (/= 0 (atof cn)))
                (ttt s cn)
                (initget 128)
                (princ
                    "\n输入坐标=复制终点                         输入数值=修改间距 "
                )
                (princ
                    "\n输入数值n并以 / 结束=间距内等分n次复制    输入数值n并以 * 结束=按间距复制n次 "
                )
                (setq cnn (getpoint "\n请按提示输入<退出>:"))
                (if (= 'LIST (type cnn))
                    (setq p2 cnn
                          a1 (angle p1 p2)
                          d1 (distance p1 p2)
                    )
                    (setq cn cnn)
                )
            )
            (entdel e)
            (command "undo" "e")
        )
        (princ "\n未选择到对象。")
    )
    (princ)
)

(defun c:dtr (/ p1 p2 p3 a1 cn cnn tmp e s)
    (princ "\n*** 动态旋转 ***")
;_____________________________
    (defun rc (os / ns ne)
        (setq ne (entlast)
              ns (ssadd)
        )
        (command "copy" os "" "0,0" "0,0")
        (while (setq ne (entnext ne))
            (setq ns (ssadd ne ns))
        )
        ns
    )
    (defun ttt (ss n / m ee ns sn)
        (setq ee e
              ns (ssadd)
        )
        (while (setq ee (entnext ee))
            (setq ns (ssadd ee ns))
        )
        (command "erase" ns "")
        (if (member (substr n (strlen n)) '("/" "*"))
            (progn
                (setq m 0)
                (repeat        (atoi n)
                    (setq m (1+ m))
                    (setq sn (rc ss))
                    (cond
                        ((= "/" (substr n (strlen n)))
                         (command "rotate"
                                  sn
                                  ""
                                  p1
                                  (* m (/ a1 (atof n)))
                         )
                        )
                        ((= "*" (substr n (strlen n)))
                         (command "rotate" sn "" p1 (* m a1))
                        )
                    )
                )
            )
            (progn
                (setq sn (rc ss))
                (command "rotate" sn "" p1 (setq a1 (atof n)))
            )
        )
    )
;_____________________________
    (if        (setq s (ssget))
        (progn
            (setq p1 (getpoint "\n旋转基点:"))
            (setq p2 (getpoint p1 "\n旋转起点:"))
            (command "undo" "be" "line" p1 p1 "")
            (setq e (entlast))
            (setq p3 (getpoint p1 "\n旋转终点:"))
            (setq tmp (rc s))
            (command "rotate" tmp "" p1 "r" p1 p2 p3)
            (setq cn "1*"
                  a1 (* 180 (/ (- (angle p1 p3) (angle p1 p2)) pi))
            )
            (while cn
                (ttt s cn)
                (initget 128)
                (princ
                    "\n输入坐标=旋转终点                         输入数值=旋转角度 "
                )
                (princ
                    "\n输入数值n并以 / 结束=角度内等分n次复制    输入数值n并以 * 结束=按角度复制n次 "
                )
                (setq cnn (getpoint "\n请按提示输入<退出>:"))
                (if (= 'LIST (type cnn))
                    (setq p3 cnn
                          a1 (*        180
                                (/ (- (angle p1 p3) (angle p1 p2)) pi)
                             )
                    )
                    (setq cn cnn)
                )
            )
            (entdel e)
            (command "undo" "e")
        )
        (princ "\n未选择到对象。")
    )
    (princ)
)
[/PHP]

jason2008_xu

这个程序很好用，不过在高版本CAD上用不了实在太可惜了，哪个高手把这个改改 谢谢！

malu2013

一条弯弯曲曲的心路，是谁的流星划破了我凄凉空旷的眸眼？寒砚啾转的记忆，是谁书渚的青春白浪？在煮字疗疾的碎夜，燃悴着醉心的温暖。胸膛里纷乱的缤纷，是梦杏花烟雨的絮息，还是不息的拽引的心之灵魂。