| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Digitale Fabrik: Projekte disziplinübergreifend koordinieren, ein Webinar am 06.11.2024
|
Autor
|
Thema: Automatische Koordinatenausgabe (5284 mal gelesen)
|
Dynasty Mitglied Verkehrsplaner
Beiträge: 47 Registriert: 22.01.2002 ACAD 2005, AMD 64 X2 Dual 5000+, 2 GB Ram, 128 MB Grafik
|
erstellt am: 23. Aug. 2002 11:05 <-- editieren / zitieren --> Unities abgeben:
Hallo, hat jemand eine Ahnung ob es in ACAD2000 eine Möglichkeit gibt einen Punkt anzuklicken und ACAD schreibt dann die X/Y/Z-Koordinaten daneben? Wir müssen hier im Büro öfter mal Gauß-Krüger-Koordinaten in die Pläne einfügen und jedesmal unten links die koordinaten aufschreiben und dann als Text eingeben is doch a bisserl aufwendig. Danke.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADZE Mitglied
Beiträge: 1 Registriert: 23.08.2002
|
erstellt am: 23. Aug. 2002 11:27 <-- editieren / zitieren --> Unities abgeben: Nur für Dynasty
|
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 23. Aug. 2002 12:53 <-- editieren / zitieren --> Unities abgeben: Nur für Dynasty
Hallo Dynasty, folgend ein paar Lispzeilen, die Deine Aufgabenstellung erfüllen. Man müßte natürlich noch die TextHöhe/ Stil und den Abstand zum geklickten Punkt auf Deine speziellen Bedürfnisse anpassen. Soll eine Verbindungslinie gezeichnet werden, usw. Schau es dir an, und bei Fragen ... Grüße Holger (defun c ktkoo (/ pkt txtstil txthoeh abstX abstY txtlayr linlayr machline) ;;;Variable Werte (setq txtstil "Standard" txtlayr "0" txthoeh 2.5 abstX 2.5 abstY 2.5 linlayr "0" machline nil; T oder nil -- T->Linie wird gezeichnet ) ;;; (while (setq pkt (getpoint "\nPunkt:")) (entmake (list '(0 . "TEXT") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") (cons 8 txtlayr) '(100 . "AcDbText") (cons 10 (list (+ (car pkt) abstX) (+ (cadr pkt) abstY) (caddr pkt))) (cons 40 txthoeh) (cons 1 (strcat (rtos (car pkt) 2 2) "-" (rtos (cadr pkt) 2 2) "-" (rtos (caddr pkt) 2 2))) '(50 . 0.0) '(41 . 1.0) '(51 . 0.0) (cons 7 txtstil) '(71 . 0) '(72 . 0) '(11 0.0 0.0 0.0) '(210 0.0 0.0 1.0) '(100 . "AcDbText") '(73 . 0) ) ) (if machline (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") (cons 8 linlayr) '(100 . "AcDbLine") (cons 10 pkt) (cons 11 (list (+ (car pkt) abstX) (+ (cadr pkt) abstY) (caddr pkt))) '(210 0.0 0.0 1.0) ) ) ) ) )
[Diese Nachricht wurde von Brischke am 23. August 2002 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Techniker Mitglied
Beiträge: 31 Registriert: 18.11.2002
|
erstellt am: 14. Okt. 2003 09:00 <-- editieren / zitieren --> Unities abgeben: Nur für Dynasty
Hallo Holger, was mache ich falsch: um die .lsp zu starten, habe ich sie über appload geladen und dann in die Befehlszeile geschrieben: (ktkoo) Zuvor hatte ich noch das Smilie durch einen Doppelpunkt ersetzt. Besten Dank Techniker Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Rausch Mitglied
Beiträge: 1200 Registriert: 26.03.2001 Intel Xeon 3,6 GHz 32 GB RAM NVIDIA Quadro P2000 Windows 10 Enterprise AutoCADmap 3D 2023 WS-Landcad 2023 QGIS 3.28.5
|
erstellt am: 14. Okt. 2003 09:04 <-- editieren / zitieren --> Unities abgeben: Nur für Dynasty
|
Techniker Mitglied
Beiträge: 31 Registriert: 18.11.2002
|
erstellt am: 14. Okt. 2003 09:17 <-- editieren / zitieren --> Unities abgeben: Nur für Dynasty
|
Noivet Mitglied Bautechniker
Beiträge: 173 Registriert: 05.09.2007 Vista Autocad 2010 Version3 Inventor 2011 NVIDIA Quadro 3000M
|
erstellt am: 21. Sep. 2007 10:32 <-- editieren / zitieren --> Unities abgeben: Nur für Dynasty
|
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 21. Sep. 2007 15:39 <-- editieren / zitieren --> Unities abgeben: Nur für Dynasty
Hallo Noivet, Holger's Zeilen nochmal ein bißchen erweitert. Du kannst den Abstand der Zeilen über einen Faktor bestimmen:
Code:
(defun c ktkoo (/ pkt txtstil txthoeh abstX abstY txtlayr linlayr machline n txtabstfaktor) ;;;Variable Werte (setq txtstil "Standard" txtlayr "0" txthoeh 2.5 txtabstfaktor 0.2 abstX 2.5 abstY 2.5 linlayr "0" machline T; T oder nil -- T->Linie wird gezeichnet ) ;;; (while (setq pkt (getpoint "\nPunkt:")) (setq n -1) (mapcar '(lambda(A) (setq n (+ n 1)) (entmake (list '(0 . "TEXT") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") (cons 8 txtlayr) '(100 . "AcDbText") (cons 10 (mapcar '-(list (+ (car pkt) abstX) (+ (cadr pkt) abstY) (caddr pkt)) (list 0.0 (* n (+ txthoeh (* txthoeh txtabstfaktor))) 0.0))) (cons 40 txthoeh) (cons 1 (rtos A 2 2)) '(50 . 0.0) '(41 . 1.0) '(51 . 0.0) (cons 7 txtstil) '(71 . 0) '(72 . 0) '(11 0.0 0.0 0.0) '(210 0.0 0.0 1.0) '(100 . "AcDbText") '(73 . 0) ) ) ) (list (car pkt)(cadr pkt)(caddr pkt))) (if machline (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") (cons 8 linlayr) '(100 . "AcDbLine") (cons 10 pkt) (cons 11 (list (+ (car pkt) abstX) (+ (cadr pkt) abstY) (caddr pkt))) '(210 0.0 0.0 1.0) ) ) ) ) )
schönes Wochenende ------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Noivet Mitglied Bautechniker
Beiträge: 173 Registriert: 05.09.2007 Vista Autocad 2010 Version3 Inventor 2011 NVIDIA Quadro 3000M
|
erstellt am: 21. Sep. 2007 16:07 <-- editieren / zitieren --> Unities abgeben: Nur für Dynasty
|