求助，如何让下面的代码可以拾取到不是标注对象而不出错，退出。

Andyhon

Sorry!
已订正

andyhua

谢谢长老。程序不错，能否加上，当用户不选择时，空格，或者是右键可以退出。现在的程序只有按ESC键退出了，这样的退出，不是太方便了。谢谢！

andyhua

顶起来，别沉了。持续关注中……

Andyhon

2. 
   
3. (defun c:des (/ cm ss cd_err0)
   
4.   (princ "\n*** 将选择的 |标注的样式| & |图层| 置为当前 ***")
   
5.   (setq cm (getvar "cmdecho"))
   
6.   (setq cd_err0 *error* *error* cd_err)
   
7.   (setvar "cmdecho" 1)
   
8.   ;; (setq ss (XENTSELX "\n拾取要置为当前样式的标注 <退出>:"))
   
9.   (while
   
10.     (progn
    
11.       (setq ss (ssget ":E:S" '((0 . "DIMENSION"))))
    
12.       (if (null ss) (/= (GetVar "ErrNo") 52))
    
13.     )
    
14.   )
    
15.   (cond
    
16.    ((null ss))
    
17.    ((setq ss  (ssname ss  0))
    
18.     (command ".dimstyle" "r" "" ss)
    
19.     (command ".laymcur" ss)
    
20.   ))  
    
21.   (setvar "cmdecho" cm)
    
22.   (setq *error* cd_err0)
    
23.   (princ)
    
24. )
    

<br /> (defun c:des (/ cm ss cd_err0)<br />   (princ "\n*** 将选择的 |标注的样式| & |图层| 置为当前 ***")<br />   (setq cm (getvar "cmdecho"))<br />   (setq cd_err0 *error* *error* cd_err)<br />   (setvar "cmdecho" 1)<br />   ;; (setq ss (XENTSELX "\n拾取要置为当前样式的标注 <退出>:"))<br />   (while<br />     (progn<br />       (setq ss (ssget ":E:S" '((0 . "DIMENSION"))))<br />       (if (null ss) (/= (GetVar "ErrNo") 52))<br />     )<br />   )<br />   (cond<br />    ((null ss))<br />    ((setq ss  (ssname ss  0))<br />     (command ".dimstyle" "r" "" ss)<br />     (command ".laymcur" ss)<br />   ))  <br />   (setvar "cmdecho" cm)<br />   (setq *error* cd_err0)<br />   (princ)<br /> )<br />

andyhua

谢谢长老，太好用了。谢谢非常！

smartstar

也学习了。

＿Levin

Andyhon 发表于 2012-5-4 11:11

能不能再改进呢？就是也可以选定对象置为当前图层，现在这个选其他对象没反应呢

＿Levin

＿Levin 发表于 2015-7-28 11:20
能不能再改进呢？就是也可以选定对象置为当前图层，现在这个选其他对象没反应呢

lu大神，我的意思是能否把这个lisp改进成选择其他对象（非标注）可以置为当前图层，而不是没反应。选择标注时，标注样式置为为当前，图层方面保持之前的不变。【我知道CAD本来有命令是将物体置为当前图层的】