---

Unbenannt.JPG

Hallo,
Hat es jemand schon mal geschafft, auf die TPSView-Collection zuzugreifen?

Meine Frage ist:
Zum Beispiel gibt 2 TPSViews.Wie kann ich durch einen VBA-Makro ein TPSVeiw (FT&A Functional Tolerancing & Annotation) aktivieren.

Danke!

[Diese Nachricht wurde von Bobie am 12. Nov. 2009 editiert.]

[Diese Nachricht wurde von Bobie am 10. Dez. 2009 editiert.]

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

---

UP 

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

---

Versuchs mal mit der Watch-List oder mit der Objektauflösung im VBA-Editor.

grüße Dominik

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

---

Hallöchen
Ich hab das selbe Problem!

Ich suche jetzt schon seit ein paar Tagen eine Lösung.
Hab' aber im Objektkatalog auch nix g'funden??

Bitte was ist die "Watch-List"

Grüße JR

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

---

Watch-List gibt es im VBA-Editor.
(Kurz: Hiermit lassen sich die Variablen von CATIA beobachten)

Dazu bitte Forensuche benutzen.

grüße Dominik

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

---

Hi V5Playaz

Danke für Ihre Antwort.

Ich will es mal probieren.

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

---

Ich glaub ich hab's ... (kommt aus einem catvba-Form !!!)

da ist sicher viel zu viel für Euch drinnen (einige Attribute/VAriablen aus dem UserForm usw.)
aber ich bin zu faul, das jetzt zu löschen

Grüße aus Wien
JR

Private Sub submit_Click()
  Dim RC As Integer ' RC für DOF-Analyse
  Dim Sel As Object
  Dim Sel1 As Object
 
  Dim SelFeld(1), Sel1Feld(0), Status
 

    mtm_refpunkt.Hide
   
    ' RP-Properties im Namen
    Dim C_DOC As Document
    Set C_DOC = CATIA.ActiveDocument
    Set Sel = C_DOC.Selection
    Set Sel1 = C_DOC.Selection

    Set C_Part = C_DOC.Part
    Set HBody = C_Part.HybridBodies.Item("MTMGEO")
    Set C_HybS = HBody.HybridShapes
    Set C_HybSFact = C_Part.HybridShapeFactory
   
    sRefPt = mtm_refpunkt.Label4.Caption ' -- zb. RP01
    Set MyRefPt = C_HybS.Item(sRefPt)
   
    'der Name um die Attribute erweitert
    sRefPtNewName = sRefPt _
                  & " " _
                  & mtm_refpunkt.DofX.Text _
                  & mtm_refpunkt.DofY.Text _
                  & mtm_refpunkt.DofZ.Text _
                  & " " _
                  & mtm_refpunkt.xCoord.Caption _
                  & " " _
                  & mtm_refpunkt.yCoord.Caption _
                  & " " _
                  & mtm_refpunkt.zCoord.Caption _
                  & " " _
                  & mtm_refpunkt.AufnArtXa.Text _
                  & mtm_refpunkt.AufnArtXb.Text _
                  & ";" _
                  & mtm_refpunkt.AufnArtYa.Text _
                  & mtm_refpunkt.AufnArtYb.Text _
                  & ";" _
                  & mtm_refpunkt.AufnArtZa.Text _
                  & mtm_refpunkt.AufnArtZb.Text
    MyRefPt.Name = sRefPtNewName
       
    'flächenkugerl ...
    Set ref = C_Part.CreateReferenceFromObject(MyRefPt)
    Set flächenkugerl = C_HybSFact.AddNewSphere(ref, Nothing, 0.5, -90#, 90#, 0#, 360#)
    ' -- vollkugel
    flächenkugerl.Limitation = 1
    HBody.AppendHybridShape flächenkugerl
    flächenkugerl.Name = "Kug" & sRefPt '-- zb.KugRP01
   
    C_Part.InWorkObject = flächenkugerl
    C_Part.Update
   
    'annotation
    Dim MTMAnnoSets As AnnotationSets
    Dim MTMAnnoSet As AnnotationSet
    Dim MTMAnnoFact As AnnotationFactory
    Dim MTMAnno As Annotation
    Dim MTMAnnoViews As TPSViewFactory
   
   
    Dim MyAnnoView As TPSView
   
    Set MTMAnnoSets = C_Part.AnnotationSets
    Set MTMAnnoSet = MTMAnnoSets.Add("ISO_000_V5R18")
    Set MTMAnnoFact = MTMAnnoSet.AnnotationFactory
    Set MTMAnnoViews = MTMAnnoSet.TPSViewFactory
   
   
    '-- select plane/face for annoview
    RC = MsgBox("YES: Create New AnnotationView" & vbCrLf _
              & "No: Use existing View" & vbCrLf _
              & "(be sure,that this view is active" & vbCrLf _
              & "otherwise rightclick annotation to" & vbCrLf _
              & "Transfer to Annontaion View/Plane !!!)", vbQuestion + vbYesNo, "New Annotation View ?")
   
    If RC = vbYes Then
      Sel.Clear
      SelFeld(0) = "Face"
      SelFeld(1) = "Plane"
      Status = Sel.SelectElement2(SelFeld, "Select Face for AnnotationView", False)
      Set AnnoPlane = Sel.Item(1).Reference
      Set MyAnnoView = MTMAnnoViews.CreateView(AnnoPlane, 1) ' 1--> frontview
   
      Sel.Clear
    End If
   
    'now select the TPSView to create the annotation in it ...
    '---
    Sel1.Clear
    Sel1Feld(0) = "AnyObject"
    Status = Sel1.SelectElement2(Sel1Feld, "Select AnnotationView", False)
    CATIA.StartCommand ("Activate View")
    CATIA.RefreshDisplay = True
    Sel1.Clear
    '!!!!!!!!!!!!!!
     
    Set userSurfs = C_Part.UserSurfaces
    Set userSurf = userSurfs.Generate(ref)
 
    Set MTMAnno = MTMAnnoFact.CreateEvoluateText(userSurf, mtm_refpunkt.xCoord.Caption _
                                                        , mtm_refpunkt.yCoord.Caption _
                                                        , (mtm_refpunkt.zCoord.Caption), True) ' true --> leader
                                                       
    'MTMAnno.Text.Text = "-" & mtm_refpunkt.Label4.Caption ' -- zb. "-RP01"
    MTMAnno.Text.Text = mtm_refpunkt.Label4.Caption ' -- zb. "RP01" bei leader
    MTMAnno.Name = mtm_refpunkt.Label4.Caption
    Dim Txt As DrawingText
    Set Txt = MTMAnno.Text.Get2dAnnot
    Txt.AnchorPosition = 2 '--MiddleLeft
    Txt.ActivateFrame (catRectangle)
   
    Txt.Leaders.Item(1).HeadSymbol = catFilledCircle
   
    MTMAnno.ModifyVisu
   
    C_Part.Update

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

---

Super!

Tousend mal Danke!

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

---

Noch eine Frage zu TPSViews

Zum Beispiel habe ich 3 TPSViews mit Namen("Front View.1","Front View.2","Front View.3")

Wie kann ich durch einen Macro die drei Namen in MsgBox auslesen?

Ich habe so geschrieben, aber leider funktioniert es nicht.

Dim CurAnnotationSets As AnnotationSets
Dim CurAnnotationSet As AnnotationSet
Dim CurTPSViews As TPSViews
Dim CurTPSView As TPSView

Set CurAnnotationSets = CurPart.AnnotationSets
Set CurAnnotationSet = CurAnnotationSets.Item("Annotation Set.1")

Set CurTPSViews = CurAnnotationSet.TPSViews <--------------Fehlermeldung dazu!!!!!!!!!

Dim Count As Integer

Count = CurTPSViews.Count    

Dim ArrCurTPSViewName(Count)

for i = 1 to Count
ArrCurTPSViewName = CutTPSViews.Item(i)
msgbox(ArrCurTPSViewName )
next

In V5Automation gibt es keine Eingenschaft "Name"unter das Object "TPSVIEW"?

Unter das Object "AnnotationSet" gibt es auch keine Eigenschaft "TPSViews"

Ist es wahr? Man kann nicht die Namen durch Macro auslesen?
keine Schnittstelle dazu?

Danke

[Diese Nachricht wurde von Bobie am 20. Dez. 2009 editiert.]

[Diese Nachricht wurde von Bobie am 20. Dez. 2009 editiert.]

[Diese Nachricht wurde von Bobie am 20. Dez. 2009 editiert.]

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

---

Hallo,

Schon mal geprüft wieviele AnnotationSets vorhanden sind?
(mit CurAnnotationSets.Count)

Kann es sein das, dass Item("Annotation Set.1") nicht gefunden wird?

grüße Dominik

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

---

Zitat:

---

Original erstellt von V5Playaz:
Hallo,

Schon mal geprüft wieviele AnnotationSets vorhanden sind?
(mit CurAnnotationSets.Count)

Kann es sein das, dass Item("Annotation Set.1") nicht gefunden wird?

grüße Dominik

---

Mit msgbox bekomme ich count = 1

Item("Annotation Set.1") ist auch richtig und vorhanden.....

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