|
CATIA V5 Programmierung : Referenz aus einer Selektion
Proofin am 16.12.2005 um 14:37 Uhr (1)
sorry hab ich nicht dazu geschrieben:ich meinte auch Anstelle deiner Zuweisung:Dim reference1 As ReferenceSet reference1 = product1.CreateReferenceFromName("Spanngruppe 08.12/Adapterpart 08.1/!Result of Hilfsebene SG09-02")meine Anweisung:if (selection.count=1) then Set reference1 = selection.item(1).valueend ifdann sollte in reference1 deine benötigte Referenz stehen.
|
|
CATIA V5 Programmierung : kein Value für HybridShapeSweepLine / HybridShapeSweepConic
Proofin am 01.03.2007 um 15:43 Uhr (0)
Hi Maxe,ich versteh dein Problem nicht Also versuchst du den Namen des selektierten Objektes heraus zufinden.Wenn ich bei mir ein Objekt selektiere, egal was es für ein Typ ist, steht in selection1.item(1).value.name der Name drin.Voraus gesetzt es ist etwas selektiert.GrußProofin
|
|
CATIA V5 Programmierung : kein Value für HybridShapeSweepLine / HybridShapeSweepConic
Proofin am 02.03.2007 um 09:31 Uhr (0)
Moin Maxe,sag doch bitte mal was du jetzt hast!!!Entweder möchtest du den Namen deines HybridShapeSweepConic mit Hilfe der Selektion herausfinden oder du möchtest den Namen direkt aus dem Objekt vom Typ HybridShapeSweepConic herausfinden.Mit Hilfe der Selektion gehts so: selection1.item(1).value.namedirekt von Objekt des Types HybridShapeSweepConic so: Dim oHybCon as HybridShapeSweepConic oHybConic.NameDie .Value Eigenschaft ist von der Selektion und hat nichts mit dem Namen zu tun.GrußProofin
|
|
CATIA V5 Programmierung : Zugriff auf Achsensystem im GeoSet
Proofin am 09.02.2007 um 11:08 Uhr (0)
Was verstehst du unter Upgraden?Wenn du alle bearbeiten willst kannst du über die Search Funktion( wie oben beschrieben) alle selektieren und mit ner FOR Schleife die einzelnen Objekt abarbeiten.Über sSel.Count bekommst du die Anzahl der selektierten Objekte und über sSel.item(ii).value bekommst du das Objekt.Gruß Proofin
|
|
CATIA V5 Programmierung : Spline umdefinieren via Makro
Proofin am 03.10.2007 um 11:55 Uhr (0)
Moin toluman,es ist möglich den Spline zu ändern ohne ihn zu löschen.Wenn der Spline einen festen Namen hat sucht du ihn über die Selection,in deinem Bsp. wäre das dann: selection1.clear selection1.Search "Name=Splinename,all" set oSpline = selection1.item(1).valueDeine alten Punkte hast du ja schon gelöscht.Jetzt kannst du, da wo du die Punkte erstellst, dem Spline den erstellten Punkt zu weisen. Punkte erstellen ... Spline zuweisen call oSpline.AddPoint(DeinPunkt)Am Ende noch ein Update des Part un ...
|
|
CATIA V5 Programmierung : Product mit allen Unterprodukten / Unterparts speichern
Proofin am 12.10.2006 um 13:40 Uhr (0)
Hi Conrad,versuch es mal mit:Set myDoc =CATIA.ActiveDocumentSet subProducts=myDoc.Product.ProductsFor i=1 To subProducts.Count Set subProduct=subProducts.Item(i) set subProductDoc = subProduct.ReferenzProduct.Parent call subProductDoc.SaveAs("SpeicherPfad" & subproductDoc.Name)Next iMfgProofin[Diese Nachricht wurde von Proofin am 12. Okt. 2006 editiert.][Diese Nachricht wurde von Proofin am 12. Okt. 2006 editiert.]
|
|
CATIA V5 Programmierung : drawing isolate via vba makro
Proofin am 09.03.2007 um 09:43 Uhr (0)
Hi toyo,im not sure but i think this is what you mean:----------------------- Code----------------------- Dim oDoc As Document Set oDoc = CATIA.ActiveDocument Dim oSheet As DrawingSheet Set oSheet = oDoc.Sheets.Item(1) oSheet.Isolate----------------------- Code-----------------------regards Proofin
|
|
CATIA V5 Programmierung : Parameterübergabe in Prozedur wie?
Proofin am 04.04.2007 um 11:20 Uhr (0)
Ok, der String bringt dir aber nichts es sein denn du willst in ausgeben.Ich bin nicht ganz sicher, ob ich richtig verstanden hab was du vor hast.Aber ich würde das Rekrusiv versuchen aus zulesen.In etwas so:---------------------------------------------Code---------------------------------------------Sub main()Call f_Daten_auslesen_2(CATIA.ActiveDocument.Product.Products)End SubSub f_Daten_auslesen_2(ByVal oProducts As Products) Dim ii As Integer zählt alle ausgaben Static zaehler As Integer alle Produk ...
|
|
CATIA V5 Programmierung : Polylinien Makro
Proofin am 18.01.2008 um 15:02 Uhr (0)
Hi nreim1,Willkommen im Forum.OHNE es getestet zu haben würde ich folgendes machen:Code:Language="VBSCRIPT"Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet hybridShapeFactory1 = part1.HybridShapeFactorySet hybridShapePolyline1 = hybridShapeFactory1.AddNewPolyline()Set hybridBodies1 = part1.HybridBodiesSet hybridBody1 = hybridBodies1.Item("POINTS")Set hybridShapes1 = hybridBody1.HybridShapes PUNKT 1 Wird hinzugefügtDim PUNKTFor PUNKT = 1 To hybridShapes1.Count Set ref = ...
|
|
CATIA V5 Programmierung : Save As auf Produktstruktur kurze frage
Proofin am 15.02.2008 um 13:55 Uhr (0)
Moin Nico,meine Frage wäre was änderts du mit deinem Rename Makro??Die PartNumber?Hab deine Methoden mal etwas angepasst und hoffe das sie jetzt tut was sie soll.Code:Sub CATmain()CATIA.DisplayFileAlerts = FalseDim myproduct As Productdim Doc as documentSet myproduct = CATIA.ActiveDocument.Productset Doc = myproduct.referenceproduct.parent Enter Absolute Savepath hereDim bsppath As Stringbsppath = "G:exchangeTEST-DIE_MACRONeuer Ort"Dim Abssavepath As StringAbssavepath = InputBox("Please enter the Absolute ...
|
|
CATIA V5 Programmierung : Referenz eines Punktes einer Skizze
Proofin am 13.05.2008 um 18:49 Uhr (0)
Moin Bernd,du bekommst mit Hilfe des Parts die Referenz zu dem ausgewählten Punkt:Code:Dim InputObjectType(1)InputObjectType(0)= "ZeroDimFeatVertexOrWireBoundaryMonoDimFeatVertex"InputObjectType(1) = "Point2D"Status = Selection.SelectElement2(InputObjectType, "Punkt auswaehlen", False)Set SelectedPunkt = Selection.Item(1).Valuedim oRef as Referenceset oRef = myPart.CreateReferenceFromObject(SelectedPunkt)GrußProofin
|
|
CATIA V5 Programmierung : Länge von Kante in Draft messen-HILFE
Proofin am 11.09.2006 um 10:05 Uhr (0)
Hallo Sr.Hermsergänze dein Skript mal wie folgt:Dim MySelection as ObjectSet MySelection = CATIA.ActiveDocument.Selection- ErgänzungDim Ref1 as Referenceset Ref1 = MySelection.Item(1).Value----Dim TheSPAWorkbench As SPAWorkbenchDim TheMeasurable As MeasurableSet TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")- ErgänzungSet TheMeasurable = TheSPAWorkbench.GetMeasurable(Ref1) ----hier bricht das makro ab---Dim dLength as DoubledLength = TheMeasurable.LengthMfgProofin
|
|
CATIA V5 Programmierung : Kante selektieren-aber wie damit weiterarbeiten
Proofin am 14.09.2006 um 09:47 Uhr (0)
Hallo Sr.Herms,Ich habe mal folgendes ausprobiert: sFilter(0) = "Edge" Call oSel.SelectElement2(sFilter, "Test", False) - Ref direkt aus der Selektion Set oRef = oSel.Item(1).Value Set oPoint = oHybFact.AddNewPointOnCurveFromDistance(oRef, 15, False) oPoint.DistanceType = 1 Set oHB = oPart.Bodies.GetItem("Hauptkörper")- Insert anstatt Append verwenden Call oHB.InsertHybridShape(oPoint) - InWork zum anzeigen oPart.InWorkObject = oPoint oPart.Updateund das funktioniert bei mir.GrußProofin
|
