VBA Выбор примитивов AutoCAD с фильтрацией по слоям

06.06.2010, 16:36. **Показов** 8222. **Ответов** 3

Поставлена такая следующая задача:
необходимо програмно выделить все мультилинии, находящиеся в определенном слое

@vlth · 06.06.2010, 23:02

AutoCAD'а, к моему великому сожалению пока не знаю,
но решил попробовать. М.б. мои 'достижения' чем-нибудь и помогут

Dim oLayer As AcadLayer
For Each oLayer In ThisDrawing.Layers
'активизируем интересующий нас слой
If oLayer.Name = 'Имя_слоя' Then ThisDrawing.ActiveLayer = oLayer
'Здесь нужно как-то обратиться к объектам типа мультилиний (или полилиний?),
'но сделать этого я не сумел.

Next oLayer

@C@wboy · 10.06.2010, 08:41

Можно просмотреть все примитивы в чертеже и проверять свойства 'тип примитива' и 'слой' (я забыл как они точно называются) и если они оба удовлетворяют условию, то применить метод Select. Для уточнения синтаксиса названий примитивов создай переменную типа чертеж присвой ей активный чертеж и просмотри ее в Watch окне.

Visual Basic

dim drw as AcadDocument
dim msObj As AcadObject
Set drw = ThisDrawing 
    For i = 0 To drw.ModelSpace.Count 'для всех объектов в простр. модели    
        Set msObj = drw.ModelSpace.Item(i)
        If msObj.ObjectName = 'AcDbPolyline' and msObj.Layer='имя слоя' Then
         msObj.select
        end if
    Next

Как-то так. Компы теперь быстрые, глазом не успеешь моргнуть, а он уже 'прошерстит' весь чертеж

10.06.2010, 10:23

Все оказалось проще:

Visual Basic

intType(0) = -4
intType(1) = 0
intType(2) = 8
intType(3) = -4
 
varType(0) = '<AND'
varType(1) = 'MLine'
varType(2) = 'Layer'
varType(3) = 'AND>'
 
Set objSS = ThisDrawing.SelectionSets.Add('Temp')
objSS.Select acSelectionSetAll, Filtertype:=intType, Filterdata:=varType

DVAD
		1
	VBA Выбор примитивов AutoCAD с фильтрацией по слоям 06.06.2010, 16:36. Показов 8222. Ответов 3 Метки нет (Все метки) Поставлена такая следующая задача: необходимо програмно выделить все мультилинии, находящиеся в определенном слое

@vlth 14 / 14 / 2 Регистрация: 23.03.2010 Сообщений: 635
	06.06.2010, 23:02	2
	AutoCAD'а, к моему великому сожалению пока не знаю, но решил попробовать. М.б. мои 'достижения' чем-нибудь и помогут Dim oLayer As AcadLayer For Each oLayer In ThisDrawing.Layers 'активизируем интересующий нас слой If oLayer.Name = 'Имя_слоя' Then ThisDrawing.ActiveLayer = oLayer 'Здесь нужно как-то обратиться к объектам типа мультилиний (или полилиний?), 'но сделать этого я не сумел. Next oLayer 0

Опции темы