API应用-给文字和属性添加前缀示例

XDSoft

API代码非常简洁，你不会看到普通的LISP那些：难懂的逻辑，每行代码之间不知道关系。API代码非常结构化，一行代码基本干一件明确的事，几行代码就完成一个工作。




下面用 给 文字和属性添加前缀(添加前缀A-）做例子，看下代码

1. (defun c:tt ()
   
2.   (if (setq ss (ssget '((-4 . "<OR")
   
3.                         (0 . "TEXT")
   
4.                         (-4 . "<AND")
   
5.                         (0 . "INSERT")
   
6.                         (66 . 1)
   
7.                         (-4 . "AND>")
   
8.                         (-4 . "OR>")
   
9.                        )
   
10.                )
    
11.       )
    
12.     (progn
    
13.       (setq atts (xdrx_entity_getproperty ss "AttributeEntities")) ;;获得选择集所有的属性实体到表
    
14.       (setq txts (xdrx_pickset->ents
    
15.                    (xd::pickset:getsub ss '((0 . "TEXT")))
    
16.                  );;获得选择集所有文字实体到表
    
17.       )
    
18.       (setq ents (xd::list:flat (append atts txts)));;两表结合成一个实体表并平滑化表
    
19.       (mapcar '(lambda (x)
    
20.                  (xdrx_setpropertyvalue
    
21.                    x
    
22.                    "textstring"
    
23.                    (strcat "A-" (xdrx_getpropertyvalue x "textstring"))
    
24.                  )
    
25.                )
    
26.               ents
    
27.       );;mapcar遍历表，每个实体文字添加前缀A-
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )
    
32. 
    

(defun c:tt ()<br />   (if (setq ss (ssget '((-4 . "<OR")<br />                         (0 . "TEXT")<br />                         (-4 . "<AND")<br />                         (0 . "INSERT")<br />                         (66 . 1)<br />                         (-4 . "AND>")<br />                         (-4 . "OR>")<br />                        )<br />                )<br />       )<br />     (progn<br />       (setq atts (xdrx_entity_getproperty ss "AttributeEntities")) ;;获得选择集所有的属性实体到表<br />       (setq txts (xdrx_pickset->ents<br />                    (xd::pickset:getsub ss '((0 . "TEXT")))<br />                  );;获得选择集所有文字实体到表<br />       )<br />       (setq ents (xd::list:flat (append atts txts)));;两表结合成一个实体表并平滑化表<br />       (mapcar '(lambda (x)<br />                  (xdrx_setpropertyvalue<br />                    x<br />                    "textstring"<br />                    (strcat "A-" (xdrx_getpropertyvalue x "textstring"))<br />                  )<br />                )<br />               ents<br />       );;mapcar遍历表，每个实体文字添加前缀A-<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

sh_h

谢谢楼主分享！！！