| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Fläche lsp (1251 mal gelesen)
|
Boogie-Woogie
Mitglied
Bauzeicher
   Beiträge: 85
Registriert: 18.01.2005
|
erstellt am: 14. Sep. 2005 10:49  <-- editieren / zitieren -->   Unities abgeben:          
Hallo Ich möchte eine Polylinie anklicken und die Fläche als TXT einfügen Ich habe mir die Fläche.lsp u. Fläche2.lsp runtergeladen.
Beide funktionieren nichtauf Acad 2006 unter Einfügen, Schriftfeld, Objekt bekomme ich einen TXT im qmm Format und muss den dezimalpunkt um 6 Stellen nach links verschieben, umständlich!! Hilfe Rudi
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer
Ehrenmitglied V.I.P. h.c.
Bauingenieur
Beiträge: 7085
Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 14. Sep. 2005 10:51 <-- editieren / zitieren --> Unities abgeben: Nur für Boogie-Woogie 
Probier mal: Code:
*^C^C_area;_object;\-mtext;\_R;0;_J;_BL;_W;0;A=$m=$(rtos,$(getvar,area),2,3)m²;;
Das mit den m2 funktioniert aber nur dann wenn du nicht in Millimetern zeichnest, sondern in Metern. ------------------
Grüsse Thomas Nachtrag: leg dir das auf einen Button... [Diese Nachricht wurde von tunnelbauer am 14. Sep. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Boogie-Woogie
Mitglied
Bauzeicher
Beiträge: 85
Registriert: 18.01.2005
|
erstellt am: 14. Sep. 2005 11:03 <-- editieren / zitieren --> Unities abgeben:
|
Boogie-Woogie
Mitglied
Bauzeicher
Beiträge: 85
Registriert: 18.01.2005
|
erstellt am: 15. Sep. 2005 10:55 <-- editieren / zitieren --> Unities abgeben:
Hallo Tomas kannst du mir bei meiner letzten Anfrage weiterhelfen. Die Kommastelle von qmm einfach um 5Stellen nach links zu schieben. Ich habe da was von (stracad(rtos(getvar.area)100000,2,3) gesehen? habs probiert. - Ich bin zu doof dafür. bitte Helfe mir dabei. schöne Grüße Rudi Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium
Moderator
Maschinenbaukonstrukteur
    
Beiträge: 13508
Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 15. Sep. 2005 11:26 <-- editieren / zitieren --> Unities abgeben: Nur für Boogie-Woogie
so ? *^C^C_area;_object;\(command "_-mtext" pause "_R" 0 "_J" "_BL" "_W" 0 (strcat "A="(rtos(*(getvar"area")10000) 2 3)"m²")"") ------------------
 - 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 |
Boogie-Woogie
Mitglied
Bauzeicher
Beiträge: 85
Registriert: 18.01.2005
|
erstellt am: 15. Sep. 2005 11:39 <-- editieren / zitieren --> Unities abgeben:
|
CADmium
Moderator
Maschinenbaukonstrukteur
Beiträge: 13508
Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 15. Sep. 2005 11:40 <-- editieren / zitieren --> Unities abgeben: Nur für Boogie-Woogie
*^C^C_area;_object;\(command "_-mtext" pause "_R" 0 "_J" "_BL" "_W" 0 (strcat "A="(rtos(/(getvar"area")10000.0) 2 3)"m²")"") ------------------
- 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 |
Boogie-Woogie
Mitglied
Bauzeicher
Beiträge: 85
Registriert: 18.01.2005
|
erstellt am: 15. Sep. 2005 12:01 <-- editieren / zitieren --> Unities abgeben:
|
Goofy007
Mitglied
Vermessungstechniker
Beiträge: 578
Registriert: 06.11.2004 Map3D 2018 und Civil3D 2018
|
erstellt am: 15. Sep. 2005 20:06 <-- editieren / zitieren --> Unities abgeben: Nur für Boogie-Woogie
Hallo Zusammen, Mir gefällt das auch sehr gut, hab mir erlaubt abzuschreiben.
Besser gut abschreiben als schlecht selber machen !! Kann mir bitte jemand erklären welche Funktion der Backslash zwischem der Flächenabfrage und dem Aufruf vom mtext (bzw. bei Cadmium dem Beginn des lisp-Ausdrckes) hat? Ich hab ihn zwar abgeschrieben, aber ich versteh ihn nicht. mfg Didi
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer
Ehrenmitglied V.I.P. h.c.
Bauingenieur
Beiträge: 7085
Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 15. Sep. 2005 20:27 <-- editieren / zitieren --> Unities abgeben: Nur für Boogie-Woogie
Noch besser als gut abschreiben ist gut abschreiben (bzw. copy & paste) und dann das Ganze nicht blind übernehmen, sondern auch noch hinterfragen (was warum wieso zu welchem Zwecke...). Der Backslash (\) steht bei Befehlsmakros für Pause - Pause bedeutet, warten für Eingaben durch den User. In diesem Fall einmal der Punkt an dem der Text abgesetzt werden soll, das andere Mal das Objekt das ermittelt werden soll. (Bei CADmium ist es einmal als pause in Lisp und einmal ein \ im Makro - also sehr schön beide Varianten zu erkennen) ------------------
Grüsse Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Goofy007
Mitglied
Vermessungstechniker
Beiträge: 578
Registriert: 06.11.2004
|
erstellt am: 15. Sep. 2005 21:01 <-- editieren / zitieren --> Unities abgeben: Nur für Boogie-Woogie
|
holgerlab
Mitglied
Haustechniker
Beiträge: 446
Registriert: 02.12.2004 MEP2014/2016 + CAxToolbox
MircoStation + TriCAD
Windows 7 64Bit
SSD 160GB
Intel® Core i7-3770 CPU 3.40 GHz
RAM 16 GB
NVIDIA Quatdro 600 1,00RAM
|
erstellt am: 16. Sep. 2005 07:37 <-- editieren / zitieren --> Unities abgeben: Nur für Boogie-Woogie
Für uns Haustechniker ;-) gezeichnet in mm vermaßt in m Texthöhe 150 *^C^C_area;_object;\(command "_-mtext" pause "_R" 0 "H" 150 "_J" "_BL" "_W" 0 (strcat "A="(rtos(/(getvar"area")1000000) 2 1)"m²")"") ------------------
Gruß Holger Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Boogie-Woogie
Mitglied
Bauzeicher
Beiträge: 85
Registriert: 18.01.2005
|
erstellt am: 16. Sep. 2005 07:44 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de (alle Foren)
| 
