有点问题，请指点：

pannelchen

;问题:
;按esc键值留在屏上

pannelchen

1. ;问题:
   
2. ;按esc键值留在屏上
   
3. ;自定义粗糙值只输入数字没有搞定.
   
4. 
   
5. (defun c:rough_mech()
   
6.   (princ "\n表面粗糙度标注程序")
   
7.         (setvar "cmdecho" 0)
   
8.         (setq os (getvar "OSMODE"))
   
9.         (setvar "OSMODE" 0)
   
10.         (setq hh (getvar "textsize"))
    
11.         (setq ccd_t "3.2")
    
12.         (setq roughtype "1")
    
13.         (repeat 99
    
14.          (initialize_rough)
    
15.          (roughdraw)
    
16.          (move_rough)
    
17.          )         
    
18.         (setvar "cmdecho" 1)
    
19.         (setvar "osmode" os)
    
20.         (prin1)
    
21. )
    
22. (prompt "c:rough_mech表面粗糙度")
    
23. (prin1)
    
24. 
    
25. 
    
26. (defun set_ccd()
    
27.         (initget "H h c C 1 2 3")
    
28.         (setq type_t (strcat "\n设置粗糙度标注类型或字高【字高(H)/去除材料(1)/不去除材料(2)/任意(3)】<1>:"))
    
29.         (setq dimtype (getkword type_t))
    
30.    (if (= dimtype nil) (set_ccd))
    
31.         (cond ( (or (= dimtype "H") (= dimtype "h"))
    
32.                      (set_ccdh)                        
    
33.                 )
    
34.         ((= dimtype "1")  (setq roughtype "1") )
    
35.         ((= dimtype "2")  (setq roughtype "2")  )  
    
36.                     ((= dimtype "3")  (setq roughtype "3")  )
    
37.    )
    
38.         )
    
39. 
    
40. (defun set_ccdh()
    
41.          (setq hht (getvar "textsize"))
    
42.          (setq str_hh (strcat"\n文字高度<"(rtos hht)">:"))
    
43.          (setq hh (getdist str_hh))
    
44.          (if (= hh nil) (setq hh hht))  ;设置为默认
    
45.          (setvar "textsize" hh)                     
    
46. )       
    
47. 
    
48. (defun  initialize_rough()
    
49.         (setq pa '(0 0))  ;插入点
    
50.         (setq h  (* (/ hh  2) 3))
    
51.   (setq 2h (* 2 h))
    
52.         (setq lb (/ h (sin (/ pi 3))))  
    
53.         (setq lc (/ 2h (sin (/ pi 3))))
    
54.   (setq pb (polar pa (* (/ pi 3) 2 ) lb)) ;左端点
    
55.   (setq pc (polar pa  (/ pi 3)  lc) )  ;右
    
56.   (setq pd (polar pa  (/ pi 3)  lb))  ;右中
    
57.         (setq tc (polar pa (* pi 0.5) (* h 1.5)))
    
58.         (setq cc (polar pa (* pi 0.5) (* (/ h 3) 2)))
    
59. )
    
60. 
    
61.   
    
62.                  
    
63. 
    
64. (defun roughdraw()
    
65.         (cond
    
66.         ((= roughtype "1")  (rough1) )
    
67.         ((= roughtype "2")  (rough2)  )  
    
68.                     ((= roughtype "3")  (rough3)  )
    
69.         )
    
70. )
    
71. 
    
72. (defun rough1()
    
73.         ;;;下面的相当重要,做图块
    
74.           (entmake (list '(0 . "BLOCK") (cons 2 "*U") '(70 . 1) (cons 10 pa)))  ;*u无块名，70插入行数，10插入点
    
75.           (entmake (list '(0 . "LINE") (cons 10 pa) (cons 11 pb)))   ;
    
76.     (entmake (list '(0 . "LINE") (cons 10 pa) (cons 11 pc)))     
    
77.     (entmake (list '(0 . "LINE") (cons 10 pb) (cons 11 pd)))
    
78.           (setq blk (entmake '((0 . "ENDBLK"))))  ;块命令结束
    
79.           ;;;;;;;分隔线.
    
80.                 (entmake (list '(0 . "INSERT") (cons 10  pa) (cons 2 blk)))  ;10插入点,2图块名称
    
81.     (setq ename0 (entlast))   
    
82.     (setq edata0 (entget ename0))     
    
83.                            (entmake (list '(0 . "TEXT") (cons 10 tc) (cons 11 tc) (cons 40  hh) '(62 . 3)'(72 . 4) '(41 . 0.8) (cons 1  ccd_t) ));10第一对齐点,11第二对齐点,62颜色,72水平文字中央对正4代表中央,1文字内容
    
84.                   (setq ename1 (entlast))   
    
85.       (setq edata1 (entget ename1))        
    
86. )
    
87. 
    
88. (defun rough2()
    
89.          (entmake (list '(0 . "BLOCK") (cons 2 "*U") '(70 . 1) (cons 10 pa)))  ;*u无块名，70插入行数，10插入点
    
90.           (entmake (list '(0 . "LINE") (cons 10 pa) (cons 11 pb)))   ;
    
91.     (entmake (list '(0 . "LINE") (cons 10 pa) (cons 11 pc)))     
    
92.     (entmake (list '(0 . "CIRCLE") (cons 10  cc) (cons 40  (/ h 3))));10中心点，40半径       
    
93.          (setq blk (entmake '((0 . "ENDBLK"))))  
    
94.                   (entmake (list '(0 . "INSERT") (cons 10  pa) (cons 2 blk)))  ;10插入点,2图块名称
    
95.      (setq ename0 (entlast))   
    
96.     (setq edata0 (entget ename0))                 
    
97.           (entmake (list '(0 . "TEXT") (cons 10 tc) (cons 11 tc) (cons 40  hh) '(62 . 3)'(72 . 4) '(41 . 0.8) (cons 1  ccd_t) ));10第一对齐点,11第二对齐点,62颜色,72水平文字中央对正4代表中央,1文字内容
    
98.     (setq ename1 (entlast))   
    
99.     (setq edata1 (entget ename1))        
    
100. )
     
101. 
     
102. (defun rough3()
     
103.          (entmake (list '(0 . "BLOCK") (cons 2 "*U") '(70 . 1) (cons 10 pa)))  ;*u无块名，70插入行数，10插入点
     
104.          (entmake (list '(0 . "LINE") (cons 10 pa) (cons 11 pb)))   ;
     
105.    (entmake (list '(0 . "LINE") (cons 10 pa) (cons 11 pc)))  
     
106.    (setq blk (entmake '((0 . "ENDBLK"))))
     
107.         ;;;;;;;分隔线.
     
108.   (entmake (list '(0 . "INSERT") (cons 10  pa) (cons 2 blk)))  ;10插入点,2图块名称
     
109.   (setq ename0 (entlast))   
     
110.   (setq edata0 (entget ename0))     
     
111.   (entmake (list '(0 . "TEXT") (cons 10 tc) (cons 11 tc) (cons 40  hh) '(62 . 3) '(72 . 4) '(41 . 0.8) (cons 1  ccd_t) ));10第一对齐点,11第二对齐点,62颜色,72水平文字中央对正4代表中央,1文字内容
     
112.         (setq ename1 (entlast))   
     
113.   (setq edata1 (entget ename1))
     
114. )
     
115. 
     
116.        
     
117. 
     
118.        
     
119. (defun move_rough()
     
120.                 ;**************************************明经代码
     
121. (prompt "\n指定基点/【取值0-9)】/【S设置类型】<指定基点>:")
     
122. (setq tag T)                            ;;;设定跳出while循环的标志
     
123. (while tag
     
124.   (setq code (grread T 8 ))              ;;;读取输入
     
125.   (setq mod (car code))   ;;;取得输入模式
     
126.     (cond
     
127.       ((= mod 5)                  (do_move)                )     ;;左键动作程序
     
128.                     
     
129.                  ((= mod 3)                        
     
130.                                 (setq tag nil)               
     
131.                             (setq ipt0 (cadr code))
     
132.               ) ;;;如果鼠标左键点击，则设定while循环结束
     
133.                  ((or (= mod 11 ) (= mod 25) ) (setq tag nil)) ;右键或右键设为enter.
     
134.      ((= mod 2)     (do_keybd)  )            ;;;处理键盘
     
135.      (T                           );;;处理其它情况
     
136.     )  ;;cond
     
137. )   ;;;while
     
138. )
     
139. 
     
140. ;;;;鼠标捕捉函数,捕捉对象，并与之垂直.
     
141. (defun do_move()
     
142.         (setq ipt0 (cadr code))
     
143.         (entdel ename0 )
     
144.         (entdel ename1)
     
145.         (setq neapt (osnap ipt0 "nea")) ;;;取得最近的捕捉点
     
146.         (entdel ename0 )
     
147.         (entdel ename1)   ;用entdel可解决图块跳动
     
148.         (if neapt
     
149.                 (progn
     
150.             (setq ang1 (angle  neapt ipt0))
     
151.                         (setq ang (- ang1 (* pi 0.5)))
     
152.                         (cond ((= ang1 0  ) (setq ang2 (+ ang pi)))
     
153.                                     ((< 0 ang1 pi) (setq ang2 ang) )
     
154.                                     ((= ang1 pi) (setq ang2 ang) )
     
155.                                           ((< pi ang1 (* pi 2)) (setq ang2 (- ang pi )))
     
156.                         )
     
157.                         (setq pa neapt)
     
158.                         (setq tc (polar pa ang1 (* h 1.5)))
     
159.       (setq edata0 (subst (cons 10 neapt) (assoc 10 edata0) edata0))  ;图块插入点替换
     
160.                         (setq edata0 (subst (cons 50 ang) (assoc 50 edata0) edata0))  ;图块插入点替换
     
161.                         (setq edata1 (subst (cons 10 tc) (assoc 10 edata1) edata1))  ;图块插入点替换
     
162.                         (setq edata1 (subst (cons 11 tc) (assoc 11 edata1) edata1))  ;图块插入点替换
     
163.                         (setq edata1 (subst (cons 50 ang2) (assoc 50 edata1) edata1))  ;图块插入点替换
     
164.             (entmod edata0)  
     
165.                         (entmod edata1)  
     
166.       
     
167.       ; (entupd ename0)   ;;;更新一个对象的屏幕景像,当聚合线或图块修改后,复合对象不会立即更新.
     
168.        ;(entupd ename1)   
     
169.        ;(entupd ename2)
     
170.            )
     
171.                 (progn
     
172.                         (setq pa ipt0)
     
173.                         (setq ang 0 )
     
174.                         (setq ang2 ang)
     
175.                         (setq tc (polar pa (* pi 0.5) (* h 1.5)))
     
176.                   (setq edata0 (subst (cons 10 ipt0) (assoc 10 edata0) edata0))  ;图块插入点替换
     
177.                         (setq edata0 (subst (cons 50 ang) (assoc 50 edata0) edata0))  ;图块插入点替换
     
178.                         (setq edata1 (subst (cons 10 tc) (assoc 10 edata1) edata1))  ;图块插入点替换
     
179.                         (setq edata1 (subst (cons 11 tc) (assoc 11 edata1) edata1))  ;图块插入点替换
     
180.                         (setq edata1 (subst (cons 50 ang2) (assoc 50 edata1) edata1))
     
181.                         (entmod edata0)  
     
182.                         (entmod edata1)  
     
183.                 )       
     
184.                        
     
185.         )        ;if
     
186. )
     
187. 
     
188. (defun do_keybd()  ;很关键的输入
     
189.         (princ"\n 0-空/1-0.2/2-0.4/3-0.8/4-1.6/5-3.2/6-6.3/7-12.5/8-0.1/9自定义")
     
190.           (setq pnum (cadr code))       
     
191.           (if (or (<= 48 pnum 57) (= pnum 83) (= pnum 115))
     
192.                 (setq pstr1 (chr pnum))  ;转化为字符串                       
     
193.                 )         
     
194.           (cond
     
195.                       ((= pstr1 "0") (setq ccd_t ""))
     
196.                       ((= pstr1 "1") (setq ccd_t  "0.2"))
     
197.                       ((= pstr1 "2") (setq ccd_t  "0.4"))
     
198.                       ((= pstr1 "3") (setq ccd_t  "0.8"))
     
199.                       ((= pstr1 "4") (setq ccd_t  "1.6"))
     
200.                       ((= pstr1 "5") (setq ccd_t  "3.2"))
     
201.                       ((= pstr1 "6") (setq ccd_t  "6.3"))
     
202.                       ((= pstr1 "7") (setq ccd_t  "12.5"))
     
203.                       ((= pstr1 "8") (setq ccd_t  "0.1"))
     
204.                             ((= pstr1 "9") (set_ccd_t))
     
205.                              (( or (= pstr1 "s") (= pstr1 "S"))
     
206.                                                  (progn
     
207.                                                          (entdel ename0 )
     
208.                      (entdel ename1)   ;删除对象.
     
209.                                                          (set_ccd)
     
210.                                        (repeat  99
     
211.                                                          (initialize_rough)
     
212.                                                          (roughdraw)
     
213.                                                          (move_rough)
     
214.                                                          )
     
215.                                                  )
     
216.                                          )
     
217.                       (t         (setq ccd_t  "3.2")  )
     
218.           )
     
219.        
     
220.         (setq edata1 (subst (cons 1 ccd_t ) (assoc 1 edata1) edata1))
     
221.         (entmod edata1)          
     
222.         ;(entupd ename)
     
223. )
     
224. 
     
225. (defun set_ccd_t()
     
226.            (setq ccd_2 (strcat "\n新值<"ccd_t">:"))
     
227.            (setq ccd_tmp (getstring ccd_2 ))
     
228.            (if (= ccd_tmp nil) (setq ccd_tmp ""))
     
229.     (setq ccd_t ccd_tmp)
     
230. )
     
231.        
     
232.        

;问题:<br /> ;按esc键值留在屏上<br /> ;自定义粗糙值只输入数字没有搞定.<br /> <br /> (defun c:rough_mech()<br />   (princ "\n表面粗糙度标注程序")<br />         (setvar "cmdecho" 0)<br />         (setq os (getvar "OSMODE"))<br />         (setvar "OSMODE" 0)<br />         (setq hh (getvar "textsize"))<br />         (setq ccd_t "3.2")<br />         (setq roughtype "1")<br />         (repeat 99<br />          (initialize_rough)<br />          (roughdraw)<br />          (move_rough)<br />          )         <br />         (setvar "cmdecho" 1)<br />         (setvar "osmode" os)<br />         (prin1)<br /> )<br /> (prompt "c:rough_mech表面粗糙度")<br /> (prin1)<br /> <br /> <br /> (defun set_ccd()<br />         (initget "H h c C 1 2 3")<br />         (setq type_t (strcat "\n设置粗糙度标注类型或字高【字高(H)/去除材料(1)/不去除材料(2)/任意(3)】<1>:"))<br />         (setq dimtype (getkword type_t))<br />    (if (= dimtype nil) (set_ccd))<br />         (cond ( (or (= dimtype "H") (= dimtype "h"))<br />                      (set_ccdh)                         <br />                 )<br />         ((= dimtype "1")  (setq roughtype "1") )<br />         ((= dimtype "2")  (setq roughtype "2")  )  <br />                     ((= dimtype "3")  (setq roughtype "3")  )<br />    )<br />         )<br /> <br /> (defun set_ccdh()<br />          (setq hht (getvar "textsize"))<br />          (setq str_hh (strcat"\n文字高度<"(rtos hht)">:"))<br />          (setq hh (getdist str_hh))<br />          (if (= hh nil) (setq hh hht))  ;设置为默认 <br />          (setvar "textsize" hh)                      <br /> )        <br /> <br /> (defun  initialize_rough()<br />         (setq pa '(0 0))  ;插入点<br />         (setq h  (* (/ hh  2) 3))<br />   (setq 2h (* 2 h))<br />         (setq lb (/ h (sin (/ pi 3))))  <br />         (setq lc (/ 2h (sin (/ pi 3)))) <br />   (setq pb (polar pa (* (/ pi 3) 2 ) lb)) ;左端点<br />   (setq pc (polar pa  (/ pi 3)  lc) )  ;右<br />   (setq pd (polar pa  (/ pi 3)  lb))  ;右中<br />         (setq tc (polar pa (* pi 0.5) (* h 1.5)))<br />         (setq cc (polar pa (* pi 0.5) (* (/ h 3) 2)))<br /> )<br /> <br />   <br />                  <br /> <br /> (defun roughdraw()<br />         (cond <br />         ((= roughtype "1")  (rough1) )<br />         ((= roughtype "2")  (rough2)  )  <br />                     ((= roughtype "3")  (rough3)  )<br />         )<br /> )<br /> <br /> (defun rough1() <br />         ;;;下面的相当重要,做图块<br />           (entmake (list '(0 . "BLOCK") (cons 2 "*U") '(70 . 1) (cons 10 pa)))  ;*u无块名，70插入行数，10插入点<br />           (entmake (list '(0 . "LINE") (cons 10 pa) (cons 11 pb)))   ;<br />     (entmake (list '(0 . "LINE") (cons 10 pa) (cons 11 pc)))     <br />     (entmake (list '(0 . "LINE") (cons 10 pb) (cons 11 pd)))<br />           (setq blk (entmake '((0 . "ENDBLK"))))  ;块命令结束 <br />           ;;;;;;;分隔线.<br />                 (entmake (list '(0 . "INSERT") (cons 10  pa) (cons 2 blk)))  ;10插入点,2图块名称<br />     (setq ename0 (entlast))    <br />     (setq edata0 (entget ename0))     <br />                            (entmake (list '(0 . "TEXT") (cons 10 tc) (cons 11 tc) (cons 40  hh) '(62 . 3)'(72 . 4) '(41 . 0.8) (cons 1  ccd_t) ));10第一对齐点,11第二对齐点,62颜色,72水平文字中央对正4代表中央,1文字内容<br />                   (setq ename1 (entlast))    <br />       (setq edata1 (entget ename1))         <br /> )<br /> <br /> (defun rough2() <br />          (entmake (list '(0 . "BLOCK") (cons 2 "*U") '(70 . 1) (cons 10 pa)))  ;*u无块名，70插入行数，10插入点<br />           (entmake (list '(0 . "LINE") (cons 10 pa) (cons 11 pb)))   ;<br />     (entmake (list '(0 . "LINE") (cons 10 pa) (cons 11 pc)))     <br />     (entmake (list '(0 . "CIRCLE") (cons 10  cc) (cons 40  (/ h 3))));10中心点，40半径        <br />          (setq blk (entmake '((0 . "ENDBLK"))))  <br />                   (entmake (list '(0 . "INSERT") (cons 10  pa) (cons 2 blk)))  ;10插入点,2图块名称<br />      (setq ename0 (entlast))    <br />     (setq edata0 (entget ename0))                 <br />           (entmake (list '(0 . "TEXT") (cons 10 tc) (cons 11 tc) (cons 40  hh) '(62 . 3)'(72 . 4) '(41 . 0.8) (cons 1  ccd_t) ));10第一对齐点,11第二对齐点,62颜色,72水平文字中央对正4代表中央,1文字内容 <br />     (setq ename1 (entlast))    <br />     (setq edata1 (entget ename1))         <br /> )<br /> <br /> (defun rough3() <br />          (entmake (list '(0 . "BLOCK") (cons 2 "*U") '(70 . 1) (cons 10 pa)))  ;*u无块名，70插入行数，10插入点<br />          (entmake (list '(0 . "LINE") (cons 10 pa) (cons 11 pb)))   ;<br />    (entmake (list '(0 . "LINE") (cons 10 pa) (cons 11 pc)))  <br />    (setq blk (entmake '((0 . "ENDBLK")))) <br />         ;;;;;;;分隔线.<br />   (entmake (list '(0 . "INSERT") (cons 10  pa) (cons 2 blk)))  ;10插入点,2图块名称<br />   (setq ename0 (entlast))    <br />   (setq edata0 (entget ename0))     <br />   (entmake (list '(0 . "TEXT") (cons 10 tc) (cons 11 tc) (cons 40  hh) '(62 . 3) '(72 . 4) '(41 . 0.8) (cons 1  ccd_t) ));10第一对齐点,11第二对齐点,62颜色,72水平文字中央对正4代表中央,1文字内容 <br />         (setq ename1 (entlast))    <br />   (setq edata1 (entget ename1)) <br /> )<br /> <br />         <br /> <br />         <br /> (defun move_rough()<br />                 ;**************************************明经代码<br /> (prompt "\n指定基点/【取值0-9)】/【S设置类型】<指定基点>:")<br /> (setq tag T)                            ;;;设定跳出while循环的标志<br /> (while tag<br />   (setq code (grread T 8 ))              ;;;读取输入<br />   (setq mod (car code))   ;;;取得输入模式<br />     (cond<br />       ((= mod 5)                  (do_move)                )     ;;左键动作程序<br />                      <br />                  ((= mod 3)                         <br />                                 (setq tag nil)                <br />                             (setq ipt0 (cadr code))<br />               ) ;;;如果鼠标左键点击，则设定while循环结束<br />                  ((or (= mod 11 ) (= mod 25) ) (setq tag nil)) ;右键或右键设为enter.<br />      ((= mod 2)     (do_keybd)  )            ;;;处理键盘<br />      (T                           );;;处理其它情况<br />     )  ;;cond<br /> )   ;;;while<br /> )<br /> <br /> ;;;;鼠标捕捉函数,捕捉对象，并与之垂直.<br /> (defun do_move()<br />         (setq ipt0 (cadr code)) <br />         (entdel ename0 )<br />         (entdel ename1)<br />         (setq neapt (osnap ipt0 "nea")) ;;;取得最近的捕捉点<br />         (entdel ename0 )<br />         (entdel ename1)   ;用entdel可解决图块跳动<br />         (if neapt<br />                 (progn<br />             (setq ang1 (angle  neapt ipt0))<br />                         (setq ang (- ang1 (* pi 0.5)))<br />                         (cond ((= ang1 0  ) (setq ang2 (+ ang pi)))<br />                                     ((< 0 ang1 pi) (setq ang2 ang) )<br />                                     ((= ang1 pi) (setq ang2 ang) ) <br />                                           ((< pi ang1 (* pi 2)) (setq ang2 (- ang pi )))<br />                         )<br />                         (setq pa neapt)<br />                         (setq tc (polar pa ang1 (* h 1.5)))<br />       (setq edata0 (subst (cons 10 neapt) (assoc 10 edata0) edata0))  ;图块插入点替换<br />                         (setq edata0 (subst (cons 50 ang) (assoc 50 edata0) edata0))  ;图块插入点替换<br />                         (setq edata1 (subst (cons 10 tc) (assoc 10 edata1) edata1))  ;图块插入点替换<br />                         (setq edata1 (subst (cons 11 tc) (assoc 11 edata1) edata1))  ;图块插入点替换<br />                         (setq edata1 (subst (cons 50 ang2) (assoc 50 edata1) edata1))  ;图块插入点替换<br />             (entmod edata0)  <br />                         (entmod edata1)  <br />        <br />       ; (entupd ename0)   ;;;更新一个对象的屏幕景像,当聚合线或图块修改后,复合对象不会立即更新.<br />        ;(entupd ename1)    <br />        ;(entupd ename2)<br />            )<br />                 (progn<br />                         (setq pa ipt0)<br />                         (setq ang 0 )<br />                         (setq ang2 ang)<br />                         (setq tc (polar pa (* pi 0.5) (* h 1.5)))<br />                   (setq edata0 (subst (cons 10 ipt0) (assoc 10 edata0) edata0))  ;图块插入点替换<br />                         (setq edata0 (subst (cons 50 ang) (assoc 50 edata0) edata0))  ;图块插入点替换<br />                         (setq edata1 (subst (cons 10 tc) (assoc 10 edata1) edata1))  ;图块插入点替换<br />                         (setq edata1 (subst (cons 11 tc) (assoc 11 edata1) edata1))  ;图块插入点替换<br />                         (setq edata1 (subst (cons 50 ang2) (assoc 50 edata1) edata1))<br />                         (entmod edata0)  <br />                         (entmod edata1)  <br />                 )        <br />                         <br />         )        ;if<br /> )<br /> <br /> (defun do_keybd()  ;很关键的输入<br />         (princ"\n 0-空/1-0.2/2-0.4/3-0.8/4-1.6/5-3.2/6-6.3/7-12.5/8-0.1/9自定义")<br />           (setq pnum (cadr code))        <br />           (if (or (<= 48 pnum 57) (= pnum 83) (= pnum 115))<br />                 (setq pstr1 (chr pnum))  ;转化为字符串                        <br />                 )         <br />           (cond <br />                       ((= pstr1 "0") (setq ccd_t ""))<br />                       ((= pstr1 "1") (setq ccd_t  "0.2"))<br />                       ((= pstr1 "2") (setq ccd_t  "0.4"))<br />                       ((= pstr1 "3") (setq ccd_t  "0.8"))<br />                       ((= pstr1 "4") (setq ccd_t  "1.6"))<br />                       ((= pstr1 "5") (setq ccd_t  "3.2"))<br />                       ((= pstr1 "6") (setq ccd_t  "6.3"))<br />                       ((= pstr1 "7") (setq ccd_t  "12.5"))<br />                       ((= pstr1 "8") (setq ccd_t  "0.1"))<br />                             ((= pstr1 "9") (set_ccd_t))<br />                              (( or (= pstr1 "s") (= pstr1 "S"))<br />                                                  (progn<br />                                                          (entdel ename0 )<br />                      (entdel ename1)   ;删除对象.<br />                                                          (set_ccd)<br />                                        (repeat  99<br />                                                          (initialize_rough)<br />                                                          (roughdraw)<br />                                                          (move_rough)<br />                                                          )<br />                                                  )<br />                                          )<br />                       (t         (setq ccd_t  "3.2")  )<br />           )<br />         <br />         (setq edata1 (subst (cons 1 ccd_t ) (assoc 1 edata1) edata1))<br />         (entmod edata1)          <br />         ;(entupd ename)<br /> )<br /> <br /> (defun set_ccd_t()<br />            (setq ccd_2 (strcat "\n新值<"ccd_t">:"))<br />            (setq ccd_tmp (getstring ccd_2 ))<br />            (if (= ccd_tmp nil) (setq ccd_tmp ""))<br />     (setq ccd_t ccd_tmp)<br /> )<br />         <br />