Тема: Как скрыть построения lisp функции с глаз пользователя
День добрый! Столкнулся с проблемой: как скрыть построения с глаз пользователя. Как решить проблему сообразить не могу.
Примерно понимаю, как это сделать:
В примере описанном ниже у меня 1-ой запускаеться модальная форма,
в которой происходит заполнение исходных данных. Далее по кнопке
ok закрываеться первая форма и всплывает немодальная форма
говорящая, что идёт формирование чертежа. Acad делается невидимым,
функция lispa делает необходимые построения, после чего Acad делается видимым и
немодальное окно закрывается.
У меня получаеться при отработки кода иначе. Всплывает немодальная форма ->
Acad исчезает -> потом появляется-> форма закрываеться и начинает происходить
построение.
Как сделать так чтоб, только после отработки lisp функции Acad появился и
закрылось немодальное окно?
Как притушить текущий чертёж, чтоб не гасить весь Acad?
'Contains the AutoCAD Type Library
Imports Autodesk.AutoCAD.Interop
'Contains the AutoCAD/ObjectDBX Type Library Imports Autodesk.AutoCAD.Interop.Common Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Windows
Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Geometry
Public Class AdskCommands
Public ReadOnly Property ThisDrawing() As _
AcadDocument
Get
Return Autodesk.AutoCAD. _
ApplicationServices.Application. _
DocumentManager.MdiActiveDocument. _
AcadDocument
End Get
End Property
<Autodesk.AutoCAD.Runtime.CommandMethod("Bottom")> _
Public Sub myRoutine()
Dim frm As Dialog1
Dim frm3 As Dialog3
frm = New Dialog1
frm.ShowDialog()
frm3 = New Dialog3
If frm.DialogResult = Windows.Forms.DialogResult.OK Then
frm3.Show()
Application.MainWindow.Visible = False
ThisDrawing.SendCommand("(Bottom_reamer) ")
Application.MainWindow.Visible = True
frm3.Close()
End If
End Sub
End Class
