|
CATIA V5 Programmierung : Umbenennung von Kopierten Flächen
MaxZ am 07.07.2005 um 16:34 Uhr (0)
hallo! versuchs mit selection1.item(1).name = Strukturraster usw. mit .item(i) sprichst du das i. element deiner selection an. dann müssts klappen! Ciao Max
|
|
CATIA V5 Programmierung : Umbenennung von Kopierten Flächen
MaxZ am 08.07.2005 um 07:40 Uhr (0)
stimmt, habs .value. vergessen! die version haut hin bei mir: Sub Unterroutine_1_0() Set selection1 = CATIA.ActiveDocument.selection selection1.Search ( name = Querstrebe_1 ,all ) selection1.Copy Set selection2 = CATIA.ActiveDocument.selection selection2.Search ( name = Streben-Trim ,all ) selection1.Paste selection1.Item(1).Value.Name = Strukturraster Set selection3 = CATIA.ActiveDocument.selection selection3.Search ( name = Klebe-Quer_1 ,all ) selection3.Copy Set selection4 = CATIA.ActiveDocument.selec ...
|
|
CATIA V5 Programmierung : Feature anordnung
MaxZ am 12.07.2005 um 14:59 Uhr (0)
bilder weiß ich doch zu würdigen! wie man was ans ende verschiebt per makro weiß ich leider auch nicht. ich würds so machen das ichs such, selektier, kopier, lösch, MainBody suchen & selektieren, einfügen und umbenennen. und dann stehts am ende. zB: Sub CATMain() Set partDocument1 = CATIA.ActiveDocument Set selection1 = partDocument1.Selection selection1.Search Name= FEATURE ,all Set partDocument1 = CATIA.ActiveDocument Set selection1 = partDocument1.Selection selection1.Copy ...
|
|
CATIA V5 Programmierung : Part in einer Prodkuktstruktur ansprechen
MaxZ am 12.07.2005 um 15:33 Uhr (0)
hallo! zum einfügen eines openbody muss dass erstellte part ausgewählt sein. das part erzeugen und openbody einfügen könnte so aussehen: Sub CATMain() Dim productDocument1 As ProductDocument Set productDocument1 = CATIA.ActiveDocument Dim product1 As Product Set product1 = productDocument1.Product Dim products1 As Products Set products1 = product1.Products Dim product2 As Product Set product2 = products1.AddNewComponent( Part , Neuerzeugtes_Part ) Se ...
|
|
CATIA V5 Programmierung : Feature erzeugen
MaxZ am 14.07.2005 um 14:28 Uhr (0)
einfach nach einem grad erzeugten feature suchen und mit .parent.parent.name kommst du an den namen des übergeordneten körpers. bei mir läuft: Sub catmain() Set sel = CATIA.ActiveDocument.Selection sel.Search ("Name= Block.1 ,all") koerper = sel.Item(1).Value.Parent.Parent.Name msgbox koerper End Sub vermutlich müsst auch direkt nach der erzeugung zb pad1.parent.parent.name funktionieren, wär vermutlich schneller. besonders wenns um große teile geht können die suchen sehr lange daue ...
|
|
CATIA V5 Programmierung : Feature erzeugen
MaxZ am 14.07.2005 um 16:24 Uhr (0)
jo, kamman! Per kleiner Verschachtelung und mit IF und NEXT. Sieht dann ungefähr so aus: Sub CATMain() Dim body_array() As String Set partDocument1 = CATIA.ActiveDocument Set selection1 = partDocument1.Selection Selection aller Koerper selection1.Search "((CATStFreeStyleSearch.BodyFeature + CATPrtSearch.BodyFeature) + CATGmoSearch.BodyFeature),all" Zählen der Elemente der Selection1 bodycount = selection1.Count ReDim body_array(bodycount) ...
|
|
CATIA V5 Programmierung : polyline aus vorhandenen punkten erstellen
MaxZ am 15.07.2005 um 09:29 Uhr (0)
Hallo, probier mal folgenden code: Sub CATMain() Set partDocument1 = CATIA.ActiveDocument Set part1 = partDocument1.Part Set parameters1 = part1.Parameters Set intParam1 = parameters1.Item("AnzahlPunkteParameter") num_points = intParam1.Value Set hybridShapeFactory1 = part1.HybridShapeFactory Set hybridShapePolyline1 = hybridShapeFactory1.AddNewPolyline() Set hybridBodies1 = part1.HybridBodies Set hybridBody1 = hybridBodies1.Item("OpenBody.1") Set hybridShapes1 = hybridBody1.HybridShape ...
|
|
CATIA V5 Programmierung : polyline aus vorhandenen punkten erstellen
MaxZ am 15.07.2005 um 09:53 Uhr (0)
ah, okay! dann versuch: Language="VBSCRIPT" Sub CATMain() Set partDocument1 = CATIA.ActiveDocument Set part1 = partDocument1.Part Set parameters1 = part1.Parameters Set intParam1 = parameters1.Item("Anzahl_der_Punkte_br") num_points = intParam1.Value Set hybridShapeFactory1 = part1.HybridShapeFactory Set hybridShapePolyline1 = hybridShapeFactory1.AddNewPolyline() Set hybridBodies1 = part1.HybridBodies Set hybridBody1 = hybridBodies1.Item("Beruehrpunkte_bonnet_rear") Set hybridShapes1 = ...
|
|
CATIA V5 Programmierung : polyline aus vorhandenen punkten erstellen
MaxZ am 15.07.2005 um 10:29 Uhr (0)
kleiner tip: die zeile: Set hybridBodies1 = part1.HybridBodies durch die: Set bodies1 = part1.Bodies Set body1 = bodies1.Item("MainBody") Set hybridBodies1 = body1.HybridBodies ersetzten und wieder namen anpassen
|
|
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. ...
|
|
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 ...
|
|
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.]
|
|
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 ...
|
