怎么用vb打开autocad 并形成dwf

lvhaiyan

怎么用vb打开AutoCAD 并形成dwf

风魔飘香

Dim oApp As New AcadApplication
    Dim oDoc As AcadDocument
   
    Set oDoc = oApp.Documents.Open("f:\Temp\dwg\0003.dwg")
    oDoc.Plot.PlotToFile "F:\0003.dwf", "ublishToWeb DWF.pc3"
   
    oDoc.Close False
    oApp.Quit
   
    Set oDoc = Nothing
    Set oApp = Nothing

lvhaiyan

在R14下怎么 怎么用vb打开autocad 并形成dwf

mccad

可以使用Export方法。

2.     Dim exportFile As String
   
3.     exportFile = "d:\AutoCAD\DXFExprt"     ' 你可将路径调整为你需要保存到的路径及文件名
   
4.    
   
5.    
   
6.     '将当前图形输出为指定格式的图形.
   
7.     ThisDrawing.Export exportFile, "DWF
   

    Dim exportFile As String<br />     exportFile = "d:\AutoCAD\DXFExprt"     ' 你可将路径调整为你需要保存到的路径及文件名<br />     <br />     <br />     '将当前图形输出为指定格式的图形.<br />     ThisDrawing.Export exportFile, "DWF<br />

lvhaiyan

楼主:我试过了,但是不能形成dwf

mccad

如果机器中有几个版本的AutoCAD，则经常会出问题。
我的机器装了14,2002,2004，在VB中引用了14的类型库，但由于14的类型库不需要使用版本号，所以就算我打开了AutoCAd R14版，也不能调用R14。
所以你的问题我还是回答不了。呵呵，要先考虑版本的问题了。

randyhuang

我也是想知道这个问题，我在写一段程序，但就在这卡住了，有哪位高人可以指点一下？

MJTD_7777

ThisDrawing.Export exportFile, "DWF"

 

不支持 DWF文件格式。

 

randyhuang

有哪位高人指点啊，Export不能输出DWF的，急用，谢谢谢谢！！

randyhuang

有哪位高人可以指点一下吗？真的很急，望各位大侠鼎力相助，小弟不胜感谢！