[编程交流] 外部参照路径保存问题（VB）

[复制链接]

TroutKing

16 主题	43 帖子	33 银币

初露锋芒

Rank: 3 Rank: 3 Rank: 3

铜币: 85

发消息

发表于 2022-7-6 17:09:48 | 显示全部楼层 |阅读模式

你好
我还有一个关于外部参照的快速问题。我有一些代码（请参阅下面的缩写版本），用于批量附加所需的外部参照。（非常感谢Oleg）。它工作得很好，但我想做一个调整。

有人能告诉我在哪里/什么/如何添加到此代码中，以便取消选中外部参照“保存的路径”切换，从而不保存路径吗？谢谢你能提供的任何帮助。

copy

 
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 = ""