|
CATIA V5 Programmierung : fragen zu macros programmierung an CATDrawings!?
Steffen Hohmann am 28.07.2003 um 08:46 Uhr (0)
Hallo giovane, hier das Makro für Deine Anforderung. Sub CATMain() Dim oFileSystem As INFITF.FileSystem Set oFileSystem = CATIA.FileSystem Dim oFolder As INFITF.Folder Verzeichnisname für CATIA-Zeichnungen Set oFolder = oFileSystem.GetFolder( C:Tempa ) Dim FileSep As String FileSep = oFileSystem.FileSeparator Dim i As Long Dim j as Variant Dim oFile As INFITF.File Dim oActiveDoc As DrawingDocument Dim BackView As DrawingView Dim oText As DrawingText ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selection-Class als LateBinding aus Visual Basic
cl10b am 23.02.2011 um 09:44 Uhr (0)
Hi Schnix,Early Binding für Selections löse ich in VB2008 wie folgt:1) Projekt/Verweis hinzufügen/COM/CATIA V5 InfInterfaces Object Library2) Im entsprechenden Form "ganz oben" Imports INFITF einfügen3) In der entsprechenden SUB: 3.1) CATIA = GetObject(, "CATIA.Application") 3.2)DIM Liste As Selection (durch das Early Binding kennt er nun diese Klasse) 3.3)Liste = CATIA.ActiveDocument.Selection (EDIT:hatte ich vergessen und jetzt noch nachgetragen)jetzt beliebig die Liste bearbeiten, z.B.:Liste ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Intersection automatisch erkennen
DanielFr. am 27.06.2012 um 16:04 Uhr (0)
Hallo,du könntest mit Hilfe einer Reaction ein Ereignis beim Update des Parts auslösen. In einem VB-Code kannst du dann eine explizite Fehlerauswertung machen (z.B.: On error Resume next; If Err.Number = ???, etc.)Löst das Part beim Update einen Fehler aus kannst du diesen eingrenzen. Ist der Fehler auf die Intersection zurückzuführen kannst du das Fillet aktivieren / deaktivieren und das Update im Script nochmal neu anstoßen HTH ------------------MFG DanielSysteminformation | Inoffizielle CATIA Hilfesei ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Achsensysteme in einem GeometricalSet
Jens Hansen am 13.03.2014 um 14:44 Uhr (1)
Hallo,eigentlich ganz einfach wenn man das geoSet kennt:- Das GeoSet in eine SAelection packen (mit .add)- dann die Suche ausführen (selection1.Search ("CATPrtSearch.AxisSystem.Name=" & "Name_oder_Stern_*" & ",sel")- in einer Schleife kann dann auf jedes Achsensystem zugefriffen werden. Am besten dafür aber eine Collection bzw. Array erstellen und dort die Achsensystem "parken". Dann kann man die Selection leeren.for i = 1 to selection1.count Set axis1 = selection1.Item(i).valuenextselection1.clearSGJens-- ...
|
| 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 |
|
CATIA V5 Programmierung : Macros
Kai Knospe am 14.11.2008 um 22:03 Uhr (0)
Moin,soweit ich das recht verstehe ist folgendes als "Lösung" tragbar...dank der Tatsache dass V5 als Projektionsebene (ähnlich wie beim sketcher) keine wirkliche Ebene verwaltet (oder uns vbslern zur Verfügung stellt) ;-)Code:Sub CATMain() Set oDocument3D = CATIA.ActiveDocument Set oProduct3D = oDocument3D.Product Set oDrawingDocument = CATIA.Documents.Add("Drawing") Set oSheet = oDrawingDocument.Sheets.Item(1) oSheet.PaperSize = catPaperA0 Set oView = oSheet.Views.Add("GeneratedView") Set oGenerativeBeha ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : exe starten
Uwe Hoffmann am 10.04.2008 um 07:23 Uhr (0)
Hallo Leute,ich habe mir eine Symbolleiste definiert und dort ein CATScript hinterlegt. In diesem Script starte ich mit dem Befehl CATIA.SystemService.ExecuteProcessus("Pfad zur exe") eine exe-File. Das funktioniert auch wunderbar, das Fenster wird geöffnet und erscheint im Vordergrund. Das Problem ist jetzt folgendes: Wenn ich das exe-File minimiere, sehe ich in der Größe des Fensters eine weiße Fläche. Das exe-File habe ich mit Delphi 7 programmiert. Hat jemand eine Idee wie die weiße Fläche verschwindet ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Was ist die MasterShape?
tomtom1972 am 10.10.2008 um 05:40 Uhr (0)
Hallo logan,ich vermute mal euer EDM System erzeugt "physikalische" cgr-Dateien, also echte files, wie du sie in CATIA mit SaveAs erstellst.CATIA erzeugt (bei Einstellung CACHE-Modus in den ToolsOptions, und nur dann) temopäre cgrs im CACHE (z.B. Test.CATPart.2008-08-11-13.04.04.cgr), sofern die Modelle im VisMode geladen sind. Beim Laden des Modells wird der Zeitstempel des cgrs im CACHE mit dem Zeitstempel des "echten" CATParts verglichen. Sofern das CATPart nicht neueren Datums ist (also seit dem letzte ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : array.add
DanielFr. am 13.08.2010 um 12:59 Uhr (0)
Hallo,kannst du das Problem etwas konkretisieren? Also willst du auf dem Array Item 1 (also oArraySUB(1)) die Strings einfach anhängen oder willst du das Array einfach erweitern? Wenn ja muss das Array dynamisch erweitert werden?Code:Dim M1, M2, M3Dim oArray()M1 = "Das"M2 = "ist"M3 = "schön"Redim oArray(2)oArray(0) = M1 oArray(1) = M2oArray(2) = M3Anmerkung: Wenn du mit VBA arbeitet dann nehme doch eine Collection her. Hier gibt es die Methode .add.------------------MFG DanielSysteminformation | Inoffiziel ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : V6-Programmierung
max-300 am 23.06.2014 um 15:47 Uhr (1)
Hallo Rick,das war u.a. auch einer der Gründe meiner Frage für das richtige Forum.Die Umgebungen (z.B. integrierte VBA-Umgebung) selbst unterscheidet sich nur wenig, jedoch ist ist die gesamte Objektarchitektur (zumindest das meiste) geändert worden.Wenn man z.B. in Catia V5 mit wenigen Codezeilen ein pdf exportieren konnte, so ist das in V6 im Prinzip nicht mehr möglich.Grund hierfür ist u.a. auch die Integration der PLM-Datenbank EnoviaDer Hauptunterschied liegt also im Datenmodel, welches vom dokumenten ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro-Fehler 1002
xyon126 am 26.06.2012 um 22:45 Uhr (0)
Hallo Freunde! Ich habe ein Problem. Ich möchte die Stücke eines Produkts am Ende der .0001 der erste, .0002 Name des Baumes, usw, usw. Anzahl aber ich bekomme Fehler 1002 in Zeile 44. Können Sie helfen Bitte und um Vergebung für mein Deutsch.GrußCode:Sub CATMain() Crear objeto, Documento. Dim tmpDoc As Document Dim index as Integer Dim numero As String index = 1000 numero = ".000" Seleccionar todos los documentos abiertos. For Each tmpDoc In CATIA.Documents Modificar solo Parts y Products ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro unter R19 bugt...
Lusilnie am 24.02.2009 um 21:24 Uhr (0)
Hallo Pausenbrot,der Lösungshinweis ist doch eindeutig: Zitat: Hallo Jules,1. eine DOS-Box aufmachen (Start - Ausführen - "cmd")2. in das Installationsverzeichnis von CATIA wechseln (...DassaultSystemesB14intel_acodein)3. cnext /unregserver4. cnext /regserverGrußSteffenDu musst (nur?) die "Registrierung" von CATIA auf die höchste Version ändern, dann sollte es gehen! Allerdings hatte ich das Problem noch nicht in dieser Konfiguration und kann Dir daher nicht sagen, ob dies wirklich hilft!mfg,Lusilnie----- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia VBA Achsenkreuz erstellen
Azazel1 am 27.08.2015 um 13:53 Uhr (1)
Hallo zusammen,ich versuche anhand einer Exceldatei meine Achsenkreuze in Catia zu importieren. Ich habe mir dementsprechend vorerst ein Makro aufgenommen und Achsenkreuz erstellt um zu verstehen wie ein solches erstellt wird. Das ganze dann nach Excel zu importieren wird das geringste Problem.Hier der Code:Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet axisSystems1 = part1.AxisSystemsSet axisSystem1 = axisSystems1.Add()axisSystem1.OriginType = catAxisSystemOriginByC ...
|
| In das Form CATIA V5 Programmierung wechseln |
