|
CATIA V5 Programmierung : Problem mit dem Befehl: AddNewLinePtPt
tonka am 18.07.2006 um 10:21 Uhr (0)
Hy @ all!Ich hoffe jemand von euch kann mir helfen. Vorab:Ich benutze CATIA V5 R14 Service Pack 4 und ich programmieren mit VBA(CATIA)Aufgabenstellung: Ich habe in einem Part eine Fläche. Ich möchte das ich zwischen zwei Eckpunkten dieser Fläche, die vom Benutzer mittels SelectElement2-Function ausgewählt werden, eine Linie erzeugen.Ich habe es schon auf viel Arten versucht z.B. mit CreateReferenceFromObject,BRepName,Name,Geometry doch nichts funktioniert wirklich. Zum Schluss habe ich es mit Stringmanipul ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Do Until Schleife, Ausgans-Prüfkriterium
Tapani. am 18.07.2006 um 10:24 Uhr (0)
moin,dein E liefert den Status des Select-Commands, d.h. "Normal", "Cancel" etc. und nicht den Typ des Selected Element. Um das rauszukriegen gibts die VBS-Funktion typename. Auch brauchst du bei SelectElement2 nicht EndSelectElement zu verwenden. Und wenn du mit VB-Script arbeitest sollten Dim-Statements kein "as" enthalten. Gibt bei mir zumindest einen kritischen Fehler.Dann sieht dein Script folgendermaßen aus:Code:Sub CATMain() Dim Ref(0) Ref(0)= "AnyObject" Do Set UserSel=CATIA.ActiveDocument.S ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
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
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Problem mit dem Befehl: AddNewLinePtPt
tonka am 18.07.2006 um 13:33 Uhr (0)
Danke Steffen!Danke für deine Antwort, jedoch hat das leider nichts geändert. Bekommen trotzdem diese Fehlermeldung: "Object doesnt support this property or method".Function zeichnen() Dim Bauteil As Part Set Bauteil = CATIA.ActiveDocument.Part Dim Wzk3D As Factory Set Wzk3D = Bauteil.HybridShapeFactory Dim HBody As HybridBody Set HBody = Bauteil.InWorkObject Dim RefP1 As Reference, RefP2 As Reference, Ref As Reference Dim Punkt As HybridShapePointCoord Set RefP1 = AuswahlPunkt1.Reference S ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Problem mit dem Befehl: AddNewLinePtPt
tonka am 18.07.2006 um 13:53 Uhr (0)
Hey Steffen!Danke für deine schnell Anwort, leider gehts trotzdem nicht, aber die Fehlermeldung hat sich geändert: "Object doesnt support this property or method". Könnte das eventuell an den Lizenzen liegen oder durch irgendetwas anderes gesperrt sein? Oder kann es daran liegen, das die Flächen "tote" Flächen sind. Diese wurden nämlich mittels igs-format eingespielt! Das Problem is zum Verzweifeln Function zeichnen() Hinterschnitt.Hide Dim Wzk3D As Factory Set Wzk3D = CATIA.ActiveDocument.Part.HybridS ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
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 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Problem mit dem Befehl: AddNewLinePtPt
Steffen Hohmann am 18.07.2006 um 14:18 Uhr (0)
Hallo tonka,probier es mal damit:Function zeichnen() Hinterschnitt.Hide Dim oDoc As PartDocument Set oDoc = CATIA.ActiveDocument Dim Wzk3D As Factory Set Wzk3D = oDoc.Part.HybridShapeFactory Dim oSel As Object Set oSel = oDoc.Selection Dim Inp(0) Inp(0) = "Vertex" oSel.Clear oSel.SelectElement2 Inp, "Eckpunkt 1 auswählen", False Dim oRef1 As Reference Set oRef1 = oSel.Item(1).Reference oSel.Clear oSel.SelectElement2 Inp, "Eckpunkt 2 auswählen", False Dim oRef2 As Reference Set oRef2 = oSel ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Textfelder in Detailändern
michael.001 am 18.07.2006 um 21:27 Uhr (0)
Hallo,ich möchte Textfelder in einem Detail ändern, bekomme aber den Zugriff auf die Texte nicht hin. Zum testen habe ich ein Makro zusammenstoppelt:Dim MySheet As DrawingSheet Set MySheet = CATIA.ActiveDocument.Sheets.ActiveSheet Dim MyView As DrawingView Dim View2 As DrawingView Set MyView = MySheet.Views.ActiveView Dim i As Integeri = MyView.Components.CountMsgBox "Count " & i Diese Ausgabe ist korrektDim ThisDrawingComponent As DrawingComponent Set ThisDrawingComponent = MyView.Components.Item(1) MsgB ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Join: Flächen aus Parts importieren
mgheinz1001 am 19.07.2006 um 09:05 Uhr (0)
Hallo,ich habe folgendes Problem beim Erzeugen von Joins:Mein Makro soll es dem Anwender ermöglichen Flächen in einem Product zu selektieren, die dann anschließend in einem Join verbunden werden. Wählt der Anwender Flächen aus, die sich alle in dem selben Part befinden, ist es kein Problem - hier zeichnet der Rekorder nachvollziehbaren Code auf. Wählt der Anwender jedoch Flächen aus verschiedenen Parts, wird es ungleich schwieriger. Führt man dies interaktiv in CATIA aus (Flächen von verschiedenen Parts se ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA-Part oder Produkt erkennen
s1640066 am 19.07.2006 um 14:43 Uhr (0)
Hallo an alle,ich benötige einen code in dem das Makro am Anfang des Durchlaufs erkennt ob das Document ein Part oder ein Product ist. Und wenn das aktive Dokument ein produkt ist, wie erkenne ich welcher Part in dem aktiv ist?.. ein kleiner code in CatScript wäre sehr hilfreich.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA-Part oder Produkt erkennen
Lusilnie am 19.07.2006 um 22:00 Uhr (0)
Hallo s1640066,der "Erkenn-Code" ist einfach und heißt:Code:If TypeName(CATIA.ActiveDocument) = "PartDocument" Then ...oderIf TypeName(CATIA.ActiveDocument) = "ProductDocument" Then ...und Deine zweite Frage ist ein "Klassiker" im Forum (- schon mal Suche bemüht?) und die Antwort lautet: "Kennt das Script nicht!", d.h. ist für die Macro-Programmierung ohne Bedeutung!mfg,Lusilnie------------------Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!frei nach größeren Geistern
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Join: Flächen aus Parts importieren
Tapani. am 20.07.2006 um 09:08 Uhr (0)
moin,das Problem liegt, wie du schon richtig erkannt hast darin, das im Click-Interface implizit einige Schritte durchgeführt werden, die vom Recorder nicht aufgezeichnet werden. In der Regel sind diese Schritte aber auch durch das Script erreichbar, man muss sie eben nur komplett per Hand erstellen, da der Recorder versagt...So, aber nun zum Problem:Wenn die eine Fläche in einem anderen Part liegt, musst du sie zuerst kopieren und dann per Paste Special als "as Result" in dem anderen Part einfügen. Aus ir ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA-Part oder Produkt erkennen
s1640066 am 20.07.2006 um 09:50 Uhr (0)
Vielen Dank! Zitat:Original erstellt von Lusilnie:Hallo s1640066,der "Erkenn-Code" ist einfach und heißt:Code:If TypeName(CATIA.ActiveDocument) = "PartDocument" Then ...oderIf TypeName(CATIA.ActiveDocument) = "ProductDocument" Then ...und Deine zweite Frage ist ein "Klassiker" im Forum (- schon mal Suche bemüht?) und die Antwort lautet: "Kennt das Script nicht!", d.h. ist für die Macro-Programmierung ohne Bedeutung!mfg,Lusilnie
|
| In das Form CATIA V5 Programmierung wechseln |
