反应器函数

hncjddd

函数：
get_object_reactor
功能：
获取实体的永久反应器
函数代码：
;;获取实体的永久反应器
(defun get_object_reactor (e / elst lst etlst)
  (setq elst (entget e))
  (if (and (assoc 102 elst)
   (= (cdr (assoc 102 elst)) "{ACAD_REACTORS")
      )
    (progn
      (setq lst (cdr (member '(102 . "{ACAD_REACTORS") elst)))
      (while (= (caar lst) 330)
(setq etlst (cons (cdar lst) etlst))
(setq lst (cdr lst))
      )
    )
  )
  etlst
)语法：
(get_object_reactor e)
参数：
e: 实体
返回值：
返回永久反应器
示例：
;;测试实体所属组名
(defun test (lst / g)
  (foreach item (mapcar 'vlax-ename->vla-object lst)
    (if (= (vla-get-objectname item) "AcDbGroup")
      (setq g (cons (vla-get-name item) g)
      )
    )
  )
  g
)