diff --git a/Lisp/OmniModulInsert.lsp b/Lisp/OmniModulInsert.lsp index d4b9f5f..ac1a28f 100644 --- a/Lisp/OmniModulInsert.lsp +++ b/Lisp/OmniModulInsert.lsp @@ -982,6 +982,12 @@ ;; Drehwinkel aus Dialog verwenden (setq angleDeg (if drehung (atof drehung) 0.0)) + ;; Hoehe als Z-Koordinate auf den Einfuegepunkt anwenden + (if (and hoehe (/= hoehe "")) + (setq pt (list (car pt) (cadr pt) (atof hoehe))) + (setq pt (list (car pt) (cadr pt) (if (caddr pt) (caddr pt) 0.0))) + ) + ;; Block einfuegen mit Drehwinkel aus Dialog (command "_.INSERT" dxf-pfad pt "" "" angleDeg) ;; INSERT vollstaendig abschliessen (Attribut-Prompts beenden) @@ -1317,6 +1323,12 @@ (command "_.ERASE" ent "") (setq angleDeg (if new-drehung (atof new-drehung) 0.0)) + + ;; Hoehe als Z-Koordinate auf den Einfuegepunkt anwenden + (if (and new-hoehe (/= new-hoehe "")) + (setq basePoint (list (car basePoint) (cadr basePoint) (atof new-hoehe))) + ) + (command "_.INSERT" dxf-pfad basePoint "" "" angleDeg) (setq blockEnt (entlast)) diff --git a/cfg/attradd.cfg b/cfg/attradd.cfg index 294a720..21fea36 100644 --- a/cfg/attradd.cfg +++ b/cfg/attradd.cfg @@ -46,6 +46,8 @@ ID = "" RADIUS = Radius WINKEL = KurvenWinkel SIVASNR_TEF = SivasnrTEF +HOEHE = "" +DREHUNG = "" [weiche] @@ -59,4 +61,6 @@ WEICHENTYP = WeichenTyp WINKEL = KurvenWinkel RICHTUNG = KurvenRichtung SIVASNR_TEF = SivasnrTEF +HOEHE = "" +DREHUNG = ""