wxa123wl 发表于 2019-9-8 18:23:49

修改外部参照的“附着型”和“覆盖型”

本帖最后由 wxa123wl 于 2019-9-8 18:48 编辑

工作中外部参照有覆盖性，和附着型两种，怎么lsp程序点选对象修改，我在组码里面没有找到

叮咚 发表于 2019-9-8 18:23:50

组码中实际上是有覆盖型和附着型的区分的。
(setq enbkx (tblobjname "block" namex))
(setq databkx (entget enbkx))
(setq dxf70 (cdr (assoc 70 databkx)))
(setq pathx (cdr (assoc 1 databkx)))(setq pathx (cdr (assoc 1 databkx)))
(if (= 4 (Boole 1 dxf70 4))
(progn
    (if (= 8 (Boole 1 dxf70 8))
      (progn
      (princ "\n当前块为覆盖型。")
      )
      (progn
      (princ "\n当前块为附着型。")
      )
    )
)
(princ "\n块不是外部参照！")
)
主要是通过布尔运算来获得的。

但是无法修改。

wxa123wl 发表于 2019-9-12 20:44:17

叮咚 发表于 2019-9-8 18:23
组码中实际上是有覆盖型和附着型的区分的。

主要是通过布尔运算来获得的。


(entget (car (entsel)) '("*"))

(setq enbkx (tblobjname "block" "Sx-07-Plan-01F"))
这两种方式得到图源名怎么不一样呢，

wxa123wl 发表于 2019-9-12 21:02:52

叮咚 发表于 2019-9-8 18:23
组码中实际上是有覆盖型和附着型的区分的。

主要是通过布尔运算来获得的。


附着布尔值是多少呢，

叮咚 发表于 2019-9-12 22:53:36

wxa123wl 发表于 2019-9-12 21:02
附着布尔值是多少呢，

附着 和 覆盖 是针对block 的，不是 insert，所以不一样。
布尔是什么，代码给你了，看不懂吗？
页: [1]
查看完整版本: 修改外部参照的“附着型”和“覆盖型”