覆盖，从块引用中读取属性

nekitip · 发表于 2013-5-12 08:34:13

我正在努力学习否决权，这些年来我一直在回避的事情
当否决blockreference的DrawableOverrule时，当用户更改属性中的属性引用时，将执行overrule（我没有料到）
对象将显示为打开状态（在本例中为blockreference）以读取其属性，但要从.net访问其AttributeReference，需要一个事务，并且没有一个事务处于活动状态。如何阅读它们
解决方法是为属性引用创建另一个否决权。最佳实践是什么
公共类test2overrule
继承了DrawableOverrule
Const regappname As String=“testap1”
公共共享test2overrulevas作为新的test2overrule
Public Sub New（）
”告诉AutoCAD在我们的应用程序名称上进行筛选。
”（这意味着我们的否决权只会被称为
拥有此名称扩展数据的对象上的“
”）
SetXDataFilter（regAppName）
末端接头
将函数WorldDraw（ByVal可绘制为Autodesk.AutoCAD.GraphicsInterface.drawable，ByVal wd可绘制为Autodesk.AutoCAD.GraphicsInterface.WorldDraw）替换为布尔值。
Dim m As BlockReference=TryCast（可绘制，实体）
返回MyBase。WorldDraw（可绘制，wd）
结束函数
将函数SetAttributes（ByVal可绘制为Autodesk.AutoCAD.GraphicsInterface.drawable，ByVal traits可绘制为Autodesk.AutoCAD.GraphicsInterface.DrawableTraits）替换为整数。
Dim m As BlockReference=TryCast（可绘制，实体）
返回MyBase。设置属性（可绘制、特征）
结束函数
结束类

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

TheMaster · 发表于 2013-5-12 15:43:10

为什么需要从您的overrule的WorldDraw()中打开属性？

nekitip · 发表于 2013-5-13 02:59:31

我真正想要的是：
当用户修改Entity（让我们说-移动块引用）时，然后读取（让我们说位置. y）并用新值更新我的. net对象。
-我还想知道用户是否在块引用中更改了attributereference.text，并阅读它。
-如果他修改了动态块属性，请阅读它。
不确定使用哪个覆盖，但在“移动”的情况下，我希望实时看到它。
如果需要，我可以在这里放一些代码。
到目前为止，我一直在这样做：我挂钩到我感兴趣的每个对象的对象修改事件，当事件触发时，转在. net对象标志上，然后在可能的情况下打开单个事务并批量读取所有展开的对象。

nekitip · 发表于 2013-5-13 03:30:19

所以我在这个代码中规划了这样的东西，这是移动的否决，它将更新.NET对象，但我想知道，就像我之前说的：如果dynprop发生了变化，如果attref被挣脱（以及它现在的价值是什么）。我相信要走的路是DrawableOverrule，但不确定。'假设 appname 已经在数据库中注册。
'假设每个实体都有 ent，XData = New ResultBuffer（New TypedValue（DxfCode.ExtendedDataRegAppName， “test”）， New TypedValue（DxfCode.ExtendedDataAsciiString， ent.ObjectId.ToString）， New TypedValue（DxfCode.ExtendedDataAsciiString， “good”））。
'假设 overruling 对于块引用处于活动状态。
。
公共课程应用1。
公开共享 mylist1 作为新列表（Myobject1）。
结束类。
。
公共类 myobject1。
私人_positiony作为双人间。
私有_oid作为对象 Id。
。
公共财产定位为双倍。
获取。
退货_positiony。
结束获取。
Set（按值作为双精度值）。
_positiony = 值。
端集。
结束属性。
。
公共属性 oid 作为 ObjectId。
获取。
退货_oid。
结束获取。
Set（ByVal value As ObjectId）。
_oid = 值。
端集。
结束属性。
。
Public Sub readEnt（ByVal ent as Entity）。
Dim blokref As BlockReference = DirectCast（ent， BlockReference）。
positiony = blokref.位置.Y。
结束子。
。
结束类。
。
。
公共类测试1否决1。
继承转换规则。
公共共享测试1作为新测试的主权1规则1。
公共 regappname As String = “test”。
私有存储为字符串。
。
公共子新（）。
' 告诉 AutoCAD 根据我们的应用程序名称进行筛选。
'（这意味着我们的否决只会被调用。
' 在具有具有此名称的 XData 的对象上）。
SetXDataFilter（regappname）。
结束子。
。
公共覆盖子转换By（ByVal实体作为实体，。
ByVal 变换为 Matrix3d）。
。
MyBase.TransformBy（entity， transform）。
如果 checkxdata（entity）则。
findmyobjectinlist（entity）。
如果结束。
结束子。
。
公共函数 checkxdata（按值作为实体）作为布尔值。
Dim retval as Boolean = False。
将 xdata Dim as ResultBuffer = ent，GetXDataForApplication（regappname）。
选择“事例 xdata”，AsArray（2）.Value.ToString。
案例“好”。
存储 id = xdata，AsArray（1）.Value.ToString。
retval = True。
结束选择。
Return retval。
结束功能。
。
Public Sub findmyobjectinlist（ByVal ent As Entity）。
Dim myobj = From obj1 In app1.mylist1。
其中 obj1.oid.ToString = storedid。
选择 obj1。
。
如果 myobj.数> 0 然后。
myobj.First.readEnt（ent）。
如果结束。
结束子。
结束类。

TheMaster · 发表于 2013-5-13 23:36:39

抱歉，您的代码没有传达您的意图（例如，您在“ReadEnt（）”中做了什么？）。
我不会评论关于解决问题的想法或伪代码，除非你透露问题本身。

VVeli · 发表于 2015-8-25 08:08:23

嗨，
您可以通过事务轻松读取块引用属性。WorldDraw函数仅覆盖所有BlockRefereces。示例读取块属性值并使用wd.Geometry.Text函数显示。您必须为此创建Autodesk.AutoCAD.GraphicsInterface.TextStyle。
Cheers
Veli V.

copy

Public Overrides Function WorldDraw(drawable As Autodesk.AutoCAD.GraphicsInterface.Drawable, wd As Autodesk.AutoCAD.GraphicsInterface.WorldDraw) As Boolean
            Dim oAttrib As AttributeReference = Nothing
            Dim blk As BlockReference = DirectCast(drawable, BlockReference)
            If Not blk Is Nothing Then
                Dim attCol As AttributeCollection = blk.AttributeCollection
                Dim attTextPosYDiff As Double = 0.0
                Dim sAttribTexts As New List(Of String)
                ed.WriteMessage("BlockReference: " + blk.Name + vbCrLf)
                If blk.Name.Trim.ToLower = "kltaite" Then
                    Try
                        Using tr As Transaction = HostApplicationServices.WorkingDatabase.TransactionManager.StartOpenCloseTransaction
                            For Each attObjId As ObjectId In attCol
                                oAttrib = DirectCast(tr.GetObject(attObjId, OpenMode.ForRead), AttributeReference)
                                'ed.WriteMessage("BlockAttribute: " + oAttrib.Tag + vbCrLf)
                                sAttribTexts.Add(oAttrib.Tag + " = " + oAttrib.TextString)
                            Next attObjId
                            tr.Commit()
                        End Using
                    Catch ex As Exception
                        Debug.WriteLine("Error while reading block " + blk.Name + " attribute. " + ex.Message)
                        ed.WriteMessage("Error while reading block " + blk.Name + " attribute. " + ex.Message + vbCrLf)
                    End Try
                    If Not sAttribTexts Is Nothing Then
                        For Each sVal As String In sAttribTexts
                            wd.Geometry.Text(New Autodesk.AutoCAD.Geometry.Point3d(blk.Position.X, blk.Position.Y - attTextPosYDiff, blk.Position.Z), _TextNormal, _TextDirect, sVal, True, _style)
                            attTextPosYDiff += 0.5
                        Next sVal
                    End If
                    wd.Geometry.Circle(blk.Position, 1, New Autodesk.AutoCAD.Geometry.Vector3d(0, 0, 1))
                    Using sol3d As New Solid3d()
                        sol3d.CreateSphere(0.2)
                        sol3d.TransformBy(Autodesk.AutoCAD.Geometry.Matrix3d.Displacement(blk.Position - Autodesk.AutoCAD.Geometry.Point3d.Origin))
                        sol3d.WorldDraw(wd)
                    End Using
                End If
                sAttribTexts.Clear() : sAttribTexts = Nothing
            End If
            Return MyBase.WorldDraw(drawable, wd)
        End Function

覆盖，从块引用中读取属性

发表回复

精选推荐