块属性块外部参照分类归层

xman00 · 发表于 2012-10-20 00:02:47

本帖最后由 xman00 于 2012-10-22 21:53 编辑

因本人在考虑图纸图元按类进行分层。实际操作中发现，外部参照，和属性块均为块。用版内找到的区分方法无法对此三类对象进行层分离自动处理，请教，讨论

以上三类对象据本人所知在此处均只能由"inser"来代表。有高人指正，效果，对块，属性块，外部参照进行自动图层归正，即三类对象分别归入三个定义层。

请知道人士直接写出全部代码，本人代码盲，自行研究不行。拜托

xman00 · 发表于 2012-10-21 09:49:02

求助贴啊，怎么无人应答啊？

namezg · 发表于 2012-10-21 20:21:24

本帖最后由 namezg 于 2012-10-21 20:45 编辑

;带属性的块
(setq ss (ssget '((0 . "INSERT") (66 . 1))))
;外部参照块
(if (setq ss (ssget '((0 . "INSERT"))))
      (repeat (setq n (sslength ss))
            (setq n (1- n))
            (setq en (ssname ss n))
            (setq blkname (cdr (assoc 2 (entget en))))
            ;判断给定的图块是否为XRef外部参照图块
            (if (= 4 (logand (cdr (assoc 70 (entget (tblobjname "block" blkname)))) 4))))
            ;判断给定的图块是否为XRef外部参照图块
            ;(if (= (vla-get-isxref (vlax-ename->vla-object en)) :vlax-true)
                     (ssadd en (if ss1 ss1 (setq ss1 (ssadd))))
            )
      )
)
ss1为外部参照块

xman00 · 发表于 2012-10-21 20:37:23

namezg 发表于 2012-10-21 20:21
;带属性的块
(setq ss (ssget '((0 . "INSERT") (66 . 1))))
;外部参照块

哦，刚才另一版中未及看到老兄回复，现在进行组合测试，本人对LSP仅知道那么一点点皮毛，还要组合一下语言，测试一下。感谢老兄热心。

xman00 · 发表于 2012-10-21 21:29:44

经测试，已解决，再次感谢。

账号		自动登录	找回密码
密码			注册

块 属性块 外部参照 分类归层

块属性块外部参照分类归层