Отправлено: 06.07.05 11:59. Заголовок: Доступ к примитивам AI
Или как их называть? С утра читаю хелп... Ну никак не пойму, каким образом поиметь инфу о свойствах примитива. Любого. В Excel обьект Selection есть. В AI похожего не нахожу ... Может кто поделится примером кода выбора и получения конечных точек нарисованной линии?
Игорь, в этом случае удобно интелектуальное меню, это когда команду набираешь, потом ставишь точку появляется список доступных слов, если требуется ObjectTypeEnum то там будет весь перечень...иногда интелектуальное меню срабатывает после знака "=", так же часто это меню можно увидеть когда ставишь круглые скобки для некоторых команд. С опытом будешь уже это чувствовать....
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
да только его интересовали не примитивы скетчей на чертеже, а доступ к линиям отрисованного вида с трёхмера.... да и вообще IgorT похоже перешёл на Компас...он сюда похоже вообще не заявляется....
Антикульманист пишет: [quoe]да и вообще IgorT похоже перешёл на Компас...он сюда похоже вообще не заявляется.... В отпуске я был... На Компас не переходил. Всё на много хуже. Работы нет. Вот так вот выдишь их отпуска, а вернуться некуда...
Все даты в формате GMT
3 час. Хитов сегодня: 2
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация вкл, правка нет