Question

我正在使用以下代码打开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.But无法调用此文件。请帮忙。

Answer 1

以下代码将读取.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

Answer 2

我在下面找到了解决方案：

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

使用vb6以编程方式运行Autocad脚本文件

2 个答案: