这段entmake指令为什么不能把图块$DorLib2D$00000009插入到新的cad文件？

_rocky

菜卷鱼 发表于 2025-11-4 17:35
用这个

首先表示感谢 但我要解决的不是插入块的问题，是想解决属性找不到无法转换为entmake代码的问题

菜卷鱼

_rocky 发表于 2025-11-5 08:30
首先表示感谢 但我要解决的不是插入块的问题，是想解决属性找不到无法转换为entmake代码的问题

entmake相当于重新做一遍块，没必要啊

_rocky

菜卷鱼 发表于 2025-11-5 14:01
entmake相当于重新做一遍块，没必要啊

是重做一遍  是把原cad文件的数据全部转换为entmake代码，在新的文件里面生成，这是需求

llsheng_73

_rocky 发表于 2025-11-5 14:04
是重做一遍  是把原cad文件的数据全部转换为entmake代码，在新的文件里面生成，这是需求

建议到原文件中，把所有东东弄成一个块，然后用论坛里边的块转lsp来处理

_rocky

llsheng_73 发表于 2025-11-5 14:31
建议到原文件中，把所有东东弄成一个块，然后用论坛里边的块转lsp来处理

源文件就是一个块，在5楼见附件

llsheng_73

对楼主的代码进行了测试发现，块定义没有问题，能成功定义块
问题出在最后插入块的时候，(66 . 1)需要在entnmake通过（0 . "insert)插入(cons 2 "$DorLib2D$00000009")指定的块主体后，继续通过entmake插入它的属性,直到(0 . "SEQEND")结束，才能正常显示块主体及它的属性
也就是说，楼主的代码，要插入块后增加属性，程序还没有完，一般说来至于还要两个entmake,一个增加属性，另一个(0 . "SEQEND")结束。
或者去掉66组，将"$DorLib2D$00000009"作为一个普通块插入，也是可以正常显示

llsheng_73

_rocky 发表于 2025-11-4 13:35
这个块通过快编辑器打开后找不到属性定义，
请问 ，怎么找到通过代码找到它的属性定义？

1. (defun getatts(blk)
   
2.   (if(equal(VL-CATCH-ALL-APPLY'vlax-get-property(list(setq blk(if(=(type blk)'ename)(vlax-ename->vla-object blk)blk))'HasAttributes)):vlax-true)
   
3.     (mapcar(function(lambda(x)(list(vla-get-TagString x)(vla-get-TextString x)x)))(vlax-safearray->list(vlax-variant-value(vlax-invoke-method blk'GetAttributes))))))

(defun getatts(blk)<br />   (if(equal(VL-CATCH-ALL-APPLY'vlax-get-property(list(setq blk(if(=(type blk)'ename)(vlax-ename->vla-object blk)blk))'HasAttributes)):vlax-true)<br />     (mapcar(function(lambda(x)(list(vla-get-TagString x)(vla-get-TextString x)x)))(vlax-safearray->list(vlax-variant-value(vlax-invoke-method blk'GetAttributes))))))

GETATTS
_$ (GETATTS(car(entsel)))
(("A" "GM-0921" #<VLA-OBJECT IAcadAttributeReference2 04f74b24>))
函数返回属性的TAG,值，对象，可以自行通过对象获取它的坐标以及属性文字的字体样式，大小，对齐方式等格式相关数据

llsheng_73

_rocky 发表于 2025-11-4 15:55
(tblsearch "block" name) 是存在的
entmake插入实现不了时因为块丢失了属性，原因在于遍历BLOCK实体的 ...

块的属性有两种情况，一种情况块本身是没有属性的，通过(66 . 1)方式插入块参照后继续追加属性直到(entmake '((0 . "SEQEND")))结束，这种情况通过tbl相关的函数是获取不到关于属性的任何信息；另一种是定认块主体的时候，和在块内添加一般图元对象一样，通过AddAttribute方法增加属性对象，或者使用相应的entmake也是一样的效果，这样的属性是能通过tbl相关函数获取属性的定义数据的，注意是定义数据，因为插入块参照后，它的属性一般情况下是可以修改的，有可能每个参照的同一属性，值各不相同，比如cass的高程点的高程注记属性（它是通过插入普通的GC200后继续追加的属性）
对于插入参照后追加的属性，需要对块参照图元通过entnext来查询它的后续图元是否为该参照的子图元（属性）来获取，

菜卷鱼

_rocky 发表于 2025-11-5 14:04
是重做一遍  是把原cad文件的数据全部转换为entmake代码，在新的文件里面生成，这是需求

重做属性块容易，重做带动态属性的块难啊，你碰到动态块咋办

_rocky

菜卷鱼 发表于 2025-11-5 16:50
重做属性块容易，重做带动态属性的块难啊，你碰到动态块咋办

暂时没遇到，发一个过来我试试