Как заставить макрос работать без закрытия формы?

Типа так

Dim Layouts As AcadLayouts, xLayout As ACADLayout
Dim LayBlock as AcadBlock
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
textString = "Hello, World."
insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
height = 0.5
Set Layouts = ThisDrawing.Layouts
For Each xLayout In Layouts
   Set LayBlock = xLayout.Block
   Set textObj =LayBlock.AddText(textString, insertionPoint, height)
Next

[rus]Nichego ne ponjal. V vyshe ukazanom primere vse rabotaet bez zakrytija formy i vstavljaet tekst vo vse lajouty. Privedi chast' problemnogo koda, mozhet togda projasnitsja.
[/rus]

Форма модальная, поехтому при ее(формы) активации, окно автокада становится неактивным. Но ехто не влечет за собой невозможность работы с елементами(примитивами, лаёутами, таблицами...) автокада. Если очень хочется, чтобы были видны изменения в каждом лаёуте, просто нужно етот лаёут делать активным:

ThisDrawing.ActiveLayout = xLayout

[rus](ehtot process obychno zanimaet neskol'ko sekund).
Konechno mozhno i formu sdelat' nemodal'noj, tol'ko nejasno zachem ehto nado.
[/rus]

Дело не в модальности формы. У тебя , вероятнее всего, неверно организована структура проверок с переходами.

if ... then goto

  Возможно ни одно имя не подпадает под твои проверки и что тогда? Поставь бреакпоинт на начало цикла и проверь пошагово, что происходит. А ешхе лучше вообшхе избаиться от

if ... then goto

  И пользоватся либо

if ... then
.............
elseif ... then
.............
elseif ... then
.............
else
...
endif

либо

Select Case testexpression
[Case expressionlist-n
[statements-n]] ...
[Case Else
[elsestatements]]
End Select

> socrat
Поиск обсуждалось не раз