0

我正在使用以下代码打开 AutoCAD 文件：

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

上面的代码工作正常。但每次我必须创建“str1”字符串才能进行任何更改。因此我在“.scr”文件中写scipt。但无法调用这个文件。请帮忙。

4

2 回答 2

0

以下代码将读取 .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-12T10:44:41.993 回答
0

我找到了以下解决方案：

acadDoc.SendCommand "_script" & vbCr & ScriptFilePath & vbCr
于 2013-08-14T05:52:22.233 回答