ADN Club > VBA

VBA AutoCAD как задать условие проверки существования Стартовой точки у элемента

(1/1)

filat:
Есть AcadDocument.ModelSpace - входящие в эту коллекцию простые линии имеют Стартовую точку.
Как задать условие проверки существования такой точки у элемента?

--- Код - Text [Выбрать] ---For Each oModSpace In AcadDocument.ModelSpace    If oModSpace.StartPoint Is Nothing Thenтакое условие проверки не работает...

Александр Ривилис:
filat,
Простите, Сэр, но это бред! У любого отрезка (Line) всегда есть начальная точка. Так что тебе нужно проверить, что объект - это Line. И этого будет достаточно.

filat:
Да в целом нет возражений, только вот кроме линий, в этой коллекции есть и другие элементы - например, полилинии! и у них нет параметра Стартпоинт - озвученным условием их отсеч не получается....

Александр Ривилис:
filat,
Сформулируй пожалуйста нормально задачу.

Nutson:
Если надо получить все линии в модели то лучше запросить только их, а не перебирать все

--- Код - Visual Basic [Выбрать] ---Sub test()Dim ssetObj As AcadSelectionSetSet ssetObj = ThisDrawing.SelectionSets.Add("SSET")   Dim FilterType(0) As IntegerDim FilterData(0)FilterType(0) = 0FilterData(0) = "LINE" Call ssetObj.Select(AcSelect.acSelectionSetAll, , , FilterType, FilterData)End Sub 

Навигация

[0] Главная страница сообщений