Отправлено: 06.07.05 11:59. Заголовок: Доступ к примитивам AI

Или как их называть? С утра читаю хелп... Ну никак не пойму, каким образом поиметь инфу о свойствах примитива. Любого.
В Excel обьект Selection есть. В AI похожего не нахожу ... Может кто поделится примером кода выбора и получения конечных точек нарисованной линии?

 Отправлено: 06.07.05 12:34. Заголовок: Re:

Да нет, прогу для этого писать не надо, всё в дереве объекта при пошаговом выполнении ты вызывал Local Window?

 Отправлено: 06.07.05 14:43. Заголовок: Re:

Подскажите, где взять значения ObjectTypeEnum. Не вижу их в хелпе. Или их надо экспериментальным путем отлавливать?

 Отправлено: 06.07.05 15:15. Заголовок: Re:

Игорь, в этом случае удобно интелектуальное меню, это когда команду набираешь, потом ставишь точку появляется список доступных слов, если требуется ObjectTypeEnum то там будет весь перечень...иногда интелектуальное меню срабатывает после знака "=", так же часто это меню можно увидеть когда ставишь круглые скобки для некоторых команд. С опытом будешь уже это чувствовать....

 Отправлено: 07.07.05 15:21. Заголовок: Re:

Научите как отловить выбранный пункт в браузере модели.

 Отправлено: 08.07.05 12:13. Заголовок: Re:

Да-а-а... застрял я.
VBA в AI это тебе не Лисп а Авкокаде. А то что я хотел сделать кажется таким простым и понятным. Тока ИМХО фик сделаешь..

 Отправлено: 08.07.05 12:59. Заголовок: Re:

Елы-палы... Туплю уже 6 часов. Кто знает, какой объект содержит набор примитивов чертежа

 Отправлено: 08.07.05 21:27. Заголовок: Re:

Чё браузер уже забросил? Щас у мя ночь....утром мож чё подскажу...

 Отправлено: 23.08.05 10:34. Заголовок: Re:

IgorT

Sub GetSketchEntity()

Dim oDrawDoc As DrawingDocument
Dim oSheet As Sheet
Dim oSketch As DrawingSketch
Dim oSketchEnt As SketchEntity

Set oDrawDoc = ThisApplication.ActiveDocument
Set oSheet = oDrawDoc.ActiveSheet
For Each oSketch In oSheet.Sketches
MsgBox oSketch.Name
oSketch.Edit
For Each oSketchEnt In oSketch.SketchEntities
Select Case oSketchEnt.Type
Case kSketchLineObject: MsgBox ""Это линия"
Case kSketchCircleObject: MsgBox "Это окружность"
End Select
Next
oSketch.ExitEdit
Next
Set oSketchEnt = Nothing
Set oSketch = Nothing
Set oSheet = Nothing
Set oDrawDoc = Nothing
End Sub

 Отправлено: 23.08.05 11:51. Заголовок: Re:

brigval

да только его интересовали не примитивы скетчей на чертеже, а доступ к линиям отрисованного вида с трёхмера....
да и вообще IgorT похоже перешёл на Компас...он сюда похоже вообще не заявляется....

 Отправлено: 23.08.05 12:02. Заголовок: Re:

IgorT пишет:

цитата

---

Туплю уже 6 часов

---

а посты с разницей в 40 минут

 Отправлено: 23.08.05 12:03. Заголовок: Re:

Антикульманист пишет:

цитата

---

перешёл на Компас...

---

Хозян — барин.

 Отправлено: 29.08.05 10:14. Заголовок: Re:

Антикульманист пишет:
[quoe]да и вообще IgorT похоже перешёл на Компас...он сюда похоже вообще не заявляется....

---

В отпуске я был... На Компас не переходил. Всё на много хуже. Работы нет. Вот так вот выдишь их отпуска, а вернуться некуда...

 Отправлено: 29.08.05 16:03. Заголовок: Re:

IgorT пишет:

цитата

---

Работы нет

---

сочувствую.... а у нас - наоборот... набрали работы до 2007 года... след-но до этого же года и отпуска не будет

 Отправлено: 29.08.05 16:55. Заголовок: Re:

student

а ты застрели их из своей пушки