Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → VBA → Фильтры
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Подскажите почему не работает. Нужно что выбирались вставки блоков с нулевой координатой.
Dim varType(0 To 2) As Variant
Dim intType(0 To 2) As Integer
intType(0) = 0 varType(0) = "Insert"
intType(1) = -4
varType(1) = "="
intType(2) = 30
varType(2) = "0"
objSelSet.SelectOnScreen FilterType:=intType, FilterData:=varType
Выбрать напрямую с помощью фильтра не удастся, потому что
фильтр представляет собой код DXF определенного типа примитива (а не его свойств). Отбирать надо путем перебора элементов полученного набора по критерию:InserctionPoint(i) =0
Именно так я и сделал. Объясните тогда для чего в хелпе перечислены эти коды 10,20,30 для точки вставки блока, если их нельзя использовать?
Ну, я полагаю, перечислены потому что DXF- коды используются не только для наборов. Например, коды 20 и 30 используются только в файлах формата DXF... Во всяком случае для фильтра при наборе, коды координат не подходят. Я попробовал их использовать еще и на LISP в функции ssget - возвращается nil, т.е. набор не создается.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → VBA → Фильтры
Форум работает на PunBB, при поддержке Informer Technologies, Inc
