|
CATIA V5 Programmierung : Etwas für Profis -> übliche Rekursion über Strukturbaum funktioniert nicht!
bgrittmann am 28.11.2013 um 14:26 Uhr (1)
Servuszum Messen: siehe SPAWorkbench in Doku und Forensuche.Punkte einer Linie automatisch messen: musst du wohl programmieren (siehe auch hier)Was willst du bei Flächen messen?GrußBerndPS: Hast du schon Erfahrung in VBA und schon mal ein Buch zu CATIA Makroprogrammierung gelesen?------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schleife für Dxf-Umwandlung inkl. Farb- und Layer-änderung
bgrittmann am 29.11.2013 um 06:42 Uhr (1)
ServusWillkommen im Forum.Bei grob drüber lesen hab ich keinen Fehler gesehen.Was geht beim Makro und was geht nicht?Werden die Drawings nacheinander geöffnet?Werden die dxf erstellt?Werden die Layer geändert (ggf zum Text vor "oActiveDoc.Close" ein "Exit Sub" einfügen und in CATIA schauen ob die Layer angepasst wurden)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schleife für Dxf-Umwandlung inkl. Farb- und Layer-änderung
imation1999 am 29.11.2013 um 07:15 Uhr (1)
Hallo,lass mal selection2 weg. Einfach mit selection1 weterarbeiten.Code:......Dim selection1 As SelectionSet selection1 = Document.SelectionFor i = 1 To oFolder.Files.Count Set oFile = oFolder.Files.Item(i) If Right(oFile.Name, 10) = "CATDrawing" Then Name = Left(oFile.Name, Len(oFile.Name) - 11) Datei = Pfad + Name + ".CATDrawing" F = F + 1 Set oActiveDoc = CATIA.Documents.Open(Datei) Set Document = CATIA.ActiveDocumentselection1.Search "Weight=0,2mm,all"Selection1.VisProperties.SetLay ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Etwas für Profis -> übliche Rekursion über Strukturbaum funktioniert nicht!
Antelito am 29.11.2013 um 08:25 Uhr (1)
Hallo,ja, etwas Erfahrung habe ich schon. Die bisherigen Makros zum Auslesen der Punkte habe ich selbst mit Hilfe des Buches von Ziethen "Catia V5 Makroprogrammierung" und Hansen "CATIA V5 automatisieren" sowie google/cad.de geschrieben. Doch bisher beschränkten sich die Makros auf das Auslesen von Schweisspunkten. Ich würde gerne wissen, wie mächtig VBA zum automatisieren von Catia tatsächlich ist. Ich habe in der Vergangenheit viel mit VBA in den Microsoft Office-Produkten programmiert und weiss daher, d ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Etwas für Profis -> übliche Rekursion über Strukturbaum funktioniert nicht!
bgrittmann am 29.11.2013 um 08:49 Uhr (1)
ServusIn CATIA kannst du auch sehr viel mit VBA machen (siehe Doku "V5Automation"), aber leider nicht alles.Dann muss man sich zB. mit StartCommands (oder VB.net und Windows-API) behelfen.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Hinterlegte Materialien aus der Struktur löschen.
MrLimes am 29.11.2013 um 09:49 Uhr (1)
Hallo zusammen,ich grübel gerade an einem kleinen Tool, welches mir die Materialien auseiner Baugruppe (ca. 2000 Products) löschen soll. Mein bisheriger Code funktioniertzwar, aber braucht leider sehr lange für die Baugruppe. Kennt jemand eine Möglichkeitden Code zu beschleunigen oder aber vielleicht ein effizienteres Vorgehen beim Löschender Materialien.Vielen Dank vorab. Code:Sub delete()Set osel = CATIA.ActiveDocument.Selectionosel.Search "(CATProductSearch.MatMaterialType),all"Dim mColBody As New Coll ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schleife für Dxf-Umwandlung inkl. Farb- und Layer-änderung
imation1999 am 29.11.2013 um 17:00 Uhr (1)
Achso thja, mein Fehler!Versuch mal so...Code:......Dim selection1 As SelectionFor i = 1 To oFolder.Files.Count Set oFile = oFolder.Files.Item(i) If Right(oFile.Name, 10) = "CATDrawing" Then Name = Left(oFile.Name, Len(oFile.Name) - 11) Datei = Pfad + Name + ".CATDrawing" F = F + 1 Set oActiveDoc = CATIA.Documents.Open(Datei) Set Document = CATIA.ActiveDocument Set selection1 = Document.Selectionselection1.Search "Weight=0,2mm,all"Selection1.VisProperties.SetLayer catVisLayerBasic, 1s ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schleife für Dxf-Umwandlung inkl. Farb- und Layer-änderung
imation1999 am 29.11.2013 um 18:09 Uhr (1)
Hast Du schon die CATIA-SETTINGS gelöscht?
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schleife für Dxf-Umwandlung inkl. Farb- und Layer-änderung
inx am 29.11.2013 um 21:22 Uhr (1)
Sry aber ich steig einfach nicht durch.Hab mal was probiert und zwar mit folgenden Code:Sub CATMain()CATIA.Documents.Open ("C:xyz.catdrawing")Set Document = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = Document.Selectionselection1.Search "Weight=0,2mm,all"End SubWenn ich das ausführe wird nur die Zeichnung geöffnet, mehr nicht. Wenn ich dann CATIA.Documents.Open auskommentiere (ich lass die Zeichnung geöffnet) und das Script nochmal starte, führt es die Selection aus. OoDas raff ich einf ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schleife für Dxf-Umwandlung inkl. Farb- und Layer-änderung
inx am 02.12.2013 um 08:24 Uhr (1)
Ich arbeite CATScript.Also ich hab zuletzt mit der Makroaufzeichnung die einfachsten Schritte aufgezeichnet und probiert:Sub CATMain()CATIA.Documents.Open ("C:xyz.catdrawing")Set Document = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = Document.Selectionselection1.Search "Weight=0,2mm,all"End SubWenn ich ihn ausführe, wird die Zeichnung zwar geöffnet aber nichts selektiert. Und da liegt meines erachtens nach auch der Hund für den komplexeren Code begraben. Öffnen und in dxf umwandeln geht ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schleife für Dxf-Umwandlung inkl. Farb- und Layer-änderung
bgrittmann am 02.12.2013 um 09:26 Uhr (1)
ServusBei mir läuft dieser Code auch bei einer recht großen Zeichnung ohne eine Warteschleife:Code:Sub CATMain()Dim Document As DocumentDim selection1 As SelectionSet Document = CATIA.Documents.Open("C:TestDrawing.catdrawing")Set selection1 = Document.Selectionselection1.Search "Weight=0,5mm,all"End SubGrußBerndPS: Ich hab im Code die selektierte Linienstärke verändert.------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PowerCopy aus einem Catalog per VB6 starten
Sven Iffert am 02.12.2013 um 10:33 Uhr (1)
Hallo Leute,auch ich habe keine KT1-Lizens und versuche mein Makro CATIA.StartCommand "Instantiate From Document" ausführen zu lassen.Vorher erstellt das Makro bereits die Inputgeometrien.Endet das Makro nach CATIA.StartCommand "Instantiate From Document", kann ich erfolgreich den Pfad auswählen und die Powercopy wird eingefügt.Wenn man nun nach CATIA.StartCommand "Instantiate From Document" im Skript, beispielsweise, eine einfache Messagebox einfügt, so bleibt das Auswahlfenster für den Pfad leer und die ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Hinterlegte Materialien aus der Struktur löschen.
bgrittmann am 02.12.2013 um 12:50 Uhr (1)
ServusVersuch es mal so:Code:Sub delete()Dim osel As ObjectSet osel = CATIA.ActiveDocument.Selectionosel.Search "(CATProductSearch.MatMaterialType),all"osel.deleteEnd SubGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
