|
CATIA V5 Programmierung : Reframe On mit etwas mehr Abstand
Trilemma am 07.06.2016 um 11:01 Uhr (1)
Moin,gerade mit dem Makro-Rekorder aufgezeichnet.Code:Sub CATMain()Dim specsAndGeomWindow1 As WindowSet specsAndGeomWindow1 = CATIA.ActiveWindowDim viewer3D1 As ViewerSet viewer3D1 = specsAndGeomWindow1.ActiveViewerviewer3D1.ZoomOut Dim viewpoint3D1 As Viewpoint3DSet viewpoint3D1 = viewer3D1.Viewpoint3DEnd Subprobier mal den Code in Deinen einzubasteln.GrußPeter
|
| In das Form CATIA V5 Programmierung wechseln |
Ordnerinhalt.zip |
CATIA V5 Programmierung : Schriftarten auflisten
Trilemma am 22.10.2015 um 12:00 Uhr (1)
Hallo,Windows und Catia haben einen bestimmten Ordner für Schriftarten z.B.:C:Program FilesDassaultSystemesB19win_b64
esourcesfontsExtraFilesTrueTypeC:WindowsFontsmit der kleinen Anwendung im Anhang kannst du den Ordnerinhalt in dem Fenster auflistenund als Textdatei abspeichern.GrußPeter
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Zeichnung Text einfügen nach bzw. vor
Trilemma am 19.09.2016 um 10:36 Uhr (15)
Moin,gibt es schonCode:Sub CATMain()Dim drawingDocument1 As DrawingDocumentSet drawingDocument1 = CATIA.ActiveDocumentSet oSelection = CATIA.ActiveDocument.SelectionDim InputObjectType(0)InputObjectType(0) = "AnyObject"Status = oSelection.SelectElement2(InputObjectType, "Wählen Sie die Bemaßung aus", False)If (Status "Normal") Then MsgBox "Abbruch" Exit SubElseSet dimension1 = oSelection.Item(1).ValueSet DrawingDimValue1 = dimension1.GetValueDrawingDimValue1.SetBaultText 1, "(", ")", "", ""End Ifo ...
|
| In das Form CATIA V5 Programmierung wechseln |
Strukturbaum.exe.txt |
CATIA V5 Programmierung : Drawing: alle Blätter zuklappen
Trilemma am 10.12.2012 um 14:43 Uhr (0)
@ Uwekein problem@ Genadas Catscript kannst du in deine Symbolleisten einbinden.In dem Catscript steht eine Pfadangbe, in der die exe liegen muss.entweder Pfad oder Pfadangabe anpassen.Gruß Peterfür die englischen Freunde von Catia muss im script natürlich "tree" stehen[Diese Nachricht wurde von Trilemma am 10. Dez. 2012 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : definierte Benennung für Kongruenz
Trilemma am 15.11.2013 um 12:58 Uhr (1)
Hallo Bernd,danke füe Deine Antwort,hat mir sehr weitergeholfen.Code:Sub CATMain()Dim productDocument1 As DocumentSet productDocument1 = CATIA.ActiveDocumentDim product1 As ProductSet product1 = productDocument1.ProductDim constraints1 As CollectionSet constraints1 = product1.Connections("CATIAConstraints")Dim reference1 As ReferenceSet reference1 = product1.CreateReferenceFromName("Product2/Part7.1/!Absolutes Achsensystem")Dim reference2 As ReferenceSet reference2 = product1.CreateReferenceFromName("Produ ...
|
| In das Form CATIA V5 Programmierung wechseln |
In_neuem_Fenster_oeffnen.exe.txt |
CATIA V5 Programmierung : Dokumente in Struktur öffnen
Trilemma am 26.03.2014 um 15:00 Uhr (1)
Hätte ich vorher erwähnen sollen:Ich benutze Visual Basic 2010 Express.Anbei die exe (.txt entfernen) und Code:Code:Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim CATIA Dim Doc CATIA = GetObject(, "CATIA.application") Doc = CATIA.ActiveDocument CATIA.StartCommand("Open in New Window") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Di ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia V5-Tabelle nach Excel exportieren
Trilemma am 28.03.2014 um 10:04 Uhr (1)
Hallo zusammen,hat hierzu irgendjemand eine Idee?GrußPeter
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia V5-Tabelle nach Excel exportieren
Trilemma am 28.03.2014 um 12:38 Uhr (1)
Hallo Bernd,natürlich die in der Zeichnung.Wenn ich mich nicht irre, ist die Design Table schon Excel.GrußPeter
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia V5-Tabelle nach Excel exportieren
Trilemma am 28.03.2014 um 14:33 Uhr (15)
Hallo DasDon,vielen Dank, hat mir sehr weitergeholfen.Ich hab Deinen Code noch ins VB 2010 Express übernommenund ein Kollege hat noch ein paar Anpassungen vorgenommen:Code:Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim CATIA Dim Doc Dim outFile Dim outStream Dim STATUS Dim rowSize Dim columnSize Dim tmp_output CATIA = GetObject(, "CATIA.application") Doc = CATIA.ActiveDocument outFile = CAT ...
|
| In das Form CATIA V5 Programmierung wechseln |
