|
CATIA V5 Programmierung : Element (LinePtPt) editieren
V5-Maxe am 30.11.2005 um 12:10 Uhr (0)
Hallo zusammen,ich möchte gern eine existierende LinePtPt mit Namen "Line.1", die zwischen "Point.1" und "Point.2" erzeugt wurde so ändern, das die sich "Line.1" dann zwischen "Point.1" und "Point.3" befindet.Set my_line = mysel.item(1).valueset HybridShapeLinePtPt = my_lineset ref_line1 = part1.createreferencefromobject(HybridShapeLinePtPt)set ref_to_Anfangspunkt = ref_line1.PtOrigineAnfangspunkt=ref_to_Anfangspunkt.Value Leider bekomme ich bei diesem Code eine Fehlermeldung, das die Methode oder Eigens ...
|
|
CATIA V5 Programmierung : kein Value für HybridShapeSweepLine / HybridShapeSweepConic
V5-Maxe am 02.03.2007 um 08:45 Uhr (0)
Hi Proofin,Du hast recht, in selection1.item(1).value.name ist der Name drin - für alle Elemente, nur für diese HybridShapeSweepConic gibt es keine Methode "Value" (siehe Anhang im 1. Beitrag - Item(2)). Ob Dassault da was vergessen hat?Also keine Lösung zur Zeit?Für Deine Mühe gebe ich die 10 Unities Gruß V5-Maxe
|
|
CATIA V5 Programmierung : kein Value für HybridShapeSweepLine / HybridShapeSweepConic
V5-Maxe am 01.03.2007 um 15:11 Uhr (0)
Hi Proofin, danke für deine Mühe! Da ich das Element aus einer selektion bekomme hat das Item(I) den Namen "CATIASelectedElementXX" - und das hilft mir einfach nicht weiter, da ich ja nicht den Namen der Selektion brauche, sondern den Namen des selektierten Elementes. Mein Code für die Schleife:for i = 1 to selection1.count distance=len(selection1.item(i).value.name)-len("Copy of ") selection1.item(i).value.name = right(selection1.item(i).value.name,distance)nextEs funzt auch für alle Elemente, nur ...
|
|
CATIA V5 Programmierung : kein Value für HybridShapeSweepLine / HybridShapeSweepConic
V5-Maxe am 02.03.2007 um 10:02 Uhr (0)
Proofin,ich habe eine Selektion: selection1.Search "Name=Copy of*,all"diese ist völlig unabhängig vom Elementtyp. Alle selektierten Elemente benenne ich um:for i = 1 to selection1.count distance=len(selection1.item(i).value.name)-len("Copy of ") selection1.item(i).value.name = right(selection1.item(i).value.name,distance)nextDas funktioniert auch problemlos. Nur wenn mal ein HybridShapeSweepConic in der Selektion drin ist, dann bleibt das Macro dort hängen mit Fehlermeldung: "Objekt erforderlich sel ...
|
|
CATIA V5 Programmierung : Change Body per Macro
V5-Maxe am 20.06.2005 um 14:37 Uhr (0)
Hallo , ich brauch mal jemanden, der mir auf die Sprünge hilft: Ein Element in einen anderen OpenBody zu schieben (Change Body) ist ja ganz einfach, wenn dies aber per Macro geschehen soll, wird es schon schwierig. Ich habe es nur geschafft, ein neu erzeugtes Element einem bestimmten OpenBody zuzuweisen, Sub CATMain() Dim partDocument1 As Document Set partDocument1 = CATIA.ActiveDocument Dim part1 As Part Set part1 = partDocument1.Part Dim Selection As Selection Set Selection = partDocument1.Selection ...
|
|
CATIA V5 Programmierung : Automatisch Flächen auslesen
V5-Maxe am 07.11.2005 um 13:56 Uhr (0)
Hallo Catialuder,es gibt sicher mehrere Wege dein Problem zu lösen.Hier mein Vorschlag:alle Elemente zu selectieren, die "Türöffnung*" heißen:Dim productDocument1 As DocumentSet productDocument1 = CATIA.ActiveDocumentDim mysel As SelectionSet mysel = productDocument1.Selectionmysel.search "name=Türöffnung* & (((CATStFreeStyleSearch.Surface + CATPrtSearch.Surface) + CATGmoSearch.Surface) + CATSpdSearch.Surface)),all"dann kannst du die selected Elements zählen und in einer Schleife nacheinander messen und ei ...
|
|
CATIA V5 Programmierung : Erzeugen von Linien aus Punkten
V5-Maxe am 19.01.2006 um 15:00 Uhr (0)
Hallo noxx,ich habe dir nur den Teil aufgeschrieben, der deine Anfrage betraf.Am besten Du zeichnest erstmal ein Macro auf:Tools/Macro/StartRecordingDann machst Du das, was am Ende rauskommen soll in der richtigen Reihenfolge, und am ende drückst du wieder "Stop"Los geht es in etwa so:Sub CATMain()Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridShapeFactory1 As FactorySet hybridShapeFactory1 = part1.HybridShapeFactoryDim hybridBo ...
|
|
CATIA V5 Programmierung : LimitMode eines Pad lesen/ändern
V5-Maxe am 04.10.2006 um 14:17 Uhr (0)
Hallo noch mal,für ein Product sieht der Code bei mir so aus:Sub CATMain()Dim productDocument1 As DocumentSet productDocument1 = CATIA.ActiveDocumentDim documents1 As DocumentsSet documents1 = CATIA.DocumentsDim partDocument1 As DocumentSet partDocument1 = documents1.Item(1)Dim part1 As PartSet part1 = partDocument1.PartDim obj As AnyObjectSet obj = part1.FindObjectByName("Pad.3")MsgBox obj.FirstLimit.LimitModeEnd Sub... und funzt auchGruss V5-Maxe
|
|
CATIA V5 Programmierung : kein Value für HybridShapeSweepLine / HybridShapeSweepConic
V5-Maxe am 01.03.2007 um 11:09 Uhr (0)
Hallo,ich weiss nicht weiter.. für alle Elemente die ich bisher in V5 per Macro bearbeitet habe gab es eine Methode "Value" (siehe Anhang - selection.Item(1)).Aber jetzt habe ich ein Element vom Typ "HybridShapeSweepLine" und kann mir nicht mal den Elementnamen (.Value.Name) holen weil es die Methode "Value" für diesen Elementtyp nicht gibt Hat jemand dieses Problem schon mal gehabt?Ausserdem ist das Element eigentlich auch kein "HybridShapeSweepLine" sondern ein "HybridShapeSweepConic", aber catvba zeigt ...
|
|
CATIA V5 Programmierung : Punkte bemassen in geöffneter Skizze
V5-Maxe am 24.11.2008 um 14:40 Uhr (0)
@CAMiCADse DANKE, das wars (fast)Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim MyPart As PartSet MyPart = partDocument1.PartDim sel1 As SelectionSet sel1 = partDocument1.SelectionDim HAxis, VAxis As Line2DDim Ref1, Ref2 As ReferenceDim oCurrentSketch As SketchDim oConstraints As ConstraintsDim Abstand As Constraintsel1.Search ("Sketcher.Punkt;in")Set oCurrentSketch = CATIA.ActiveDocument.Selection.FindObject("CATIASketch")Set oConstraints = oCurrentSketch.Constr ...
|
|
CATIA V5 Programmierung : Punkte bemassen in geöffneter Skizze
V5-Maxe am 25.11.2008 um 07:52 Uhr (0)
Hallo CAMiCADse,dank deiner Hilfe ist jetzt alles gut! 10Unis 4UDer Hinweis mit Skizze zu vor Aufzeichnungsende war Klasse, bisher war das aufgezeichnete Macro immer leer.Auch für alle anderen hier der Code, der zumindest bei mir funzt!Option ExplicitSub CATMain()On Error Resume NextDim I As IntegerDim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim MyPart As PartSet MyPart = partDocument1.PartDim sel1 As SelectionSet sel1 = partDocument1.SelectionDim HAxis, VAxis As Line2DDim Ref1 ...
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
