|
CATIA V5 Programmierung : Wert der Streckgrenze ändern
CatiaV5User am 23.07.2007 um 09:16 Uhr (0)
Danke Marko für deinen Beitrag,nur bekomm ich in der ZeileSet dimension1 = parameters1.Item("PartBodySteelSAMIsotropicMaterial.1Yield Strength")den Fehler The method item failedVielleicht weiß ja jemand, woran es liegt!Grüße CatiaV5User
|
|
CATIA V5 Programmierung : Koordinaten von Achsensystemen aller Parts eines Produktes auslesen
CatiaV5User am 12.06.2007 um 14:26 Uhr (0)
Hallo Kollegen, ich brauche eure Hilfe!Ich möchte die Koordinaten der Achsensysteme aller Parts vom Hauptprodukt bezüglich des globalen Koordinatensystems auslesen. Folgendes habe ich mir dazu überlegt:Sub CATMain()Analysieren(CATIA.ActiveDocument.Product)End SubSub Analysieren (P As Product) Set oRefDoc = p.ReferenceProduct.Parent If TypeName(oRefDoc) = "PartDocument" Then Set part1 = oRefDoc.Part Dim axisSystems1 As AxisSystems Set axisSystems1 =part1.AxisSystems Dim axisSystem1 As AxisSystem Dim ...
|
|
CATIA V5 Programmierung : Drawing Component löschen
CatiaV5User am 02.07.2007 um 16:10 Uhr (0)
Hallo!Ich brauche eure Hilfe! Ich möchte in den Drawings die Stempel (2D Component) exploden. Dies ist mir auch soweit gelungen, nur sind die Stempel nach dem exploden noch vorhanden und lassen sich mit folgendem Makro nicht löschen. Dim MyView1 As DrawingView For y=3 to mysheet.views.count Set MyView1 = MySheet.Views.Item(y) Set drawingComponents1 = MyView1.Components For j=1 to drawingComponents1.count Set drawingComponent1 = drawingComponents1.Item(j) drawingComponent1.Explode ****drawingCompo ...
|
|
CATIA V5 Programmierung : Wert der Streckgrenze ändern
CatiaV5User am 25.07.2007 um 17:09 Uhr (0)
Hallo Lusilnie,danke für deine Bemühungen, allerdings hat das so auch nicht geklappt. Ich hab schon sämtliche Parameternamesvarianten durchprobiert, nix klappt. Weiß einfach nicht den richtigen Parameternamen.Im Anhang hab ich mal ein Screenshot von der Dateikarte mit dem Yield Strength. Vielleicht kann mir ja jemand meinen richtigen Parameternamen zum ändern der Streckgrenze sagen.Hier ist auch mein Script mit dem ich versuche die Steckgrenze zu ändern.Sub CATMain()Dim partDocument1 As PartDocumentSet par ...
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
