Eckrad Erzeugung dazu

Lisp/KreiselInsert.lsp

@@ -474,6 +474,40 @@
 )
 
 
-(princ "\nKreiselInsert.lsp geladen (Version 6.0 - Attribute + Redraw)")
+;; --------------------------------------------
-(princ "\nBefehle: KreiselInsert, KreiselConnect, KreiselRedraw, KreiselQuick, KreiselParams")
+;; ILS_Eckrad: Einzelnen AN8-Block einfuegen
+;;
+;; Fuegt den Block AN8.dwg an einem gewaehlten Punkt
+;; mit waehlbarer Rotation ein (Eckrad / Umlenkrad).
+;; --------------------------------------------
+(defun c:ILS_Eckrad ( / pt rotStr rotation)
+
+  (ssg-start "Eckrad einfuegen" '(("OSMODE") ("ATTREQ") ("ATTDIA")))
+  (setvar "OSMODE" 0)
+  (setvar "ATTREQ" 0)
+  (setvar "ATTDIA" 0)
+
+  ;; 1. Einfuegepunkt
+  (setq pt (getpoint "\nEinfuegepunkt Eckrad: "))
+  (if (null pt) (progn (ssg-end) (exit)))
+
+  ;; 2. Rotation
+  (setq rotStr (getstring "\nRotation in Grad <0>: "))
+  (if (= rotStr "")
+    (setq rotation 0.0)
+    (setq rotation (atof rotStr))
+  )
+
+  ;; 3. AN8 einfuegen
+  (command "_.INSERT" (strcat *block-path* "AN8.dwg") pt 1 1 rotation)
+
+  (princ (strcat "\nEckrad eingefuegt bei "
+                 (rtos (car pt) 2 1) "," (rtos (cadr pt) 2 1)
+                 " Rotation=" (rtos rotation 2 1)))
+  (ssg-end)
+)
+
+
+(princ "\nKreiselInsert.lsp geladen (Version 6.0 - Attribute + Redraw + Eckrad)")
+(princ "\nBefehle: KreiselInsert, KreiselConnect, KreiselRedraw, KreiselQuick, KreiselParams, ILS_Eckrad")
 (princ)