[Автон]

С-но сабж

В общем нужно запустить макрос с кнопки на панели, чтобы выделенние с объектов не снималось. Т.е. чтобы макрос мог с ними работать.

[Krieger]

Можно не ставить ^C^C в начало макроса и тогда ничего отменяться не будет.
Можно все-таки снять выделение, но в макросе исползовать опцию _p (Previous), тогда команды будут работать с последним выделением на чертеже.

[Автон]

чего то я не понимаю
есть у меня макрос на VBA с формой, а на панельке кнопка с запуском макроса: _-vbarun "podp.dvb!ThisDrawing.ааа"
нажимаю на кнопку,
появляется форма и все выделение снимается.
А если этот же макрос запускать из под редактора VBA, нажимаю на кнопочку RUN, то появляется форма и выделение не снимается.

^C^C я убрал не помогло

в макросе исползовать опцию _p (Previous), тогда команды будут работать с последним выделением на чертеже.

извините за глупый вопрос: это куда вставлять?

[Krieger]

Надо было сразу сказать, что макрос на VBA.
А что твой макрос с выделением делает? С VBA я не знаком, но уверен на 100%, что параметр (или ключ к функции) "Previous" там тоже есть.

[Автон]

Krieger, макрос добавляет ко всему выделенному тексту цифры по порядку выглядит это примерно так, и нужно чтоб текст оставался выделенным, чтобы все это работало:


Private Sub CommandButton1_Click()
Dim pfSS As AcadSelectionSet
Dim object As AcadEntity
Dim tip As String
Dim i As Integer
Dim step As Integer
Dim p As Variant
i = Val(Me.txtI)
step = Val(Me.txtS)
Set pfSS = ThisDrawing.PickfirstSelectionSet

For Each object In pfSS
tip = object.ObjectName
If tip = "AcDbText" Then
If Me.obK.Value = True Then
object.TextString = object.TextString & "-" & i
Else
object.TextString = i & object.TextString
End If
object.Update
i = i + step
End If
Next object

End Sub

[B2Slow]

Сообщение от Автон С-но сабж Вообщем нужно запустить макрос с кнопки на панели, чтобы выделенние с объектов не снималось. Т.е. чтобы макрос мог с ними работать.

Вот не помню, где подсмотрел:
(vla-runmacro (vlax-get-acad-object) "ThisDrawing.MACRONAME")
У меня работает.

[B2Slow]

Если нужно оперировать объектами, выделенными до запуска макроса именно в VBA, используй PickFirstSelectionSet.

[B2Slow]

Перечитал все посты.. Так ты неправильно вопрос поставил:

Сообщение от Автон С-но сабж Вообщем нужно запустить макрос с кнопки на панели, чтобы выделенние с объектов не снималось. Т.е. чтобы макрос мог с ними работать.

Очевидно, тебе нужно выделить отредактированные объекты после прохода макроса..
Если так, то вот здесь найдешь:
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=22820VI

[Автон]

B2Slow, спасибо за

vla-runmacro (vlax-get-acad-object) "ThisDrawing.MACRONAME"

думаю это то что нужно, однако это по-моему для LISP`а
а вот для VBA это не работает

Если нужно оперировать объектами, выделенными до запуска макроса именно в VBA, используй PickFirstSelectionSet.

а можно поподробнее

[B2Slow]

vla-runmacro (vlax-get-acad-object) "ThisDrawing.MACRONAME" думаю это то что нужно, однако это по-моему для LISP`а а вот для VBA это не работает

- это не для лиспа, это нужно повесить на кнопку, а всместо "ThisDrawing.MACRONAME" напишешь свой макрос. После этого можно будет выделить объекты, запустить этот самый макрос, и в нем получить доступ к этим объектам через ActiveSelectionSet. И это еще как работает, - проверено!

Цитата: Если нужно оперировать объектами, выделенными до запуска макроса именно в VBA, используй PickFirstSelectionSet. а можно поподробнее

Так это ж у тебя в коде есть:

Код:

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

Set pfSS = ThisDrawing.PickfirstSelectionSet 

For Each object In pfSS 
tip = object.ObjectName 
If tip = "AcDbText" Then 
If Me.obK.Value = True Then 
object.TextString = object.TextString & "-" & i 
Else 
object.TextString = i & object.TextString 
End If 
object.Update 
i = i + step 
End If 
Next object

Это я и имел в виду, просто не псмотрел в твой код, когда писал.
В общем, если в макросе пользуешься ActiveSelectionSet, вешай на кнопку (vla-runmacro (vlax-get-acad-object) "ThisDrawing.MACRONAME")
Если используешь PickFirstSelectionSet, то на кнопку ничего кроме -vbarun "ThisDrawing.MACRONAME" вешать уже не надо.
Первый вариант более универсален, т.к. позволяет выделять объекты как до запуска макроса, так и после.

[Автон]

B2Slow, Спасибо земляк! Все работает! с меня пиво

[B2Slow]

есть у меня макрос на VBA с формой, а на панельке кнопка с запуском макроса: _-vbarun "podp.dvb!ThisDrawing.ааа" нажимаю на кнопку, появляется форма и все выделение снимается. А если этот же макрос запускать из под редактора VBA, нажимаю на кнопочку RUN, то появляется форма и выделение не снимается.

Никогда не обращал внимания на то, что после запуска из под VBE, выделение остается..
А тебе оно, собственно, для чего. Во время выполнения макроса от него ни холодно, ни жарко по-моему..

[B2Slow]

Сообщение от Автон B2Slow, Спасибо земляк! Все работает! с меня пиво

да не за что!..

[Автон]

Никогда не обращал внимания на то, что после запуска из под VBE, выделение остается.. А тебе оно, собственно, для чего. Во время выполнения макроса от него ни холодно, ни жарко

В том то вся и загвоздка, что когда выделение снимается, то PickfirstSelectionSet пуст

[B2Slow]

Сообщение от Автон В том то вся и загвоздка, что когда выделение снимается, то PickfirstSelectionSet пуст

PFSS мог пустеть только если на кнопке перед -vbarun стояло ^C^C (аналогия нажатия Escape). Если этого не было, все выделение должно передаваться в макрос нормально..

[vlu]

Пробую сделать кнопку с макросом на изменение цвета выделенных объектов без снятия выделения. Попробовал разные варианты игры с ^C^C и p. Что именно нужно прописать в поле "макросы" чтобы выделение не снималось с объектов?