|
CATIA V5 Programmierung : Case Verzweigung
bgrittmann am 23.07.2009 um 08:33 Uhr (0)
ServusMüsste es nicht:Code:Sub CATMain()Set Parameter = CATIA.ActiveDocument.Part.ParametersSet Para1 = Parameter.item ("DIN 6935")Var4 = Para1.ValueSelect Case Var4Case TrueMsgBox (Var4)Case ElseMsgBox ("blöd")End SelectEnd Subheißen?GrußBerndPS: Mit Google funktioniert die Suche immer noch zB "case catia site:cad.de" oder allgmein nur nach "VB case"------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Offset von Flächen
bgrittmann am 28.07.2009 um 08:47 Uhr (0)
ServusVielleicht könnte es so gehen:- "Parametrisches Zerlegen einer Fläche" aus dem "Kochbuch; CATIA automatisieren" anwenden- für jede Teilfläche den Offset extra erstellen und falls der Offset nicht geht den Fehler abfangenGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA ReadOnly erkennen ?
bgrittmann am 17.03.2011 um 10:28 Uhr (0)
ServusVersuch mal:IsReadOnly = CATIA.ActiveDocument.ReadOnlyGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : right-Funktion bis zu einem Zeichen
bgrittmann am 14.09.2009 um 08:16 Uhr (0)
ServusKannst du es nicht einfach direkt machen? zBCode:Set Datei = CATIA.ActiveDocumentOrdner =Datei.PathEDIT: Hat sich scheinbar erledigt. Ich hab nur den Anfang des Themas gelesen.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.[Diese Nachricht wurde von bgrittmann am 14. Sep. 2009 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : In Drawing String von anderem Blatt auslesen
bgrittmann am 18.09.2009 um 18:19 Uhr (0)
ServusIch nehme an dass sich die Frage auf den Beitrag bezieht.Könnte so klappen (ungetestet):Code:CATMain () Dim Zeichnung as Document Set Zeichnung = CATIA.Documents.ActveDocument Zeichnungsnummer auslesen Set Blatt = Zeichnung.Sheets.Item("Details") Set Texte = Blatt.Views.Item(2).Texts For n = 1 to Texte.Count If Texte.Item(n).Name = "Text.67" then Zeichnungsnummer = Texte.Item(n).Text Exit For EndIf next End SubGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Blattname von nichtaktiven Blatt ermitteln
bgrittmann am 29.09.2009 um 09:06 Uhr (0)
ServusVersuch es mal so:Code:Set oDoc = CATIA.ActiveDocumentSet oSheets = oDoc.SheetsFor i = 0 to oSheets.Count Set Sheet = oSheets.Item(i) Blattname = Sheet.Name MsgBox BlattnamenextGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Publizieren von User Defined Parameter
bgrittmann am 24.01.2014 um 17:24 Uhr (1)
ServusSollte funktionieren. Anbei ein kleiner Code (aus Makroaufzeichnung und Ergänzung einer Schleife):Code:Sub CATMain()Dim productDocument1 As ProductDocumentSet productDocument1 = CATIA.ActiveDocumentDim product1 As ProductSet product1 = productDocument1.ProductDim UserDefParameters As ParametersSet UserDefParameters = product1.UserRefPropertiesDim publications1 As PublicationsSet publications1 = product1.PublicationsDim reference1 As ReferenceDim publication1 As PublicationDim strPubName As StringDim ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : User-Selektion nach CATParts in einem CATProduct
bgrittmann am 25.09.2009 um 11:32 Uhr (0)
ServusDu könntest doch das Makro im ("CATIA-internen") VBA-Editor als VBA-Modul erstellen.Dann hast du auch ohne Visual Studio das Watchfenster,....GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Links erkennen
bgrittmann am 01.10.2009 um 09:37 Uhr (0)
ServusUnd die Fehlermeldung mittels:CATIA.DisplayFileAlerts = Falseausschalten? Ist das eine Lösung? (Achtung am Ende des Makros wieder einschalten)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Partname mit Indize auslesen
bgrittmann am 02.11.2009 um 20:44 Uhr (1)
ServuszB:CATIA.ActiveDocument.Product.Products.Item(1).NameOder von wo aus willst du auf den Exemplarnamen zugreifen?GrußBerndEDIT: Tippfehler ausgemerzt.------------------Warum einfach, wenn es auch kompliziert geht.[Diese Nachricht wurde von bgrittmann am 02. Nov. 2009 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Typ des Objektes herausfinden per Vba.Net
bgrittmann am 08.03.2011 um 16:29 Uhr (0)
ServusDu kannst einfach mit Type von einem Element der Selection den Typ ausgeben. zB Element selektieren und folgendes Scrpt ausführen:Code:Sub CATMain() Dim oDocument As Document Set oDocument = CATIA.ActiveDocument Dim oselection As Selection Set oselection = oDocument.Selection MsgBox oselection.Item2(1).Type End SubGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Hierarchie unabhängige erstellung von Elementen durch User-Selektion?
bgrittmann am 08.03.2011 um 12:24 Uhr (0)
ServusVersuch es mal so:Code:Sub CATMain() Dim AktuellesPartDocument As PartDocument Set AktuellesPartDocument = CATIA.ActiveDocument Dim AktuellesPart As Part Set AktuellesPart = AktuellesPartDocument.Part ----- Selektion definieren und leeren ----- Dim UserSel1 As Object Set UserSel1 = AktuellesPartDocument.Selection UserSel1.Clear ----- Auswahl_USfilter festlegen ------------------- Dim Was_US(0) Was_US(0) = "HybridBody" ------------------------------------------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bei selection ersetzen
bgrittmann am 19.11.2009 um 19:35 Uhr (1)
ServusÜber den Index des "Item" ist IMHO ein Umweg.Versuch es mal so ungetestet:Code:Sub CATmain() Dim oDoc As Document Dim oProd As Product Dim oSel As Object Dim myType(0) Dim myStatus As String Dim Itemname As String Set oDoc = CATIA.ActiveDocument Set oProd = oDoc.Product Set oSel = oDoc.Selection oSel.Clear myType(0) = "Product" myStatus = oSel.SelectElement2(myType, "Bitte Part auswählen", True) If myStatus = "Normal" Then Part = oSel.Item(1).Val ...
|
| In das Form CATIA V5 Programmierung wechseln |
