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

wxa123wl

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

叮咚

组码中实际上是有  覆盖型和附着型的区分的。

1. (setq enbkx (tblobjname "block" namex))
   
2. (setq databkx (entget enbkx))
   
3. (setq dxf70 (cdr (assoc 70 databkx)))
   
4. (setq pathx (cdr (assoc 1 databkx)))(setq pathx (cdr (assoc 1 databkx)))
   
5. (if (= 4 (Boole 1 dxf70 4))
   
6.   (progn
   
7.     (if (= 8 (Boole 1 dxf70 8))
   
8.       (progn
   
9.         (princ "\n当前块为覆盖型。")
   
10.       )
    
11.       (progn
    
12.         (princ "\n当前块为附着型。")
    
13.       )
    
14.     )
    
15.   )
    
16.   (princ "\n块不是外部参照！")
    
17. )

(setq enbkx (tblobjname "block" namex))<br /> (setq databkx (entget enbkx))<br /> (setq dxf70 (cdr (assoc 70 databkx)))<br /> (setq pathx (cdr (assoc 1 databkx)))(setq pathx (cdr (assoc 1 databkx)))<br /> (if (= 4 (Boole 1 dxf70 4))<br />   (progn<br />     (if (= 8 (Boole 1 dxf70 8))<br />       (progn<br />         (princ "\n当前块为覆盖型。")<br />       )<br />       (progn<br />         (princ "\n当前块为附着型。")<br />       )<br />     )<br />   )<br />   (princ "\n块不是外部参照！")<br /> )

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

但是无法修改。

wxa123wl

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

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

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

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

wxa123wl

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

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

附着布尔值是多少呢，

叮咚

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

附着 和 覆盖 是针对  block 的，不是 insert，所以不一样。
布尔是什么，代码给你了，看不懂吗？