[求助]：谁来帮助简化一下这个lisp程序

carrot1983

求助:
1. 如何简化下面的程序,(因为是我自己写的,不太会.)
2. 为什么我运行完以后就出现"未知命令“OO”。按 F1 查看帮助。"
3. 就是当"(= nil ss) "的时候出现:"选择对象:  ; 错误: 参数类型错误: lselsetp nil" 不知道怎么解决.(就是想如果没有选中物体就退出的效果.)

2. 
   
3.   [FONT=courier new]
   
4. ;**********************************************双向偏移oo
   
5.   (prompt "***c:oo***")
   
6.   (defun c:oo()
   
7.         (setq orig_blip (getvar "blipmode"))
   
8.         (setq orig_cmd (getvar "cmdecho"))
   
9.         (setq orig_os (getvar "osmode"))
   
10.         (setvar "blipmode" 0)                ; blipmode = 0
    
11.         (setvar "cmdecho" 0)                ; cmdecho = 0
    
12.         (setvar "osmode" 0)                ; osmode = 0
    
13.   
    
14.   (initget 6 "S")
    
15.   (setq dis (getdist (strcat "\n>>Offset distance or Through [Setting(S)]<100>:")))
    
16. ;*********************************************（= dis 回车）
    
17.   (if (= nil dis) (setq dis 100 k 1))  
    
18.   (while (= k 1)
    
19.       (setq ss (ssget))
    
20.       (setq na (ssname ss 0))
    
21.       (setq data (entget na))
    
22.       (setq pt_1st (cdr (assoc '10 data)))
    
23.       (setq pt_2nd (cdr (assoc '11 data)))
    
24.       (setq ml_ss (ssadd))
    
25.       (command "mline" "j" "z" "s" (* 2 dis) pt_1st pt_2nd "")
    
26.       (ssadd (entlast) ml_ss)
    
27.       (command "EXPLODE" ml_ss"")
    
28.       (if (= nil ss)
    
29.       (progn
    
30.       (setq k 0)
    
31.       (princ "error: haven't selceted.")
    
32.       (exit)
    
33.       ))
    
34.    )
    
35. ;*********************************************（= dis 输入距离）
    
36.       (if (and (/= nil dis) (/= "S" dis)) (setq k 11))  
    
37.   (while (= k 11)
    
38.       (setq ss (ssget))
    
39.       (setq na (ssname ss 0))
    
40.       (setq data (entget na))
    
41.       (setq pt_1st (cdr (assoc '10 data)))
    
42.       (setq pt_2nd (cdr (assoc '11 data)))
    
43.       (setq ml_ss (ssadd))
    
44.       (command "mline" "j" "z" "s" (* 2 dis) pt_1st pt_2nd "")
    
45.       (ssadd (entlast) ml_ss)
    
46.       (command "EXPLODE" ml_ss"")
    
47.       (if (= nil ss)
    
48.       (progn
    
49.       (setq k 0)
    
50.       (princ "error: haven't selceted.")
    
51.       (exit)
    
52.       ))
    
53.    )
    
54. ;*********************************************（= dis 输入S）
    
55. 
    
56.   (if (= dis "S") (setq k 2))
    
57.   (if (= k 2)
    
58.     (progn
    
59.       (initget 1 "C E")
    
60.       (setq sett (getkword "\n>>[change the layer(C)/erase the line of orign(E)]: "))
    
61.   ))
    
62. ;*********************************************双向偏移后图层变了。
    
63. 
    
64.   (if (= sett "C")
    
65.   (progn
    
66.      (setq cla (getvar "clayer"))
    
67.      (setq k 3)
    
68.      (setq tc (getstring (strcat "\n>>change the layer of line after offset <" cla "> ：")))
    
69.      (if (= nil tc) (setq tc cla))
    
70.   ))
    
71. 
    
72.   (while (= k 3)
    
73.       (setq dis (getdist (strcat "\n>>Offset distance or Through<100>:")))
    
74.       (if (= nil dis) (setq dis 100))
    
75.       (setq ss (ssget))
    
76.       (setq na (ssname ss 0))
    
77.       (setq data (entget na))
    
78.       (setq pt_1st (cdr (assoc '10 data)))
    
79.       (setq pt_2nd (cdr (assoc '11 data)))
    
80.       (setq ml_ss (ssadd))
    
81.       (setvar "clayer" tc)
    
82.       (command "mline" "j" "z" "s" (* 2 dis) pt_1st pt_2nd "")
    
83.       (ssadd (entlast) ml_ss)
    
84.       (command "EXPLODE" ml_ss"")
    
85.       (setvar "clayer" cla)
    
86.       (if (= nil ss)
    
87.       (progn
    
88.       (setq k 0)
    
89.       (princ "error: haven't selceted.")
    
90.       (exit)
    
91.       ))
    
92.    )
    
93. 
    
94. ;*********************************************双向偏移后原来的线删除了。
    
95.   (if (= sett "E") (setq k 4))
    
96.    
    
97.   (while (= k 4)
    
98.       (setq dis (getdist (strcat "\n>>Offset distance or Through<100>:")))
    
99.       (if (= nil dis) (setq dis 100))
    
100.       (setq ss (ssget))
     
101.       (setq na (ssname ss 0))
     
102.       (setq data (entget na))
     
103.       (setq pt_1st (cdr (assoc '10 data)))
     
104.       (setq pt_2nd (cdr (assoc '11 data)))
     
105.       (setq ml_ss (ssadd))
     
106.       (command "mline" "j" "z" "s" (* 2 dis) pt_1st pt_2nd "")
     
107.       (ssadd (entlast) ml_ss)
     
108.       (command "EXPLODE" ml_ss"")
     
109.       (command "ERASE" ss"")
     
110.      (if (= nil ss)
     
111.       (progn
     
112.       (setq k 0)
     
113.       (princ "error: haven't selceted.")
     
114.       (exit)
     
115.       ))
     
116.    )
     
117.      
     
118.       (setvar "blipmode" orig_blip)                 
     
119.       (setvar "cmdecho" orig_cmd)
     
120.       (setvar "osmode" orig_cmd)
     
121.   (prin1)
     
122. )
     
123. 
     
124.   [/FONT]
     

<br />   [FONT=courier new]<br /> ;**********************************************双向偏移oo<br />   (prompt "***c:oo***")<br />   (defun c:oo()<br />         (setq orig_blip (getvar "blipmode"))<br />         (setq orig_cmd (getvar "cmdecho"))<br />         (setq orig_os (getvar "osmode"))<br />         (setvar "blipmode" 0)                ; blipmode = 0<br />         (setvar "cmdecho" 0)                ; cmdecho = 0<br />         (setvar "osmode" 0)                ; osmode = 0<br />   <br />   (initget 6 "S")<br />   (setq dis (getdist (strcat "\n>>Offset distance or Through [Setting(S)]<100>:")))<br /> ;*********************************************（= dis 回车）<br />   (if (= nil dis) (setq dis 100 k 1))  <br />   (while (= k 1)<br />       (setq ss (ssget))<br />       (setq na (ssname ss 0))<br />       (setq data (entget na))<br />       (setq pt_1st (cdr (assoc '10 data)))<br />       (setq pt_2nd (cdr (assoc '11 data)))<br />       (setq ml_ss (ssadd))<br />       (command "mline" "j" "z" "s" (* 2 dis) pt_1st pt_2nd "")<br />       (ssadd (entlast) ml_ss)<br />       (command "EXPLODE" ml_ss"")<br />       (if (= nil ss) <br />       (progn<br />       (setq k 0)<br />       (princ "error: haven't selceted.")<br />       (exit)<br />       ))<br />    )<br /> ;*********************************************（= dis 输入距离）<br />       (if (and (/= nil dis) (/= "S" dis)) (setq k 11))  <br />   (while (= k 11)<br />       (setq ss (ssget))<br />       (setq na (ssname ss 0))<br />       (setq data (entget na))<br />       (setq pt_1st (cdr (assoc '10 data)))<br />       (setq pt_2nd (cdr (assoc '11 data)))<br />       (setq ml_ss (ssadd))<br />       (command "mline" "j" "z" "s" (* 2 dis) pt_1st pt_2nd "")<br />       (ssadd (entlast) ml_ss)<br />       (command "EXPLODE" ml_ss"")<br />       (if (= nil ss) <br />       (progn<br />       (setq k 0)<br />       (princ "error: haven't selceted.")<br />       (exit)<br />       ))<br />    )<br /> ;*********************************************（= dis 输入S）<br /> <br />   (if (= dis "S") (setq k 2))<br />   (if (= k 2)<br />     (progn<br />       (initget 1 "C E")<br />       (setq sett (getkword "\n>>[change the layer(C)/erase the line of orign(E)]: "))<br />   ))<br /> ;*********************************************双向偏移后图层变了。<br /> <br />   (if (= sett "C")<br />   (progn<br />      (setq cla (getvar "clayer"))<br />      (setq k 3)<br />      (setq tc (getstring (strcat "\n>>change the layer of line after offset <" cla "> ：")))<br />      (if (= nil tc) (setq tc cla))<br />   ))<br /> <br />   (while (= k 3)<br />       (setq dis (getdist (strcat "\n>>Offset distance or Through<100>:")))<br />       (if (= nil dis) (setq dis 100))<br />       (setq ss (ssget))<br />       (setq na (ssname ss 0))<br />       (setq data (entget na))<br />       (setq pt_1st (cdr (assoc '10 data)))<br />       (setq pt_2nd (cdr (assoc '11 data)))<br />       (setq ml_ss (ssadd))<br />       (setvar "clayer" tc)<br />       (command "mline" "j" "z" "s" (* 2 dis) pt_1st pt_2nd "")<br />       (ssadd (entlast) ml_ss)<br />       (command "EXPLODE" ml_ss"")<br />       (setvar "clayer" cla)<br />       (if (= nil ss) <br />       (progn<br />       (setq k 0)<br />       (princ "error: haven't selceted.")<br />       (exit)<br />       ))<br />    )<br /> <br /> ;*********************************************双向偏移后原来的线删除了。<br />   (if (= sett "E") (setq k 4))<br />     <br />   (while (= k 4)<br />       (setq dis (getdist (strcat "\n>>Offset distance or Through<100>:")))<br />       (if (= nil dis) (setq dis 100))<br />       (setq ss (ssget))<br />       (setq na (ssname ss 0))<br />       (setq data (entget na))<br />       (setq pt_1st (cdr (assoc '10 data)))<br />       (setq pt_2nd (cdr (assoc '11 data)))<br />       (setq ml_ss (ssadd))<br />       (command "mline" "j" "z" "s" (* 2 dis) pt_1st pt_2nd "")<br />       (ssadd (entlast) ml_ss)<br />       (command "EXPLODE" ml_ss"")<br />       (command "ERASE" ss"")<br />      (if (= nil ss) <br />       (progn<br />       (setq k 0)<br />       (princ "error: haven't selceted.")<br />       (exit)<br />       ))<br />    )<br />      <br />       (setvar "blipmode" orig_blip)                  <br />       (setvar "cmdecho" orig_cmd)<br />       (setvar "osmode" orig_cmd)<br />   (prin1)<br /> )<br /> <br />   [/FONT]<br />

其中后面2和3两个问题是我以前都碰到过,却不知道怎么解决的.
大家帮忙一下.先谢了.尽量提供点想法.

Dallas_whu

出现"未知命令“OO”,是因为COMMAND里面有多余的“”，出现 “错误: 参数类型错误: lselsetp nil”是因为选择为空时，程序还会继续执行下面的语句，应该加个排断。另外，如果自偏移一个选择对象的话，建议用entsel。

carrot1983

1."排断"是什么意思,我是初学的.不太懂,是指切断while的语句出错了吗???
2.用entsel,我也想过,只是觉得用ssget选择的时候会比较方便.呵.看来还是改entsel.谢谢楼上.
3.COMMAND里面有多余的“”，我真的不知道去哪里找,怎么检验出来??是一句一句检验吗?
感激啊~~~.受教了~~谢谢楼上.
只是问题还不知道怎么解决.呵:)

KERRYWM

建议你这样写：
(if ss
   (为条件成立时的动作，试试吧！)
(progn
    (alert "haven't selected!")
    (vl-exit-with-value 0)
)
)

carrot1983

那个我已经找到解决的办法了。现在又遇到新的问题
在这个贴上http://www.xdcad.net/forum/showthread.php?s=&threadid=604789
可惜都没人回复。~~~~

cy956

你累不累。set 选项下的c、e直接放在第一个选项下不是更直接？
你后面的mline－e命令都差不多，应该归拢到一起，
然后cond，按条件接着处理。
这个程序只能针对line，太局限了，你可以参考坛里的offset方式的程序。

carrot1983

6楼的。说的是啊。我也觉得。所以我已经改了，不过，只能在line 和pline，还是局限啊。
看来得去看看其它贴啊。
初学，很多想法都太简单。呵。~~~见笑了~！。
还有，谢谢喽~！