|
CATIA V5 Programmierung : Feature erzeugen
MaxZ am 15.07.2005 um 10:21 Uhr (0)
versuchmal: Set doc = CATIA.ActiveDocument docName = doc.Name typ = Split(docName, ".") MsgBox typ(1)
|
In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia Befehl
MaxZ am 18.07.2005 um 10:12 Uhr (0)
try and error hat ergeben: CATIA.StartCommand("b: Veröffentlichung") aber aus nem Makro kann ichs nicht starten. Edit: AppActivate ("CATIA V5") SendKeys "b: Veröffentlichung" + Chr(13), 1 öffnet immerhin das Fenster. (siehe auch Beitrag http://ww3.cad.de/foren/ubb/Forum137/HTML/000186.shtml von Emilio) [Diese Nachricht wurde von MaxZ am 18. Jul. 2005 editiert.]
|
In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Exemplarname von Parts im Produkt ändern
MaxZ am 18.07.2005 um 12:02 Uhr (0)
Hallo Holger! Hier mal ein kleines Beispiel wie sowas aussehen kann: Sub CATMain() Set productDocument1 = CATIA.ActiveDocument Set selection1 = productDocument1.Selection selection1.Search "CATProductSearch.Part,all" For i = 1 To selection1.Count Set productDocument1 = CATIA.ActiveDocument Set product1 = productDocument1.Product Set products1 = product1.Products Set product2 = products1.Item(selection1.Item(i).Value. ...
|
In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Exemplarname von Parts im Produkt ändern
MaxZ am 19.07.2005 um 10:46 Uhr (0)
okay, dann schreibst du vermutlich mit CATScript, da brauchts das i nicht, aber die Language-Zeile: Language = "CATScript" Sub CATMain() Set productDocument1 = CATIA.ActiveDocument Set selection1 = productDocument1.Selection selection1.Search "CATProductSearch.Part,all" For i = 1 To selection1.Count Set productDocument1 = CATIA.ActiveDocument Set product1 = productDocument1.Product Set products1 = product1.Products Se ...
|
In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Eingabe an Parameter zuweisen
MaxZ am 21.07.2005 um 15:55 Uhr (0)
hallo! probier mal: Sub CATMain() Set partDocument1 = CATIA.ActiveDocument Set part1 = partDocument1.part Set parameters1 = part1.Parameters Set length1 = parameters1.Item("Parameter1") length1.Value = 5# End Sub [edit] oder eben: length1.Value = eingabewert [/edit] bei mir klappts falls der parameter "Parameter1" existiert. Ciao Max [Diese Nachricht wurde von MaxZ am 22. Jul. 2005 editiert.]
|
In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Skizze als Makroaufzeichnung
MaxZ am 04.08.2005 um 09:13 Uhr (0)
Hallo! Bei mir zeichnet er Sketchaktionen auf. Lässt du den Rekorder als Script oder VBA laufen? mit VBA müssts gehen. Hier noch ein Beispiel: (erzeugt einen kreis mit radius 10 in der x-y-Ebene um Ursprung) Sub CATMain() Set partDocument1 = CATIA.ActiveDocument Set part1 = partDocument1.Part Set bodies1 = part1.Bodies Set body1 = bodies1.Item("Hauptkörper") Set sketches1 = body1.Sketches Set reference1 = part1.CreateReferenceFromName("Selection_RSur:(Face:(Brp:(AxisSystem.1;1);None:();Cf9:());AxisSystem.1 ...
|
In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro
MaxZ am 05.08.2005 um 08:50 Uhr (0)
Hallo! aktive CATIA Version: http://ww3.cad.de/foren/ubb/Forum137/HTML/001215.shtml Dokument CATIA Version: http://ww3.cad.de/foren/ubb/Forum137/HTML/001196.shtml Vielleicht helfen dir die zwei Beiträge weiter, sonst einfach die Suchfunktion beanspruchen. Ciao Max ------------------ --- Der frühe Vogel fällt nicht weit vom Stamm. ---
|
In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : erzeugte Offene Körper verdecken
MaxZ am 09.08.2005 um 16:17 Uhr (0)
notwendig ist eine Selektion:zum Beispiel für den OpenBody "Geöffneter Körper.1":Sub cat()Dim selection1 As ObjectSet selection1 = CATIA.ActiveDocument.selectionselection1.Search ("Name=Geöffneter Körper.1,all")selection1.VisProperties.SetShow 1End SubNamen musst noch anpassen!Viel Spaß damit,CiaoMax--------------------- Der frühe Vogel fällt nicht weit vom Stamm. ---
|
In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Arbeiten mit Flächenkanten
MaxZ am 19.08.2005 um 14:32 Uhr (0)
was(0) = "BiDimFeatEdge"klappt bei mir zum gleichen zweck!falls nicht, das Makro aufzeichnen und schauen als was CATIA deine Kante dimt und das dann nehmen.CiaoMax--------------------- Der frühe Vogel fällt nicht weit vom Stamm. ---
|
In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Linie Selektieren und Richtung auslesen
MaxZ am 10.06.2005 um 14:27 Uhr (0)
zu meinen leider auch nicht.thema selection:versuch malsub catmain()dim selection1 as objectSet selection1 = catia.activeDocument.selectionInputObjectType(0) = "AnyObject"Status = Selection1.SelectElement2(InputObjectType, "Please Select Line...", True)selection1.endselectelementmsgbox selection1.countend subgetdirection hab ich noch nicht gebrauchtHoff shilftCiaoMax
|
In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA Umgebungssprache per Makro
MaxZ am 24.06.2005 um 14:34 Uhr (1)
Gleiches Problem bei mir:Lösung garnicht so schwer:Sub catmain() Dim e(255) Dim Splitenv For i = 1 To 255 e(i) = Environ(i) Splitenv = Split(e(i), "=") If e(i) "" Then sign = Splitenv(0) If sign = "V5_LANG" Then msgbox splitenv(1) If Splitenv(1) = "en" Then Langu = "Englisch" ElseIf Splitenv(1) = "de" Then ...
|
In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA Umgebungssprache per Makro
MaxZ am 24.06.2005 um 15:36 Uhr (1)
Sonst fällt mir leider auch nix ein.In den cryptischen CATSetting-files kommt das Wort "Language" auchnur recht sporadisch vor.Nixdestotrotz:Schönes Wochenende!CiaoMax
|
In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia Version eines Dokuments
MaxZ am 27.06.2005 um 16:33 Uhr (0)
Wenn man ein CATPart mit dem Text-Editor öffnet und nach "CATIAV5" im Text sucht, findet man direkt danach die R-Nummer.Ob sich das automatisieren lässt, weiß ich nicht, vielleicht hilfts dir aber trotzdem weiter.CiaoMax
|
In das Form CATIA V5 Programmierung wechseln |