不是很明白你这个需求，你要把指定工程图idw导出为dxf，为什么要把ilogic放在总装配体里，应该放在对应的工程图里呀。

你要把当前文档改成指定文档的话,把下面两行

 Dim oDocument as Document

oDocument=ThisApplication.ActiveDocument

改成：

Dim AsmDoc as AssemblyDocument

AsmDoc=ThisApplication.ActiveDocument

Dim oDocument as Document

oDocument=AsmDoc.ComponentDefinition.Occurrences.ItemByName("侧板封板:1").Definition.Document

我就按照你的要求，只是把oDocument这个对象变量换成了“侧板封板：1”，这里的冒号我也不清楚你用的是中文还是英文，你自己看着改吧。

而且这里获取的对象也只是它在装配体里的存在，是一个ipt文件，如果你想要获取他的idw文件，那么改成下面这样，这里我假设你的idw文件与ipt文件同名，且在同一个文件夹下：

Dim AsmDoc as AssemblyDocument

AsmDoc=ThisApplication.ActiveDocument

Dim oDoc as Document

oDoc=AsmDoc.ComponentDefinition.Occurrences.ItemByName("侧板封板:1").Definition.Document

dim oName as string

oName=oDoc.FullFileName

oName=Replace(oName,".ipt",".idw")

dim oDocument as Document

oDocument=ThisApplication.Documents.Open(oName,True)

如果程序成功执行了，那么会打开对应idw文件并显示，如果不要打开相应idw文件，想要静默运行，那么把上面的True改为False，并在所有程序的最后一行加上oDocument.close