| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Punktkoordinaten lsp (362 mal gelesen)
|
Ulf Giesecke Mitglied Strassenbautechniker
Beiträge: 224 Registriert: 13.08.2002 ACAD 2014, Windows 7 professional Intel(R) Core(TM) i7 CPU, 870 2,93GHz, RAM 8.00GB, 64 Bit-Betriebssystem
|
erstellt am: 25. Feb. 2004 16:01 <-- editieren / zitieren --> Unities abgeben:
Hallo, habe mir eine lsp runtergeladen die beim anklicken eines punktes die Koordinaten daneben schreibt, funktioniert super. Hätte aber nun gerne die lsp so umgeschrieben das nur meine Höhe angegeben wird, is bestimmt kein Thema, aber ich habe null Ahnung vom lsp schreiben. (defun c:koor (/ pkt txtstil txthoeh abstX abstY txtlayr linlayr machline) ;;;Variable Werte (setq txtstil "Standard" txtlayr "0" txthoeh 0.5 abstX 0.5 abstY 0.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) ) ) ) ) ) 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: 25. Feb. 2004 16:05 <-- editieren / zitieren --> Unities abgeben: Nur für Ulf Giesecke
..ungetestet .... (defun c:koor (/ pkt txtstil txthoeh abstX abstY txtlayr linlayr machline) ;;;Variable Werte (setq txtstil "Standard" txtlayr "0" txthoeh 0.5 abstX 0.5 abstY 0.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 (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) ) ) ) ) )
------------------ - Thomas -
[Diese Nachricht wurde von CADmium am 25. Feb. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Karin72 Mitglied
Beiträge: 278 Registriert: 13.05.2003 Autocad Map 2004, WS-Landcad, LT 2004, LT-Extender,
|
erstellt am: 25. Feb. 2004 16:18 <-- editieren / zitieren --> Unities abgeben: Nur für Ulf Giesecke
|
Ulf Giesecke Mitglied Strassenbautechniker
Beiträge: 224 Registriert: 13.08.2002 ACAD 2014, Windows 7 professional Intel(R) Core(TM) i7 CPU, 870 2,93GHz, RAM 8.00GB, 64 Bit-Betriebssystem
|
erstellt am: 25. Feb. 2004 16:25 <-- 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: 25. Feb. 2004 16:26 <-- editieren / zitieren --> Unities abgeben: Nur für Ulf Giesecke
|
Ulf Giesecke Mitglied Strassenbautechniker
Beiträge: 224 Registriert: 13.08.2002 ACAD 2014, Windows 7 professional Intel(R) Core(TM) i7 CPU, 870 2,93GHz, RAM 8.00GB, 64 Bit-Betriebssystem
|
erstellt am: 14. Apr. 2004 10:17 <-- editieren / zitieren --> Unities abgeben:
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 14. Apr. 2004 10:26 <-- editieren / zitieren --> Unities abgeben: Nur für Ulf Giesecke
Converts a number into a string (rtos number [mode [precision]]) The rtos function returns a string that is the representation of number according to the settings of mode, precision, and the system variables UNITMODE, DIMZIN, LUNITS, and LUPREC. Arguments number A number. mode An integer specifying the linear units mode. The mode corresponds to the values allowed for the LUNITS AutoCAD system variable. The mode can be one of the following numbers: 1 Scientific 2 Decimal 3 Engineering (feet and decimal inches) 4 Architectural (feet and fractional inches) 5 Fractional precision An integer specifying the precision. The mode and precision arguments correspond to the system variables LUNITS and LUPREC. If you omit the arguments, rtos uses the current settings of LUNITS and LUPREC. ------------------ - Sebastian Mattis -
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 14. Apr. 2004 11:08 <-- editieren / zitieren --> Unities abgeben: Nur für Ulf Giesecke
Hallo, das das Makro funktioniert ist der blanke Zufall, da die Befehlsoptionen in der Befehlszeile von den Einstellungen des Textstils abhängig sind. Deshalb ist meiner Ansicht nach die (entmake ..) Variante zu bevorzugen. Grüße Holger
------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man's hat! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |