Тема: Задание точки с помощь мыши с экрана
Как задать любую точку с экрана, если в коде формы VBA записано след.
Private Sub CommandButton1_Click()
Dim StartPt As Variant
Dim plineObj As AcadPolyline
Dim points(0 To 47) As Double
StartPt = ThisDrawing.Utility.GetPoint
и тд.
При событии CommandButton1_Click() выскакивает:
Run-time error'-2145320932(8021001c)'
Autocad main window is invisible
При дебаге подсвечивает стоку:
StartPt = ThisDrawing.Utility.GetPoint
А очень хотелось бы кликнуть в поле активного документа.
За ранее благодарен.
