---

Hallo,

seit 2008 gibt es ja die Beschriftungsfunktionalität.
Da hat man rechts unten dieses Auswahlmenü für die Maßstäbe.

Wenn ich da auf "Benutzerdefiniert" klicke kann ich in der Maßsstabsliste auch Maßstäbe hinzufügen oder entfernen.

Meine Frage, wie kann ich das über VBA machen?
Ich kann irgenwie nichts finden wo ich die Maßstabsliste auslesen kann und auch nichts mit dem ich Maßstäbe hinzufügen oder entfernen kann.
Der Sinn des Macros soll sein die Maßstabsliste per Knopfdruck um gewisse Maßstäbe zu reduzieren.

Könnt ihr mir helfen?

------------------
Gruß Andreas

------------------------------------------------------------------------------------------------------------------------------------
Die Antwort ist 42! Die Antwort ist 42! Die Antwort ist 42! ...wenn ich nur die Frage wüsste...

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

---

Hi Andreas,

traurige Antwort, mit VBA wird's imho nix, mit dotNET wäre ein Zugriff möglich, mit LISP weiss ich nicht 

- alfred -

------------------
www.hollaus.at

---

Hmm, schade, mit Lisp kann ich nicht umgehen weil ich da keine Programmierkentnisse hab und mit .net wirds auch nichts weil ich ja einen Button im AutoCAD haben will.

Bisher hab ich immer Cleanupscales.exe von Autodesk verwendet, will das bereinigen der Maßstäbe aber als Button für die aktuelle Zeichnung haben um einfach mal zwischendurch draufdrücken zu können.

------------------
Gruß Andreas

------------------------------------------------------------------------------------------------------------------------------------
Die Antwort ist 42! Die Antwort ist 42! Die Antwort ist 42! ...wenn ich nur die Frage wüsste...

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

---

Hi,

aber das kannst Du schon machen; die Anfrage war, dass Du bestimmte Maßstäbe entfernen willst, das grundsätzliche Zurücksetzen geht schon:

Code:

---

ThisDrawing.SendCommand("-scalelistedit" & vbCr & "_r" & vbCr & "_y" & vbCr & "_e" & vbCr)

---

die Anfrage war, dass Du bestimmte Maßstäbe entfernen willst, das grundsätzliche Zurücksetzen geht schon:

- alfred -

------------------
www.hollaus.at

---

Zitat:

---

Original erstellt von Andreas Widmann:
Hmm, schade, mit Lisp kann ich nicht umgehen weil ich da keine Programmierkentnisse hab und mit .net wirds auch nichts weil ich ja einen Button im AutoCAD haben will.
Bisher hab ich immer Cleanupscales.exe von Autodesk verwendet, will das bereinigen der Maßstäbe aber als Button für die aktuelle Zeichnung haben um einfach mal zwischendurch draufdrücken zu können.

---

Sie dir mal Scalelistdel.lsp (eingedeutscht von Peter Tr.) an. http://ww3.cad.de/foren/ubb/Forum54/HTML/016522.shtml
Da ist alles schon fertig. Das Lisp zu laden sollte doch sicher klappen.
Den Befehl  ^c^cSCALELISTDELALL kann man sich dann direkt auf einen "Button" legen.

P.S. mit .NET (VB.net oder C#.net) kann man natürlich auch Programme für AutoCAD schreiben (werden mit NETLOAD geladen), die dann neue Befehle in AutoCAD bereitstellen.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hey, DANKE!

Is perfekt, ich koppel das Tool gleich an meinen Button mit purge und audit.

------------------
Gruß Andreas

------------------------------------------------------------------------------------------------------------------------------------
Die Antwort ist 42! Die Antwort ist 42! Die Antwort ist 42! ...wenn ich nur die Frage wüsste...

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

---

Hi Andreas,

ich bin gerade durch Zufall drübergestolpert und habe einen Beitrag von Thomas (CADmium)    gefunden, die ScaleList-Einträge sind in Dictionaries gespeichert (in seinem Code auch erkennbar, über welche Names-Angaben Du hinkommst), also sollte es auch mit VBA möglich sein, diese Einträge einzeln/gezielt zu löschen.

Hier ist der Beitrag von Thomas, wenn Du's in VBA brauchst und bei der Übersetzung dahin Unterstützung brauchst, lass es uns wissen.

- alfred -

------------------
www.hollaus.at