明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1155|回复: 0

反应器函数

[复制链接]
发表于 2020-4-10 15:55:42 | 显示全部楼层 |阅读模式
函数:
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
)
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-5 21:38 , Processed in 0.172961 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表