|
CATIA V5 Programmierung : Partnumber auslesen, Part abspeichern
prosper am 31.01.2005 um 20:05 Uhr (0)
Hi, das ist natürlich per Macro möglich,habe es schon mehrmals gemacht. Den code kann ich jetzt nicht ganz genau schreiben, da ich momentan kein V5 zu verfügung habe. Es ist aber notwendig im Designmode zu arbeiten, damit die andere Teile alle Informationnen mit kriegen. Aber das gibt z.B. sowas: set oprod = CATIA.ActiveDocument.product.product.item(2) sprodname = oprod.PartNumber oprod.referenceproduct.parent.saveas sprodname & .CATProduct das alte Produkt kannst du entweder per macro oder per Hand lösc ...
|
|
CATIA V5 Programmierung : Parameter und objekt löschen
prosper am 03.05.2005 um 19:03 Uhr (0)
Hallo, probier doch sowas, vielleicht funktionniert es: In diesem beispiel sagen wir, dass du ein Part offen hast in dem sich zwei Bodies (b1 und b2) befinden die du löschen möchtest. Geht natürlich mit Parameters usw genau so. Objekte in die Selection packen und Selection löschen. Sub abc() dim oobjects(1) set oobjects(0) = Catia.activedocument.part.bodies.item( b1 ) set oobjects(1) = Catia.activedocument.part.bodies.item( b2 ) set osel = CATIA.activedocument.selection osel.clear for i=0 to ubound(oobject ...
|
|
CATIA V5 Programmierung : CreateReferenceFromName
prosper am 18.07.2005 um 20:31 Uhr (0)
Hallo Picard, um eine Constraint im Kontext von deinem Unterprodukt zu generien musstest du con diesem Unterprodukt anfangen. Das heisst unterprod.referenceProduct.parent.product oder sowas. Es funktionniert sicher, weiss aber nichr mehr genau wie. Auf jeden Fall muss du den Unterprodukt als Reference haben (mit Referenceproduct) und nicht aus dem root (mit produt.products.item(xy) ) Kann dir das weiterhelfen???? Kannst auch versuchen das mit dem recorder zu machen. Ich glaube, dass er aber aufs document g ...
|
|
CATIA V5 Programmierung : KnowledgeObject umbenennen
prosper am 26.04.2005 um 18:39 Uhr (0)
Hallo, den Typename kannst du nicht ändern (aus eine Length kannst du zB kein String machen). du kannst nur den Namen des Feature ändern. Set AuxObj = Selecion1.Item(iZaehl).Value AuxObl.Name = New_Name sTypName = TypeName(AuxObj) kann man nicht ändern. Gruss Chris
|
|
CATIA V5 Programmierung : Bohrung per VBA einfügen
prosper am 26.04.2005 um 18:59 Uhr (0)
Hallo, Wenn ich richtig verstehe, möchtest du eine Skizze auf eine Face generieren. Und das ist nicht so einfach (bzw. auch nicht sehr stabil), weil du auf BREPs referenziert. a) solchen Skript habe ich leider nicht. b) mit der Funktion SelectElement, und mit dem filter Face, Line, Part... Bei Faces (BREPs) muss du, meiner Meinung nach, die Referenz benutzen (osel.Item(1).Reference) um deine Skizze zu generien. Ich habe sowas noch nie gemacht ist aber bestimmt möglich! Falls du keine Lösung findest kann ic ...
|
|
CATIA V5 Programmierung : Bohrung per VBA einfügen
prosper am 26.04.2005 um 19:15 Uhr (0)
Hallo, vielleicht kann dir sowas weiterhelfen: Sub CATMain() Set osel = CATIA.ActiveDocument.Selection osel.Clear Dim afilter(0) afilter(0) = Face Set partDocument1 = CATIA.ActiveDocument Set part1 = partDocument1.Part Set shapeFactory1 = part1.ShapeFactory sstatus = osel.SelectElement(afilter, Select a Face , False) Set oref = osel.Item(1).Reference osel.EndSelectElement Set hole1 = shapeFactory1.AddNewHoleFromPoint(0, 0, 20, oref, 10) hole1.Type = catSimpleHole hole1.AnchorMode = catExtremPointHoleAnc ...
|
|
CATIA V5 Programmierung : Punkte finden und Abstände messen
prosper am 02.05.2005 um 19:13 Uhr (0)
Hallo, vielleicht kann sowas weiterhelfen: Sub CATMain() Set osel = CATIA.ActiveDocument.Selection osel.Clear Dim afilter(0) afilter(0) = Point Status = osel.SelectElement(afilter, Select a point. , False) Set opoint = osel.Item(1).Value osel.EndSelectElement Dim acoord_in_part(2) opoint.GetCoordinates acoord_in_part Dim acoord_part_in_product(11) Dim acoord_product_in_sub_product(11) Dim atmp(2) Dim acoord_in_product(2) osel.Clear osel.Add opoint Set opart_product = osel.FindObject( CATIAProduct ) opar ...
|
|
CATIA V5 Programmierung : Datei in Drawing einfügen
prosper am 16.06.2005 um 19:41 Uhr (0)
Sub CATMain() Set opic = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(1).Pictures Set onewpic = opic.Add( C:your_pic.bmp , 100, 100) End Sub Ein Drawing muss bereits offen sein
|
|
CATIA V5 Programmierung : Eigenschaft von Parts bearbeiten
prosper am 10.02.2006 um 20:40 Uhr (0)
Hallo, probiers doch mal mit:Sub CATMain()Dim productDocument1 As DocumentSet productDocument1 = CATIA.ActiveDocumentDim product1 As ProductSet product1 = productDocument1.ProductDim products1 As ProductsSet products1 = product1.ProductsDim product2 As ProductSet product2 = products1.Item("Test")Dim Nummer , ExemplarnameDim K_Beschreibung , TeilenummerDim Ueberarbeitung , NomenklaturDim Definition , QulleDim P_Beschreibung Nummer = product2.???? Wie heißt diese Variable?set oprop = product2.refe ...
|
|
CATIA V5 Programmierung : Get coordinates goes wrong...
prosper am 29.03.2006 um 20:18 Uhr (0)
Hallo,habe leider kein Part internes Beispiel, habe nur ein Produktübergreifendes Beispiel. Die Vorgehensweise ist aber ähnlich.Das Makro gibt dir die Koordinnaten eines Punktes im Rootprodukt.Zum testen folgende Struktur aufbauen:RootProd||-SubProd1 | |-SubProd2 | |-Part (mit Punkt)SubProd1, SubProd2 und Part im Raum verschieben (mit 3D constraints oder Kompasss)Makro starten, Punkt selektieren. Als Ergebniss kriegst du die Koord vom Punkt im Rootprodukt. Über eine Schleife und Transformationen we ...
|
|
CATIA V5 Programmierung : Root aktiv schalten.....................
prosper am 03.08.2006 um 13:41 Uhr (0)
Servus zusammen,anbei eine Produktstruktur und hier ein Skript. Nichts besseres als ein Beispiel.Sub CATMain()Part2 aktiv schalten und Makro laufen lassen - geht nichtRoot aktiv schalten und Makro laufen lassen - gehtSet osel = CATIA.ActiveDocument.SelectionReDim afilter(0)afilter(0) = "Body"sta = osel.SelectElement(afilter, "Select Body_to_copy in Part1", False)Set obody = osel.Item(1).Valueosel.EndSelectElementosel.Clearafilter(0) = "Part"sta = osel.SelectElement(afilter, "Select Part10", False)Set oPart ...
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
