|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 16.01.2012 um 10:44 Uhr (0)
Mein neuster Versuch:Code: Set processDocument = CATIA.ActiveDocument Set PPR = processDocument.PPRDocument Set process = PPR.processes.Item("Process") Set clamping = process.GetItem("Aufspannung.1") Set manufacturingProgram = clamping.GetItem("Herstellungsprogramm.1") Set productJaw = PPR.products.Item("jaw_pattern.1") call clamping.CreateMachine("Mfg3AxisMachine") Set oSel = Selection.Add("productJaw") Set upperPlane = oSel.item2(1).ReferenceHier definiere ich ein Objekt oSel, also eine Selection, ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Partnumber synchronisieren
zoltan.bekesi am 19.07.2010 um 18:25 Uhr (0)
Hallo,folgender Code tut genau das: FileName - PartNumber, rekursiv in einen Product.Code:Option ExplicitSub CATMain() On Error GoTo 0 Dim oRoot As Document Set oRoot = CATIA.ActiveDocument Dim oProduct As Product Set oProduct = oRoot.Product Dim oProducts As Products Set oProducts = oProduct.Products Dim strOldName As String Dim strNewName As String strOldName = oRoot.Name strNewName = Replace(strOldName, ".CATProduct", "") oProduct.PartNumber = strNewName RecursiveThroughTree_fn2pn oProd ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro unterbrechen
roccat am 29.07.2010 um 16:03 Uhr (0)
Hallo tberger,ich würde mich den Vorrednern anschliessen und das Sheet per Makro kopieren. Kannst das ja mal so versuchen, evtl hilfts. Ist aber vba kein catscript sollte sich aber auch umschreiben lassen.Option ExplicitSub ViewCopy()Dim MyDrawing As DrawingDocumentDim MySheets As DrawingSheetsDim MyOldSheet As DrawingSheetDim MyNewSheet As DrawingSheetDim MyViews As DrawingViewsDim MyView As DrawingViewDim MySelection As SelectionDocument holenSet MyDrawing = CATIA.ActiveDocumentSelection holen und ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Annotation (Text, Textnotiz) in einem Product erstellen
Raffael123 am 30.07.2015 um 10:10 Uhr (1)
Ich hab die Aufzeichnung aus dem Part mal versucht umzumodeln... leider mit mäßigem Erfolg:Sub CATMain()Dim documents1 As DocumentsSet documents1 = CATIA.DocumentsDim partDocument1 As PartDocumentSet partDocument1 = documents1.Item("TM9.CATPart")Dim part1 As PartSet part1 = partDocument1.PartDim productDocument1 As ProductDocumentSet productDocument1 = documents1.Item("B.CATProduct")Dim product1 As ProductSet product1 = productDocument1.ProductDim annotationSets1 As AnnotationSetsSet annotationSets1 = part ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro unbekannte Anzahl an Intersections
bgrittmann am 09.05.2020 um 10:47 Uhr (1)
ServusWillkommen im Forum.Ich habe dazu zwei Ideen: Punkte per "zerlegen" aus der Verschneidung erzeugen (es entstehen nur isolierte Punkte, AFAIK nur per StartCommand im Makro realisierbar) Verschneidung selektieren - in Selektion nach Scheitelpunkten (Vertex) suchen - Selektion per Schleife abarbeiten - Punkte per AddNewExtract erzeugenZur zweiten Idee einen Beispielcode (aus einer Makroaufzeichnung zusammen gebsatelt):Code:Sub CATMain()Dim partDocument1 As DocumentDim selection1 As SelectionDim part1 As ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Assembly-Constraint
JLo am 22.05.2004 um 14:55 Uhr (0)
Hallo, ich möchte über CATScript folgendes automatisieren: Der Anwender soll interaktiv zwei Ebenen selektieren. Zwischen diesen Ebenen soll ein Assembly-Constraint des Typs Coincidence erzeugt werden. Sub CATMain() Dim productDocument1 As Document Set productDocument1 = CATIA.ActiveDocument Dim product1 As Product Set product1 = productDocument1.Product Set selection_Planes = productDocument1.Selection Dim sFilter_Plane(0) As Variant sFilter_Plane(0) = Plane selection_Planes.SelectElement (sFilter_P ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schnittpunkt von 2 Geraden
bgrittmann am 15.08.2011 um 10:54 Uhr (0)
ServusWillkommen im Forum. Bitte Systeminfo ausfüllen.Du könntest kurzfristig die Fehlerbehandlung ausschalten, dann das Update durchführen und Fehlernummer auslesen. Entsprechende kannst d dann eine Fehlermeldung ausgeben und das Makro beenden bzw die Intersection löschen.Beispiel:Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridShapeFactory1 As hybridShapeFactorySet hybridShapeFactory1 = part1.hybridShapeFa ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Shareable Lizenzen ändern
HoBLila am 22.10.2013 um 15:26 Uhr (1)
Brauchst nicht weiter suchen Rick, Thomas Harmening hat das schon richtig erkannt.Dassault hat die Funktion abgeschaltet. Sonst würde man ja keine Lizenzen mehr kaufen.Genau das ist ja hier auch der Hintergrund des Themas. :-)Das einzige, was geht ist das Abfragen ob die Lizenz in Nutzung ist.Es geht aber auch eine neue Session zu starten, welche die Lizenz aktiv hat, dasselbe Teile darein zu laden und damit zu arbeiten. Dann Session zerstören und wieder in die Ursprungssession. So hat man die Lizenz nur t ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bauteile am Namen identifizieren
Shadyyy am 11.06.2019 um 21:58 Uhr (1)
Hallo zusammen sorry für die vielleicht einfache Frage, aber ich blick in manchen Sachen noch nicht so ganz durchHabe mir jetzt ein Makro geschrieben (Austausch einer Fläche im Bauteil/Parameter eingeben + updaten).Das Makro wird im Produkt ausgeführt und Updated jeweils beide Bauteile.Die Bauteile sowie das Produkt gibt es jetzt mit 3 verschiedenen Namen. Aufbau ist wie folgtProdukt 1 enthältBauteil ABauteil BProdukt 2 enthältBauteil CBauteil DProdukt 3 enthältBauteil EBauteil FCode bisherSet doc = CATIA ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Constraint mit Formel
bgrittmann am 25.08.2017 um 16:41 Uhr (15)
ServusKlar geht dass. Lässt sich auch zu großen Teilen mit dem Makrorekorder aufzeichnen.Hier ein kleines Beispiel (die Erzeugung der Referenzen und die Struktur des Codes ist grauenhaft )Code:Sub CATMain()Dim productDocument1 As DocumentSet productDocument1 = CATIA.ActiveDocumentDim product1 As ProductSet product1 = productDocument1.ProductSet product1 = product1.ReferenceProductDim constraints1 As CollectionSet constraints1 = product1.Connections("CATIAConstraints")Dim reference1 As ReferenceSet referen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geoset-Inhalt in aktivieren/deaktivieren
Flomann am 27.10.2021 um 11:53 Uhr (1)
Hallo zusammen,leider bin ich neu in die Programmierung in Catia eingestiegen und habe dementsprechend noch einige Schwierigkeiten.Bisher konnte ich im Internet noch nicht die Lösung zu meinem Problem finden, daher schreibe ich mal hier.Für ein aktuelles Projekt möchte ich gerne über eine Parametrisch gesteuerte Auswahl die Baumstruktur anpassen, also Bodies und Geosets aktivieren udn deaktivieren ja nach Auswahl.Für Bodies/Adds stellt das über die Parameter und eine verknüpfte Formel oder Reaction soweit ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : "Geometrieinformation" per Makro
Semra am 25.03.2004 um 09:52 Uhr (0)
Hallo Barbara, wenn ich das bloß selber wüsste..Spaß beiseite... Ich muss ein Part in einem Produkt einboxen , das heißt, ich brauche die Maße der kleinsten Box, die das Objekt noch beinhaltet. Mir scheint, dass ich mit dem Measurement-Objekt vielleicht weiterkomme. Nun habe ich das Problem auch soweit eingegrenzt, dass ich sagen kann, dass ich bei der Referenzbildung einen Fehler mache. Ich will das ganze Part als Referenz übergeben...geht das überhaupt? ************************************************* ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : 3D Annotations, zugehöriges Element finden
HoBLila am 14.03.2013 um 11:13 Uhr (0)
Hallo MarcDe,vielleicht hilft Dir das schon weiter:Grundbedingung für das beispiel: Annotation ist bereits selektiert.Code:Public Sub CATMain() Dim annoWork As AnnotationTypeLib.Annotation Dim arrVarSurf() As Variant Dim objAnnoWork As Object Dim selWork As INFITF.Selection Dim sName As String Set selWork = CATIA.ActiveDocument.Selection Set annoWork = selWork.Item2(1).Value Set objAnnoWork = annoWork ReDim arrVarSurf(annoWork.GetSurfacesCount - 1) Call objAnnoWork.GetSurfaces( ...
|
| In das Form CATIA V5 Programmierung wechseln |
