---

Hallo zusammen,
ich möchte Bemaßungen in einer Zeichnung per Makro ein- und ausblenden.

Jetzt habe ich hier mitbekommen dass es in Richtung Dimension Probleme bei den Makro gibt.

Wenn ich ein Makro recorde läuft dieses ebenfalls nicht.
Der Fehler kommt an dieser Stelle:

-->Set drawingDimensions1 = drawingView1.GetItem("")
-->Set drawingDimension1 = drawingDimensions1.Item("Bemaßung.28")

Die Fehlermeldung: "Das Verfahren GetItem ist fehlgeschlagen"

Ich mein es ist ja auch merkwürdig dass da nichts eingetragen ist?

der komplette Texte:

Language="VBSCRIPT"
Sub CATMain()
Set drawingDocument1 = CATIA.ActiveDocument
Set drawingSheets1 = drawingDocument1.Sheets
Set drawingSheet1 = drawingSheets1.Item("Blatt .1")
Set drawingViews1 = drawingSheet1.Views
Set drawingView1 = drawingViews1.Item("Schnitt A-A")

Set drawingDimensions1 = drawingView1.GetItem("")
Set drawingDimension1 = drawingDimensions1.Item("Bemaßung.28")

Dim boolean1
boolean1 = drawingDimension1.Forshortened
Dim boolean2
boolean2 = drawingDimension1.Forshortened
Dim boolean3
boolean3 = drawingDimension1.Forshortened
Set selection1 = drawingDocument1.Selection
Set visPropertySet1 = selection1.VisProperties
Set drawingDimensions1 = drawingDimension1.Parent
Dim bSTR1
bSTR1 = drawingDimension1.Name
Set drawingView1 = drawingDimensions1.Parent
Dim bSTR2
bSTR2 = drawingDimensions1.Name
Set drawingViews1 = drawingView1.Parent
Dim bSTR3
bSTR3 = drawingView1.Name
selection1.Add drawingDimension1
Set visPropertySet1 = visPropertySet1.Parent
Dim bSTR4
bSTR4 = visPropertySet1.Name
Dim bSTR5
bSTR5 = visPropertySet1.Name
visPropertySet1.SetShow 1
selection1.Clear
End Sub

Schöne Grüße
Malte

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

---

Servus
Ändere mal die entsprechende Zeile in:

Code:

---

Set drawingDimensions1 = drawingView1.Dimensons

---

Gruß
Bernd

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

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

---

Wahnsinn wie einfach das sein kann 

Dankeschön

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

---

Kann ich Maßlinien auch per Makro verschieben?

Also es gibt ja den Befehl Maßlinie-"Ausrichten".

Aber hier kommt die Aufnahme an ihre Grenzen.

Ist das dann der Bereich wo das Makro-Drafting an seine Grenzen kommt oder hat schonmal jemand was in diese Richtung hinbekommen.
Vielleicht auch Steuerung über Koordinaten?

Mit freundlichen Grüßen

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

---

Servus
AFAIR kommst du mit dem Makrorekorder in einer Zeichnung nicht weit.
Da musst du dich wohl oder übel durch die Doku durchbeißen. (darin einfach mal nach "DrawingDimension" suchen)

Gruß
Bernd

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

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

---

Alles klar

nochmal Danke

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