---

Bemasung.jpg

Hallo Programmierer !
Kann man per Makro eine Darfting Option ändern?
Ich möchte gerne mit einem Makro zwischen
Drafting \ Bemaßung \ Standardmäßig werden Kreise bemaßt:
Mittelpunkt  oder Kante  umschalten.
Gibt es da eine Möglichkeit?
Das Optionsregister habe ich als catvbs exportiert.
Leider kann ich nicht mit dem Visual Basic Editor explizit diese eine Funktion ansprechen.

Vorab schon danke für die Antworten!!

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

---

Servus
Willkommen im Forum.
Da der Makrorekorder oder der Export nichts aufzeichnet vermute dass dies nicht per Makro geht.
Du kannst ja aber vor dem "Absetzten" des Maßes des Ankerpunkt der Bemaßung ändern (STRG + Ankerpunkt verschieben (Gelbe Raute))

Gruß
Bernd

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

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

---

Hallo,

getestet mit R21.

Sub CATMain()
Dim oSettControllers As SettingControllers
Dim oSettRep As SettingController

Set oSettControllers = CATIA.SettingControllers
Set oSettRep = oSettControllers.Item("DraftingOptions")
oSettRep.PutAttr ("DimCircle"), 1
oSettRep.Commit

End Sub

Mögliche Werte
oSettRep.PutAttr ("DimCircle"), 0 = Center/Mittelpunkt
oSettRep.PutAttr ("DimCircle"), 1 = Edge/Kante

Gruß
Randle

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

---

Danke Euch für die Rasche Antworten!
Werde versuchen das Makro unter VBA einzubauen.
MFG !!

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

---

Hallo,

ich wurde per PM gefragt wo ich den Attrbibutnamen her habe.
Da das auch für andere von Interesse sein könnte/dürfte antworte ich mal hier:

Einfach mal "Setting Controller Automation Objects" in die Suche der V5Automation.chm eingeben. Im Ergebnis dann den Eintrag: "Setting Controller Reference" auswählen.

In dem in diesem Thread angesprochen Fall habe ich, da ich keinen Bock auf diese Schnitzeljagd hatte, die Einstellungen zweimal als CATScript exportiert (jeweils mit den geänderten Einstellungen Circle/Edge) und dann einen Textvergleich der beiden Dateien gemacht.

Wenn notwendig kann man dann nach den entsprechenden Keywords in der Hilfe suchen (Achtung hier gibt es Unterschiede ja nach Release, empfehle die Doku für/ab R24, die meisten Dinge greifen auch für ältere Releases).

Hoffe das hilft dem ein oder anderen.

Gruß
Randle

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

---

Servus

Kleiner Ergänzung: Falls in der Doku nichts zu finden ist, oder der Export als CATScript nichts ausgibt: in den XML-Exportdateien der Setting findet man die Attributnamen auch.

Gruß
Bernd

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

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

---

Hallo !
Hier das Ergebnis , in VBA !

Sub CATMain()
    Dim oSettControllers As SettingControllers
    Dim oSettRep As SettingController
   
'  Mögliche Werte
'  oSetRep.PuttAttr ("DimCircle"), 0 = Mittelpunkt
'  oSetRep.PuttAttr ("DimCircle"), 1 = Kante
   
        Set oSettControllers = CATIA.SettingControllers
        Set oSettRep = oSettControllers.Item("DraftingOptions")
   
   
    Input2 = InputBox("Bitte wählen sie die Bemaßungsart." & Chr(13) & Chr(10) & "Mittelpunkt = 0" & Chr(13) & Chr(10) & "Kante = 1", "Umschaltsystem")
   
  Select Case Input2
        Case "0"
        oSettRep.PutAttr ("DimCircle"), 0
        Case "1"
        oSettRep.PutAttr ("DimCircle"), 1
   
End Select

MsgBox "Bemaßungssystem wurde umgestellt", 64, makroname + " " + version
           
End Sub

Noch einmal Danke für Eure Hilfe !!

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

---

Hallo,

schön das es geklappt hat.

Ich würde aber die Settings noch nach dem Select Case Block "committen" (oSettRep.Commit).

Auch wenn es hier vielleicht geht würde ich mir das mit dem "committen" angewöhnen da es Einstellungen/Fälle gibt die erst nach einem erneuten CATIA Start greifen.

Gruß
Randle

[Diese Nachricht wurde von Randle am 20. Jul. 2017 editiert.]

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