[AlexV]

Возможно ли сие? И возможно ли средствами VBA выделить набор объектов аналогично выбору пользователя рамкой? (есть конечно возможность подсветки Highlight, но как выделить грипсы?)

.. ну, предположим, с первой частью вопроса понятно..

Код:

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

ThisDrawing.PickfirstSelectionSet.Count

[Сергей812]

Сообщение от mel2 да, но легко внедряется.

тоже нужны админские права - чтобы энаблер доставить в акад, как и для студии. Да и еще про производительность тыц. Может в новых версиях подправили - но в 2012 акаде подтормаживание реально чувствовал на неслабой машине с SSD. В конечном итоге попросил админа снести этот энаблер VBA.

----- добавлено через ~2 мин. -----

Сообщение от mel2 Но поскольку время потрачено на изучение VBA

это время не пропадет - в офисе Майкрософта VBA пока очень даже востребован)

[mel2]

На работе у нас вообще Bricscad. c админ. правами проблем нет
Так что пока надеюсь, что кто-нибудь подскажет, как запустить этот код через VBA....

[Сергей812]

А VBA & Lisp для акада и брискада совпадают полностью разве?

[doctorraz]

Сообщение от Сергей812 тоже нужны админские права - чтобы энаблер доставить в акад, как и для студии. Да и еще про производительность тыц. Может в новых версиях подправили - но в 2012 акаде подтормаживание реально чувствовал на неслабой машине с SSD. В конечном итоге попросил админа снести этот энаблер VBA.

писал уже..
энаблер VBA для работы с СОМ АК не нужен.
с любого офисного приложения можно подключаться ихним редактором.
а можно на коленке в блокноте наваять типа

Код:

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

on error Resume next
Set objAutoCAD = GetObject(, "AutoCAD.Application")
if Err.Number <> 0 Then
	MsgBox "Нет связи с АК"
else
	Set ThisDraw = objAutoCAD.ActiveDocument
	MsgBox "Связь с АК есть." &  vbCrLf & "Смотри в консоь"
	ThisDraw.Utility.Prompt vbCrLf & "Связь ЕСТЬ!"  & vbCrLf
end if

сохранить как *.vbs и юзать.

----- добавлено через ~13 мин. -----

Сообщение от mel2 Так что пока надеюсь, что кто-нибудь подскажет, как запустить этот код через VBA...

пробуй так

Код:

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

ThisDrawing.SendCommand "(progn(defun ss-gripset (/ SS SR SSN I)(vl-load-com)(setq SS(vla-get-selectionsets(vla-get-activedocument (vlax-get-acad-object))))(setq SSN(vla-item SS " & """TestSelectionSetFilter3""" & "))(setq SR(ssadd))(vlax-for I SSN (ssadd(vlax-vla-object->ename I)SR))(sssetfirst nil SR)(princ))(ss-gripset))"  & vbCr

[mel2]

Сообщение от doctorraz пробуй так

Спасибо - работает!
У меня правда уже у самого получилось сделать, но только разделив на две команды:

ThisDrawing.SendCommand "(defun c:selset-gripset ( / selSets selres selSpdsNode item)(vl-load-com)(setq selSets (vla-get-SelectionSets (vla-get-ActiveDocument (vlax-get-acad-object))))(setq selSpdsNode (vla-item selSets ""test4""))(setq selres (ssadd)) (vlax-for item selSpdsNode (ssadd (vlax-vla-object->ename item) selres) ) (sssetfirst nil selres) (princ))\n"

а потом вызвать:
ThisDrawing.SendCommand "selset-gripset" & vbCrLf

А с одной строкой что-то не разобрался

[doctorraz]

Сообщение от mel2 А с одной строкой что-то не разобрался

Код:

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

ThisDrawing.SendCommand "Вася пупкин теперь " & """Доцент """ & "наук" & vbCr
' или
ThisDrawing.SendCommand "Вася пупкин теперь ""Доцент "" наук"  & vbCr

в ком строке получаем Вася пупкин теперь "Доцент" наук

[mel2]

Сообщение от doctorraz пробуй так Код: [Выделить все] ThisDrawing.SendCommand "(progn(defun ss-gripset (/ SS SR SSN I)(vl-load-com)(setq SS(vla-get-selectionsets(vla-get-activedocument (vlax-get-acad-object))))(setq SSN(vla-item SS " & """TestSelectionSetFilter3""" & "))(setq SR(ssadd))(vlax-for I SSN (ssadd(vlax-vla-object->ename I)SR))(sssetfirst nil SR)(princ))(ss-gripset))" & vbCr __________________

А можно ли подобным способом выделить отдельные объекты, а не предварительно созданный набор?
Например, в VBA идет перебор объектов (objEnts as AcadEntity). И если какой-то объект подходит под условие - сразу его выделить командой типа ThisDrawing.SendCommand "(progn(defun....

[Сергей812]

Сообщение от mel2 И если какой-то объект подходит под условие - сразу его выделить командой

зачем? Пользователь сразу полезет что-то делать с этим примитивом? Сделайте просто визуализацию процесса, если он длительный и пускай пользователь смиренно ждет)

[mel2]

Сообщение от Сергей812 зачем?

Вопрос в другом. Насколько я понимаю, в набор AcadSelectionSet можно добавлять только массив объектов. Есть к примеру задача - выделить из выбранных пользователем объектов только те, которые удовлетворяют условию 1. Я перебираю все элементы коллекции AcadSelectionSet и подходящие надо заносить в в какой-то массив... Но тут возникает вопрос безразмерного массива, я же заранее не знаю сколько получится объектов. Вот мне и показало проще выделять сразу по ходу анализа... а можно ли выделить сразу объект, а не набор - не знаю.

[Сергей812]

Сообщение от mel2 набор AcadSelectionSet можно добавлять только массив объектов.

ну ничто не мешает массиву объектов состоять из одного элемента)

Сообщение от mel2 Но тут возникает вопрос безразмерного массива, я же заранее не знаю сколько получится объектов.

в VBA есть динамические массивы (Redim, Redim Preserve), коллекции (Сollection).

[mel2]

Сообщение от Сергей812 ну ничто не мешает массиву объектов состоять из одного элемента)

Спасибо. Так и сделал, по одному элементу забрасываю в коллекцию...