---

Hallo Forum,

ich benutze AutoCad 2010. Gibt es im AutoCad einen Converter mit dem ich unterschiedliche Bemaßungsstile schnell in einem neuen Bemaßungsstil umwandeln kann? Im Moment selektiere ich die Bemaßung über die Schnellauswahl und ändere dann über Eigenschaften den Bemaßungsstil. Das ist bei mir eine immer widerkehrende Arbeit, die ich mir eigentlich ersparen möchte.
Gibt es so ein Tool wie das Layer-Konvertierungsprogramm?

Gruß Thomas

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

---

Wie wäre es mit einem "Buttonmakro":
-bemstil;holen;[STILNAME];-bemstil;anwenden;(ssget "_X" '((0 . "DIMENSION")));;

(nicht getestet, aber so in der Art...)

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Hi,
interessant, interessant … 
da könnt man noch schön was mit einer Oberfläche machen… vllt. gibt es ja bei d-tools.eu schon was/ bzw. bald   

kannst ja mal testen ob es den Alltag erleichtert

Code:

---

(defun c:Dimstch (/ doc dimstyleslst ddimstyles tdimstyle ename ss i err)
  (if (and
(not (equal (setq tdimstyle (getstring "\nDimstyle: ")) ""))
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq ddimstyles (vla-get-DimStyles doc))
(vlax-for each ddimstyles
  (setq dimstyleslst (cons (vlax-get each 'Name) dimstyleslst))
)
(member tdimstyle dimstyleslst)
(setq ss (ssget '((0 . "DIMENSION"))))
(setq i -1)
      )
    (while (setq ename (ssname ss (setq i (1+ i))))
      (setq err (vl-catch-all-apply
  'vla-put-stylename
  (list (vlax-ename->vla-object ename) tdimstyle)
)
      )
      (if (vl-catch-all-error-p err)
(print (vl-catch-all-error-message err))
      )
    )
    (princ "\nFehler, falsche Eingabe")
  )
  (princ)
)

---

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."   (www.uni-leipzig.de/~rotheh/elefant.htm)

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

---

Hallo Heiko,

vielen dank für die schnelle Zuarbeit. Allerdings tue ich mich etwas schwer mit diesen Programmierzeilen.Wo muß ich diesen Quelltext eingeben, damit etwas auf dem Bilschirm geschieht?

Gruß Thomas

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

---

hi,
FAQ, schau mal hier
zu den Zeilen - "Zielstyle" eingeben, Bemaßungen wählen (oder strg+A) und klick...
ist zwar ohne Oberfläche aber das würde den Rahmen sprengen... vllt. gibt es im www bereits ein solches Tool

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."   (www.uni-leipzig.de/~rotheh/elefant.htm)

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