插入带特殊属性的块的问题

transteel · 发表于 2024-8-7 20:17:12

本帖最后由 transteel 于 2024-8-8 09:29 编辑

<2024-08-08更新>

我用另一个思路解决了这个难题：

不再使用块属性关联【距离】对象，而是采用变通的方法，也即用一个除了尺寸外关闭其他所有内容的【标注】来代替块【属性】。很巧妙的方法，完全能满足我的要求，并且还收获了意外的优点（显示的悬臂长度是实时刷新的，而不必入之前需要用re命令手动刷新图纸才更新）。

============================

<原问题>

有一个带属性的块，其属性的默认值关联的是某个对象的值，使用下面代码插入时，属性会被改为文本类型，失去和对象的关联。

如下图，第一次插入的块是采用代码插入，关联对象的属性被破坏了；第二次是使用CAD内置命令插入的块，还保留着关联的属性。

不知是否有哪位知道如何解决这个问题。

' 添加块参照到模型空间或块表记录空间
Dim ms As BlockTableRecord = CType(trans.GetObject(db.CurrentSpaceId, OpenMode.ForWrite), BlockTableRecord)
ms.AppendEntity(blkRef)
trans.AddNewlyCreatedDBObject(blkRef, True)
' 处理块中的属性
Dim btr As BlockTableRecord = CType(trans.GetObject(btrId, OpenMode.ForRead), BlockTableRecord)
For Each objId As ObjectId In btr
Dim obj As DBObject = trans.GetObject(objId, OpenMode.ForRead)
If TypeOf obj Is AttributeDefinition Then
Dim attDef As AttributeDefinition = CType(obj, AttributeDefinition)
If Not attDef.Constant Then
' 创建属性并设置值
Dim attRef As New AttributeReference()
attRef.SetAttributeFromBlock(attDef, blkRef.BlockTransform)
' 添加属性到块参照
blkRef.AttributeCollection.AppendAttribute(attRef)
trans.AddNewlyCreatedDBObject(attRef, True)
End If
End If
Next

' 添加块参照到模型空间或块表记录空间 
                        Dim ms As BlockTableRecord = CType(trans.GetObject(db.CurrentSpaceId, OpenMode.ForWrite), BlockTableRecord) 
                        ms.AppendEntity(blkRef) 
                        trans.AddNewlyCreatedDBObject(blkRef, True) 
' 处理块中的属性 
                        Dim btr As BlockTableRecord = CType(trans.GetObject(btrId, OpenMode.ForRead), BlockTableRecord) 
                        For Each objId As ObjectId In btr 
                            Dim obj As DBObject = trans.GetObject(objId, OpenMode.ForRead) 
                            If TypeOf obj Is AttributeDefinition Then 
                                Dim attDef As AttributeDefinition = CType(obj, AttributeDefinition) 
                                If Not attDef.Constant Then 
                                    ' 创建属性并设置值 
                                    Dim attRef As New AttributeReference() 
                                    attRef.SetAttributeFromBlock(attDef, blkRef.BlockTransform) 
                                    ' 添加属性到块参照 
                                    blkRef.AttributeCollection.AppendAttribute(attRef) 
                                    trans.AddNewlyCreatedDBObject(attRef, True) 
                                End If 
                            End If 
                        Next

transteel · 发表于 2024-8-7 20:19:05

使用ACAD官方给的.net代码也不能实现。（VBA是可以实现的。）

下面是官方代码：ttps://help.autodesk.com/view/OARX/2023/CHS/?guid=GUID-2107599E-9405-4D8B-A6DD-83D603B41568

For Each objID As ObjectId In acBlkTblRec
' 遍历块表记录中的每一个对象ID
Dim dbObj As DBObject = acTrans.GetObject(objID, OpenMode.ForRead)
' 通过事务获取数据库对象（DBObject），以供读取
If TypeOf dbObj Is AttributeDefinition Then
' 如果数据库对象是属性定义（AttributeDefinition）类型
Dim acAtt As AttributeDefinition = dbObj
' 将数据库对象转换为属性定义对象（AttributeDefinition）
If Not acAtt.Constant Then
' 如果属性定义对象不是常量属性
Using acAttRef As New AttributeReference
' 使用属性引用对象（AttributeReference）
acAttRef.SetAttributeFromBlock(acAtt, acBlkRef.BlockTransform)
' 从块中的属性定义设置属性引用对象的属性
acAttRef.Position = acAtt.Position.TransformBy(acBlkRef.BlockTransform)
' 根据块的变换设置属性引用对象的位置
acAttRef.TextString = acAtt.TextString
' 设置属性引用对象的文本字符串与属性定义相同
acBlkRef.AttributeCollection.AppendAttribute(acAttRef)
' 将属性引用对象添加到块引用的属性集合中
acTrans.AddNewlyCreatedDBObject(acAttRef, True)
' 将新创建的属性引用对象添加到事务中
End Using
End If
End If
Next

For Each objID As ObjectId In acBlkTblRec 
    ' 遍历块表记录中的每一个对象ID 
    Dim dbObj As DBObject = acTrans.GetObject(objID, OpenMode.ForRead) 
    ' 通过事务获取数据库对象（DBObject），以供读取 
    If TypeOf dbObj Is AttributeDefinition Then 
        ' 如果数据库对象是属性定义（AttributeDefinition）类型 
        Dim acAtt As AttributeDefinition = dbObj 
        ' 将数据库对象转换为属性定义对象（AttributeDefinition） 
        If Not acAtt.Constant Then 
            ' 如果属性定义对象不是常量属性 
            Using acAttRef As New AttributeReference 
                ' 使用属性引用对象（AttributeReference） 
                acAttRef.SetAttributeFromBlock(acAtt, acBlkRef.BlockTransform) 
                ' 从块中的属性定义设置属性引用对象的属性 
                acAttRef.Position = acAtt.Position.TransformBy(acBlkRef.BlockTransform) 
                ' 根据块的变换设置属性引用对象的位置 
                acAttRef.TextString = acAtt.TextString 
                ' 设置属性引用对象的文本字符串与属性定义相同 
                acBlkRef.AttributeCollection.AppendAttribute(acAttRef) 
                ' 将属性引用对象添加到块引用的属性集合中 
                acTrans.AddNewlyCreatedDBObject(acAttRef, True) 
                ' 将新创建的属性引用对象添加到事务中 
            End Using 
        End If 
    End If 
Next

cad890 · 发表于 2024-10-11 20:02:08

transteel 发表于 2024-10-8 08:17
那个拖动时显示的长度数字并不是刻意“隐藏”的，应该是动态块的“距离”参数，是自动显示的。

尝试了一下，距离参数没有显示。启发了另一种想法，应该是本来标注的文字字高改小隐藏的，显示出来的是动态输入的文字。尝试成功！

你有种再说一遍 · 发表于 2024-8-7 22:50:25

本帖最后由你有种再说一遍于 2024-10-12 22:52 编辑

看起来就是字段类型的反应器没有附着到块参照上面?

找到了一种方式:通过"块特性表"
https://jingyan.baidu.com/article/d45ad1488521dc28552b80ed.html

二级菜单版本:
https://www.cadzxw.com/44132.html

tranque · 发表于 2024-8-8 10:31:35

U1S1拉伸标注确实好用，不是道是不是楼主的那个意思

你有种再说一遍 · 发表于 2024-8-8 10:57:31

tranque 发表于 2024-8-8 10:31
U1S1拉伸标注确实好用，不是道是不是楼主的那个意思

把标注做到动态块挺异端的

tranque · 发表于 2024-8-8 11:22:10

你有种再说一遍发表于 2024-8-8 10:57
把标注做到动态块挺异端的

凑活用了，怎么省事怎么来

，反正一个月没多少窝囊费，糊弄完就下班

transteel · 发表于 2024-8-8 14:57:45

你有种再说一遍发表于 2024-8-8 10:57
把标注做到动态块挺异端的

【能用】万岁吧。哈哈哈！

transteel · 发表于 2024-8-8 15:42:04

你有种再说一遍发表于 2024-8-8 10:57
把标注做到动态块挺异端的

原来您是博客园的【惊惊】博主啊，《日志篇惊惊博客轨迹》我偶尔会打开看看（很久不更新了），没想到在这里遇到了。幸会。

lelelewfxy · 发表于 2024-8-9 09:24:20

不错，功能大为扩展

白山茶 · 发表于 2024-8-12 15:27:18

啥意思，没明白，咋解决的

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

插入带特殊属性的块的问题

本帖子中包含更多资源

本帖子中包含更多资源