---

Hallo,

für einiger zeit hat wurde mir hier im forum ein lisp geschrieben,  dass mir sowohl die fläche als auch den umfang eines polygons jeweils in ein textfeld schreibt und dabei gleichzeitig verknüpft, so das eine veränderung des polygons automatisch im text die zahlen ändert.

nun komme ich heute aus dem urlaub zurück, und das lisp funktioniert nichtz mehr. hat jemand eine idee

(defun c:fl_att (/ pl att1 att2 fl)
;;;
(defun :field-makeObjectRefText (#object #property /)
  (if (vlax-property-available-p #object #property)
  (strcat "%<\\AcObjProp Object(%<\\_ObjId "
  (itoa (vla-get-ObjectID #object))
  ">%)."
  (vl-princ-to-string #property)
  " \\f \"%lu2%pr2\">%"
  )
  (strcat "##"
  (vl-princ-to-string #object)
  "."
  (vl-princ-to-string #property)
  "##"
  )
  )
)
;;;
(setq pl  (car (entsel "\nPolygon wählen: "))
      att1 (car (nentsel "\nZielattribut wählen (Fläche): "))
      att2 (car (nentsel "\nZielattribut wählen (Länge): "))
)
(entmod
  (subst
  (cons 1
(:field-makeObjectRefText (vlax-ename->vla-object pl) 'Area)
  )
  (assoc 1 (entget att1))
  (entget att1)
  )
)
(entmod
  (subst
  (cons 1
(:field-makeObjectRefText (vlax-ename->vla-object pl) 'Length)
  )
  (assoc 1 (entget att2))
  (entget att2)
  )
)
(command "_regen")
(princ)
)

PS.
mittlerweile arbeite ich mit adt 2010
gruss

andreas

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

---

das lisp an sich geht. In Acad 2010 auch.
wählst du auch eine Polylinie oder wählst du einen Raum?

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

hallo cadwisel,

ich wähle eine polylinie und dann meine zwei texte in einem vorgefertigtem block
aber es geschieht nichts. weder eine fehlermeldung noch eine aktualisierung der zahlen.

gruss
andreas

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

---

hallo cadwiesel

wenn ich das lisp ausführe und anstelle meines blockes zwei normale mtexte wähle erhalte ich als Lispausgabe folgenden text
\acobjprop
object(%<\_objld
2117137096>%).AREA
\f
"%lu2%pr2"
bzw.
\acobjprop
object(%<\_objld
2117137096>%).LENGTH
\f
"%lu2%pr2"
führe ich dann einen doppelklick auf den text aus erscheint der gewünschte wert für die fläche bzw. den umfang im textfeld

keine ahnung was da in meinem urlaub passiert ist.

gruss
andreas

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

---

auf was steht denn die Sysvar "fieldeval" ? 31 wäre gut.

------------------
  - 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

---

satnd auf "4"
habe sie auf "31" gesetzt, aber der erfolg bleibt leider aus, die "fehlermeldung" bleibt dieselbe

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

---

Zusatzfrage:

Wer kann mir helfen, diese Zeile

Code:

---

(:field-makeObjectRefText (vlax-ename->vla-object pl) 'Area)

---

so umzustricken, dass ich statt der Polylinie einen Attributwert ["M2"] statt der Flächhe einschreiben kann?

Bisheriger Code:

Code:

---

(DEFUN c:att_att (/ pl qatt zatt fl)
  (SETQ qatt  (CAR (ENTSEL "\nQuellattribut wählen: "))
zatt (CAR (NENTSEL "\nZielattribut wählen: ")) ;** geloescht **
  )
  (ENTMOD (SUBST (CONS 1 (:field-makeobjectreftext (VLAX-ENAME->VLA-OBJECT qatt)'textstring))
(ASSOC 1 (ENTGET att))
(ENTGET att)
  )
  )
  (ENTUPD (CDR (ASSOC 330 (ENTGET att))))
  (PRINC)
)

---

Die Basusfunktion

Code:

---

:field-makeObjectRefText

---

ist ja hier im Thread bekannt.

Danke im Voraus!

------------------
Gruß aus Wien
Bernhard

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

---

Zitat:

---

Original erstellt von Bernhard GSD:
Zusatzfrage:

Code:

---

(:field-makeObjectRefText (vlax-ename->vla-object pl) 'Area)

---

so umzustricken, dass ich statt der Polylinie einen Attributwert ["M2"] statt der Flächhe einschreiben kann?

---

Sorry, aber den Satz verstehe ich auch nach mehrmaligem durchlesen nicht 
Ich kann nur bestätigen, das das LISP Funktioniert wie es soll (getestet in AutCAD 2019) 

Gruß
Jörg

------------------
Wer immer tut, was er schon kann, bleibt immer das, was er schon ist.

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

---

Übersetzungsversuch:
Anstatt auf den Flächenwert eines Quellobjektes(Polylinie) möchte er den Textwert(Attributwert) referenzieren.

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

---

Ja, genauso habe ich es gemeint.

Manuell über ATTEDIT geht es ja auch.
Ich habe hier aber noch einen eigenen Thread in Lisp: http://ww3.cad.de/foren/ubb/Forum145/HTML/004632.shtml
Sorry für Doppelpost, aber in Lisp sollte das Thema besser passen.

------------------
Gruß aus Wien
Bernhard

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