【标注】搜改动过原值的标注对象

marting

1. (defun c:xdtb_dimsmod (/ ss ents ss1)
   
2.   (if (setq ss (xdrx-ssget "\n选择标注对象<退出>:" '((0 . "dimen*"))))
   
3.     (progn (setq ents nil)
   
4.            (mapcar '(lambda (x)
   
5.                       (if (/= "" (xdrx-getpropertyvalue x "textstring"))
   
6.                         (setq ents (cons x ents))
   
7.                       )
   
8.                     )
   
9.                    (xdrx-pickset->ents ss)
   
10.            )
    
11.            (if (setq ss1 (xdrx-entity->pickset ents))
    
12.              (progn (xdrx-prompt
    
13.                       "\n搜索范围内内，共发现 "
    
14.                       (length ents)
    
15.                       " 个标注原值被修改过."
    
16.                     )
    
17.                     (sssetfirst nil ss1)
    
18.              )
    
19.            )
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )
    
24. 
    

(defun c:xdtb_dimsmod (/ ss ents ss1)<br />   (if (setq ss (xdrx-ssget "\n选择标注对象<退出>:" '((0 . "dimen*"))))<br />     (progn (setq ents nil)<br />            (mapcar '(lambda (x)<br />                       (if (/= "" (xdrx-getpropertyvalue x "textstring"))<br />                         (setq ents (cons x ents))<br />                       )<br />                     )<br />                    (xdrx-pickset->ents ss)<br />            )<br />            (if (setq ss1 (xdrx-entity->pickset ents))<br />              (progn (xdrx-prompt<br />                       "\n搜索范围内内，共发现 "<br />                       (length ents)<br />                       " 个标注原值被修改过."<br />                     )<br />                     (sssetfirst nil ss1)<br />              )<br />            )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

yangjian001

做一个热心并受欢迎的人

松树石头哥

感谢楼主分享！！！！