[LISP程序]：获取实体的永久反应器

eachy

2. 
   
3. ;;获取实体的永久反应器
   
4. (defun get_object_reactor (e / elst lst etlst)
   
5.   (setq elst (entget e))
   
6.   (if (and (assoc 102 elst)
   
7.            (= (cdr (assoc 102 elst)) "{ACAD_REACTORS")
   
8.       )
   
9.     (progn
   
10.       (setq lst (cdr (member '(102 . "{ACAD_REACTORS") elst)))
    
11.       (while (= (caar lst) 330)
    
12.         (setq etlst (cons (cdar lst) etlst))
    
13.         (setq lst (cdr lst))
    
14.       )
    
15.     )
    
16.   )
    
17.   etlst
    
18. )

<br /> ;;获取实体的永久反应器<br /> (defun get_object_reactor (e / elst lst etlst)<br />   (setq elst (entget e))<br />   (if (and (assoc 102 elst)<br />            (= (cdr (assoc 102 elst)) "{ACAD_REACTORS")<br />       )<br />     (progn<br />       (setq lst (cdr (member '(102 . "{ACAD_REACTORS") elst)))<br />       (while (= (caar lst) 330)<br />         (setq etlst (cons (cdar lst) etlst))<br />         (setq lst (cdr lst))<br />       )<br />     )<br />   )<br />   etlst<br /> )

;;应用示例一

2. 
   
3. ;;测试实体所属组名
   
4. (defun test (lst / g)
   
5.   (foreach item        (mapcar 'vlax-ename->vla-object lst)
   
6.     (if        (= (vla-get-objectname item) "AcDbGroup")
   
7.       (setq g (cons (vla-get-name item) g)
   
8.       )
   
9.     )
   
10.   )
    
11.   g
    
12. )

<br /> ;;测试实体所属组名<br /> (defun test (lst / g)<br />   (foreach item        (mapcar 'vlax-ename->vla-object lst)<br />     (if        (= (vla-get-objectname item) "AcDbGroup")<br />       (setq g (cons (vla-get-name item) g)<br />       )<br />     )<br />   )<br />   g<br /> )

LUCAS

;;同下列:获取实体的永久反应器
(acet-acadreactor-ids-get (car (entsel)))   ;defined "acetutil4.fas"

c_czy

有点问题
错误: no function definition: ACET-ACADREACTOR-IDS-GET

LUCAS

在R2004+     ;defined "acetutil4.fas"
acet-acadreactor-ids-get

清风明月10

谢谢楼主的奉献！