|
CATIA V5 Programmierung : CATIA Auslastung Busy
RSchulz am 09.02.2009 um 09:49 Uhr (0)
Hallo,das mit dem Thread.Sleep wäre auch sehr unsauber. Ich weis ja nicht, ob das Makro für mehrere User auf verschiedenen Rechnern gedacht ist, denn sonst hättest du so oder so ein Problem, da die Wartezeit Leistungsabhängig ist. Das Problem ist, dass das Programm in einem eigenen Prozess (sprich CATIA unabhängig) arbeitet und du keinerlei antworten von CATIA bekommst. Du solltest aufjedenfall ein Application.DoEvents in jede Schleife und an jeden Punkt einbauen, an dem du auf eine Antwort wartest. Im Nor ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA Auslastung Busy
RSchulz am 09.02.2009 um 11:27 Uhr (0)
Hallo,das Application.DoEvents sollte an jede Stelle des Prozesses eingefügt werden, an der es notwendig ist, auf Funktionen oder andere Prozesse zu warten. Hierbei wird die CPU-Priorität für den folgenden Prozess nach unten gesetzt und das Programm gibt so theoretisch die CPU für andere Prozesse frei.------------------MFGRick SchulzNettiquette (CAD.de)Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Anzahl der Blätter in Drawing ermitteln
RSchulz am 11.02.2009 um 10:58 Uhr (0)
Hallo,versuchs mal damit...Dim DRW as DrawingDocumentDim DRWShts as DrawingSheetsDim Anzahl as IntegerSet DRW = CATIA.ActiveDocumentSet DRWShts = DRW.SheetsAnzahl = DRWShts.Count------------------MFGRick SchulzNettiquette (CAD.de)Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : csv Stückliste über Makro in Drawing einfügen
RSchulz am 17.02.2009 um 17:33 Uhr (0)
Hallo,über CATIA.StartCommand ("Table from CSV") rufst du die Funktion ab und über Dim objWshshell as ObjectSet objWshshell = CreateObject("Wscript.shell")objWshshell.SendKeys "C:TempMeineStückliste.csv"objWshshell.SendKeys "(Enter)"kannst du die Tastatureingaben ausführen.Es gibt noch eine Möglichkeit das Fenster zu fangen bzw. darauf zu warten, da die Funktion manchmal länger dauert, als die Tastatureingaben. Hierfür hab ich jedoch im Moment nicht die nötigen Mittel zur Hand, da ich zu Hause kein CATIA u ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Documents.Open() mit IGES R19 SP03
RSchulz am 31.03.2011 um 17:23 Uhr (0)
Zitat:Original erstellt von HoBLila:Dieses Phänomen tritt allerdings nur auf, wenn ich das Makro über Alt+F8 und dann Run ausführe. Führe ich das Makro direkt aus dem VBA Editor aus, so funktioniert alles wunderprächtig.Im IGES-File selbst ist kein Inhalt (leeres Part einfach als IGS gespeichert). Andere Formate lassen sich auf diese Weise ohne Probleme öffnen.Es handelt sich um R19 SP03 HF48unter R19 SP09 funktioniert alles wieder so, wies sein soll.Hallo Henry,wenn das wirklich so ist, dann scheint es d ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : right-Funktion bis zu einem Zeichen
RSchulz am 14.09.2009 um 08:27 Uhr (0)
Hallo,versuch es mal damit.Sub CATMain() Dim Path As String Dim ActPath As String Dim ActExt As String Dim TempName As String Path = CATIA.ActiveDocument.Path ActPath = Path & "" ActExt = "*.cgr" While Dir$(ActPath & "*.cgr") "" steht für ungleich und "" steht für leer Mache solange das dir-Ergebnis ungleich leer ist MsgBox TempName TempName = Dir$(ActPath & "*.cgr") Kill ActPath & TempName WendEnd Sub------------------MFGRick SchulzNettiquette (CAD.de)Konfuzius spr ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Eigenschaften (added Propertities) über eine Eingabemaske vergeben,ändern und löschen
RSchulz am 05.07.2016 um 15:02 Uhr (1)
Hallo,hier ein simples Beispiel zum erstellen von Parametern:Code:Sub CATMain() On Error Resume Next Dim MyDocument As Document Set MyDocument = CATIA.ActiveDocument Dim MyPart As Object Set MyPart = MyDocument.GetItem(1) Dim MyParameters As Parameters Set MyParameters = MyPart.UserRefProperties Dim MyStrParam As strParam Set MyStrParam = MyParameters.CreateString("Param1", "Text1") Set MyStrParam = MyParameters.CreateString("Param2", "Text2") Set MyStrParam = MyParameters.CreateString("Param3 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : pfad verlinkter Element
RSchulz am 28.03.2011 um 10:54 Uhr (0)
Hallo,hier mal ein Beispielcode, der dir eigentlich weiterhelfen sollte.Code: Dim CatiaDocs as Documents Dim CatiaDoc as Document On Error Resume Next CatiaDocs = CATIA.Documents For Each CatiaDoc In CatiaDocs msgbox("Der Pfad der Datei " & _ CatiaDoc.Name & " lautet " & _ CatiaDoc.Path) Next------------------MFGRick SchulzNettiquette (CAD.de) - Was ist die Systeminfo? - Wie man Fragen richtig stellt. - Unities
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Update erzwingen
RSchulz am 18.06.2009 um 11:42 Uhr (0)
Hallo,auf Programmierebene kannst du mit folgenden Befehlen ein Update erzwingen...In der Deutschen Umgebung:Catia.StartCommand ("Aktualisierung erzwingen")In der Englischen Umgebung:Catia.StartCommand ("Force Update")HTH------------------MFGRick SchulzNettiquette (CAD.de)Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Mein Skript läuft Catia weg
RSchulz am 17.03.2011 um 17:49 Uhr (0)
Zitat:Original erstellt von Vertigo2011:ich habe ein VBA Script geschrieben welches Geometrische Körper per Hypershapefactory in ein CATIA-Part einfügt. Das einfügen dauert aber bei fast 400Körpern ca. 20min ist das eigentlich normal oder kann man den ganzen Prozess beschleunigen?Nach ein wenig Testen habe ich herausgefunden das meine Schleife die, die Körper einfügt beim Wert 50 ist aber CATIA gerade einmal 27Körper eingefügt hat. Das heißt also das mein Script schon weiter ist und CATIA mit seinen Befeh ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Macros und verscheidene Arbeitsumgebungen
RSchulz am 18.08.2009 um 16:13 Uhr (0)
Hallo,das Makro macht auch nichts anderes. Die letzte Aktion ist "CATIA.StartWorkbench "GPSCfg"" und damit wird nur eine Workbench aufgerufen, jedoch keine Funktion gestartet. Das Problem beim Makrorecorder ist, dass es nicht alle Funktionen aufzeichnen kann und somit ein einfaches aufzeichnen und wieder abspielen meist nicht alles wiederholt.------------------MFGRick SchulzNettiquette (CAD.de)Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein L ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA ReadOnly erkennen ?
RSchulz am 17.03.2011 um 10:34 Uhr (0)
Hallo,hier ein Codebeispiel:Code: Dim CatiaDocs as Documents Dim CatiaDoc as Document On Error Resume Next CatiaDocs = CATIA.Documents For Each CatiaDoc In CatiaDocs If CatiaDoc.ReadOnly = true Then msgbox("Die Datei " & _ CatiaDoc.Name & " ist in " & _ CatiaDoc.Path & " schreibgeschützt") End If Next------------------MFGRick SchulzNettiquette (CAD.de) - Was ist die Systeminfo? - Wie man Fragen richtig ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : right-Funktion bis zu einem Zeichen
RSchulz am 10.09.2009 um 14:21 Uhr (0)
versuchs mal mit:Sub CATMain()Set productDocument1 = CATIA.ActiveDocument Dim S As StringS = CurDir() S = S & "" Dim ActPath As String Dim ActExt As String Dim ActFile As String Dim FHandle As Long Dim FData As WIN32_FIND_DATA ActPath = S ActExt = "*.cgr" FHandle = FindFirstFile(ActPath & ActExt, FDataCurdir gibt dir nur den Pfad, dann fehlt dir jedoch noch ein Trennzeichen () für die Datei BTW kannst du mit F8 taste schrittweise durch den Code gehen und wenn du mit der Maus über ...
|
| In das Form CATIA V5 Programmierung wechseln |
