|
CATIA V5 Programmierung : Zelle in Excel mit Maus markieren
C.Samer am 10.01.2018 um 13:50 Uhr (1)
Bei mir funktioniert folgender Code (VB6):Code:Sub CATMain() Dim oExcel As Object Dim oBook As Object Dim oSheet As Object Set oExcel = CreateObject("Excel.Application") Set oBook = oExcel.Workbooks.Open("Z:Konstruktionstabellen31, Zylinderschraube mit Innensechkant ISO 476231 Konstuktionstabelle opt2.xls") Set oSheet = oBook.Worksheets(1) oExcel.Visible = True Dim rngZellen As Object Set rngZellen = oExcel.Application.InputBox("Wähle bitte die Zellen.", " ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Drawing Export Multi-Document Monochrom
C.Samer am 18.10.2019 um 09:20 Uhr (1)
Danke für all eure Antworten!Wenn ich die Details vor dem Export lösche, dann müsste ich trotzdem noch alles auf dem Drawing befindliche schwarz-weiß bekommen. Bei VisProperties auf 0 0 0 0 sind leider Area Fill und das importierte Excel farbig geblieben (und wer weiß was sonst noch). Wenn das noch jemand lösen kann (Vor allem das Excel, welches ja quasi nur als "Bild" vorliegt, wenn man das Original-Excel nicht hat), dann würde ich das Makro so basteln Schade dass es scheinbar keine Möglichkeit gibt alle ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro-Version abfragen
C.Samer am 27.09.2018 um 11:55 Uhr (1)
Hey, du kannst auch direkt aus dem Makro die Version auslesen.Habe das mal so in einem alten VBA Projekt verwendet und würde es jetzt so nichtmehr machen (vor allem da ich jetzt nur noch in CATScript programmiere) aber vielleicht hilft es dir ja!Copy Paste:Code:Attribute VB_Name = "ProjectName"Option ExplicitGlobal Const glbProject = "ProjectName"Global Const glbVersion = "1.2"Global Const glbLanguage = "VBA"Global Const glbAuthor = "Samer Christoph"Global Const glbCompany = "Max Mustermann GmbH"Global Con ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Drawing Export Multi-Document Monochrom
C.Samer am 14.10.2019 um 15:13 Uhr (15)
Hallo Leute,ich würde gerne ein Drawing mit mehreren Sheets und Detail-Sheets als PDF speichern.Und zwar*alle Sheets in einem PDF*ohne den Detail-Sheets*monochrom (schwarz weiss)Habe jetzt zwei Ansätze probiert.*Alles elektieren und visProperties auf 0 0 0 0 zu stellen, funktioniert aber leider nicht bei Area Fill und eingefügten Excel Tabellen*Mit PrintToFile drucken und vorher die Sheet.PageSetup.color = catColorMonochrome zu stellen. Funktioniert super, nur leider nichtMultisheet!Jemand eine Idee wie ic ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Technologische Ergebnisse erzeugen
C.Samer am 11.12.2017 um 10:35 Uhr (1)
Hier noch ein Beispiel:Code:Sub CATMain() Set oSel = CATIA.ActiveDocument.Selection Set oItem = oSel.Item(1).Value Catia.ActiveDocument.Selection.Clear() Catia.ActiveDocument.Selection.Add(oItem) CATIA.StartCommand "Create Technological Results"End Sub Der Code funktioniert nur, wenn ich das Part blau markiere und den Body orange Liebe Grüße,Christoph
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : RootProdukt aktivieren
C.Samer am 24.10.2017 um 09:08 Uhr (1)
Funktioniert das vielleicht irgendwie mit InWorkObject?Code:Catia.ActiveDocument.part.InWorkObject = mainBodyNewLiebe Grüße aus Wien,ChristophEdit: Hmm, wohl eher nicht :/Zitat:o Property InWorkObject( ) As AnyObject Returns or sets the in work object of the part. The in work object is the object after which a new object is added. Example: Code:Set partRoot = partDoc.Part Set partRoot.InWorkObject = cylindricPad If ( partRoot.InWorkObject cylindricPad ) Then MsgBox "There is a big problem" End IfEd ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zeichnungsrahmen mit Makro einfügen
C.Samer am 15.12.2017 um 10:10 Uhr (1)
Von einem Makro eine Variable an ein anderes Makro übergeben, klingt für mich, ohne das aufgerufene Makro anzupassen, unmöglich. Ich würde den CATIA "Standard Zeichnungsrahmen" anpassen.StattCode:If Not CATInit(targetSheet) Then Exit Subwürde ich z.B.Code:If Not CATInit(CATIA.ActiveDocument.DrawingRoot.Sheets.ActiveSheet) Then Exit Subversuchen, wobei ich nicht weiß wie targetSheet bei dir deklariert ist.Liebe Grüße aus Wien,Christoph
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Technologische Ergebnisse erzeugen
C.Samer am 11.12.2017 um 10:04 Uhr (15)
Edit: Habe eine (leider langsame) Lösung gefunden.Der Befehl Code:CATIA.StartCommand "Create Technological Results" funktioniert nur im PartDesign. Daher: Body selektieren und dann per Code:CATIA.StartWorkbench "PrtCfg" ins PartDesign wechseln bevor ihr Technologische Ergebnisse hinzufügt.Liebe Grüße aus Wien,Christoph :) -------------------------------------------------------------Hallo liebe Community!Ich versuche gerade ein Makro zu schreiben, welches allen Parts eines Produkts "Technologische Ergeb ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : GetMaterialOnPart Freeze
C.Samer am 03.05.2017 um 12:06 Uhr (15)
Hallo!Ich habe ziemlich lange gesucht und keine passende Lösung für dieses Problem gefunden,deswegen möchte euch meine zur Verfügung stellen.Das Problem:Catia friert beim Auslesen des Materials ein.Der funktionierende Code:Code:Dim oManager As MaterialManagerDim oMaterial As Material : Set oMaterial = NothingSub CATMain() Dim oProduct As Product : Set oProduct = CATIA.ActiveDocument.Product Dim oPart As Part : Set oPart = CATIA.ActiveDocument.Part Set oManager = oPart.GetItem("CATMatMa ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Verzeichnis aus Tools-Optionen auslesen
C.Samer am 15.12.2017 um 11:32 Uhr (1)
Hey, du könntest stattdessen das Userverzeichnis nehmen. Sieh mal wie ich es beim Company-Logo mache:Code: Dim fso As FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FileExists(sPicturePath) Then sPicturePath = "C:Users" & sUsername & "DocumentsCATIAMasterSettingsPicturesLOGO.jpg" If Not fso.FileExists(sPicturePath) Then MsgBox "Company logo not found." & vbCrlf & "Please copy the company logo to:" & vBCrLf & vBCrLf & sPicturePath,vbOKOnly Or vbCritical, ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SelectElement2 NUR im Strukturbaum zulassen
C.Samer am 10.09.2019 um 13:42 Uhr (1)
Hallo!Frage1:Ist es möglich die Auswahl von SelectElement2 NUR im Strukturbaum zuzulassen?Ich möchte die Auswahlrestriktion (veränderter Mauszeiger) von SelectElement2 beibehalten.Frage 2:Ist es möglich von einem im 3D-Modell selektiertem Element zuverlässig auf das Element im Strukturbaumzu schließen? Bsp. ich selektiere einen Teil einer gebrochenen Linie im 3D und möchte aber die gesamte Linie selektieren.(Zuverlässig, d.h. ohne .Parent)Hier ein winziger Teil meines Codes für die Selektion einer Linie:Co ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Aktivierungsstatus der Komponente / Component Activation State
C.Samer am 16.08.2017 um 12:09 Uhr (15)
Du bist genial Bernd! Für alle zukünftigen Leidensgenossen, hier ein funktionierendes Codebeispiel:Code:Dim iObjectPos As IntegerDim iObjectMax As Integer iObjectMax = 0 iObjectPos = 0Function countMaxObjects(p As Product) iObjectPos = iObjectPos + 1 CATIA.StatusBar = "Counting Active Objects: " & iObjectPos Catia.RefreshDisplay = True Dim oRootProduct As Product Set oRootProduct = p.parent.parent Dim oInstanceProduct As Product Set oInstanceProduct = p Dim oParameterActi ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Type Objekt in Bearbeitung auslesen
C.Samer am 06.04.2018 um 12:24 Uhr (1)
Hallo,vlt ist es dieser Code hier?Code:xxx = Catia.ActiveDocument.Part.InWorkObjectLiebe Grüße aus Wien,Christoph[Diese Nachricht wurde von C.Samer am 06. Apr. 2018 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
