|
CATIA V5 Programmierung : Makrohilfe
CEROG am 24.07.2008 um 09:50 Uhr (0)
Mein Makro sieht so aus:Code:Language="VBSCRIPT"Sub CATMain()Set specsAndGeomWindow1 = CATIA.ActiveWindowSet viewer3D1 = specsAndGeomWindow1.ActiveViewerSet viewpoint3D1 = viewer3D1.Viewpoint3DEnd SubEs funktioniert nur dann, wenn das Product geöffnet ist und das Fenster aktiv ist. Eigentlich genau wie ich erwartet habe. Du mußt in deinem Makro noch ein paar Sächelchen machen:- Ermitteln, welches Product zu deiner Zeichnung gehört- Das Product in einem Fenster öffnen------------------Meine FirmaWie stelle ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Punkte umbennenen (mit GS als Prefix)
PRZJEDRZ am 15.11.2017 um 12:02 Uhr (1)
Hallowie kann ich der Name von Geometrical Set als Prefix anwenden ?Makro soll alle Punkte in selektiertem GS umbenennen (siehe Anlage)Bis jetzt funktioniert sehr gut, aber nur wenn Prefix vordefiniert ist (was ich nicht wirklich flexibel finde - mehrere GS)Hat jemand einen Idee ?DankePJ selection1.Search ".Point.Name=*,sel" Set oSel = Catia.ActiveDocument.Selection sInp = Inputbox("Set Prefix ","Rename selected points","Prefix_") For i = 1 to oSel.Count oSel.Item(i).Value.Name = sInp & oSel.Item(i).Val ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Formula; auf bestehenden Parameter zugreifen und in Formel verwenden
zoltan.bekesi am 05.02.2009 um 19:35 Uhr (0)
Hallo Zusammen,anbei die Ergänzung der Code von denyo_1 so, dass die Parameter mit Hilfe der Kugelobjekte bestimmt werden.Im Modell ist nur ein GeoSet mit 2 Kugel vorhanden, getestet nur für ein Part geöffnet.Code:Sub Catmain() Dim oDoc As Document Dim oPart As Part Dim oRel As Relations Dim oPara As Parameters Dim oForm As Formula Dim Box Set oDoc = CATIA.ActiveDocument On Error Resume Next Set oPart = oDoc.Part If Err.Number 0 Then Box = MsgBox("Es ist kein Part geladen!" + Chr(10) + "Das M ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Namen Aendern
sebuse am 08.12.2004 um 21:33 Uhr (0)
Hallo, Es geht hier um namen automatisierung: mein partname sieht so aus 1234_10_01_001 ( Test1 ) 1234: ist konstant ( Auftrags Nummer; wird in die Catia Umgebung als text definiert ) 10: Baugruppe Nummer 01: Unterbaugruppe Nummer 001: Part Nummer Test1: Description Ich moechte eine Makro schrieben die automatisch der partnumber erzeugt ( Manuele eingabe: 10;01;001;Test1) Ergebnis: 1234_10_01_001 ( Test 1 ) als Part Nummer und Save Nummer und auch achsensystem Nummer Wer kann mich helfen ??? Im vorhaus Dan ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Parameter_mit_Eigenschaften_verknüpfen
Felsen am 20.09.2018 um 21:24 Uhr (15)
Servus forum,wie kann ich hier auf die Bauteilnummer zugreifen?Möchte Parameter und Eigenschaften per Makro miteinander verknüfen.Language="VBSCRIPT"Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet relations1 = part1.RelationsSet parameters1 = part1.ParametersSet strParam1 = parameters1.Item(" wie greif ich hier auf die Bauteilnummer zu? EigenschaftenBG")Set formula1 = relations1.CreateFormula("Formel.30", "", strParam1, "Parameter_StuecklisteBG ")formula1. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA: nothing an CATIA-Funktionen übergeben
martinINPRO am 21.07.2008 um 12:41 Uhr (0)
Ich habe nun eine Umgehungslösung gefunden; diese ist zwar nicht so schön, aber funktioniert!Dim ref_pt = part.CreateReferenceFromGeometry(pt)hsfLoft.AddSectionToLoft(ref_sketch, 1, ref_pt)hsfLoft.RemoveSectionPoint(ref_sketch)Ich tue so, also ob ich eine Referenz habe. Diese wird angemeldet und auch übergeben. Anschliessend wird diese mit .RemoveSectionPoint() wieder gelöscht.Eleganter wäre es natürlich hier ohne dem Löschen auszukommen!Gruß, Martin
|
| 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 : Unterschied 32bit zu 64bit
martin2 am 21.10.2008 um 22:06 Uhr (0)
Hallo!Weiterhelfen kann ich Dir leider auch nicht, aber bestätigen kann ich Dein Problem. Auch ich habe ein Makro welches unter XP 32bit mit V5R16SP8 tadellos läuft nur auf XP 64bit V5R16SP8 nicht.Ich denke das hier evtl. nur ein Releasewechsel helfen könnte - immerhin war R16 (soweit ich mich erinnern kann) die erste 64bit Version von CATIA.Auch ich habe die Zusatzdatei der zweiten Installations-CD installiert.Gruß Martin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA V5 Programmierung
dennisw am 22.02.2009 um 01:33 Uhr (0)
Hallo Lusilnie,ich komme leider nicht weiter. Wie gesagt, ich bin ein Anfänger und mit Makro habe ich nicht wirklich gearbeitet, besser gesagt nur ganz einfache Makro. Die Lösung ist für mich zu schwer. Ich habe einige Themen in Forum angeschaut (die .pdf- Datei ). Selektieren kann ich, aber danach komme ich nicht weiter. Kannst du bitte helfen? Was muss ich weiter tun.Über Makro werde ich mich sehr freuen.MfGwdennis------------------MfGDennis
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : FileSearchOrder
Knowledge am 02.02.2011 um 10:39 Uhr (0)
Halloich brauche mal wieder Eure Hilfe.Ich habe seit neustem einen Fehler. Mir fällt die FileSearchOrder auf die Nase. Bis hierhin habe ich den Befehl genutzt um in einem Ordner nach einer Datei mit bestimmten Inhalten im Dateinamen zu suchen. z.B. oPfad = c: est Split(0) = 123 Split(1) = 456 Split(2) = 789 CATIA.FileSearchOrder = oPfad & "*" & oSplit(0) & "*" & oSplit(1) & "*" & oSplit(2) & "*"Seit neuestem geht hier gar nichts mehr... kennt jemand das Problem?Danke für Eure HilfeRalf
|
| 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 : Dekaration von Variablen in .net 2005
mathias.bergundthal am 26.07.2006 um 11:08 Uhr (0)
Cool Danke Alex aber jetzt habe noch ne frage... Code:Dim myRootDocument As MECMOD.PartDocumentDim myPartDocument As MECMOD.PartDocumentDim myProduct As MECMOD.PartDocumentIf CATIAType = 1 Then myRootDocument = CATIA.Documents.Open(CATIAFileTemplatePath(0)) myRootDocument.Product.PartNumber = CATIANewFileName myRootDocument.Product.Name = CATIANewFileName myRootDocument.Save()End Ifwieso geht die konstellation nur wenn ich ein CATPart öffne... ich meinte das PartDocument Part und Product beinhaltet... nich ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kompass und Strukturbaum ausblenden
em Michael Kirsch am 08.07.2004 um 11:27 Uhr (0)
Hallo axl07111,so kannst Du den Spezifikationsbaum bzw. die Geometrie ein- und ausblenden:Sub CATMain() Dim MyWindow As SpecsAndGeomWindow Dim MyViewer As Viewer3D Set MyWindow = CATIA.ActiveWindow -----nur Geometrie----- MyWindow.Layout = catWindowGeomOnly -----Geometrie und Spezifikationsbaum----- MyWindow.Layout = catWindowSpecsAndGeom -----nur Spezifikationsbaum----- MyWindow.Layout = catWindowSpecsOnlyEnd SubBeim Kompass muss ich leider passen.Hope that helps!Michael Kirsch------------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
