[scad2015]

Добрый день!


Вопрос как организовать выход из цикла Do Loop, таким образом, чтобы пользователь выходил по нажатии клавиши, или вводу чего либо.

Может быть, можно организовать цикл без Loop.

Спасибо!

[Кулик Алексей aka kpblc]

Можешь попробовать While.

[gomer]

Прежде чем лезть в петлю, нужно обдумать стоит ли игра свеч и план побега на всякий пожарный. так что без тела нет и дела...

[scad2015]

Сообщение от Кулик Алексей aka kpblc Можешь попробовать While.

А как подскажи я пробовал через отлов ошибок

Код:

[Выделить все]

Loop While Err.Number <> ' чему-нибудь, что можно отловить через тот же MsgBox

Сообщение от gomer Прежде чем лезть в петлю, нужно обдумать стоит ли игра свеч и план побега на всякий пожарный. так что без тела нет и дела...

Ну например вот (не хочу я каждый раз жать на кнопку, когда мне надо перемножить 2 числа):

Код:

[Выделить все]

Attribute VB_Name = "Module2"




Sub Umnogenie()

'On Error Resume Next

Dim SelSetColl As AcadSelectionSets
Dim CirSet As AcadSelectionSet
Dim item As AcadEntity
Dim Umnogeniee As Double
Dim intType(3) As Integer
Dim varData(3) As Variant

intType(0) = -4
varData(0) = "<OR"
intType(1) = 0
varData(1) = "MTEXT"
intType(2) = 0
varData(2) = "TEXT"
intType(3) = -4
varData(3) = "OR>"

Do

For Each CirSet In ThisDrawing.SelectionSets
 If CirSet.Name = "Mt" Then
    CirSet.Delete
    Exit For
 End If
Next

Set SelSetColl = ActiveDocument.SelectionSets
Set CirSet = SelSetColl.Add("Mt")
CirSet.SelectOnScreen intType, varData


For Each item In CirSet


If Umnogeniee = 0 Then
Umnogeniee = 1
End If

'Umnogeniee = Umnogeniee + CDbl(item.TextString) ------  Вот это выдает ошибку Type mismatch.   Почему?   (Acad 2014 x64)
Umnogeniee = Umnogeniee * Val(item.TextString)

Next item

CirSet.Delete
Set CirSet = Nothing
Set SelSetColl = Nothing

'-----------Вставка текста суммы---------------------
ThisDrawing.Utility.Prompt "Выберите текст для вставки:"

Set SelSetColl = ActiveDocument.SelectionSets
Set CirSet = SelSetColl.Add("Mt")
CirSet.SelectOnScreen intType, varData


For Each item In CirSet
item.TextString = Umnogeniee
Next item


'-----------------------------------------------------
ThisDrawing.Utility.Prompt Umnogeniee

Umnogeniee = 0

Loop    'While Err.Number <> 0

End Sub

[gomer]

Сообщение от scad2015 Ну например вот

Для вставки результата используют один объект, а не целый набор... ну это ладно, но зачем удалять набор если он есть? Разве нельзя просто очистить его?
зачем 2 раза это: Set SelSetColl = ActiveDocument.SelectionSets?
По теме у тебя условие лупа - непустой набор текстов и выбранный текст для вставки результата