Macros Помоги Новичку

[Hellion 0]

Доброго времени суток!

Господа и дамы помогите, начинающему.

Хочу возвращать имя выделенного элемента, вот есть код, но когда пишу

Set oSelElem = CATIA.ActiveDocument.Selection.Item(1)

MsgBox oSetElem.Name

на экране появлется надпись CATIASelectedElement4, при следующем запуске макроса будет CATIASelectedElement5 и т.д., а мне нужно, например у меня выделена точка, чтобы я получила имя выделенного элемента, например - Point.1

[Egor_K 1]

Вот так надо делать:

Set oSelElem = CATIA.ActiveDocument.Selection.Item(1)

MsgBox (oSelElem.Value.Name)

[Hellion 0]

Вот так надо делать:

Set oSelElem = CATIA.ActiveDocument.Selection.Item(1)

MsgBox (oSelElem.Value.Name)

Спасибочки, спасибочки. Все заработало :)

[bolahg 0]

В продолжение темы:

Вопрос тоже про получение имени, только получить нужно имя детали в сборочном чертеже

Максимум что получается это вот:

Sub CATMain()

Dim oDocument As Document

Set oDocument = CATIA.ActiveDocument

Dim oSelection As AnyObject

Set oSelection = oDocument.Selection

Dim Status As String

Dim InputObjectType(0)



InputObjectType(0) = "AnyObject"

Status = oSelection.SelectElement2(InputObjectType, "Select an element", False)

If (Status = "Cancel") Then

oSelection.Clear: Exit Sub

End If

Set MySelection = oSelection.Item(1).Value

MsgBox "Name of selection : " & MySelection.Name

End Sub

Т.е. Тык на элемент в чертеже и получаю имя вида))

Пытался через GenerativeBehavior - но ничего не получилось

подскажите плиз.

[bolahg 0]

Никто ничего не подскажет?

[bolahg 0]

Частично проблема решена.

Sub CATMain()





Dim oDocument As DrawingDocument

Set oDocument = CATIA.ActiveDocument



Dim oSelection As AnyObject

Set oSelection = oDocument.Selection

Dim Status As String

Dim InputObjectType(0)



InputObjectType(0) = "AnyObject"

Status = oSelection.SelectElement2(InputObjectType, "Select an element", False)

If (Status = "Cancel") Then

oSelection.Clear: Exit Sub

End If

'Set MySelection = oSelection.Item(1).Value

'MsgBox "Name of selection : " & MySelection.Name

Dim vwView As DrawingView

Set vwView = oSelection.Item(1).Value



Dim oGB As DrawingViewGenerativeBehavior

Dim oGenDoc As Object



Set oGB = vwView.GenerativeBehavior



Set oGenDoc = Nothing

On Error Resume Next

	Set oGenDoc = oGB.Document



If (Err.Number <> 0) Or (oGenDoc Is Nothing) Then

	MsgBox " view is not linked"



ElseIf (TypeName(oGenDoc.Parent) = "PartDocument") Then

   MsgBox " View is linked to a partdocument"



ElseIf (TypeName(oGenDoc.Parent) = "ProductDocument") Then



	MsgBox " View is linked to a productdocument "



Else

	MsgBox "  unexpected type of linked object"

End If



End Sub

После нажатия на чертеже сборки можно получить имя сборки

или на чертеже детали можно получить имя детали.

А имя детали в чертеже сборки получить не получается - осталось не решенным.

И появился еще один вопрос:

selection - так же как и balloon, может работать только с кромками ?

Или есть возможность, сделать так чтобы оное работало с облостью?

Изменено 8 ноября 2011 пользователем bolahg