API 应用检查标注是否修改

st788796

1. (defun c:tt (/ ss)
   
2.   (and (setq ss (ssget '((0 . "Dimension")  (1 . "~"))))
   
3.        (mapcar '(lambda (x)
   
4.     (xdrx_setpropertyvalue x "Color" 1)
   
5.   )
   
6.         (xdrx_pickset->ents ss)
   
7.        )
   
8.        (sssetfirst nil ss)
   
9.   )
   
10.   (princ)
    
11. )

(defun c:tt (/ ss)<br />   (and (setq ss (ssget '((0 . "Dimension")  (1 . "~"))))<br />        (mapcar '(lambda (x)<br />     (xdrx_setpropertyvalue x "Color" 1)<br />   )<br />         (xdrx_pickset->ents ss)<br />        )<br />        (sssetfirst nil ss)<br />   )<br />   (princ)<br /> )