 |
 |
 |
 |
 |
 |
 |
Wie kann ich mit AutoCAD Punkte so vermassen, dass der Abstand zum Ursprung mit X- und Y-Angaben beschriftet wird (inkl. pos.- oder neg. Vorzeichen)?
Das folgende AutoLisp-Programm ermöglicht dies:
(defun c:KR()
(setq oldcmd (getvar "cmdecho"))
(setq oldsnap (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 33)
(setq Punkt (getpoint "\nSchnittpunkt oder Ecke wählen:"))
(setvar "osmode" oldsnap)
(setq Xwert (car Punkt))
(setq Ywert (cadr Punkt))
(setq Text (strcat "X"(rtos Xwert 2 3)"/Y" (rtos Ywert 2 3)))
(comand "_leader" Punkt pause "" (princ Text)"")
(setvar "cmdecho" oldcmd)
(setvar "osmode" oldsnap)
(princ)
)
- Die Datei KR.LSP wird in das AutoCAD-Verzeichnis kopiert (z.B. C:\Programme\Autocad\Support).
- Programm laden (Pulldown-Menü Werkzeuge, Anwendungen…, laden, ausführen)
Alternative:
- Programm laden via Befehlszeile: eintippen (load "kr")
- Programm ausführen mit Befehl: kr
© Programm entwickelt von Werner Urben. Dieses Programm wurde anlässlich des Januar Workshops der Swiss Autodesk User Group vordemonstriert.