編程方式使用VB6

運行AutoCAD腳本文件，我使用下面的代碼打開AutoCAD文件：編程方式使用VB6

Dim DwgName As String 
On Error Resume Next 
Set acadApp = GetObject(, "AutoCAD.Application") 
If Err Then 
    Set acadApp = CreateObject("AutoCAD .Application") 
    Err.Clear 
End If 

Set acadDoc = acadApp.ActiveDocument 
If acadDoc.FullName <> DwgName Then 
    acadDoc.Open DwgName 
End If 

Dim str As String, str1 As String 
str1 = "_-insert" & vbLf & """" & "C:\AZ665.dwg" & """" & vbLf & "0,0,0" & vbLf & vbLf & vbLf & vbLf & "z" & vbLf & "a" & vbLf 
acadDoc.SendCommand str1 
acadApp.Visible = True

以上代碼的工作fine.But每次我都以做任何更改，打造「STR1」字符串。因此，我在「.scr」文件中寫入scipt，但無法調用此文件。請幫忙。

來源

2013-08-12 Preeti

你可以發表你的.scr的文件嗎？ – rags

什麼版本的autocad？ –

我發現下面的解決方案的字符串：

acadDoc.SendCommand "_script" & vbCr & ScriptFilePath & vbCr

來源

2013-08-14 05:52:22 Preeti

下面的代碼將讀取一個.scr的文件，並創建你需要爲你SendCommand

Dim strData as string 
x = FreeFile 
Open "myscript.scr" For Input As #x 

Do 
    Line Input #x, strData 
    str1 = str1 & strData & vbNewLine 
    If EOF(x) Then Exit Do 
Loop 

Close #x

來源

2013-08-12 10:44:41

編程方式使用VB6

回答

相關問題