|
CATIA V5 Programmierung : SelectElement unter Unix
Macro_Man am 13.07.2006 um 20:19 Uhr (0)
Hallo Experten,ich habe folgendes Problem, ein Macro soll unter Unix und Windows verwendet werden. In diesem Macro(CATScript) wird einem vorhandenen Punkt (Typ: CircleCenter) durch einen Benutzer eine Referenz(Type:BRep Edge)zugewiesen.Wird das Macro manuel gestartet funktioniert es super. Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet hybridShapeFactory1 = part1.HybridShapeFactoryDim ref(0)ref(0)= "Edge"Dim UserSelection,UserSelSet UserSelection= CATIA.ActiveDocumentSet UserSel= ...
|
|
CATIA V5 Programmierung : Parameter mit multiple values
Macro_Man am 21.05.2007 um 10:51 Uhr (0)
Hallo, ich möchte einem Parameter mittels Script mehrere Werte zuweisen, die ich vorher auslese. Die Anzahl der Werte ist variable.Hier mein Quellcode:---------------------------------------------------------------------Dim String1 As StringDim arrayOfVariantOfBSTR1 As VariantReDim arrayOfVariantOfBSTR1(Anzahl)Set strParam1 = myPart.Parameters.Item("Test")For i = 1 to Anzahl String1 = myPart.AxisSystems.item(i).name arrayOfVariantOfBSTR1(i) = String1NextstrParam1.SetEnumerateValues arrayOfVariantOfBSTR1-- ...
|
|
CATIA V5 Programmierung : Parameter mit multiple values
Macro_Man am 21.05.2007 um 11:15 Uhr (0)
Hallo nochmal ich habe das Problem selber gelöst, hier der richtige Quellcode---------------------------------------------------------------------Dim String1 As StringDim arrayOfVariantOfBSTR1 As VariantReDim arrayOfVariantOfBSTR1(Anzahl)Set strParam1 = myPart.Parameters.Item("Test")For i = 0 to Anzahl-1String1 = myPart.AxisSystems.item(i+1).namearrayOfVariantOfBSTR1(i) = String1NextstrParam1.SetEnumerateValues arrayOfVariantOfBSTR1---------------------------------------------------------------------MfG
|
|
CATIA V5 Programmierung : Do Until Schleife, Ausgans-Prüfkriterium
Macro_Man am 18.07.2006 um 09:51 Uhr (0)
Hallo zusammen, folgendes Problem, ich möchte eine Do Until Schleife programmieren, die nach einer Selction überprüft ob die Selection vom Typ "Body ist.Sub CATMain()Dim Ref(0)Ref(0)= "AnyObject"DoDim UserSel As SelectionSet UserSel=CATIA.ActiveDocument.SelectionUserSel.clearDim E As CATBSTRE = UserSel.SelectElement2(Ref,"TEST",true)MsgBox(UserSel.Item(1).Value.Name)UserSel.EndSelectElementUserSel.ClearLoop Until (E = "Body")End SubSo funktioniert es nicht, die Ausgangsbedingung wird nicht erkannt und die ...
|
|
CATIA V5 Programmierung : Do Until Schleife, Ausgans-Prüfkriterium
Macro_Man am 18.07.2006 um 10:43 Uhr (0)
Hi Tapani,erstmal dabke für deine Hilfe. Ich muss mit CATScript arbeiten da mein MACRO auch unter Unix laufen soll. Ich habe deinen Code mal als VB - Script laufen lassen, bekommen folegende Fehlermeldung: method Item failedin Zeile ==Loop Until (typename(UserSel.Item(1).Value) = "Body")==
|
|
CATIA V5 Programmierung : Do Until Schleife, Ausgans-Prüfkriterium
Macro_Man am 18.07.2006 um 11:18 Uhr (0)
Ich habe das Problem selber lösen können, zwar mit einem kleinem Umweg aber es geht als CATScript. Ich habe einfach eine neue Variable zum überprüfen der Bedingung definiert.Sub CATMain()Dim Ref(0)Ref(0)= "AnyObject"DoDim UserSel As SelectionSet UserSel=CATIA.ActiveDocument.SelectionUserSel.clearDim E,A As CATBSTRE = UserSel.SelectElement2(Ref,"TEST",true)Msgbox (typename(UserSel.Item(1).Value)A = typename(UserSel.Item(1).Value)UserSel.EndSelectElementUserSel.ClearLoop Until (A="Body")End Sub
|
|
CATIA V5 Programmierung : Selektion Window
Macro_Man am 18.07.2006 um 14:03 Uhr (0)
Hi,folgendes Macro habe ich geschriebenSub CATMain()Window///////////////////////////////////// selection Loop /////////////////////////////////////////////////////////////Dim Ref1(0)Ref1(0)= "AnyObject" Do Dim E1,A As CATBSTR Dim UserSel1 As Selection Set UserSel1=CATIA.ActiveDocument.Selection UserSel1.clear E1 = UserSel1.SelectElement2(Ref1,"Select Body",true) A = typename(UserSel1.Item(1).Value) Msgbox typename(UserSel1.Item(1).Value) Lo ...
|
|
CATIA V5 Programmierung : Mittelpunkte finden
Macro_Man am 24.08.2007 um 10:04 Uhr (1)
Hallo zusammen,hier noch ein Vorschlag um Kreiskanten zu erkennen. Zuerst alle Edges in ein Array schreiben, anschließend deren Radius und die Länge auslesen und prüfen ob die Länge der Kante gleich dem Umfang des Kreises ist. Ist diese Bedingung erfüllt handelt es sich um einen Kreis. Abschließend die entsprechenden Referenzen in ein neues Array schreiben. So erhälst du alle Referenzen von den Kanten die einen vollständigen Kreis beschreiben.CODE:For i = 1 To KantenAnzahl Set EdgesArray(i) = selection.It ...
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
