[求助]：如何使程序不选择对象的情况下，静默的退出？

andyhua5240

2. 
   
3.   [FONT=courier new]
   
4. (defun c:5()
   
5.   (setvar "cmdecho" 1)
   
6.   (setvar "offsetgaptype" 0)
   
7.   (command "offset" "e" "n" "l" "s" pause (car (entsel)) "m")
   
8.   (princ)
   
9. )
   
10.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:5()<br />   (setvar "cmdecho" 1)<br />   (setvar "offsetgaptype" 0)<br />   (command "offset" "e" "n" "l" "s" pause (car (entsel)) "m")<br />   (princ)<br /> )<br />   [/FONT]<br />

上面的这段代码，是加强CAD2006中的offset命令的。因为在CAD2006中，offset命令增加了一个M（多个）参数！

如何使上面的代码，在不选择任何对象时，程序能静默的退出不出错。也就是命令行不提示：m 未知命令“M”。按 F1 查看帮助。

命令: 5 offset
当前设置: 删除源=否  图层=源  OFFSETGAPTYPE=0
指定偏移距离或 [通过(T)/删除(E)/图层(L)] <500.00>:  e
要在偏移后删除源对象吗？[是(Y)/否(N)] <否>:  n
指定偏移距离或 [通过(T)/删除(E)/图层(L)] <500.00>:  l
输入偏移对象的图层选项 [当前(C)/源(S)] <源>:  s
指定偏移距离或 [通过(T)/删除(E)/图层(L)] <500.00>:

选择要偏移的对象，或 [退出(E)/放弃(U)] <退出>:
选择对象:

命令: m 未知命令“M”。按 F1 查看帮助。

命令:


谢谢！

lazybug

2. (defun c:5 ()
   
3.     (setvar "cmdecho" 1)
   
4.     (setvar "offsetgaptype" 0)
   
5.     (command "offset" "e" "n" "l" "s" pause)
   
6.     (if        (setq en (entsel))
   
7.         (command (car en) "m")
   
8.         (command "")
   
9.     )
   
10.     (princ)
    
11. )

(defun c:5 ()<br />     (setvar "cmdecho" 1)<br />     (setvar "offsetgaptype" 0)<br />     (command "offset" "e" "n" "l" "s" pause)<br />     (if        (setq en (entsel))<br />         (command (car en) "m")<br />         (command "")<br />     )<br />     (princ)<br /> )

andyhua5240

太感谢楼上的了！
谢谢！鞠躬！

楼上的能否再改改，在指定偏移距离时，如果用户用鼠标来指定的话，程序还是会出错。这知道这个原因是后面的pause引起的，有没有什么好的方法给予解决？
谢谢！

lazybug

2. (defun c:5 (/ l en sn)
   
3.     (setvar "cmdecho" 1)
   
4.     (setvar "offsetgaptype" 0)
   
5.     (command "offset" "e" "n" "l" "s" (if (setq l (getdist)) l (getvar "OFFSETDIST")))
   
6.     (initget "Exit")
   
7.     (setq en (entsel "\n选择要偏移的对象，或 [退出(E)] <退出>:"))
   
8.     (if        (= (type en) 'list)
   
9.         (if (wcmatch (cdr (assoc 0 (entget (car en))))
   
10.                      "*LINE,ARC,CIRCLE,ELLIPSE"
    
11.             )
    
12.             (command (car en) "m")
    
13.             (progn (command "") (setq sn -1))
    
14.         )
    
15.         (command "")
    
16.     )
    
17.     (princ)
    
18. )
    
19. ;(c:5)很简单，自己用的话还可以，但是有些小问题，操作的时候需要注意
    
20. 
    
21. 
    
22. (defun c:6 (/ e l en sn si tt dist e1 l1)
    
23.     (setvar "cmdecho" 0)
    
24.     (setvar "offsetgaptype" 0)
    
25.     (setq e "n")
    
26.     (setq l "s")
    
27.     (princ "\n当前设置: 删除源=否  图层=源  OFFSETGAPTYPE=0")
    
28.     (setq sn 0)
    
29.     (while (zerop sn)
    
30.         (setq tt (strcat "\n指定偏移距离或 [通过(T)/删除(E)/图层(L)]<" (if (= (setq n (getvar "OFFSETDIST")) -1.0) "通过" (rtos n)) ">:" ))
    
31.         (initget "Through Erase Layer")
    
32.         (setq dist (getdist tt))
    
33.         (cond ((= dist nil) (setq sn 1))
    
34.               ((= (type dist) 'real) (setvar "OFFSETDIST" dist) (setq sn 1))
    
35.               ((= dist "Through") (setvar "OFFSETDIST" -1.0) (setq sn 1))
    
36.               ((= dist "Erase") (initget "Yes No")
    
37.                                       (setq e1  (getkword
    
38.                                                    (strcat
    
39.                                                        "\n要在偏移后删除源对象吗？[是(Yes)/否(No)] <"
    
40.                                                        (if (= e "n")
    
41.                                                            "否"
    
42.                                                            "是"
    
43.                                                        )
    
44.                                                        ">:"
    
45.                                                    )
    
46.                                                )
    
47.                                             
    
48.                                       )
    
49.                                       (if e1 (if (= e1 "Yes") (setq e "y") (setq e "n")))                                      
    
50.               )
    
51.               ((= dist "Layer") (initget "Current Sourse")
    
52.                                       (setq l1  (getkword
    
53.                                                    (strcat
    
54.                                                        "\n输入偏移对象的图层选项 [当前(C)/源(S)] <"
    
55.                                                        (if (= l "c")
    
56.                                                            "当前"
    
57.                                                            "源"
    
58.                                                        )
    
59.                                                        ">:"
    
60.                                                    )
    
61.                                                )
    
62.                                             
    
63.                                       )
    
64.                                       (if l1 (if (= l1 "Current") (setq l "c") (setq l "s")))
    
65.                )
    
66.               (t (setq sn 1))
    
67.               )
    
68.         )
    
69.     (setq sn 0)
    
70.     (setq si 0)
    
71.     (while (zerop sn)
    
72.         (command "offset" "e" e "l" l "")
    
73.         (initget "Exit Undo")
    
74.         (setq en (entsel "\n选择要偏移的对象，或 [退出(E)/放弃(U)] <退出>:"))
    
75.         (if (= (type en) 'list)
    
76.             (if        (wcmatch (cdr (assoc 0 (entget (car en))))
    
77.                          "*LINE,ARC,CIRCLE,ELLIPSE"
    
78.                 )
    
79.                 (command (car en) "m")
    
80.                 (progn (command "") (setq sn -1))
    
81.             )
    
82.             (progn
    
83.                 (command "")
    
84.                 (if (and (zerop si) (= en "Undo")) (progn (princ "\n命令已全部放弃。") (setq sn -1 si -1)))
    
85.             )
    
86.         )
    
87.         (setq sn (1+ sn))
    
88.         (setq si (1+ si))
    
89.     )
    
90.     (princ)
    
91. )
    
92. ;建议使用(c:6)

(defun c:5 (/ l en sn)<br />     (setvar "cmdecho" 1)<br />     (setvar "offsetgaptype" 0)<br />     (command "offset" "e" "n" "l" "s" (if (setq l (getdist)) l (getvar "OFFSETDIST")))<br />     (initget "Exit")<br />     (setq en (entsel "\n选择要偏移的对象，或 [退出(E)] <退出>:"))<br />     (if        (= (type en) 'list)<br />         (if (wcmatch (cdr (assoc 0 (entget (car en))))<br />                      "*LINE,ARC,CIRCLE,ELLIPSE"<br />             )<br />             (command (car en) "m")<br />             (progn (command "") (setq sn -1))<br />         )<br />         (command "")<br />     )<br />     (princ)<br /> )<br /> ;(c:5)很简单，自己用的话还可以，但是有些小问题，操作的时候需要注意<br /> <br /> <br /> (defun c:6 (/ e l en sn si tt dist e1 l1)<br />     (setvar "cmdecho" 0)<br />     (setvar "offsetgaptype" 0)<br />     (setq e "n")<br />     (setq l "s")<br />     (princ "\n当前设置: 删除源=否  图层=源  OFFSETGAPTYPE=0")<br />     (setq sn 0)<br />     (while (zerop sn)<br />         (setq tt (strcat "\n指定偏移距离或 [通过(T)/删除(E)/图层(L)]<" (if (= (setq n (getvar "OFFSETDIST")) -1.0) "通过" (rtos n)) ">:" ))<br />         (initget "Through Erase Layer")<br />         (setq dist (getdist tt))<br />         (cond ((= dist nil) (setq sn 1))<br />               ((= (type dist) 'real) (setvar "OFFSETDIST" dist) (setq sn 1))<br />               ((= dist "Through") (setvar "OFFSETDIST" -1.0) (setq sn 1))<br />               ((= dist "Erase") (initget "Yes No")<br />                                       (setq e1  (getkword<br />                                                    (strcat<br />                                                        "\n要在偏移后删除源对象吗？[是(Yes)/否(No)] <"<br />                                                        (if (= e "n")<br />                                                            "否"<br />                                                            "是"<br />                                                        )<br />                                                        ">:"<br />                                                    )<br />                                                )<br />                                             <br />                                       )<br />                                       (if e1 (if (= e1 "Yes") (setq e "y") (setq e "n")))                                      <br />               )<br />               ((= dist "Layer") (initget "Current Sourse")<br />                                       (setq l1  (getkword<br />                                                    (strcat<br />                                                        "\n输入偏移对象的图层选项 [当前(C)/源(S)] <"<br />                                                        (if (= l "c")<br />                                                            "当前"<br />                                                            "源"<br />                                                        )<br />                                                        ">:"<br />                                                    )<br />                                                )<br />                                             <br />                                       )<br />                                       (if l1 (if (= l1 "Current") (setq l "c") (setq l "s")))<br />                )<br />               (t (setq sn 1))<br />               )<br />         )<br />     (setq sn 0)<br />     (setq si 0)<br />     (while (zerop sn)<br />         (command "offset" "e" e "l" l "")<br />         (initget "Exit Undo")<br />         (setq en (entsel "\n选择要偏移的对象，或 [退出(E)/放弃(U)] <退出>:"))<br />         (if (= (type en) 'list)<br />             (if        (wcmatch (cdr (assoc 0 (entget (car en))))<br />                          "*LINE,ARC,CIRCLE,ELLIPSE"<br />                 )<br />                 (command (car en) "m")<br />                 (progn (command "") (setq sn -1))<br />             )<br />             (progn<br />                 (command "")<br />                 (if (and (zerop si) (= en "Undo")) (progn (princ "\n命令已全部放弃。") (setq sn -1 si -1)))<br />             )<br />         )<br />         (setq sn (1+ sn))<br />         (setq si (1+ si))<br />     )<br />     (princ)<br /> )<br /> ;建议使用(c:6)

tsdx

二楼的那个直接加回车这个OFFSET永远也选不了对像，你根本来不太反应吧

KLDC

楼主为什么不考虑用ERROR涵数呢？