|
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 |
|
CATIA V5 Programmierung : Selektion von Einzelteilen innerhalb eines Merged CGRs
bgrittmann am 08.04.2011 um 15:17 Uhr (0)
ServusDie Einzelnen "Unter-Cgr" kannst du über (alles im Bildschirm sichtbare, ggf vorher "alles einpassen"):Code:Dim productDocument1 As ProductDocumentSet productDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = productDocument1.Selectionselection1.Search "Type=*,scr"selektieren.Zum Messen von Masse, Trägheit,... hilft vielleicht diese Seite weiterGrußBerndPS: Willkommen im Forum.------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selektion von Einzelteilen innerhalb eines Merged CGRs
bgrittmann am 08.04.2011 um 16:33 Uhr (0)
ServusWas meinst du mit "Selection Trap" (ich verwende CATIA auf deutsch)?By the Way: Wie ermittelst du die Masse, Trägheit nur auf selektiert Elemente (also per Script)?GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : 2.Blatt von einer CATDrawing in ein anderes CATDrawing im Background einfügen
bgrittmann am 12.04.2011 um 13:40 Uhr (0)
ServusVersch es mal Copy&Paste.Anbei der Mitschnitt des Makrorecorders:Code:Sub CATMain()Dim drawingDocument1 As DrawingDocumentSet drawingDocument1 = CATIA.ActiveDocumentSet drawingDocument1 = CATIA.ActiveDocumentDim selection2 As SelectionSet selection2 = drawingDocument1.Selectionselection2.ClearDim drawingSheets1 As DrawingSheetsSet drawingSheets1 = drawingDocument1.SheetsDim drawingSheet1 As DrawingSheetSet drawingSheet1 = drawingSheets1.Item("Blatt .1")Dim drawingViews1 As DrawingViewsSet drawingView ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA V5 Makroprogrammierung erlernen
bgrittmann am 13.04.2011 um 18:54 Uhr (0)
ServusIMHO eignet sich dein erwähntes Buch eher als Nachschlagewerk. Für einen Neuling würde ich (gg auch zusätzlich zum anderen Buch) das Kochbuch - CATIA V5 automatisieren empfehlenGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter Auslesen läuft sehr langsam
bgrittmann am 15.04.2011 um 15:30 Uhr (0)
ServusMit einer Abfrage nach "renamed" kannst du die umbenannten Parameter "ausfiltern" (leider nicht in der Suche):Code: ***Performanceerhöhung der Suche CATIA.HSOSynchronized = False ***Parameter suchen objSel.Search "Knowledgeware.Parameter.Name !=Origin*" CATIA.HSOSynchronized = True For intI = 1 To objSel.Count Parameter umbenannt? if objSel.Item(intI).Value.renamed = true then ***Parameternamen eintragen objExcel.Cells(5 + intI, 1).Value = objSel.Item(intI).Value.Name ***Werte ein ...
|
| In das Form CATIA V5 Programmierung wechseln |
