---

Hallo Zusammen.

Kennt ihr eine Möglichkeit, wie man über eine Funktion/Befehl die Maßtexte in die Textüberschreibung hinein bekommt, ohne diese von Hand einzelnd dort reinschreiben zu müssen?

Ich habe sehr viel geforscht, doch leider keinen passenden Beitrag gefunden.
Was ich gefunden habe, ist der Befehl dimreassoc. Damit werden alle Textüberschreibungen der markierten Bemaßungen gelöscht.

Danke im voraus.
pumarider

------------------
Shit happens !

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

---

denke, das geht über ein kleines tool, welches die Eigenschaft Measurement ausliest, dies in einen Strinkonvertiert und bei textoveride reinschreibt..... aber Wozu ??

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Geht das nicht mit "<>" in der Textüberschreibung?

------------------
Gruß, Stephan
www.stbartl.at

"Alles sollte so einfach wie möglich gemacht werden, aber nicht einfacher." - Albert Einstein

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

---

Zitat:

---

Original erstellt von autocart:
Geht das nicht mit "<>" in der Textüberschreibung?

---

Hallo autocart.
Danke für Deine Antwort. Jedoch steht dann in der Textüberschreibung <> und nicht z.B. 2536, also das Maß selbst.

------------------
Shit happens !

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

---

mal ein Rudimentärbeispiel, wie es gehen könnte:

(defun C IMTEXT(/ OBJ VALUE)
  (vl-load-com)
  (and(setq OBJ(car(entsel "\Bemaßung wählen: ")))
      (setq OBJ(vlax-ename->vla-object OBJ))
      (vlax-property-available-p OBJ "TextOverride" 'T)
      (vlax-property-available-p OBJ "Measurement")
      (setq VALUE(vla-get-Measurement OBJ))
      (setq VALUE(rtos VALUE 2 0))
      (not(vl-catch-all-error-p
            (vl-catch-all-apply
              'vla-put-TextOverride (list OBJ VALUE)
            )
          )
      )   
  )     
)

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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