|
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 |
|
CATIA V5 Programmierung : Dokument aufrufen und zuweisen
bgrittmann am 08.02.2011 um 14:37 Uhr (0)
ServusSorry, ich hab dir den falschen Befehl genannt, es muss Open nicht NewFrom sein:Code:FileToOpen = "e:userspsrPartsThisIsANicePart.CATPart" Dim Doc As Document Set Doc = Documents.Open(FileToOpen)Documents ist die Collection (Sammlung) aller im Moment geöffneten Dokumente in CATIA.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dokument aufrufen und zuweisen
bgrittmann am 08.02.2011 um 14:55 Uhr (0)
ServusVersuch mal:Set Doc1 = CATIA.Documents.Open(FileToOpen)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bemaßungen auf vorhanden 2D Geometrie erzeugen
bgrittmann am 10.02.2011 um 12:32 Uhr (0)
ServusIch befürchte es ist mit CATIA Makros nicht möglioch 3D-Gemotrie zu vermaßen (die Forensuche und Doku bestätigen diese Befürchtung)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA V5 Makro Aufzeichnung
bgrittmann am 27.02.2011 um 22:39 Uhr (0)
ServusBeim groben überfliegen ist mir aufgefallen, dass du mit "on error resume next" die Fehlerbehandlung ausgeschaltet hast. AFAIK bleibt diese Einstellung auch in andern Subs erhalten. Somit hast du keine Möglichkeit dir Fehlermeldung anzeigen zulassen und darauf zu reagieren.Lösche mal diese Zeile und schau dir mögliche Fehler und derer Ursache an (zB mit dem Wachfenster bzw. das Makro Schrittweise abarbeiten)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Product als 3dxml Speichern
bgrittmann am 10.03.2011 um 11:39 Uhr (0)
ServusVersuch es mal über die Makroaufzeichnung. zB:Code:Sub CATMain()CATIA.ActiveDocument.ExportData "C: est.3dxml", "3dxml"End SubGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Überprüfungsmakro
bgrittmann am 11.03.2011 um 11:00 Uhr (0)
ServusVerwende einfach bodies.item statt bodies.getitem.Code:Sub CATMain() Dim partDocument1 As PartDocument Set partDocument1 = CATIA.ActiveDocument Dim part1 As Part Set part1 = partDocument1.Part Dim Bodies1 As Bodies Set Bodies1 = part1.Bodies on error resume next Dim Palaem1 As Body Set Palaem1 = part1.Bodies.Item("UDF_Scheibe.1") If err.Number 0 Then MsgBox ("Test funktioniert") Else MsgBox ("Palaem vorhanden") End If on error goto 0 End SubGrußBernd---------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bodies dumm in neues Startmodell kopieren
bgrittmann am 04.04.2011 um 10:11 Uhr (1)
ServusDas Problem in deinem Makro ist, dass es für jedes Dokument eine eigene Selection gibt. Zusätzlich muss beim Einfügen das Part Selektiert sein (AFAIK kann man mit Pastespecial einen Körper nicht direkt in einen Körper einfügen). Anbei ein (ungetestetes) Beispiel: Code:Language="VBSCRIPT"Sub CATMain()Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = partDocument1.Selectionselection1.ClearDim part1 As PartSet part1 = partDocument1.PartDim b ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : vba - Text in CATDrawingsTextfeld einfügen
bgrittmann am 08.04.2011 um 11:26 Uhr (0)
ServusIMHO musst du das Blatt und die Ansicht angeben wo der Text sind. Dann kannst du über Item auf das Textfeld greifen. zB:Dim Benennung As DrawingTextSet Benennung = CATIA.ActiveDocument.sheets.item(1).views.item(2).texts.item("Text.177")Benennung.Text = txtben1.TextOder über eine Selektion das Textfeld suchen:Dim drawingDocument1 As DrawingDocumentSet drawingDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = drawingDocument1.Selectionselection1.Search "(Name=Text.177 & CATDrwS ...
|
| In das Form CATIA V5 Programmierung wechseln |
