---

Hallo!
Mit einem alten Lisp unserer Firma kann ich einen Text in ein Attribut schreiben.
Wie könnte das mit einem Abstand bzw. mit dem Wert aus einer Bemassung funktionieren ?
Nachdem ich die Bemassung mit einem command Befehl starte und die beiden Punkte
die abgegriffen werden, als pkt1 und pkt2 schon erfasst sind, könnte man es auch mit dist lösen ?
Kurz gesagt, der Wert der letzten Bemassung soll in den nächsten neu einzufügenden Block in den tag "BREITE" geschrieben werden. Hat jemand eine Idee wie das klappen könnte?

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

---

Hallo bugcad,

erst einmal herzlich willkommen im WBF! 

Wenn du pkt1 und pkt2 schon hast, sollte folgendes klappen

Code:

---

(setq dein_att_text (rtos (distance pkt1 pkt2) 2 2))

---

Die Parameter für (rtos ...) musst Du Dir noch entsprechend Deinen Wünschen anpassen.
dein_att_text dann in eurem list ins Attribut schreiben.

HTH

Gruß
Thomas

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

---

Hallo BugCAD,
nur eine Idee, wenn grundsätzlich immer erst die Bemassung erstellt wird kann man auch mit folgendem Code auf die Länge zugreifen:

Code:

---

(defun c:test ( / )
  (if (=(cdr(assoc 0 (entget(entlast))))
        "DIMENSION")
    (vla-get-measurement
      (vlax-ename->vla-object
        (entlast)))))

---

Vom Grundgedanken würde ich eventuell dann beim Block einfügen einen Command-Reactor verwenden, der nach dem Einfügen des Blockes automatisch das Attribut mit der Länge des Textes füllt.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Liniensignaturen Youtube

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

---

Weniger haltbar, dafür dynamisch: Mit der SCHRIFTFELDfunktion den Abstand auslesen und im Attribut anzeigen lassen:
Schriftfelder nutzen, Beispiel: http://ww3.cad.de/foren/ubb/Forum145/HTML/002059.shtml

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Vielen Dank Thomas! Funktioniert!
Ich hatte befürchtet, dass der Abstand auch negativ werden kann,
was aber nicht der Fall ist. Es wird anscheinend der Betrag ermittelt.
Einziger Nachteil, wenn nicht beide Punkte den X oder Y Wert gemein haben wird der Wert ermittelt wie bei dimaligned und nicht wie bei dimlinear, was ja logisch ist.

(defun c:dist2blo ( / pkt1 pkt2 pkt3 breite)
(setq pkt1 (getpoint "\nStartpunkt der Bemassung: "))
(setq pkt2 (getpoint "\nEndpunkt der Bemassung: "))
  (command "_dimlinear" pkt1 pkt2 pause)
  (command "_draworder" "L" "" "U")
(setq pkt3 (getpoint "\nEinfügepunkt Block: "))
(setq breite (rtos (distance pkt1 pkt2) 2 2))
  (command "_insert" "BLOCK"  pkt3 "1" "1" "" "" breite pause)
)

VIELEN DANK NOCHMAL

P.S: Hallo Jörn, Danke auch für deinen Vorschlag aber das mit dem reactor ist mir zu steil.

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