用组码410修改天正轴网标注的轴号文字图层问题【问题解决】

wildfire712

今天试着用组码方式修改天正轴网标注中，轴号文字的图层，在倒数第二步subst替换原值能够成功，但entmod更新数据库之后，发现其属性值并未变化，其他可修改的组码值倒是没问题，不知道为什么，请帮忙看看如何解决？不知道是不是有两个410组码的问题。代码如下：
(defun UpdateData(index ent NewData / OldList NewList EntObj)
  (setq OldList(assoc index (reverse (entget (car ent)))))
  (setq NewList(cons index NewData))
  (setq EntObj(entget (car ent)))
  (setq EntObj(subst NewList OldList EntObj))
  (entmod EntObj)
)
对象的属性列表如下：
选择对象: ((-1 . <图元名: 7ff667509930>) (0 . "TCH_AXIS_LABEL") (330 . <图元名:
7ff6675079f0>) (5 . "223") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"J-2#6#一层轴网$0$C-标注") (100 . "TDbEntity") (46 . 0.0) (47 . 100.0) (68 . 1) (100
. "TDbAxisLabelSet") (7 . "GB2011") (40 . 40.0) (41 . 8.0) (410 .
"J-2#6#一层轴网$0$C-轴号"))

newer

试了下LISP，直接崩溃，是天正的问题，它不让你做。
换XDRX API吧

(xdrx_setpropertyvalue e "layer" "abc")

可以改。

newer

用ACTIVEX，也行

测试，改轴号图层到0，改轴号标注文字图层到0

1. (defun c:tt ()
   
2.   (if (setq e (car (entsel "\n拾取天正对象<退出>:")))
   
3.     (progn
   
4.       (setq o (vlax-ename->vla-object e))
   
5.       (not (vl-catch-all-apply (function (lambda nil
   
6.                                            (vlax-put-property o "textlayer" "0")
   
7.                                            (vlax-put-property o "layer" "0")
   
8.                                          )
   
9.                                )
   
10.            )
    
11.       )
    
12.     )
    
13.   )
    
14. )
    

(defun c:tt ()<br />   (if (setq e (car (entsel "\n拾取天正对象<退出>:")))<br />     (progn<br />       (setq o (vlax-ename->vla-object e))<br />       (not (vl-catch-all-apply (function (lambda nil<br />                                            (vlax-put-property o "textlayer" "0")<br />                                            (vlax-put-property o "layer" "0")<br />                                          )<br />                                )<br />            )<br />       )<br />     )<br />   )<br /> )<br />

wildfire712

newer 发表于 2018-4-15 01:55
用ACTIVEX，也行

测试，改轴号图层到0，改轴号标注文字图层到0

感谢版主指导！！！

sicky111

没用过天正。

wildfire712

newer 发表于 2018-4-15 01:55
用ACTIVEX，也行

测试，改轴号图层到0，改轴号标注文字图层到0

用您给的方法已经成功的修改了天正实体的图层，但又遇到一个新的问题：
天正实体里还有如“保温图层”、“窗框图层”之类的特殊的图层，没法去猜他的属性英文名，这样该如何获取它的属性英文名？

newer

wildfire712 发表于 2018-4-18 11:54
用您给的方法已经成功的修改了天正实体的图层，但又遇到一个新的问题：
天正实体里还有如“保温图层”、 ...

用下 通用函数库的函数 xd::vla:dump

(xd::vla:dump (car (entsel)))

选上你要看的天正对象，看看打印显示出来的属性有你想要的不

bb建筑师

直接改创建时候的默认图层……要改天正太难……天正太封闭……

wildfire712

newer 发表于 2018-4-18 13:11
用下 通用函数库的函数 xd::vla:dump

(xd::vla:dump (car (entsel)))

用这个方法可以查到了，非常感谢！不过有一些问题，独立的天正实体（比如没有门窗的单片墙、轴网标注等）可以列出完整信息，有布置门窗的墙体，则不论查看墙、门或窗时；天正2013直接显示访问冲突错误，信息列不出来；天正8可以列出各项特性值（已达到我的需要），后面支持的方法，显示访问冲突错误

newer

wildfire712 发表于 2018-4-19 11:57
用这个方法可以查到了，非常感谢！不过有一些问题，独立的天正实体（比如没有门窗的单片墙、轴网标注等） ...

那就是天正的问题，它的ACTIVEX支持不够。

moto1986

是天正的问题，它不让你做。