 |
CATIA V5 Programmierung : Skizzenebene für Zeichnung ermitteln
Sm1leX am 17.06.2020 um 07:37 Uhr (15)
Hallo beisammen, leider waren alle Suchen bisher erfolglos, daher nun ein neues Thema zum auslesen der Zeichnungserstellung. Also ich möchte von einer Skizze eine Zeichnung erstellen. Das klappt auch an sich wunderbar, wie folgt:Code:set ActSheet = CATIA.ActiveDocument.Sheets.ActiveSheetset NewSheet = ActSheet.Views.Add("NewView")set drawingViewGenerativeBehavior1 = NewSheet.GenerativeBehaviordrawingViewGenerativeBehavior1.DefineFrontView 1.000000, 0.000000, 0.000000, 0.000000, 1.000000, 0.000000NewSheet.x ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Skizzenebene für Zeichnung ermitteln
Sm1leX am 17.06.2020 um 08:29 Uhr (15)
Danke Randle!Ich teste .. (Y)
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Skizzenebene für Zeichnung ermitteln
Sm1leX am 17.06.2020 um 08:37 Uhr (1)
Folgendes Problem erhalte ich, wenn ich das von Randle anwende:VG und besten Dank im Voraus!
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Skizzenebene für Zeichnung ermitteln
Sm1leX am 17.06.2020 um 08:24 Uhr (1)
Hallo Bernd,vielen Dank mal wieder für deine unglaublich schnelle Antwort!Wie komm ich denn daran? Habe ein bisschen rumprobiert, aber wirklich Schlucken möchte er es nicht.Anbei mal der blanke Codeschnipsel mit Verweis auf die Skizze:Code:(...)Dim hybridBody1 As HybridBodySet hybridBody1 = hybridBodies1.Item("DXF")Dim sketches1 As SketchesSet sketches1 = hybridBody1.HybridSketchesDim sketch1 As SketchSet sketch1 = sketches1.Item("DXF_Skizze")Dim AxisSystem1 As AxisSystemSet AxisSystem1 = sketch1.GetAbsolu ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Skizzenebene für Zeichnung ermitteln
Sm1leX am 17.06.2020 um 08:55 Uhr (15)
Ihr seid Helden ! Danke! Musste die Skizze als Object deklarieren, damit es VBA schluckt. Im Array musste ich noch die Indexe um Eins heruntersetzen. Anbei mal der (halb-)fertige (bzw. rohe), funktionierende Code um automatisch eine Drawing aus einem Geometrischen Set mit beinhaltender Skizze zu erzeugen. Code:Dim documents1 As DocumentsSet documents1 = CATIA.DocumentsDim drawingDocument1 As DrawingDocumentSet drawingDocument1 = documents1.Add("Drawing")drawingDocument1.Standard = catISODim drawingSheets1 ...
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
