|
CATIA V5 Programmierung : GetCoordinates
Filippo am 26.08.2005 um 12:04 Uhr (0)
Hallo AlfaRomeo75,versuche damit.Sub CATMain() Dim Was(0) Was(0) = "Vertex" "Point" Dim UserSel As Selection Set UserSel = CATIA.ActiveDocument.Selection UserSel.Clear Dim E E = UserSel.SelectElement(Was, "Du kannst jetzt einen Punkt wählen!", True) If E = "Normal" Then Else MsgBox ("Abbruch") End If Dim MySelection As Selection Set MySelection = UserSel.Item(1) .Value MsgBox (MySelection.Name) Dim MyPointCoord(2) MySelection.GetCoordinates MyPointCoord Dim Coord_X, Coord_Y, Coord_Z Coord_X = MyPointCoord( ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Hilfe beim Makroprogrammieren
bgrittmann am 01.11.2011 um 09:39 Uhr (0)
ServusZu deinen Fragen:- Buchempfehlungen: Kochbuch CATIA V5 automatisieren - Jens Hansen CATIA V5 - Makroprogrammierung mit Visual Basic Script - Dieter R. Ziethen- GetSet umbenennen: zB hybridBody.name = "Neuername"- du könntest (falls die Lizenz vorhanden ist) auch direkt eine Translation mit einem Kreisprofil erstellen (AddNewSweepCircle), diese danach im PartDesign nur AufdickenzB (etwas nachbereitete Aufnahme des Makrorecorders zr Erstellng der Translation):Code:....Dim reference1 As Re ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : In VBA - Not auf Catia-Befehle nicht möglich
Merlin2001 am 23.11.2012 um 14:46 Uhr (0)
Eben bin ich in der CATIA V5 Visual Basic Hilfe genau auf dieses Thema gestoßen. Im Kapitel About VB, VBA, Debug and Portability steht dort unter der Überschrift Support of boolean type in CATVBA:Zitat:There is a known limitation concerning the usage of the Boolean type in the V5 Automation methods invoked from VBA. In V5 applications, the Boolean typeis defined as an unsigned char where the VBA definition is a short. When a V5 method returns True, the returned integer value is 1, though VBA is expecting - ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Funktion aus Makro heraus starten
Pausenbrot am 20.11.2009 um 15:13 Uhr (0)
Nee Mörchen,das war nicht gemeint. Eine ext. Anwendung lässt sich über die Shell-Fkt. starten.Ich möchte eine Catia-Fkt. starten z.B."c:Symmetry"Gruß Pausenbrot
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Methode HeadTarget failed
moppesle am 01.12.2016 um 11:02 Uhr (1)
Hallo Bernd,kann man die Methode ,wenn sie nicht vorhanden ist, nicht einfach ausschließen?Z.B wenn nicht da dann Abbruch. ------------------Gruß UweAuch Catia ist nur ein Mensch!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ebene parallel zur Anzeige
HoBLila am 11.06.2012 um 16:56 Uhr (0)
Hatte da auch einmal eine Funktion geschrieben und lässt sich sicher auch als Funktion besser in den eigenen Code integrieren:Code: Erzeugt eine Ebene parallel zur AnsichtPrivate Function createPlaneParallelToScreen(ByRef i_partWork As MECMOD.Part, ByRef i_hybBodyWork As MECMOD.HybridBody) As HybridShapeTypeLib.HybridShapePlaneEquation Dim arrDblOrigin(2) As Variant Double Dim arrDblSightDirection(2) As Variant Double Dim axisSystemsWork As AxisSystems Dim axisSystemWork As AxisSystem Dim ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Noch ein Versuch -> CATProduct nach CATPart
mattu82 am 05.09.2005 um 09:29 Uhr (0)
Gut dann hier das Makro.Ob das gut ist kann ich nicht sagen, aber es funktioniert Ich habe eine catvba Datei erstellt mit VB Editor unter Catia. Public Sub CATMain()Dim CATProtDoc As ProductDocumentDim CATProt As ProductDim wshshellSet CATProtDoc = CATIA.ActiveDocumentSet CATProt = CATProtDoc.ProductCATIA.ActiveDocument.Selection.ClearCATIA.ActiveDocument.Selection.Add CATProtCATIA.StartCommand ("Convert Product to CATPart")MsgBox "test"Call Shell("wscript c:sendkey.vbs")End SubDie SendKey.vbs sieht folgen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Strukturbaum auslesen
V5Playaz am 12.06.2008 um 08:38 Uhr (0)
Hallo,hat leider nichts gebracht, mit der Definition als CATScript.Das Makro funktioniert, wenn man ein bereits geöffnetes Product damit bearbeitet. Das automatisierte öffnen scheitert jedoch, und somit auch der rest.am anfang hatte es mal funktioniert.ich bin mit makros eher unzufrieden, da diese nicht immer konstant laufen.ich habe es jetzt über ein Visual Basic Programm gelöst, also eine eigenständige *.exe Datei, welche auf CATIA zugreift.der Code ist überwiegend der selbe, es müssen nur alle variablen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elemente aus Geometrischen Set in txt-File exportieren
Proofin am 06.11.2006 um 09:17 Uhr (0)
Hi Matthias,ich hab dein Skript mal erweitert für das Auslesen von Punkten, Linien und Kreisen.Const sPOINT = "HybridShapePoint"Const sLINE = "HybridShapeLine"Const sCIRCLE = "HybridShapeCircle"Const sFILEPATH = "C:Dokumente und EinstellungenAll UsersDesktopexport.txt"Sub CATMain() Was soll selektierbar sein Dim sSel Dim UserSelection Dim EnableSelectionFor(0) Dim oHybridbody Dim aCoord(2) Dim aPoints(8) Dim oStream Dim oShapes Dim ii Dim oSpaWB As SPAWorkbench Dim oMeas As Measurable Dim oDatei Dim sType ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kurven durch Linien und Bögen ersetzen
Stefan Weber am 15.08.2004 um 07:20 Uhr (0)
Hallo Forumsgemeinde, ich bin neu hier und möchte mich kurz vorstellen. Ich bin 36 Jahre alt und arbeite in einem Konstruktionsbüro für Blechumformung. Seit etwa einem Jahr arbeite ich mit Catia V5. Mit der Konstruktion in Catia komme ich gut zurecht und möchte mich auch in den Bereich der Programmierung einarbeiten. Nun zu meiner Frage: Für die NC-Programmierung von Schnittstempeln muss die Schnittkontur (Kurve) durch Linien und Bögen erstzt werden. Bei kleineren Schnittkonturen ist dies kein Problem, jed ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Referenzpunkt erzeugen
AlfaRomeo75 am 20.06.2005 um 09:26 Uhr (0)
Hallo, hab da mal ne Frage! Ich möchte einen Punkt in Bezug auf einen Referenzpunkt erzeugen(besser wäre in Bezug auf ein Achsensystem). Ich bekomme bei folgendem Code aber immer eine Fehlermeldung! Was mache ich falsch? (Fange gerade erst mit der Makroprogrammierung an!) Vielen Dank im Vorraus! Hier nun mein Code: Sub CATMain() Dim aPart As Document.Part Set aPart = CATIA.ActiveDocument.Part Dim HB as HybridBody Set HB = aPart.HybridBodies.Item ( Punkte ) Auswahl festlegen ------------------------ ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SelectElement2 product auswählen
Suchtiii94 am 24.01.2019 um 12:53 Uhr (1)
Mein "Testsub" würde jetzt so aussehen:Code:Sub CATMain()Dim UselLBDim Usel As ObjectDim InputObject(0) As VariantDim oStatusInputObject(0) = "Product"Set Usel = CATIA.ActiveDocument.SelectionUsel.ClearSet UselLB = UseloStatus = UselLB.SelectElement2(InputObject, "Baugruppe auswählen!", True)If (oStatus = "Cancel") ThenExit SubEnd IfSet oStatus = UselLB.Item2(1).ValueIf TypeName(oStatus.ReferenceProduct.Parent) "ProductDocument" ThenStatus = MsgBox("Parts sind nicht zulässig!" & vbLf & _"Bitte wählen Sie ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parts eines Products schnell auslesen!
joehz am 15.12.2015 um 14:21 Uhr (1)
Hallo,ich hab Dich vor knapp 2 Wochen aufgefordert, uns Deinen Code zu zeigen.Gemeint war, die Routine mit der Du das alles ermittelst.Wenn wir Dir sagen sollen wo Du die Zeit verlierst, musst Du uns zeigen wie Du bisher vorgehst.Tschau,Joe------------------Inoffizielle Catia Hilfeseite
|
| In das Form CATIA V5 Programmierung wechseln |
