|
CATIA V5 Programmierung : Catia-Makro Fehlermeldung
bgrittmann am 17.06.2014 um 12:10 Uhr (1)
ServusSchau mal hier.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Join enthält leere Sketche
bgrittmann am 17.06.2014 um 14:19 Uhr (1)
ServusDu könntest die Anzahl der GeometricElements in der Skizze auswerten:Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBodySet hybridBody1 = hybridBodies1.Item(1)Dim sketches1 As SketchesSet sketches1 = hybridBody1.HybridSketchesDim sketch1 As SketchSet sketch1 = sketches1.Item(1)MsgBox sketch1.GeometricElements.CountEn ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : C#, Abmessungen, etc auslesen
bgrittmann am 22.12.2010 um 19:28 Uhr (0)
ServusWillkommen im Forum.Für einen Anfänger kann ich dir das Buch (gibt es vielleicht in der Bibliothek) "Kochbuch CATIA V5 automatisieren empfehlen. In diesem wird der Aufbau und die Funktion der Makros beschrieben.Weiter Beispiele findest du sicher hier im Forum.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Verdecken/Anzeigen auf einen bestimmten Koerper anwenden
bgrittmann am 17.01.2011 um 09:23 Uhr (0)
ServusVersuch es mal so:Code:Language="CATScript"Sub CATMain()If CATIA.Windows.Count = 0 Then Exit SubEnd IfSet PartDocument = CATIA.ActiveDocumentIf TypeName(PartDocument) "PartDocument" Then Exit SubEnd IfDim oSel As SelectionSet oSel = PartDocument.SelectionSuche startenoSel.Search "(Name=RESULT & CATPrtSearch.BodyFeature),all"If oSel.Count = 0 Then Exit SubEnd IfSet VisProterty = oSel.VisPropertiesVisProterty.GetShow StatusIf Status = 1 Then oSel.VisProperties.SetShow 0Else oSel.VisProperties.Set ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Isometrische Ansicht aufrufen
bgrittmann am 20.01.2011 um 23:35 Uhr (1)
ServusDas Geheimnis scheint das Arbeiten mit Cameras zu sein (siehe auch Doku)Code:Sub CATMain()Dim ThatCamera As CameraSet ThatCamera = CATIA.ActiveDocument.Cameras.Item("* iso")CATIA.ActiveWindow.ActiveViewer.Viewpoint3D = ThatCamera.Viewpoint3DEnd SubRichtet im 3DViewer als Isometrische Ansicht aus.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bild in Excel einfügen über CATIA Makro
bgrittmann am 28.01.2011 um 13:08 Uhr (0)
Servusda du von Excel aus arbeitest musst du CATIA als Application definieren. zBCode:dim CATIASet CATIA = CreateObject("Catia.application")GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bild in Excel einfügen über CATIA Makro
bgrittmann am 28.01.2011 um 19:13 Uhr (0)
ServusAFAIR kann man mit CaptureToFile keine Bilder im Pixelmodus erstellen.Workaround: Strukturbaum ausblenden, Hintergrundfarbe ändern, Bild erstellen, Baum wieder einblenden und Hintergrundfarbe zurückändern (siehe Forensuche)Ggf kannst du auch ein Bild direkt mit SaveAs erstellenGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Drawing Name
bgrittmann am 02.02.2011 um 10:35 Uhr (0)
ServusSollte über den Titel des Fensters gehen:Code:Sub Test()Dim oWindow As WindowSet oWindow = CATIA.ActiveWindowMsgBox (oWindow.Caption)End SubDen String musst du eventuell noch "nacharbeiten" ("Rolle1..." abschneiden).GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : FileSearchOrder
bgrittmann am 02.02.2011 um 12:29 Uhr (0)
ServusLegt der Befehl FileSearchOrder nicht fest, wo CATIA standardmäßig nach Dateien sucht? (so steht es zumindest in der Doku)Wie kann man da nach Dateien suchen?GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter auslesen
bgrittmann am 03.02.2011 um 22:59 Uhr (0)
ServusDu durchsuchst mit deinem Script die Dokumenten-Collection. Stattdessen solltest du die Einträge im Strukturbaum abarbeiten (CATIA.ActiveDocument.Product.Products)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter auslesen
bgrittmann am 04.02.2011 um 08:05 Uhr (0)
ServusVersuch es mal mit dem Codeschnippsel:Code:vorheriger CodeobjXL.Visible = TrueBerechnungm = 12 Zeile in Exeli = 0p = 0Dim productDocument1 As ProductDocumentSet productDocument1 = CATIA.ActiveDocumentDim products1 As ProductsSet products1 = productDocument1.Product.ProductsFor i = 1 To products1.Count Dim oPorduct As Product Set oProduct = products1.Item(i) If TypeName(oProduct.ReferenceProduct.Parent) = PartDocument Then oobjXL.Cells(m, "a").Value = Product.Parameters.Item("Position").Value ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : in Catia Makro Range für Excel definieren
bgrittmann am 04.02.2011 um 12:42 Uhr (0)
ServusDu solltest sauber die Objekte Deklarieren und Instanzieren. Also zB (ungetestet) auch das WorkSheet:Code:Dim oWorkSheet as WorksheetSet oWorksheet = oAWBook.Sheets.item(1)oWorksheet.Range("A1:B4").Select...Wundern mich sowieso dass dein Makro läuft. Wenn du Zellen direkt über die Anwendung ansprichst (objXL.Cells(m, "a")) und nicht über die Mappe. (siehe auch Anleitungen auf www.online-excel.de)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selection-Class als LateBinding aus Visual Basic
bgrittmann am 04.02.2011 um 16:55 Uhr (0)
ServusAFAIK ist die Selection immer dem Dokument zu geordnet.Versuch es mal mit:Liste = CATIA.ActiveDocument.SelectionGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.[Diese Nachricht wurde von bgrittmann am 04. Feb. 2011 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
