关于扩展数据问题
<CommandMethod("S3")> _
Public Sub SelectObjectsOnscreen3()
'' 获得当前文档和数据库 Get the current document and database
Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim acCurDb As Database = acDoc.Database
''启动一个事务 Start a transaction
Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
'' 要求在图形区域中选择对象 Request for objects to be selected in the drawing area
Dim acSSPrompt As PromptSelectionResult = acDoc.Editor.GetSelection()
'' 如果提示状态是 OK，对象就被选择了 If the prompt status is OK, objects were selected
If acSSPrompt.Status = PromptStatus.OK Then
Dim acSSet As SelectionSet = acSSPrompt.Value
'' 遍历选择集中的对象 Step through the objects in the selection set
For Each acSSObj As SelectedObject In acSSet
'' 检查以确定返回的 SelectedObject 对象是有效的 Check to make sure a valid SelectedObject object was returned
If Not IsDBNull(acSSObj) Then
'' 以写的方式打开选择的对象 Open the selected object for write
Dim acEnt As Entity = acTrans.GetObject(acSSObj.ObjectId, _
OpenMode.ForWrite)
If Not IsDBNull(acEnt) Then
'' 修改对象的颜色为绿色 Change the object's color to Green
acEnt.ColorIndex = 3
Dim df As ResultBuffer = New ResultBuffer
df.Add(New TypedValue(DxfCode.ExtendedDataRegAppName, "AppName"))
df.Add(New TypedValue(DxfCode.ExtendedDataAsciiString, "objll"))
acEnt.XData = df
End If
End If
Next
'' 保存新对象到数据库中 Save the new object to the database
acTrans.Commit()
End If
'' 销毁事务Dispose of the transaction
End Using
End Sub
此处报错 acEnt.XData = df eRegappIdNotFound
你需要先添加注册应用程序名 sieben 发表于 2011-7-12 13:17 static/image/common/back.gif
你需要先添加注册应用程序名
请问怎么添加呀？ VB的代码我不懂 ,你去搜 RegAppTable RegAppTableRecord 这两个关键字吧;
DxfCode.ExtendedDataRegAppName, "AppName")) 里面的"AppName"是对应的这个名字的 RegAppTableRecord ,你要使用它之前需要先有这个东西,它是应用注册表RegAppTable里面的一个记录
页:
[1]