请问VB可以做一个程序可以把CAD的文件调出并打印吗>???我只有这么多分了

Question

可以给点提示吧
有源程序的最好
我急用,谢谢.

Answer 1

http://www.vbaspnew.com/ziyuan/y/wj/
seedwg.zip 看DWG文件(26KB)

Answer 2

还有没有一种方法能用一个按纽(cmd_print)打印一个指定的CAD文件(路径已知).CAD机器上有.谢谢了

Answer 3

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'不打开文件的情况下，打印文件
Private Sub Command1_Click()
    ShellExecute Me.hwnd, "print", "c:\test.cad", vbNullString, vbNullString, 3
End Sub

Answer 4

方法1：
Private Sub Command1_Click()
Set cadApp = CreateObject("Autocad.Application")
cadApp.Visible = True
Set cadDoc = cadApp.Documents.Open("C:\Drawing1.dwg")
cadDoc.SendCommand "print" & Chr(10)
End Sub方法二：
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Command1_Click()    ShellExecute 0, "print", "C:\Drawing1.dwg", vbNullString, vbNullString, 0
End Sub

Answer 5

我用的是邮电CAD R14
可以吗?

Answer 6

方法1中如下是直接打印
cadDoc.SendCommand "-plot" & Chr(10) & Chr(10) & Chr(10) & Chr(10) & Chr(10) & Chr(10) & Chr(10) & Chr(10)

Answer 7

http://www.china-askpro.com/msg14/qa77.shtml

Answer 8

两种方法
1 直接处理dxf文件，一条线，一个弧的画出来，非常麻烦
2 vba，只是打印就简单了