---

mal was ganz ganz neues

hat jemand eine idee wie einer textüberschreibung (bemassung) der wert <> zurückgegeben werden kann ohne lästiges: ddedit,<>tippsen und enter
meine versuche dies mit einem simplen makro zu machen fruchten nicht -
auch gibt es anscheinend keine systemvariable mit dem dieser wert auf den anfangswert zurückgesetzt werden könnte.

LG aus wien

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

---

Hi gap,
der Befehl den du suchst befindet sich in den Expresstools, jedenfalls in der V 1.9 (ACAD 2000 und höher)

------------------
Gruss
Caladia

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

---

Bemaßung Überschreibung war ein ganz ähnliches Thema im Lisp Forum gewesen.

------------------
MfG Proxy

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

---

Hallo gab,
probier mal dieses Lisp

;***********************************************
;OrgBemTxt.lsp
;Setzt den Maßtext wieder auf den Original-Wert
;Die Bemaßung wird dadurch wieder assoziativ
;***********************************************
(defun c rgBemTxt (/ ss cont en ent newtxt el)
(defun *error* (msg)
  (setq ss nil cont nil en nil el nil ent nil newtxt nil el nil)
  (princ msg) (princ)
)
(princ "\nWähle diverse Masstexte. ")
(setq ss (ssget (list (cons -4 "<or")
                      (cons 0 "DIMENSION")
                      (cons -4 "or>")
          )      )
    cont T
)
(if ss
  (progn
  (while (and cont (setq en (ssname ss 0)))
    (setq ent (entget en))
    (setq newtxt "")
    (setq el (entget (cdr (assoc -1 ent))))
    (setq el (subst (cons 1 newtxt)(assoc 1 el) el))
    (entmod el)
    (setq ss (ssdel en ss))
  )
  )
)
(princ)
)

;****************************************************
;HomeBemTxt.lsp
;Schiebt den Maßtext wieder an die Original-Position
;****************************************************
(defun c:HomeBemTxt (/ ss cont en)
(defun *error* (msg)
  (setq ss nil cont nil en nil)
  (princ msg) (princ)
)
(princ "\nWähle einen Masstext. ")
(setq ss (ssget (list (cons -4 "<or")
                      (cons 0 "DIMENSION")
                      (cons -4 "or>")
          )      )
    cont T
)
(if ss
  (progn
  (while (and cont (setq en (ssname ss 0)))
    (command "_dimtedit" en "a")
    (setq ss (ssdel en ss))
  )
  )
)
(princ)
)

------------------
Gruß Werner
http://www.konstruktionsbuero-meyer.de

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

---

Vielen DANK für eure hints - Ihr seid echt toll !

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

---

Warum nicht über Eigenschaftsfenster - eventuell noch Schnellauswahl vorher - *VARIIERT* rauslöschen ?

Gruß Carsten

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

---

Hallo,

der Befehl BEMEDIT /_DIMEDIT mit der Option Neu kann das auch:
neuer Text = <> und danach die gesamte Zeichnung auswählen. Könnte man auch als Makro auf einen Button legen.

------------------
Gruß Peter
(HERDT-Verlag)

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