[AlexV]

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

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

Код:

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

ThisDrawing.PickfirstSelectionSet.Count

[Vildar]

Тогда сразу по второй части.

Давным давно (in a galaxy far, far away...) мне крыс помог решить этот вопрос. Как ты понимаешь на лиспе.

Код:

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

;подсветка набора "Подсветка"
(defun 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 "Подсветка"))
   (setq selres (ssadd))
   (vlax-for item selSpdsNode
	  (ssadd (vlax-vla-object->ename item) selres)
   )
   (sssetfirst nil selres)
   (princ)
)

Суть такая, я в vba формирую набор selectionSet с именем "Подсветка". И запускаю этот лисп.
Если тебе такой способ подходит, приведу свой пример загрузки и вызова из vba.

Возможно можно подкоректировать лисп под твои требования.

[gizmo_zx]

спасибо, давно искал нечто подобное

[Vildar]

Ребята, я же не написал как это вызывать из vba. Все вкурсе?!
Расказываю, через SendCommand

[AlexV]

Сообщение от Vildar Ребята, я же не написал как это вызывать из vba. Все вкурсе?! Расказываю, через SendCommand

Ага.. в курсе..

Код:

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

ThisDrawing.SendCommand "(selset-gripset) "

Да, полезный лисп, спасибо Vildarу & Kpblcу.. Интересно всеж, неужто в VBA таки нет метода, программно создающего аналог выбора пользователем набора примитивов? В лиспе делает это функция sssetfirst, судя по всему?

А еще интересно, можно ли такую функцию определить и выполнить через комстроку.. Ну, что б можно было не подгружать лисп файл, а зарядить весь код в строковую переменную, и передать этим самым сендкоммандом автокаду.. Нельзя наверное..

[VVA]

Нельзя наверное.

Почему? Сделай одну длинную строчку вида

Код:

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

"(progn(defun selset-gripset ( / selSets selres selSpdsNode item) ... (princ))(selset-gripset))\n"

Лишь бы длинны строки хватило. Но можно переименовать название ф-ции и переменных по короче.
***Добавлено
Вот ф-ция с измененными названиями переменных

Код:

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

;_подсветка набора "Подсветка"
(defun ss-gripset (/ SS SR SSN  I)
  (vl-load-com)
  (setq SS (vla-get-selectionsets
             (vla-get-activedocument (vlax-get-acad-object))
           ) ;_ end of vla-get-SelectionSets
  ) ;_ end of setq
  (setq SSN (vla-item SS "Подсветка") SR (ssadd))
  (vlax-for I SSN
    (ssadd (vlax-vla-object->ename I) SR)
  ) ;_ end of vlax-for
  (sssetfirst nil SR)
  (princ)
) ;_ end of defun

И строчка

"(progn(defun ss-gripset (/ SS SR SSN I)(vl-load-com)(setq SS(vla-get-selectionsets(vla-get-activedocument (vlax-get-acad-object))) SSN(vla-item SS "Подсветка") SR(ssadd))(vlax-for I SSN (ssadd(vlax-vla-object->ename I)SR))(sssetfirst nil SR)(princ))(ss-gripset))\n"

[Олег (jr.)]

Сообщение от AlexV Возможно ли сие? И возможно ли средствами VBA выделить набор объектов аналогично выбору пользователя рамкой? (есть конечно возможность подсветки Highlight, но как выделить грипсы?) .. ну, предположим, с первой частью вопроса понятно.. Код: [Выделить все] ThisDrawing.PickfirstSelectionSet.Count

Можно так

Код:

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

ThisDrawing.SendCommand ("(sssetfirst nil (ssget " & Chr(34) & "_P" & Chr(34) & ")) ") '<--set blank space at the end!

только метод SendCommand вызывается асинхронно, лучше смотреть в сторону функции Windows API "SendMessage"
cм. например здесь
http://through-the-interface.typepad...ques_for_.html

[AlexV]

Сообщение от VVA Почему? Сделай одну длинную строчку вида "(progn(defun ss-gripset (/ SS SR SSN I)(vl-load-com)(setq SS(vla-get-selectionsets(vla-get-activedocument (vlax-get-acad-object))) SSN(vla-item SS "Подсветка") SR(ssadd))(vlax-for I SSN (ssadd(vlax-vla-object->ename I)SR))(sssetfirst nil SR)(princ))(ss-gripset))\n"

О, VVA, спасибо! то что нужно! Интересно, а вывод в комстроку текста можно отключить на время работы функции? Это, конечно, не обязательно, просто в порядке любопытства..

[sam_n]

Может я что-то не догоняю, но не хочет работать.
Говорит при загрузке лиспа
ошибка: Ошибка Automation. Ключ не найден

[Linkor]

Сообщение от AlexV Ага.. в курсе.. Код: [Выделить все] ThisDrawing.SendCommand "(selset-gripset) " Да, полезный лисп, спасибо Vildarу & Kpblcу.. Интересно всеж, неужто в VBA таки нет метода, программно создающего аналог выбора пользователем набора примитивов? В лиспе делает это функция sssetfirst, судя по всему?

Я делаю пользовательский выбор объектов так:
Dim sel as AcadSelectionSet
Set sel=ThisDrawing.SelectionSets.Add("temp")
sel.SelectOnScreen
когда становится не нужным удаляем sel.Delete

ЗЫ: нет под рукой vba, возможны не точности кода

[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))\n"
Выдает ошибку - complete error: end of statemen.
Выделяем название в кавычках.
(Autocad 2018 64bit)

[Сергей812]

1. А где тут код VBA?)
2. Сам то код на лиспе рабочий?

[Boxa]

mel2, нда... я бы порекомендовал Вам прочитать про конкатенацию строк в VBA вообще и про использование кавычек при этом в частности, а так же обратить внимание на команду Chr().
Думаю после этого, у Вас все получиться.

[mel2]

Спасибо. Только разбираюсь с VBA. С кавычками вроде бы разобрался. VBA ошибок не выдает, код запускается, но в командой строке выдает ошибку скобок:
------------------------------------------------------------------
: (progn(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 "test5"))(setq selres (ssadd)) (vlax-for item selSpdsNode (ssadd (vlax-vla-object->ename item) selres) ) (sssetfirst nil selres) (princ))(selset-gripset))\n

; ----- Error around expression -----
(PRINC)
;
; error : extra right parenthesis on input
------------------------------------------------------------------
Но если подгрузить .lsp файл с этой же строкой :
------------------------------------------------------------------
(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))
------------------------------------------------------------------
То все работает. В чем может быть причина?

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

Во-первых, строка не такая же. Во-вторых, а наборы с такими именами точно есть?

----- добавлено через 38 сек. -----
В-третьих, ты определяешь функцию или команду?

[mel2]

Прошу не кидать сильно камнями. Многого не понимаю еще... Просто пытаюсь организовать выделение подсвеченных объектов выборки на чертеже, как предложено в этой теме. Других вариантов, как это можно сделать, к сожалению, не нашел. Буду благодарен, если подскажите, как правильно (лучше) это сделать...

[Boxa]

Сообщение от mel2 Буду благодарен, если подскажите, как правильно (лучше) это сделать...

я подскажу. Забыть про VBA и переходить на .NET, там это в одну строчку делается.

Код:

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

Ed.Editor acEd = App.Application.DocumentManager.MdiActiveDocument.Editor;
Db.ObjectId[] idarrayEmpty; //Массив ObjectId объектов, которые нужно выбрать

acEd.SetImpliedSelection(idarrayEmpty); собственно выбор

[mel2]

Я думал про .NET. Но решил начать с VBA, т.к. он встроен в Acad ,и MS Office (не надо сторонних программ). И показался попроще чем .NET в освоении... по крайней мере для простых задач.

[Сергей812]

Сообщение от mel2 Я думал про .NET. Но решил начать с VBA, т.к. он встроен в Acad ,и MS Office (не надо сторонних программ). И показался попроще чем .NET в освоении... по крайней мере для простых задач.

тоже начинал с VBA - и он, кстати, далеко не встроен по умолчанию в акад уже много лет. Как только доходит до простых задач - отсортировать, поиск и т.д. - уже становиться очень грустно. Формы без поддержки контейнерного заполнения (упрощенно - когда задаются взаиморасположение элементов и отступы, а все размеры и положения контролов сами подсчитываются) и кастрированным набором контролов тоже не внушают оптимизма. Можно, конечно, подключать библиотеки для тех же дополнительных контролов - но это проблемы с переносом приложения.

А из сторонних программы нужна лишь бесплатная студия. Но тут возникает вопрос - пишете код официально или пытаетесь упростить себе жизнь неофициально? Если официально - напрямую или через начальника отдела служебку на имя сисадмина. Если неофициально - зависит от того, насколько вась-вась с сисадмином)

[mel2]

Сообщение от Сергей812 пишете код официально или пытаетесь упростить себе жизнь неофициально?

Я больше для себя, упростить рутинные операции. VBA привлек тем, что можно будет быстро набросать код прямо из автокада для спонтанно возникшей задачи. А Visual Studio я себе уже скачал для .NET Но поскольку время потрачено на изучение VBA, а кое-какие задачи надо решить быстрее, хочу все-таки добить поставленную задачу с помощью VBA.

Сообщение от Сергей812 далеко не встроен по умолчанию в акад уже много лет.

да, но легко внедряется.

[Сергей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 ну ничто не мешает массиву объектов состоять из одного элемента)

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