---

Hallo liebes Forum
Bin grade auf untenstehendes Lisp (von Holger Brischke?)gestossen
Funktioniert super.
Jetzt meine Frage. Ist es möglich, das Lisp so anzupassen, dass im Attribut anstatt z.B. die Zahl 4535 neu 0.4535 ha steht?
Also anstatt die Fläche in m2 neu in ha.
Kann mir jemand weiterhelfen? Bin leider eine absolute Lisp-Niete.
Vielen Dank.
Michael

"folgende Lisp-Zeilen tragen die Fläche des gepickten Polygonzuges in ein danach zu wählendes Attribut ein."

Code:
--------------------------------------------------------------------------------

(defun c:fl_att (/ pl att fl)
  (setq pl (car(entsel "\nPolygon wählen: "))
        att (car(nentsel "\nZielattribut wählen: "))
        fl (vlax-get-property (vlax-ename->vla-object pl) 'Area)
        )
  (entmod
    (subst (cons 1 (rtos fl 2 2))
          (assoc 1 (entget att))
          (entget att)
          )
    )
  (entupd (cdr(assoc 330 (entget att))))
  (princ)
  )

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

---

Bitteschön:

(defun c:fl_att (/ pl att fl)
  (setq pl (car(entsel "\nPolygon wählen: "))
        att (car(nentsel "\nZielattribut wählen: "))
        fl (vlax-get-property (vlax-ename->vla-object pl) 'Area)
        )
  (entmod
    (subst (cons 1 (rtos (/ fl 10000.0) 2 2))
          (assoc 1 (entget att))
          (entget att)
          )
    )
  (entupd (cdr(assoc 330 (entget att))))
  (princ)
  )

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

---

Hallo Thomas
Vielen Dank für die schnelle Hilfe.
Ist es möglich hinter die Zahl die Einheit ha (ha für Hektar) mit einem Leerschlag zwischen Zahl und Einheit zu schreiben?
Beispiel: 0.4567 ha

Notfalls mache ich es mit Attout / Excel / Attin.

Gruss Michael

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

---

ja :

(defun c:fl_att (/ pl att fl)
  (setq pl (car(entsel "\nPolygon wählen: "))
        att (car(nentsel "\nZielattribut wählen: "))
        fl (vlax-get-property (vlax-ename->vla-object pl) 'Area)
        )
  (entmod
    (subst (cons 1 (strcat(rtos (/ fl 10000.0) 2 2)" ha"))
          (assoc 1 (entget att))
          (entget att)
          )
    )
  (entupd (cdr(assoc 330 (entget att))))
  (princ)
  )

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

---

Funktioniert super!

Nochmals vielen Dank
Michael

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

---

test_Raum.zip

Hallo,

dieses Lisp ist echt Klasse ich habe es auf unseren Bedarf schon modifiziert,
bloß
1.) ich möchte noch vom gleichen Polygon den Umfang in einem Zielattribut angeben.

2.) kann man das Lisp so umschreiben das diese beiden Werte in einem ZielBlock (der Attribute hinterlegt hat) selbstständig einträgt.

Für die Zweite Frage habe ich eine Quell-Datei mit dem Block hinterlegt (Im Format ACAD 200 aber wir haben schon 2005)

------------------
Gruß Grossi

[Diese Nachricht wurde von Grossi am 22. Mrz. 2005 editiert.]

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

---

den Umfang( Länge ) liefert dir
(vlax-get-property (vlax-ename->vla-object pl) 'Length)
und wie man Werte in Attribute schriebt, findes du u.a. hier

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

[Diese Nachricht wurde von CADmium am 16. Mrz. 2005 editiert.]

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