TroutKing 发表于 2022-7-6 17:09:48

外部参照路径保存问题(VB)

你好
我还有一个关于外部参照的快速问题。我有一些代码(请参阅下面的缩写版本),用于批量附加所需的外部参照。(非常感谢Oleg)。它工作得很好,但我想做一个调整。
 
有人能告诉我在哪里/什么/如何添加到此代码中,以便取消选中外部参照“保存的路径”切换,从而不保存路径吗?谢谢你能提供的任何帮助。
 

Dim xrfilename As String
xrfilename = Inputfolder & "/" & tmpfile
Dim blkname As String
blkname = tmpfile

Dim InsertPoint(0 To 2) As Double
Dim insertedBlock As AcadExternalReference

InsertPoint(0) = 0: InsertPoint(1) = 0: InsertPoint(2) = 0
Set insertedBlock = ThisDrawing.ModelSpace.AttachExternalReference(xrfilename, blkname, InsertPoint, 1, 1, 1, 0, False)
Set insertedBlock = Nothing
tmpfile = ""
页: [1]
查看完整版本: 外部参照路径保存问题(VB)