Макросы в Drafting'е

[Hellion]

Уважаемые писатели макросов, хочу задать вопрос
Подскажите, пожалуйста как можно получить координаты выделенной точки? GetCoordinates возвращает координаты клика мышкой , а нужны точные данные из Point Definition

[Dasty]

Вообще есть дока V5Autoamtion лежит она в папке bin Катьки....
Так же можешь попробовать так: включаешь запись макроса..... и при просмотре координат твоей точки... по идее все должно записаться в макрос а там отыщешь че к чему обращается..... но бывают глюки с записью макросов в драфтинге:(
Полистай Доку, если окажется, что ее нет.... пиши в личку мне.

[Hellion]

Дока есть! Ума нета вот и спрашиваю. Я новичок в этом деле, вот и достаю всех до кого могу достать. вот-вот глюки. у меня макросы в драфтинге не записываются, а на других форумах читала, что это нормально такое бывает.
Но все равно спасибо за ответ! Аперативненько

[Dasty]

Жди.... появиться парень он пишет под катьку.. думаю он точно поможет, я попробую дома... тогда отпишусь

[MAX KZK]

на других форумах читала,

Первая девушка на форуме! Добро пожаловать!

По сути вопроса. Вас случайно не тот макрос интересует, который генерит рамку чертежа?

[Hellion]

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

p.s. А у вас тут уютно!

[MAX KZK]

Есть функционал вставки фрагментов чертежей из каталога. По-моему, это как раз то, что вам нужно.

[Hellion]

ОЧ. интересно, а поподробнее ?

[MAX KZK]

Загляните в мануале по Interactive Drafting в раздел 2D Components - так быстрее получится.
Общая суть в том, что создается фрагмент чертежа, который помещается в каталог и может оттуда вставляться в чертеж. Правда, компоненты, к сожелению, не ассоциативны.

Если мануала нет, или какие-то вопросы останутся, готов расписать подробно в форуме.

Вообще, среда Interactive Drafting - очень мощная 2D чертилка. Просто ее возможности затмеваются мощью 3D CATIA.

[Hellion]

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

[MAX KZK]

эти значки не должны быть связана с каталогом

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

[Hellion]

Ну, собственно так и происходит.
из каталога вставляется значок на отдельный лист, потом разрывается и crtl+c ctrl+v вставляется на лист чертежом. естественно он падает в 0 листа и потом этот значок translate'ом передвигается в нужную точку, спроецированную с модели. Долго, неинтересно, бесперспективно и тут появляюсь я с мега макросом и вся рутина делается за несколько секунд но! пока что нет этого мега макроса, пока есть только мега идея

[MAX KZK]

А чем вызвано требование отрыва от каталога? Smarteam?

[Hellion]

все намного банальнее - требование заказчика. а уж зачем им такое надо как бы не интересовались! мы ж птицы подневольные сказали делать - делаем!

[Dasty]

а заказчику нужен именно *.СATDrawing ?

[Hellion]

Dasty, ага! но мы так и не решили вопрос - КАК получить ТОЧНЫЕ координаты выделенной точки

[Egor_K]

Привет, Hellion!!! Мой пример строит точку, а затем возвращает ее координаты по X и по Y:

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

Public DrwDocument     As DrawingDocument
Public DrwSheets      As DrawingSheets
Public drwSheet      As DrawingSheet
Public drwViews      As DrawingViews
Public drwView        As DrawingView

Sub CATMain()
Set DrwDocument = CATIA.ActiveDocument
Set DrwSheets = DrwDocument.Sheets
Set drwSheet = DrwSheets.ActiveSheet
Set drwViews = drwSheet.Views

Set Point = drwViews.Item(1).Factory2D.CreatePoint(0, 10)
ReDim Coor(1)
Point.GetCoordinates (Coor)
MsgBox (Coor(0))
MsgBox (Coor(1))

End Sub

[Artem]

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

Sub CATMain()
   Dim DrwDoc As DrawingDocument: Dim DrwSelect: Dim Drwview As DrawingView: Dim oSelElem As Variant
   Set DrwDoc = CATIA.ActiveDocument: Set DrwSelect = DrwDoc.Selection
   Set oSelElem = CATIA.ActiveDocument.Selection.Item(1)
   If oSelElem.Type = "Point2D" Then
      ReDim myArray(2)
      oSelElem.Value.GetCoordinates myArray
      Set Drwview = DrwDoc.Sheets.ActiveSheet.Views.Item(oSelElem.Value.Parent.Parent.Name)
      XView = Drwview.xAxisData: YView = Drwview.yAxisData
      MsgBox "Координаты точки в виде= " + CStr(myArray(0)) + "   " + CStr(myArray(1))
      MsgBox "Координаты относительно листа = " + CStr(myArray(0) + XView) + "   " + CStr(myArray(1) + YView)
   End If
End Sub

[Hellion]

Artem,вау спасибо. РАБОТАЕТ! я счастлива но как-то сложно сама бы еще долго бы не дошла до такого

а можно я тебе называть - учитель и буду мучить вопросами?

[z_cad]

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

[shurte]

И еще вопрос по макросам в драфтинге.
Как поменять в макросе толщину отрисованной линии? Или нарисовать линию заданной толщины?
Копался в хелпе, но так и не нашел.

[MAV]

вот кусок кода из моей рамки

Sub CATCreateLine(iLineName As String, iX1 As Double, iY1 As Double, iX2 As Double, iY2 As Double, lineThichness As Integer)
Set Line = Fact.CreateLine(iX1, iY1, iX2, iY2)
Line.Name = iLineName
Selection.Clear
Selection.Add Line
Selection.VisProperties.SetVisibleWidth lineThichness, 0
'Selection.VisProperties.SetVisibleLineType lineType, 0
Selection.Clear
End Sub

[shurte]

Спасибо.
Все получилось.

[Hellion]

И снова здравствуйте.
хочу спросить, вот почему Катёвский VBA ругается на метод SetMatrix. если писать в обычном файле *.CATScript то там все отлично, а если это перенести в модуль VBA ругается пишет следущее :
Function or interface marked as restricted, or function uses an Automationtype not supported in Visual Basic
помогите как иссправить сей глюк жду ответов

[Sten]

Забавно, только заметил темку:) Заказчег автора темы..угадайте кто:) Короче в VPM не особо поддерживаются линки на Катькины каталоги.