| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Flächenermittlung in ha (553 mal gelesen)
|
Hoppenstedt Mitglied
Beiträge: 86 Registriert: 30.08.2003 Autocad 2008, Windows XP SP2, P4 2,8 Ghz, 2GB RAM, Quadro4 980XGL, Gips 5.1, Office 2007, Adobe Standard 8
|
erstellt am: 23. Feb. 2005 13:20 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 23. Feb. 2005 13:23 <-- editieren / zitieren --> Unities abgeben: Nur für Hoppenstedt
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 |
Hoppenstedt Mitglied
Beiträge: 86 Registriert: 30.08.2003 Autocad 2008, Windows XP SP2, P4 2,8 Ghz, 2GB RAM, Quadro4 980XGL, Gips 5.1, Office 2007, Adobe Standard 8
|
erstellt am: 23. Feb. 2005 13:40 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 23. Feb. 2005 13:43 <-- editieren / zitieren --> Unities abgeben: Nur für Hoppenstedt
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 |
Hoppenstedt Mitglied
Beiträge: 86 Registriert: 30.08.2003 Autocad 2008, Windows XP SP2, P4 2,8 Ghz, 2GB RAM, Quadro4 980XGL, Gips 5.1, Office 2007, Adobe Standard 8
|
erstellt am: 23. Feb. 2005 14:35 <-- editieren / zitieren --> Unities abgeben:
|
Grossi Mitglied Technischer Zeichner, Haustechnik, Brandschutz
Beiträge: 15 Registriert: 14.11.2003 Universit�ts-Klinikum Freiburg Gesch�ftsbereich 5 Abt. 5.4 Planung und Bautechnik Workstation mit AutoCAD 2005 + PlanX (Branschutz)
|
erstellt am: 16. Mrz. 2005 17:44 <-- editieren / zitieren --> Unities abgeben: Nur für Hoppenstedt
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 16. Mrz. 2005 19:28 <-- editieren / zitieren --> Unities abgeben: Nur für Hoppenstedt
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 |