---

Hi Leute,
ich habe vor kurzem mit Makros angefangen. Das Buch " Makrogrammierung mit VB Script von Ziethen" habe ich auch schon bekommen. Aber nur allein durch das Buch werde ich glaube ich nicht schlau.
Ich muss eigentlich mit Hilfe des Makros die Ableitung von ein 3D Modell ins 2D (Drafting) erzeugen. Kann jemand mir dabei hilfen oder Tipps geben?
Ich danke euch im Vorraus!
MFG
BM

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

---

Mir hilft oft der Macro-Recorder um einen ersten Eindruck von den zu verwendenden Objekten zu bekommen.

Somit meine erste Frage: Bereits versucht die Tätigkeit aufzuzeichnen?

Dann eine Bitte: Bitte die System-Info ausfüllen, das hilft uns ungemein weiter einige Sachen auszuschließen, bzw. darauf zu achten.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Vielen Danke für die Rückmeldung,
ich habe bereits mit Makrorecoder versucht. Dadurch bekomme ich schon meine Ansichten aber ich weiss nicht wie ich es weiter bearbeite? z.ß fange ich etwas zu bemaßen? Ob die ganze befehle was im Makrorecorder erscheinen, richtig ist?
System-Info: ich habe zu hause bis jetzt mit dem Laptop gearbeitet. Der leider kapput gegangen ist. Ich kaufe mir diese Woche schon ein neuen und werde dann die Infos veröffentlichen. Du weisst ja dass Studenten immer mit dem Geld knapp auskommen.
LG
BM

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

---

Das mit dem automatischen bemaßen in einem Makro ist nicht trivial, da würde selbst ich eine ganze Weile brauchen, wobei ich da auch nicht wüsste, wo man da anfangen könnte.
Überleg Dir am besten zunächst, was Du genau machen möchtest mit ner Schritt für Schrittanleitung, wie Du es manuell machen und auswerten würdest, dann kann man versuchen das in ein Makro zu gießen.

Überleg Dir vielleicht als erstes nach welchen kriterien Du Dinge zum Bemaßen identifizierst, also manuell, als Konstrukteur.
Das mit der Hardware ist doch legitim. 
Gut ist, dass wir jetzt wissen, dass es R17 und R16 sind, da müsstest Du z.B. aufpassen, da sich intern die Einheit für Längenangaben von Millimetern (R16) auf Meter (R17) geändert hat.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Hallo zusammen,

ich habe ein ähnliches Problem!

Ich möchte im 3D eine Dimensions erzeugen, aus Punkt und Linie oder zwei Linien. FTA Lizenz ist vorhanden.

Die Front view hab ich erzeugt und jetzt möchte ich mit Dimensions zwei Linien anwählen damit daraus die Bemaßung resultiert.

Hier der Link meines Beitrages den ich hier im Forum gepostet habe.

http://ww3.cad.de/foren/ubb/Forum137/HTML/004266.shtml

Mit freundlichen Grüßen,

cChris

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

---

Grüss Dich,

mir ist es mit diesem Programm gelungen, ein Part in 3-D ins Drawing abzuleiten. Das Drawing ist bereits geöffnet und dann starte man das Macro.

Language="VBSCRIPT"

'Drawing aus Part erzeugen

'*******************************************************

Sub CATMain()

Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Sheet.1")

Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Add("AutomaticNaming")

Dim drawingViewGenerativeLinks1 As DrawingViewGenerativeLinks
Set drawingViewGenerativeLinks1 = drawingView1.GenerativeLinks

Dim drawingViewGenerativeBehavior1 As DrawingViewGenerativeBehavior
Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As Document
Set partDocument1 = documents1.Item("PART6.CATPart")

Dim product1 As CATBaseDispatch
Set product1 = partDocument1.GetItem("PART6")

drawingViewGenerativeBehavior1.Document = product1

drawingViewGenerativeBehavior1.DefineFrontView 0.000000, 1.000000, 0.000000, 0.000000, 0.000000, 1.000000

drawingView1.x = 594.500000

drawingView1.y = 420.500000

drawingView1.Scale = 1.000000

Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior

drawingViewGenerativeBehavior1.Update

drawingView1.Activate

End Sub

'*************************************

Ich hoffe ich konnte Dir ein wenig weiterhelfen.

Ciao,

cChris

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

---

Hi danke Chris,
Vielen Dank für den Tippppp:-) Ich habe das schon selber geschafft. Nun stehe ich davor und möchte gerne in Drafting Texte, Maße und Tabellen erstellen. Kannst du mir vielleicht die 2 Zeilen noch erklären?
Dim product1 As CATBaseDispatch
Set product1 = partDocument1.GetItem("PART6")
Nämlich bekomme ich in diesen Zeilen immer Fehler. Etwas mit Product..
MFG
BM
DANKE IM VORRAUS

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

---

2x_Makro.rar

Servus,

Zitat:

---

Original erstellt von sucher2010:
Nun stehe ich davor und möchte gerne in Drafting Texte, Maße und Tabellen erstellen.

---

wenn du die Suchfunktion verwendest findest du einige Beiträge zu deinem Problem/Anliegen. Sonst kannst du dir noch die "V5Automation.chm" zu gemüte führen. Diese liegt in folgenden Ordner: C:\Program Files\Dassault Systemes\B19\win_b64\code\bin.

Anbei noch 2 VBA Makros. Eines zum Erstellen einer Ansicht mit einer Tabelle und eines zum Erstellen von einer Ansicht mit einem Text.

PS: falls es wieder Verbesserungsvorschläge gibt, dann bitte melden. Danke.

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

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

---

Danke dir Christan. Langsam und langsam bekomme ich das gefühl, dass ich das schon hinkriege. ich werde es heute abend zu hause versuchen.
Schöne Grüße aus Hamburg ;-)

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