координаты вершин полилини в ACAD`e на VB ?

[ssv22]

ТОварисчи! Кто подскажет:
как на VB получить координаты вершин выбранной полилинии (или нескольких выбранных)?
В каком угодно виде: в массиве, в файле...
На Lisp`e я это делал лет 15 назад, а сейчас мне нужно на VB!
Последние лет 9 пишу на VB к SolidWorks`и пока еще не разобрался в объектной модели ACD`A
Желательно в VB а не VBA, хотя это и не критично...
Это я уж сам спарвлюсь.
Не могу получить доступ к объекту "Полилиния" и соотвественно, к ее вершинам, пр ее выборе ее на экране (в примерах все сначала создается и тд.)
Часа 2 потратил на поиск и часа 2 на собственное осмышление. Результат пока нулевой

Заранее спасибо!

[unreal_2007]

попробуйте поискать на dwg.ru там очень грамотные люди в плане Autocad

[NicSoft]

попробуй так:

Код: Выделить всё

Dim entObjectID As Long
Dim j as Long
Dim objGen As Object

For j = 1 To objAcad.ActiveDocument.PaperSpace.Count
     entObjectID = objAcad.ActiveDocument.PaperSpace.Item(j - 1).ObjectID
     Set objGen = objAcad.ActiveDocument.ObjectIdToObject(entObjectID)
     If objGen.ObjectName = "AcDbPolyline" Then
          msgbox "Полилиния"
     End if
Next

[ssv22]

попробуй так:

Код: Выделить всё

Dim entObjectID As Long
Dim j as Long
Dim objGen As Object

For j = 1 To objAcad.ActiveDocument.PaperSpace.Count
     entObjectID = objAcad.ActiveDocument.PaperSpace.Item(j - 1).ObjectID
     Set objGen = objAcad.ActiveDocument.ObjectIdToObject(entObjectID)
     If objGen.ObjectName = "AcDbPolyline" Then
          msgbox "Полилиния"
     End if
Next

Но это же, насколько я понимаю, перебор всех п/линий в пространстве листа?
Во-первых - я в пространстве модели,
во-вторых: мне нужен выбор определенных п/линий, и уже с каждой из них получить координаты вершин.
Мне кажется нужно использовать
selmgrAC.SelectOnScreen ' запрос выбора на экране
с соответствующими аргументами(фильтрами выбора), да вот еще не разобрался...

[NicSoft]

ssv22
Правильно понимаете. Я просто предложил пример, а поменять пространство листа на модель, и отфильтровать полилинии по имеющемся свойствам не так долго.

[ssv22]

ssv22
Правильно понимаете. Я просто предложил пример, а поменять пространство листа на модель, и отфильтровать полилинии по имеющемся свойствам не так долго.

Вот что-то у меня и не "клеится" с :
selmgrAC.SelectOnScreen ' запрос выбора на экране
Судя по help`y VBA функция ".SelectOnScreen"
должна принимать еще два аргумента, а у меня пока никак не получается это реализовать
Т.е. возвращает Null вместо указателя на объект-полилиния...
PS.вообще уже несколько раз сталкивался с подобным: вроде VB - синтакис более-менее похожий должен быть, ан нет - разница чуйствуется.
Я на VB и к ворду и к екселю и к корелу делал кое-что, и везде все какие-то проблемы возникают...