|
CATIA V5 Programmierung : Wert und Parameter gleichzeitig in eine Formel bringen
bgrittmann am 04.12.2017 um 15:18 Uhr (1)
ServusWas ist denn Punktkoordinaten denn bitte für ein Objekt (Catia-Parameter, VB-Variable, ...)GrußBerndPS: Schon mal so probiert:Code:StrFormel = parameters1.GetNameToUseInRelation(Individuelle_Anpassung) & "+" & CStr(Punktkoordinaten) & "mm")------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Technologische Ergebnisse erzeugen
C.Samer am 11.12.2017 um 10:35 Uhr (1)
Hier noch ein Beispiel:Code:Sub CATMain() Set oSel = CATIA.ActiveDocument.Selection Set oItem = oSel.Item(1).Value Catia.ActiveDocument.Selection.Clear() Catia.ActiveDocument.Selection.Add(oItem) CATIA.StartCommand "Create Technological Results"End Sub Der Code funktioniert nur, wenn ich das Part blau markiere und den Body orange Liebe Grüße,Christoph
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Technologische Ergebnisse erzeugen
C.Samer am 11.12.2017 um 10:04 Uhr (15)
Edit: Habe eine (leider langsame) Lösung gefunden.Der Befehl Code:CATIA.StartCommand "Create Technological Results" funktioniert nur im PartDesign. Daher: Body selektieren und dann per Code:CATIA.StartWorkbench "PrtCfg" ins PartDesign wechseln bevor ihr Technologische Ergebnisse hinzufügt.Liebe Grüße aus Wien,Christoph :) -------------------------------------------------------------Hallo liebe Community!Ich versuche gerade ein Makro zu schreiben, welches allen Parts eines Produkts "Technologische Ergeb ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Technologische Ergebnisse erzeugen
noir333 am 11.12.2017 um 12:09 Uhr (1)
Hallo Christoph,wie Du schon sagst, Du musst das Part blau machen: mysel.Clear mysel.Add(mypart1) CATIA.StartWorkbench("PrtCfg") Set mysel1=mypart1.Parent.Selection mypart1.InWorkObject = body1 mysel.clear mysel.Add(body1) if catlang="de" then CATIA.StartCommand("Technologische Ergebnisse erzeugen") elseif catlang="en" then CATIA.StartCommand("Create Technological Results") end if-----------------------------
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Technologische Ergebnisse
ptit.tom am 11.12.2017 um 16:05 Uhr (1)
Guten Tag,Um die StartCommand-befehle unabhängig der Umgebungsprache zu bekommen, kann man auf dem CommandId greifen:CreateTROutputHdrCode:CATIA.StartCommand("CreateTROutputHdr")Um die CommandId zu bekommen: in den passenden Workbench gehen und c:Workshop exposition. Dann die Text-dateien erzeugen und untersuchen.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Fehlermeldung beim öffnen eines Macros
ptit.tom am 11.12.2017 um 16:29 Uhr (1)
Hallo,Kann die datei mit der alten CATIA-Version geöffnet werden ? Wenn Ja, gibt es vielleicht ein Problem mit den Referenzen. Seltsam.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Technologische Ergebnisse
razzor88 am 11.12.2017 um 16:53 Uhr (1)
Zitat:Original erstellt von ptit.tom:Guten Tag,Um die StartCommand-befehle unabhängig der Umgebungsprache zu bekommen, kann man auf dem CommandId greifen:CreateTROutputHdrCode:CATIA.StartCommand("CreateTROutputHdr")Um die CommandId zu bekommen: in den passenden Workbench gehen und c:Workshop exposition. Dann die Text-dateien erzeugen und untersuchen.Das ist ja klasse, wieder was gelernt! Vielen dank für den Tipp Hatte auch schon öfter das Problem das mein Programm einfach weiter läuft und nicht auf das St ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zeichnungsrahmen mit Makro einfügen
LaBam am 15.12.2017 um 11:00 Uhr (3)
Habs hinbekommen! Vielen Dank an bgrittmann für den Denkanstoß.War eigentlich nur ein typischer Anfängerfehler... Hab die Variable nicht an die Functionen übergeben... Is mir jetzt fast ein wenig peinlich Code:Sub CATMain() Set targetSheet = catia.activedocument.sheets.ActiveSheet If Not CATInit( (targetSheet)) Then Exit Sub On Error Resume Next name = Texts.GetItem("Reference_" + GetMacroID()).Name If Err.Number 0 Then Err.Clear name = "none" End If On Error Goto 0 If (name = "none") Then CATDrw_Ers ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Verzeichnis aus Tools-Optionen auslesen
C.Samer am 15.12.2017 um 11:32 Uhr (1)
Hey, du könntest stattdessen das Userverzeichnis nehmen. Sieh mal wie ich es beim Company-Logo mache:Code: Dim fso As FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FileExists(sPicturePath) Then sPicturePath = "C:Users" & sUsername & "DocumentsCATIAMasterSettingsPicturesLOGO.jpg" If Not fso.FileExists(sPicturePath) Then MsgBox "Company logo not found." & vbCrlf & "Please copy the company logo to:" & vBCrLf & vBCrLf & sPicturePath,vbOKOnly Or vbCritical, ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Verzeichnis aus Tools-Optionen auslesen
bgrittmann am 15.12.2017 um 13:30 Uhr (1)
ServusDu könntest im Environment einfach eine weitere Variable hinzufügen. zBCode:CATMacroPath=L:Makrosund diese per Makro abfragen. zBCode:MsgBox CATIA.SystemService.Environ("CATMacroPath")GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Suche höchste Nummer +1
Esterbauer am 28.12.2017 um 11:44 Uhr (1)
Hallo ich habe folgendes ProblemIch habe ein Produkt für Auswerfer. Mit einem Markos starte ich die Ausgangsdatei (_auswerfer_rund_) mit Datei Neu Aus, er kopiert mir die Datei anschließen in das vorhergesehene Produkt. Das funktioniert soweit auch sehr gut.Das ganze möchte ich öfters wiederholen, dazu muss ich aber zuerst den Dateinamen umbenennen ( z.b: 500_auswerfer_rund_as).Gibt es eine Möglichkeit das er die Benennung (dreistellige Pos Nr. selber erkennt welche die höchste Nr. ist und dann noch eins ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Körper hinzufügen
Esterbauer am 28.12.2017 um 12:06 Uhr (1)
Hallo,Habe folgendes Problem.Habe ein Produkt mit unterschiedlichen Parts , in den Parts gibt es jeweils einen Körper mit den Namen (Abzugskörper)Gibt es eine Möglichkeit per Makro alle Körper im Produkt zu suchen und diese anschließende zusammen in anderes Part (basismodell_auswerfer) im Hauprkörper Hinzufügen zu lassen.Das Suchen per Makro funktioniert soweit schon, da die Anzahl und Benennung der Parts immer unterschiedlich ist funktioniert das ganze dann nicht mehr.Muss man das mit Variablen Programmie ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Suche höchste Nummer +1
bgrittmann am 28.12.2017 um 12:31 Uhr (1)
ServusIch kenne deine genaue Struktur zwar nicht, aber ja so in der Art könnte es gehen.ggf solltest du zunächst deine allgemeinen Kenntnisse zu VB(A) verbessern.(hast du Bücher zu Catia-Makros und die Doku schon gefunden/benutzt?)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
