---

Hallo zusammen,

ich habe mal wieder eine Denksportaufgabe. 

Code:

---

Public Function userSelectView() As String

    Dim docWork        As INFITF.Document
    Dim selWork        As INFITF.Selection
    Dim arrVarTypes(0)  As Variant
    Dim objBuffer      As Object
   
    userSelectView = ""
           
    On Error Resume Next
   
        Set docWork = CATIA.ActiveDocument
       
        If (docWork Is Nothing) Then
       
            Exit Function
       
        End If
   
    On Error GoTo 0
   
    Set selWork = docWork.Selection
   
    arrVarTypes(0) = "TPSView"
   
    Set objBuffer = selWork
   
    Call objBuffer.SelectElement2(arrVarTypes, "Select an annotation view", False)
   
    If (selWork.Count2 > 0) Then
   
        Set priv_viewWork = selWork.Item2(1).Value
       
        userSelectView = priv_viewWork.Name
   
    Else
   
        Set priv_viewWork = Nothing
       
    End If

End Function

---

Bei

Code:

---

Set priv_viewWork = selWork.Item2(1).Value

---

bekomme ich:

<Object variable or With block variable not set>

selbiges gilt für

selWork.item2(1).value.name

Der Count in der Selection ist 1.

Nun sagt mir doch mal einer, wie ich an mein Objekt kommte. 

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Henry,

bei mir gehts, hab nur noch dein "priv_viewWork" dimensioniert.
Dann hats eigentlich geklappt.

Code:

---

Option Explicit
Sub start()
    userSelectView
End Sub

Function userSelectView() As String
    Dim docWork        As INFITF.Document
    Dim selWork        As INFITF.Selection
    Dim arrVarTypes(0)  As Variant
    Dim objBuffer      As Object
    Dim priv_viewWork  As TPSView
   
    userSelectView = ""
           
    On Error Resume Next
   
        Set docWork = CATIA.ActiveDocument
       
        If (docWork Is Nothing) Then
       
            Exit Function
       
        End If
   
    On Error GoTo 0
   
    Set selWork = docWork.Selection
   
    arrVarTypes(0) = "TPSView"
   
    Set objBuffer = selWork
   
    Call objBuffer.SelectElement2(arrVarTypes, "Select an annotation view", False)
   
    If (selWork.Count2 > 0) Then
   
        Set priv_viewWork = selWork.Item2(1).Value
       
        userSelectView = priv_viewWork.Name
   
    Else
   
        Set priv_viewWork = Nothing
       
    End If

End Function

---

mfG
Mario

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hm...
Ich bin auf der Produktebene unterwegs.
Muss ich mir dann die Selection vom Part holen?

Edit: Na das ist ja mal interessant! Heute geht's auch bei mir.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

[Diese Nachricht wurde von HoBLila am 25. Okt. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP