'' Get the current document editor
Dim acDocEd AsEditor = Application.DocumentManager.MdiActiveDocument.Editor
'' Create a TypedValue array to define the filter criteriaDim acTypValAr(0) AsTypedValue
acTypValAr.SetValue(
NewTypedValue(DxfCode.?????????, _
"???"), 0)
'' Assign the filter criteria to a SelectionFilter objectDim acSelFtr As SelectionFilter = NewSelectionFilter(acTypValAr)
'' Request for objects to be selected in the drawing areaDim acSSPrompt AsPromptSelectionResult
acSSPrompt = acDocEd.GetSelection(acSelFtr)
'' If the prompt status is OK, objects were selectedIf acSSPrompt.Status = PromptStatus.OK ThenDim acSSet AsSelectionSet = acSSPrompt.Value
Application.ShowAlertDialog(
"Number of objects selected: "& _
acSSet.Count.ToString())
Else
Application.ShowAlertDialog(
"Number of objects selected: 0")
EndIf
Solved! Go to Solution.
Solved by Alexander.Rivilis. Go to Solution.
Can you do a selection set based on Extended Dictionary on a Entity?
No. There is no criteria to filter selection set with Extension Dictionary.
Відповідь корисна? Клікніть на "ВПОДОБАЙКУ" цім повідомленням! | Do you find the posts helpful? "LIKE" these posts!
Находите сообщения полезными? Поставьте "НРАВИТСЯ" этим сообщениям!
На ваше запитання відповіли? Натисніть кнопку "ПРИЙНЯТИ РІШЕННЯ" | Have your question been answered successfully? Click "ACCEPT SOLUTION" button.
На ваш вопрос успешно ответили? Нажмите кнопку "УТВЕРДИТЬ РЕШЕНИЕ"
Alexander Rivilis / Александр Ривилис / Олександр Рівіліс
Programmer & Teacher & Helper / Программист - Учитель - Помощник / Програміст - вчитель - помічник
Facebook | Twitter | LinkedIn
Can't find what you're looking for? Ask the community or share your knowledge.