|
CATIA V5 Programmierung : Winkel zwischen ZY Ebne und Linie?
sawah am 27.09.2011 um 16:40 Uhr (0)
Hallo,Code:Dim TheSPAWorkbench As WorkbenchDim aTheMeasurable, bTheMeasurable As MeasurableDim angle1Dim reference1 As ReferenceDim reference2 As ReferenceSet reference1 = CATIA.ActiveDocument.Part.HybridBodies.Item(4).HybridShapes.Item("LineNormal_1")Set reference2 = part1.CreateReferenceFromObject(part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(KOS_1;2);None:();Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRep Version_CXR15)", axisSystems1.Item("KOS_1 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PtExtremity
Criollo am 29.09.2011 um 09:17 Uhr (0)
Hallo,ich habe eigentlich eine ganz einfache Aufgabenstellung - dachte ich zumindest. Ich möchte den Endpunkt einer Punkt zu Punkt - Linie umdefinieren.Ich wollte hierfür eigentlich die Methode "PtExtremity" verwenden, aber die läuft leider ständig auf einen Fehler. Ebenso wie andere Methoden dieser Klasse, die ich für meine Linie mal versucht habe (z.B PtOrigine)Meinen neuen Endpunkt habe ich als Referenz definiert. Die Linie selbst wird im Makrolauf sauber erkannt (-- Name wird ausgegeben)Anbei der Code ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PtExtremity
meisterlumpi am 29.09.2011 um 10:13 Uhr (0)
checkst du auch ob deine linie l eine HybridShapeLinePtPt ist?Code:For each hs in myhb.HybridShapes If hs.name = "E2" thenSet e2 = hselseif hs.name = "Linie" thenSet l = hsend ifNextwie viele hybridshapes gibt es, die "E2" oder "Linie" heißen? diese schleife findet nämlich immer nur das jeweils letzte element, was so heißt, in dem geoset.hier ein beispielcode für ein part mit 3 punkte und einer linie. die linie ist anfangs zwischen pkt1 und pkt2 und wird dann geändert auch pkt1 und pkt3.Code:Sub test()---- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Hinzugefügte Eigenschaften einen Wert zuweisen
tberger am 29.09.2011 um 12:01 Uhr (0)
So vielleicht:...Dim MyArray(4)MyArray(0) = "A2"MyArray(1) = "A4"MyArray(2) = "8.8"MyArray(3) = "10.9"MyArray(4) = "12.9"Dim strParam1 As Object StrParam ist restricted im CATVBASet strParam1 = parameters1.CreateString("Material", "")strParam1.SetEnumerateValues MyArray()...------------------Grüße aus dem ThurgauThomas+++++++++++++++++++++++++++++++++CATIA - eine Laune der Natur ...[Diese Nachricht wurde von tberger am 29. Sep. 2011 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : deutschspr. Makros in englischspr. V5
bgrittmann am 29.09.2011 um 13:32 Uhr (0)
ServusMit hoher Wahrscheinlichkeit: ja.Entweder werden Startcommands im Makro verwendet oder Körper, Linie, Ansichten, ... werden über deutsche Namen angesprochen.GrußBerndPS: Oder kannst du nicht einfach an deinem Arbeitsplatz CATIA auf deutsch umschalten?------------------Warum einfach, wenn es auch kompliziert geht.[Diese Nachricht wurde von bgrittmann am 29. Sep. 2011 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Koordinaten eines Splines exportieren
0815noway am 18.10.2012 um 19:22 Uhr (0)
Kann mir bitte jemand helfen, ich habe dieses Makro gerade importiert und bei der Abfrage "Wählen Sie den Spline aus" lässt er mich nichts auswählen. Ich benutze Catia V5 R20. Ich kenne mich leider überhaupt nicht mit Makros aus und brauche die Funktion dringend für meine Abschlussarbeit.------------------Vielen Dank im Voraus für eure Hilfe!!!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : deutschspr. Makros in englischspr. V5
RSchulz am 30.09.2011 um 11:22 Uhr (0)
Hallo JuliJane,beschränkt trifft es nicht, eingeschränkt eher. Die VBA-Umgebung ist eben nur eine Hilfumgebung für Makros und wird auch von mir für die Automatisierung genommen. Generell wäre aber eher die CAA-Umgebung die Richtige. However gibt es etliche Möglichkeiten, um gewisse Dinge und vollst. Makros für mehrere Sprachen zugänglich zu machen.Ich habe das auch schon an etliche Makros gemacht und eigene Module geschrieben, die eben die Sprachumgebung auslesen und dann globale Variablen mit den verwende ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : in Produkt externes Part durch select ersetzen
cmb am 30.09.2011 um 13:58 Uhr (0)
Hallo Forum,ich habe in meiner Catia Sitzung ein CATProduct (active Document) und ein Part geöffnet.Nun möchte ich durch eine selektion einen Replace machen.Das zu ersetzende Part kann ich auswählen das funktioniert.Aber die zweite selektion bringe ich nicht zum laufen. Muss ich die selektion in ein Array übergeben?GrußNorbertCode:Sub CATMain() Dim oDocs As Documents Dim oDoc As Document Dim oProd As Product Dim oSel As Object Dim aAuswahlFilter(0) Dim Status As String Dim oPartNeu As Document Set ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : in Produkt externes Part durch select ersetzen
bgrittmann am 30.09.2011 um 17:13 Uhr (0)
ServusZum ein Objekt in einem anderen Dokument wählen zu können, muss du die Methode SelectElement4 verwenden.Dann wird eine Document und ein Selection zurückgeliefert.Anbei ein Beispiel:Code:Sub CATMain() Dim oDocs As Documents Dim oDoc As Document Dim PartDocument As Document Dim oProd As Product Dim oSel As Selection Dim oSelB As Object Dim aAuswahlFilter(0) Dim Status As String Dim oPartAlt As Product Dim oPartNeu As Product Dim path As String Set oDoc = CATIA.ActiveDocument Set oDocs = C ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Setzen der Option Load referenced documents
bgrittmann am 14.10.2011 um 10:57 Uhr (0)
ServusAlso der Makrorekorder spukt für das deaktivieren diesen Code aus:Code:Language="VBSCRIPT"Sub CATMain()Dim settingControllers1 As SettingControllersSet settingControllers1 = CATIA.SettingControllersDim generalSessionSettingAtt1 As SettingControllerSet generalSessionSettingAtt1 = settingControllers1.Item("CATCafGeneralSessionSettingCtrl")generalSessionSettingAtt1.RefDoc = FalsegeneralSessionSettingAtt1.SaveRepositoryEnd SubGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Unix Systemvariable auslesen
Meridian am 07.10.2011 um 08:53 Uhr (0)
Hallo,ist es über CATScript möglich eine Unix (AIX) Systemvariable auszulesen?Ich möchte die Systemvariable $USER unter Catia V5 in eine neue Variable schieben und den Inhalt der Variable für eine Pfadangabe nutzen.Beispiel:Variable = $USERSet oFileIn = oFileSys.GetFile("/tmp/"&Variable&"/Point.txt")z.B. /tmp/Meridian/Point.txtHat vielleicht jemand einen Tipp?Viele GrüßeMeridian
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Rename Publication ( Veröffentlichung umbenennen)
cmb am 06.10.2011 um 15:21 Uhr (0)
Hallo Forum,es gibt zu diesem Thema schon einige Treads , eine Lösung dazu habe ich aber leider nicht finden können.Ich möchte meine Veröffentlichungen überprüfen und die Umlaute eliminieren. Das wäre mein Ansatz:Code:Sub CATMain()On Error Resume Next Dim oDoc As Document Dim oProd As Product Set oDoc = CATIA.ActiveDocument Set oProd = oDoc.Product Set Publics = oProd.Publications Dim ref1 As String For i = 1 To Publics.Count Set ref1 = Publics.Item(i).Valuation MyString = ref1.DisplayName ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Rename Publication ( Veröffentlichung umbenennen)
bgrittmann am 06.10.2011 um 15:54 Uhr (0)
ServusIMHO gibt dir "Valuation" die Referenz nicht die Publication zurück.Anbei wein Beispiel wie es klappen könnte: Zitat:Sub CATMain()On Error Resume Next Dim oDoc As Document Dim oProd As Product Set oDoc = CATIA.ActiveDocument Set oProd = oDoc.Product Set Publics = oProd.Publications Dim ref1 As String For i = 1 To Publics.Count Set ref1 = Publics.Item(i) MyString = ref1.Name MyString = Replace(MyString, "ö", "oe") MyString = Replace(MyString, "ä", "ae") ...
|
| In das Form CATIA V5 Programmierung wechseln |
