У меня есть два файла dwg: PID.dwg & 3D.dwg
Вариант использования - запуск функции в PID.dwg, а затем в 3D.dwg - особенно в этом порядке.
Команды, используемые в SendCommand ниже, взяты из отдельного DLL-файла, который я загружаю с помощью NETLOAD до выполнения этой функции.
Dim app As AcadApplication = CType(Application.AcadApplication, AcadApplication)
' Ctype( Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication,
' Autodesk.AutoCAD.Interop.AcadApplication )
If isPidAnd3dOpened() Then
' Activate PID document
app.ActiveDocument = acDocPid
'acDocPid.Activate()
acDocPid.SendCommand("DOSOMETHINGONPID" & vbCrLf)
' Activate 3D document
app.ActiveDocument = acDoc3d
'acDoc3d.Activate()
acDoc3d.SendCommand("DOSOMETHINGON3D" & vbCrLf)
End If
Функция "DOSOMETINGON3D"
требует ввода от пользователя с помощью Editor.GetEntity
.
Однако при выполнении acDoc3d.SendCommand("DOSOMETHINGON3D" & vbCrLf)
ожидание ввода пользователя не приостанавливается.
Чего мне не хватает?