1

我有一个问题，有一个包含大量数据链接的 AutoCAD 文件，并且只想更新与特定表相关的数据链接。类似于选择带有数据链接的表的功能，右键单击并选择更新表数据链接。

我有以下代码：

Private Sub Update_table_data_link(tblRef As AcadTable)

ThisDrawing.SendCommand "DATALINKUPDATE" & vbCr & "U" & vbCr & "K" & vbCr

End Sub

它可以工作，但会更新绘图中的所有数据链接（这是一个问题），因此一个完美的解决方案可以让我获取关联的链接tblRef
并将行更改为：
ThisDrawing.SendCommand "DATALINKUPDATE" & vbCr & "U" & vbCr & "D" & vbCr & "datalink_name_from_tblRef" & vbCr

或者直接发送命令更新链接到tblRef

4

1 回答 1

0

经过大量挖掘和大量帮助后，答案如下：

Private Sub Update_table_data_link(tblRef As AcadTable)

    ThisDrawing.SendCommand "DATALINKUPDATE " & vbCr & "U" & vbCr & Ent2lspEnt(tblRef) & vbCr & vbCr

End Sub

Public Function Ent2lspEnt(entObj As AcadEntity) As String
    'Designed to work with SendCommand, which can't pass objects.
    'This gets an objects handle and converts it to a string
    'of lisp commands that returns an entity name when run in SendCommand.
    Dim entHandle As String

    entHandle = entObj.Handle
    Ent2lspEnt = "(handent " & Chr(34) & entHandle & Chr(34) & ")"
End Function

请注意，“Update_table_data_link”有一个表作为输入

于 2019-02-16T01:31:53.277 回答