---

Hallo leute,
weiss jemand zufällig wie man in Drafting ein bauteil mit Makros bemaßen kann? Welchen Befehle gibs es überhaupt oder wie soll man da vorgehen soll? z.ß wenn man eine Welle bemaßen soll...
Vielen Dank im Vorraus
MFG
BM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Gemäß Doku sollt es mit "DrawingDimensions" "Add" gehen. IMHO ist es schwierig (oder sogar unmöglich??) Referenzen auf die Kanten des Teils zu erzeugen (bei isolierten Ansichten scheit es wieder einfach zu sein)
Was hast du vor? Könntest du nicht auch eine Vorlage manuell erzeugen und diese dann an ein neues Modell umhängen?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,
vielen Dank nochmal für die schnelle Hilfe.
Eigentlich muss ich ein Makroprogramm schreiben, das von einem 3D Modell die Ansichten erzeugt und Automatisch/(die gewünschte Stelle)Bemaßt. Die Abteilung habe ich fast geschafft. Es fehlen die Bemaßung, Einfügen von Rahmen und Tabellen noch. Ich weiss nicht ob  die Bemaßung überhaupt mit Makros realisierbar ist?
MFG
BM

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ableitung meine ich damit. von 3D ins 2D

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Halo

Ich habe auch solche Aufgabe, wie du hast. Kannst du mit deinem Code vertailen? Wie kann Mann automatisch 3 Ansichten generieren (Front, Top und vom Seite)? Ich muss zwei Typen generieren:

-Nach AutoNull Achsen-kreuz (fuer NC-Stuecke)
-Nach Lokal Achsenkreuz (bzw. erste Ansicht aus User-definierte Ebene)

Kann jemand mir ersten Tip geben?

Gruss Lukas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Sylas,

1) beide Achsen müssen im 3D vorhanden sein
2) bei der Erzeugung der Front-Ansicht muss Fahrzeug-Achse für den Typ 'Fahrzeug' angegeben werden,
beim Typ 'Lokal' eben das Nicht-Null-Achsensystem.
Die Folgeansichten(Top und Seite) erben den Nullpunkt von der Front-Ansicht.
3) Zeichnungsblatt erzeugen:

Etwa so:

Code:

---

'---------------------------------------------------------------------------------------
' Procedure : CreateSheet
' Author    : jherzog
' Date      : 20.07.2014
' Time      : 18:38
' Languages : VB6 Pro
' V5-Release: V5R19/21
' Purpose  : Create a new drawing document and drawing sheet
' Parms    : Standard (iso, ansi,JIS)
'          : Papersize (A0,A1,....)
'          : Orientation (Portrait, Landscape
'          : Sheet Scale
' Ret. Value: true, if successful
'
' Syntax    : 'CreateSheet catISO, catPaperA0, catPaperLandscape, 1'
'
'
'---------------------------------------------------------------------------------------
'
Public Function CreateSheet(drStandard As CatDrawingStandard, drPaperSize As CatPaperSize, drOrientation As CatPaperOrientation, _
  drShScale As Double) As DrawingSheet
 
  Dim oDrwDocument As DrawingDocument
  Dim oDrwSheets As DrawingSheets
  Dim oDrwSheet As DrawingSheet
   
  On Error GoTo CreateSheet_errorHandler
   
  Set oDrwDocument = CATIA.Documents.Add("Drawing")  ' Create a new drawing document
 
  oDrwDocument.Standard = drStandard                ' Set the drawing document standard
 
  Set oDrwSheets = oDrwDocument.Sheets              ' Retrieve the drawing document's sheets collection
 
  Set oDrwSheet = oDrwSheets.ActiveSheet            ' Retrieve the active sheet
 
  ' Set the sheet properties
  oDrwSheet.PaperSize = drPaperSize
  oDrwSheet.Orientation = drOrientation
  oDrwSheet.Scale2 = drShScale
 
  CATIA.ActiveWindow.ActiveViewer.Reframe            'center all
  Set CreateSheet = oDrwSheet
  Exit Function
'--------------------------------------------------------------------------------------------------------------------
CreateSheet_errorHandler:
  Dim strMsg As String
 
  Select Case Err.Number
'      Case 91
'      Case -2147467259
      Case Else
          strMsg = Err.Number & ": " & Err.Description
  End Select
 
  MsgBox strMsg, vbOKOnly, "CreateSheet"
 
  CreateSheet = False
  On Error GoTo 0
  'Resume Next                                          'fall thru to quit sub
'--------------------------------------------------------------------------------
End Function

---

Der Aufruf hierzu lautet, zB:

Code:

---

  Dim oDrwSheet As DrawingSheet

  Set oDrwSheet = CreateSheet(catISO, catPaperA0, catPaperLandscape, 1)

---

4) Danach die Views erzeugen, hierbei die jeweils richtige Achse angeben.
Mehr dazu später. Krieg jetzt erst mal CreateSheet zum laufen.

Tschau,
Joe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Joe

Danke fuer deine Antwort.

Ich wurde dein Tipp bei aendere Fall nutzen. Der Zeichnung bei diesem Fall existiert schon  Weiter, ich muss pruefen mit welches Bauteil ist mein NC-Stueck getrennt. Es ist so, dass mein Teil ist mit ein Extract getrennt mit Split Funktion. Dieses Extract kommt mit Link aus Baugruppe Adapter, aber zuerst war dort auch eingefugt aus Hauptadapter. Der Struktur erscheint so:

HauptProduct
    |
    |------Hauptadapter
              |
              |----- Bauteil1
              |----- Bauteil2
    |------Baugruppe1
                |
                |----- Baugruppe1_adapter
                |          |
                |          ------ Flaeche1 (eingefuegt mit Link vom Hauptadapter - Extract aus Bauteil1)
                |         
                |                  ...
                |----- Part1
                |        |
                |        |----- Flaeche1 (eingefuegt mit Link vom Baugruppe1_adapter)

Wie kann ich jetzt aus 3D Model rausliest, wie den Bauteil1 heisst? Also fuer jeder Flaeche im Baugruppe1_adapter ich muss "RootParent" Name aus Hauptadapter Part liesen.

Danke im Voraus

Lukas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus Lukas
Bitte keine Doppelposts.
Du hast die ähnliche Frage ja schon hier gestellt.
Splitte das Thema besser nicht auf.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd

Du hast recht. Dies gilt nicht mehrmals vorkommen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP