---

Hallo zusammen,

ich zerbreche mir gerade den Kopf darüber, wie ich wohl genau die Ausrichtung / die Achsen eines TPSView (Views aus dem Annotation-Umfeld vder von Schnitten) ermitteln kann.

Das Objekt TPSView scheint ja, an der API leider keine weiteren Methoden zu besitzen. :-(

Benötigen tue ich das um dann davon ein View From 3D, im Drwaing, ableiten zu können.

Im CAA hat das Objekt diese Eigenschaften, ich weiß nur nicht, ob ich ne Chance habe im CATVBA da ran zu kommen:

o GetAssociativeState(CATBoolean*)
Retrieves the Associativity state, saved or Not.
o GetDisplayRatio(double*)
Retrieves DisplayRatio of the TPSView.
o GetDraftingView(CATIDftView**)
Retrieves the drafting view associated to the TPSView.
o GetMathPlane(CATMathPlane**)
Retrieves Plane on which this item lies on (The Plane of the annotation).
o GetSet(CATITPSSet**)
Retrieves tolerancing set the TPSView belongs too.
o GetTPSs(CATITPSList**)
Retrieves the TPS that are using this TPSView as support.
o GetTTRS(CATITTRSList**)
Retrieves a CATITTRSList to read a list of features upon which is applied the current specification.
o GetViewType(CATTPSViewType*)
Retrieves the type of the TPSView.
o IsActive(CATBoolean*)
Retrieves the view activity.
o SetAssociativeState(CATBoolean)
Sets the Associativity state, saved or Not.
o SetDisplayRatio(double)
Sets the DisplayRatio for the TPSView.
o SetTTRS(CATITTRSList*)
Sets the TTRS list associated to the Specification.

Die Achsen reichen mir schon.

------------------
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

---

Ich sehe grad, dass ich das Thema schon einmal beackert habe http://ww3.cad.de/foren/ubb/Forum137/HTML/002884.shtml  , allerdings ohne Ergebnis. :-(

Entschuldige mich daher für den Doppelpost, da Überschrift anders, aber bin auch weiterhin für jeden Denkanstoß dankbar.

------------------
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

---

Habe einen Workaround für das "View From 3D" Problem, welchen ich naürlich gern teile.
Löst das Problem, aber nicht die Grundfrage

Code:

---

Option Explicit

Public Sub CATMain()

    Dim arrVarOther(0)  As Variant
    Dim docDRWWork      As DRAFTINGITF.DrawingDocument
    Dim docPRTWork      As MECMOD.PartDocument
    Dim docsCATIA      As INFITF.Documents
    Dim objBuffer      As Object
    Dim selWork        As INFITF.Selection
    Dim sReturn        As String
    Dim sViewName      As String
    Dim tpsViewWork    As AnnotationTypeLib.TPSView
    Dim windowWork      As INFITF.SpecsAndGeomWindow
    Dim windowDRW      As INFITF.SpecsAndGeomWindow
   
    If Not CATIA.ActiveDocument Is Nothing Then
   
        If (TypeName(CATIA.ActiveDocument) = "PartDocument") Then
           
            Set windowWork = CATIA.ActiveWindow
            Set docPRTWork = CATIA.ActiveDocument
            Set selWork = docPRTWork.Selection
            Set objBuffer = selWork
           
            arrVarOther(0) = "TPSView"
            sReturn = objBuffer.SelectElement2(arrVarOther, "Select a TPSView", True)
           
            If (sReturn = "Normal") Then
           
                Set tpsViewWork = selWork.Item2(1).Value
                Set docsCATIA = CATIA.Documents
                Set docDRWWork = docsCATIA.Add("Drawing")
                docDRWWork.Standard = catISO
                Call CATIA.StartCommand("View From 3D")
                windowWork.Activate
                Call selWork.Clear
                sViewName = tpsViewWork.GetItem("ModelElement").DisplayName
                Call selWork.Search("CATTPSSearch.CATTPSView.Name=" & sViewName & ",all")
                'Call selWork.Add(tpsViewWork)
           
            End If

        Else
       
        End If

    Else
   
    End If
End Sub

---

------------------
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