---

Hi! Das Parameter wird nicht einlesen. Wenn ich von ein Zeichnung zu mein Teil referenziere

Dim Params as Parameters
Set Params = ProductDrawn.Parameters

Set Para = Params.Item ("Erstelle")

MsgBox (Para.ValueAsString)

[Diese Nachricht wurde von panchito am 22. Apr. 2015 editiert.]

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

---

Servus
Und wo ist der Parameter im Baum? (ggf Bild posten)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

param.png

Das parameter ist unter die Ebenen wie auf die Zeichnung

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

---

Servus
Wie jetzt Part oder Zeichnung?
Wie sieht dein Code au?
mal in die Doku geschaut (V5Autimation.chm)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Also das parameter liegt im Part aber mein aktiv Dokument ist ein zeichnung
Ganzen Code:

Sub CATMain()

For i = 1 To CATIA.Documents.Count

Dim oDocument As Document
Dim ProductDrawn As Product

If CATIA.Documents.Count = 0 Then
    Exit Sub
End If
Set oDocument = CATIA.ActiveDocument

If TypeName(oDocument) = "PartDocument" Then
    PartDoc
    If ErrorReturn = 1 Then
        Exit Sub
    End If
    Set oDocument = CATIA.ActiveDocument
   
End If

If CATIA.Documents.Count = 0 Then
    Exit Sub
End If
Set oDocument = CATIA.ActiveDocument
If TypeName(oDocument) = "ProductDocument" Then
    ProductDoc
    If ErrorReturn = 1 Then
       Exit Sub
    End If
    Set oDocument = CATIA.ActiveDocument
End If

If CATIA.Documents.Count = 0 Then
    Exit Sub
End If

Set oDocument = CATIA.ActiveDocument
If TypeName(oDocument) = "DrawingDocument" Then

Dim oDrwDocument As Document
Set oDrwDocument = CATIA.ActiveDocument
Dim oDrwSheets As DrawingSheets
Set oDrwSheets = oDrwDocument.Sheets
Dim oDrwSheet As DrawingSheet
oDrwDocument.Sheets.Item(1).Activate
Set oDrwSheet = oDrwSheets.ActiveSheet
Dim oViews As DrawingViews
Set oViews = oDrwSheet.Views
Dim oView As DrawingView
Set oView = oViews.ActiveView
oView.Activate

If oDrwSheets.Parent.Path = "" Then
  Mldg_1 = "Die aktive Zeichnung hat keine externen Refenzen"
  Mldg_2 = "Bitte schließen Sie alle Zeichnung die nicht auf CATParts oder CATProduct verlinkt sind und starten Sie das Makro erneut"
  Mldg_3 = "Das Makro wird nun beendet!"
  Stil = vbOKOnly + vbCritical
  Titel = "Abbruch"

  Exit Sub
End If

Set ProductDrawn = oDrwSheet.Views.Item(3).GenerativeBehavior.Document
oPath = ProductDrawn.Parent.FullName
oName = ProductDrawn.Parent.Name
On Error Resume Next

Revision1 = ProductDrawn.ReferenceProduct.UserRefProperties.Item("Revision").ValueAsString
ZeichNr = ProductDrawn.ReferenceProduct.UserRefProperties.Item("Zeichnungsnummer").ValueAsString
Werkstoff1 = ProductDrawn.ReferenceProduct.UserRefProperties.Item("Werkstoff").ValueAsString
Halbzeug1 = ProductDrawn.ReferenceProduct.UserRefProperties.Item("Halbzeug").ValueAsString
Abteilung1 = ProductDrawn.ReferenceProduct.UserRefProperties.Item("Name_VA").ValueAsString
Dim Params as Parameters
Set Params = ProductDrawn.Parameters

Set Para = Params.Item ("Erstelle")

MsgBox (Para.ValueAsString)

    

Set oInertia = ProductDrawn.GetTechnologicalObject("Inertia")
dMass = oInertia.Mass
Mass=Round(dMass, 3)

End Sub

Sub Zeichnung()

End Sub

[Diese Nachricht wurde von panchito am 22. Apr. 2015 editiert.]

[Diese Nachricht wurde von panchito am 22. Apr. 2015 editiert.]

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

---

Ist was flasches da?

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

---

Vielleicht verwirrt sich zwischen die Parametern in Eigenschaften und parametern im Modelbaum, kann das sein?

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

---

Ola Panchito!

kleiner Vorschlag von mir:

Installier erst die VBA-Umgebung.
Danach misten wir den Code mal aus, d.h. vereinfachen ihn.
Das Beispiel ist leider nicht gut programmiert.

Bitte melde Dich, wenn VBA funktioniert.

Tschau,
Joe

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

---

Ich habe visual Studio 2010 auf meinem Rechner. Geht das?

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

---

Ach so nein, Visual Basic geht auch nicht. Ich frage an Administration. Danke sehr

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