Программным работает файл сценария Autocad с помощью VB6

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 

Приведенный выше код работает fine.But каждый раз я должен создать «str1» строку для того, чтобы сделать какие-либо изменения. Поэтому я пишу скрипт в файле .scr. Но не могу вызвать этот файл. Пожалуйста, помогите.

Answer 1

Я нашел решение ниже:

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

Answer 2

Следующий код будет читать файл .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