;****************Einfügen eines Elements mit Laenge
 ;
 ;NAM = Modulnummer z.B. 02603
 ;OSM = Osmode wenn OFANG = KEIN
 ;RI  = HOR izontal oder VER tikal oder WIN kel
 ;PROFIL = Profilname wie in EAITpro8 oder EAITpro5
 ;REIHE  = 5 erNut oder 8 erNut

(defun EAIT2dla (NAM OSM RI PROFIL REIHE / Daten P1 Wi Ri) ;;;Die Übergabevariablen werden aus einer Textdatei ausgelesen!
  (EAITvari) 			;;;Variablen-Ist-Zustand speichern
  (if (not EAITlpr)
    (setq EAITlpr 0.0)
  )
  (EAITvars) 			;;;Variablen-Soll-Zustand einstellen
  (if (= (strlen NAM) 5)
    (setq Daten (strcat "00" (substr NAM 1 5)))
    (setq Daten NAM)
  )
  (setq RI (strcase RI))        
  (if (/= OSM nil)
    (setq OSM (strcase OSM))
  )
  (princ (strcat "\n\n" EAITbez1))
  (cond ((= OSM "EAITOFKEI")
         (setq EAIT_bpt2 nil
               EAIT_bpt1 nil
         )
        )
        ((= OSM "EAITOFEND")
         (setq EAIT_bpt2 1
               EAIT_bpt1 EAITofEND
         )
        )
        ((= OSM "EAITOFMIT")
         (setq EAIT_bpt2 2
               EAIT_bpt1 EAITofMIT
         )
        )
        ((= OSM "EAITOFZEN")
         (setq EAIT_bpt2 4
               EAIT_bpt1 EAITofZEN
         )
        )
        ((= OSM "EAITOFPUN")
         (setq EAIT_bpt2 8
               EAIT_bpt1 EAITofPUN
         )
        )
        ((= OSM "EAITOFQUA")
         (setq EAIT_bpt2 16
               EAIT_bpt1 EAITofQUA
         )
        )
        ((= OSM "EAITOFSCH")
         (setq EAIT_bpt2 32
               EAIT_bpt1 EAITofSCH
         )
        )
        ((= OSM "EAITOFBAS")
         (setq EAIT_bpt2 64
               EAIT_bpt1 EAITofBAS
         )
        )
        ((= OSM "EAITOFLOT")
         (setq EAIT_bpt2 128
               EAIT_bpt1 EAITofLOT
         )
        )
        ((= OSM "EAITOFTAN")
         (setq EAIT_bpt2 256
               EAIT_bpt1 EAITofTAN
         )
        )
        ((= OSM "EAITOFNAEC")
         (setq EAIT_bpt2 512
               EAIT_bpt1 EAITofNAEC
         )
        )
        ((= OSM "EAITOFQUI")
         (setq EAIT_bpt2 1024
               EAIT_bpt1 EAITofQUI
         )
        )
        (T
         (setq EAIT_bpt2 nil
               EAIT_bpt1 nil
         )
        )
  )
  (EAITbpt EAIT_bpt1 EAIT_bpt2 nil) ;;;Eingabe eines Bezugs-/Einfügepunktes
  (setq P1 (getpoint))
  (if (= P1 nil)
    (setq P1 (EAITrpt)) ;;;Eingabe eines Relativpunktes (rel. zum Bezugspunkt; optional!) 
  )
  (EAITmsg "mb_mld1" "\n" "005" " <")
  (princ EAITlpr)
  (princ "> ") ;Laenge < >
  (initget (+ 2 4))
  (setq Li (getdist " "))
  (if (= Li nil)
    (setq Li EAITlpr)
  )
  (setq Li (EAITck Li))
  (setq Li (atof (rtos (abs Li) 2 1))) ;Laenge des Profils
  (princ "\n  -> ")
  (princ Li)
  (setvar "OSMODE" 0)
  (cond ((= RI "HOR") (setq Wi 0))
        ((= RI "VER") (setq Wi (/ Pi 2)))
        (T
         (initget 1)
         (EAITmsg "mb_mld10" "\n" "004" nil) ;Winkel
         (setq Wi (getangle P1))
        )
  )
  (initget 1)
  (EAITmsg "mb_mld10" "\n" "008" nil) ;Konstruktionsrichtung
  (setq KR (getangle P1))
  (cond ((= REIHE "8") ; 8er - Nut Elemente
         (if EAITpro8
           nil
           (load (strcat EAITpfn "EAITpro8"))
         )
         (EAITpro8 PROFIL P1 Li Wi KR)
        )
        ((= REIHE "5") ; 5er - Nut Elemente
         (if EAITpro5
           nil
           (load (strcat EAITpfn "EAITpro5"))
         )
         (EAITpro5 PROFIL P1 Li Wi KR)
        )
        ((= REIHE "6") ; 6er - Nut Elemente
         (if EAITpro6
           nil
           (load (strcat EAITpfn "EAITpro6"))
         )
         (EAITpro6 PROFIL P1 Li Wi KR) ;;;Aufruf der Einfügeroutine (s.u.)
        )
        ((= REIHE "S") ; Sonder - Elemente
         (if EAITproS
           nil
           (load (strcat EAITpfn "EAITproS"))
         )
         (EAITproS PROFIL P1 Li Wi KR)
        )
        ((= REIHE "I") ; Installlationselemente
         (if EAITproI
           nil
           (load (strcat EAITpfn "EAITproI"))
         )
         (EAITproI PROFIL P1 Li Wi KR)
        )
        ((= REIHE "E") ; Economy
         (if EAITproE
           nil
           (load (strcat EAITpfn "EAITproE"))
         )
         (EAITproE PROFIL P1 Li Wi KR)
        )
  ) ;cond
  (setq Li (rtos (abs Li) 2 1))
  (command EAITege                    ;;;setzen des Infopunktes
           (strcat EAITpfn "EAITinfo")
           (polar P1 WINFO LINFO)
           ""
           ""
           ""
           EAITbez1
           EAITbez2
           EAITlie1
           EAITlie2
           EAITwer1
           EAITwer2
           Li
           (rtos EAITb1 2 1)
           EAITnr
  ) ;letzte Laenge (Li) merken
  (setq Li (atof Li))
  (setq EAITlpr Li)
  (EAITvarz2)  ;;;zurücksetzen der Variablen
  (princ)
) ;defun EAIT2Dla

 ;--------------------------------------------------------------------------
 ; PROFIL muß ein String entsprechend aus erster COND- Anweisung sein      
 ; EPKT   ist Einfügepkt.                                                  
 ; LA     ist Länge des Profils                                             
 ; WIN    ist Einfügewinkel                                                 
 ; KRI    ist Konstruktionswinkel                                           
 ;--------------------------------------------------------------------------

(defun EAITpro6  (PROFIL EPKT LA WIN KRI / SS1 LI LI1 LI2 LI3 LI4 LI5 LI6 LI7 LI8 LI9 LIN END1 WIZ N Z) ;--------Listen der Profil-Linien							   
  (setvar "OSMODE" 0)
  (setq LI1  '(12 18 30)
        LI2  '(12 18 42 48 60)
        LI3  '(12 18 42 48 72 78 102 108 120)
        LI4  '(30)
        LI5  '(4 14.9)
        LI6  '(2.3 8)
        LI7  '(30)
        LI8  '(30)
        LI9  '(60)
        LI10 '(3.6)
        LI11 '(3)
        LI12 '(3.4 10.4 30)
        LI13 '(29.363)
        LI14 '(6.247)
        LI15 '(9.42)
        LI16 '(7.86)
 ;LI17 '(18.5)
 ;LI18 '(7 18.5)
 ;LI19 '(51.6)
 ;LI20 '(14.18 51.6)
 ;LI21 '()
 ;LI22 '()
 ;LI23 '()
 ;LI24 '()
        LI25 '(10.04 40.6 50.2 56.4 68.3)
        LI26 '(68.3)
        LI27 '(8.4 29.1)
        LI28 '(11.9 18.1 29.1)
        LI29 '(11.9 18.1 28.6 37.4 57.4 61.1)
        LI30 '(61.1)
        LI31 '(22.8 29.1)
        LI32 '(11.9 18.1 29.1)
        LI33 '(72)
        LI34 '(72)
        LI35 '(44)
        LI36 '(44)
        LI37 '(3 3.5)
        LI38 '(0.1)
        LI39 '(28.862)
        LI40 '(20.583 23.683 28.862)
        LI41 '(11.816 18.0168 32.956)
        LI42 '(41.1272)
        LI43 '(29.205 34.002 41.1272)
        LI44 '(19.533 25.733 37.5502)
        LI45 '(50.79)
        LI46 '(35.921 40.492 50.79)
        LI47 '(25.868 32.068 43.885)
        LI48 '(59.915)
        LI49 '(41.897 48.097 59.915)
        )
  (cond ((= PROFIL "30x30") (setq LI LI1))
        ((= PROFIL "60x60") (setq LI LI2))
        ((= PROFIL "120x120") (setq LI LI3))
        ((= PROFIL "30") (setq LI LI4))
        ((= PROFIL "15x8L") (setq LI LI5))
        ((= PROFIL "15x8K") (setq LI LI6))
        ((= PROFIL "30x30-45") (setq LI LI7))
        ((= PROFIL "30x30N1") (setq LI LI8))
        ((= PROFIL "60x30N2") (setq LI LI9))
        ((= PROFIL "GLEITLEISTE") (setq LI LI10))
        ((= PROFIL "ABDECKP 24x3") (setq LI LI11))
        ((= PROFIL "KLEMM30") (setq LI LI12))
        ((= PROFIL "GABDECK30x6") (setq LI LI13))
        ((= PROFIL "GABDECK6x30") (setq LI LI14))
        ((= PROFIL "KANALKANTES") (setq LI LI15))
        ((= PROFIL "KANALKANTED") (setq LI LI16))
 ;((= PROFIL "SP180AL") (setq LI LI17))		    ;Scharnierprofil 180° Al außen, rechts
 ;((= PROFIL "SP180AR") (setq LI LI18))		    ;Scharnierprofil 180° Al außen, links
 ;((= PROFIL "SP180AD") (setq LI LI19))		    ;Scharnierprofil 180° Al außen, Draufsicht
 ;((= PROFIL "SP180AU") (setq LI LI20))		    ;Scharnierprofil 180° Al außen, von unten
 ;((= PROFIL "SP180IL") (setq LI LI21))		    ;Scharnierprofil 180° Al innen, rechts
 ;((= PROFIL "SP180IR") (setq LI LI22))		    ;Scharnierprofil 180° Al innen, links
 ;((= PROFIL "SP180ID") (setq LI LI23))		    ;Scharnierprofil 180° Al innen, Draufsicht
 ;((= PROFIL "SP180IU") (setq LI LI24))		    ;Scharnierprofil 180° Al innen, von unten
        ((= PROFIL "SCHPRL") (setq LI LI25)) ;C-Schiene, Schienenprofil, links
        ((= PROFIL "SCHPRR") (setq LI LI26)) ;C-Schiene, Schienenprofil, rechts
        ((= PROFIL "SCHPRD") (setq LI LI27)) ;C-Schiene, Schienenprofil, Draufsicht
        ((= PROFIL "SCHPRU") (setq LI LI28)) ;C-Schiene, Schienenprofil, von unten
        ((= PROFIL "SCHLPRL") (setq LI LI29)) ;C-Schiene, Schlittenprofil, links
        ((= PROFIL "SCHLPRR") (setq LI LI30)) ;C-Schiene, Schlittenprofil, rechts
        ((= PROFIL "SCHLPRD") (setq LI LI31)) ;C-Schiene, Schlittenprofil, Draufsicht
        ((= PROFIL "SCHLPRU") (setq LI LI32)) ;C-Schiene, Schlittenprofil, von unten
        ((= PROFIL "SYNC32L") (setq LI LI33)) ;Synchronwellenprofil VK 32, links
        ((= PROFIL "SYNC32D") (setq LI LI34)) ;Synchronwellenprofil VK 32, Draufsicht
        ((= PROFIL "SYNC14L") (setq LI LI35)) ;Synchronwellenprofil VK 14, links
        ((= PROFIL "SYNC14D") (setq LI LI36)) ;Synchronwellenprofil VK 14, Draufsicht
        ((= PROFIL "GFL6S") (setq LI LI37)) ;Gleitführungsprofil 6/6e, Seitenansicht
        ((= PROFIL "GFL6D") (setq LI LI38)) ;Gleitführungsprofil 6/6e, Draufsicht
        ((= PROFIL "P6R30X") (setq LI LI39)) ;Profil 6 R30/60-30°, X
        ((= PROFIL "P6R30Y") (setq LI LI40)) ;Profil 6 R30/60-30°, Y
        ((= PROFIL "P6R30Z") (setq LI LI41)) ;Profil 6 R30/60-30°, Z
        ((= PROFIL "P6R45X") (setq LI LI42)) ;Profil 6 R30/60-45°, X
        ((= PROFIL "P6R45Y") (setq LI LI43)) ;Profil 6 R30/60-45°, Y
        ((= PROFIL "P6R45Z") (setq LI LI44)) ;Profil 6 R30/60-45°, Z
        ((= PROFIL "P6R60X") (setq LI LI45)) ;Profil 6 R30/60-60°, X
        ((= PROFIL "P6R60Y") (setq LI LI46)) ;Profil 6 R30/60-60°, Y
        ((= PROFIL "P6R60Z") (setq LI LI47)) ;Profil 6 R30/60-60°, Z
        ((= PROFIL "P6R90X") (setq LI LI48)) ;Profil 6 R30/60-90°, X
        ((= PROFIL "P6R90Y") (setq LI LI49)) ;Profil 6 R30/60-90°, Y
        ) ;cond
 ;---------Bedingungen für Quadranten	
  (cond ((AND (<= WIN KRI) (< KRI (+ WIN (/ Pi 2)))) ;I. Quadrant
         (setq WIN  WIN ;
               WIZ  (+ WIN (/ Pi 2)) ;
               QUAD 1 ;
               ) ;
         ) ;I. Quadrant
        ((AND (<= (+ WIN (/ Pi 2)) KRI) (< KRI (+ WIN Pi))) ;II. Quadrant 
         (setq WIN  (+ WIN Pi) ;
               WIZ  (- WIN (/ Pi 2)) ;
               QUAD -1 ;
               ) ;
         ) ;II. Quadrant
        ((AND (<= (+ WIN Pi) KRI) (< KRI (+ WIN (/ (* Pi 3) 2)))) ; III.Quadrant
         (setq WIN  (+ WIN Pi) ;
               WIZ  (+ WIN (/ Pi 2)) ;
               QUAD 1 ;
               ) ;
         ) ;III. Quadrant
        (T ;IV. Quadrant
         (setq WIN  WIN ;
               WIZ  (- WIN (/ Pi 2)) ;
               QUAD -1 ;
               ) ;
         ) ;IV. Quadrant
        ) ;cond		    
  (setq WINFO (/ (+ WIN WIZ) 2)
        LINFO 5) ;Winkel+Abstand für MB-INFO - Punkt
 ;-----------Zeichnen der Profil-Grundlinie	
  (command EAITlay EAITlse "EAIT50" "")
  (setq END1 (polar EPKT WIN LA))
  (command EAITlin EPKT END1 "")
  (setq LIN   (entlast)
        SS1   (ssadd (entlast))
        Z     -1
        OBJNG (ssname SS1 0)) ;-----------Zeichnen des restlichen Profils	
  (command EAITlin EPKT (polar EPKT WIZ (last LI)) "") ;Seiten-Linie d. Profils
  (setq SS1 (ssadd (entlast) SS1))
  (setq OBJNS1 (ssname SS1 1))
  (command EAITlin END1 (polar END1 WIZ (last LI)) "") ;Seiten-Linie d. Profils
  (setq SS1 (ssadd (entlast) SS1))
  (setq OBJNS2 (ssname SS1 2))

  (foreach N  LI
    (command EAITkop LIN "" EPKT (polar EPKT WIZ N))
    (setq SS1 (ssadd (entlast) SS1))
    (setq Z (1+ Z))
    ) ;foreach
  (setq OBJNG1 (ssname SS1 3))
  (setq OBJNG2 (entlast))
  (if (= LI LI7)
    (progn (command EAITlay EAITlse "EAIT25" "")
           (command EAITlin (polar EPKT WIZ 9) (polar END1 WIZ 9) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI13)
    (progn (command EAITlay EAITlse "EAITstpg" "")
           (command EAITlin (polar EPKT WIZ 14.681) (polar END1 WIZ 14.681) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI14)
    (progn (command EAITlay EAITlse "EAIT25" "")
           (command EAITlin (polar EPKT WIZ 0.852) (polar END1 WIZ 0.852) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ -2.763) (polar END1 WIZ -2.763) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ -6.865) (polar END1 WIZ -6.865) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ -8.065) (polar END1 WIZ -8.065) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin EPKT (polar EPKT WIZ -8.065) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin END1 (polar END1 WIZ -8.065) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI15)
    (progn (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ 6.45) (polar END1 WIZ 6.45) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI16)
    (progn (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ 4.23) (polar END1 WIZ 4.23) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI17)
    (progn (command EAITlay EAITlse "EAITstpg" "")
           (command EAITlin (polar EPKT WIZ 6.35) (polar END1 WIZ 6.35) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ 7) (polar END1 WIZ 7) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI18)
    (progn (command EAITlay EAITlse "EAITstpg" "")
           (command EAITlin (polar EPKT WIZ 6.35) (polar END1 WIZ 6.35) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI19)
    (progn (command EAITlay EAITlse "EAITstpg" "")
           (command EAITlin (polar EPKT WIZ 11.16) (polar END1 WIZ 11.16) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ 14.18) (polar END1 WIZ 14.18) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI20)
    (progn (command EAITlay EAITlse "EAITstpg" "")
           (command EAITlin (polar EPKT WIZ 11.16) (polar END1 WIZ 11.16) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI25)
    (progn (command EAITlay EAITlse "EAIThilfe" "")
           (command EAITlin (polar EPKT WIZ -21.7) (polar END1 WIZ -21.7) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlay EAITlse "EAIT50" "")
           (command EAITlin (polar EPKT WIZ 0) (polar END1 WIZ 0) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI26)
    (progn (command EAITlay EAITlse "EAIThilfe" "")
           (command EAITlin (polar EPKT WIZ -21.7) (polar END1 WIZ -21.7) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ 10.04) (polar END1 WIZ 10.04) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 40.6) (polar END1 WIZ 40.6) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 50.2) (polar END1 WIZ 50.2) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 56.4) (polar END1 WIZ 56.4) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI27)
    (progn (command EAITlay EAITlse "EAIThilfe" "")
           (command EAITlin (polar EPKT WIZ 30) (polar END1 WIZ 30) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ 11.9) (polar END1 WIZ 11.9) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 18.1) (polar END1 WIZ 18.1) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 25.1) (polar END1 WIZ 25.1) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI28)
    (progn (command EAITlay EAITlse "EAIThilfe" "")
           (command EAITlin (polar EPKT WIZ 30) (polar END1 WIZ 30) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ 8.4) (polar END1 WIZ 8.4) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 25.1) (polar END1 WIZ 25.1) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI29)
    (progn (command EAITlay EAITlse "EAIThilfe" "")
           (command EAITlin (polar EPKT WIZ 47.9) (polar END1 WIZ 47.9) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 21.7) (polar END1 WIZ 21.7) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlay EAITlse "EAIT50" "")
           (command EAITlin (polar EPKT WIZ 0) (polar END1 WIZ 0) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI30)
    (progn (command EAITlay EAITlse "EAIThilfe" "")
           (command EAITlin (polar EPKT WIZ 47.9) (polar END1 WIZ 47.9) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 21.7) (polar END1 WIZ 21.7) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ 11.9) (polar END1 WIZ 11.9) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 18.1) (polar END1 WIZ 18.1) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 28.6) (polar END1 WIZ 28.6) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 37.4) (polar END1 WIZ 37.4) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 57.4) (polar END1 WIZ 57.4) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI31)
    (progn (command EAITlay EAITlse "EAIThilfe" "")
           (command EAITlin (polar EPKT WIZ 30) (polar END1 WIZ 30) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ 11.9) (polar END1 WIZ 11.9) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 18.1) (polar END1 WIZ 18.1) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 25.5) (polar END1 WIZ 25.5) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI32)
    (progn (command EAITlay EAITlse "EAIThilfe" "")
           (command EAITlin (polar EPKT WIZ 30) (polar END1 WIZ 30) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ 22.8) (polar END1 WIZ 22.8) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 25.5) (polar END1 WIZ 25.5) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI33)
    (progn (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ 20.9) (polar END1 WIZ 20.9) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 23) (polar END1 WIZ 23) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 33) (polar END1 WIZ 33) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 39) (polar END1 WIZ 39) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 49) (polar END1 WIZ 49) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 51.2) (polar END1 WIZ 51.2) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI34)
    (progn (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ 3) (polar END1 WIZ 3) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 9.8) (polar END1 WIZ 9.8) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 16.1) (polar END1 WIZ 16.1) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 55.95) (polar END1 WIZ 55.95) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 62.2) (polar END1 WIZ 62.2) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 69) (polar END1 WIZ 69) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI35)
    (progn (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ 15.4) (polar END1 WIZ 15.4) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 16.5) (polar END1 WIZ 16.5) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 20.5) (polar END1 WIZ 20.5) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 23.5) (polar END1 WIZ 23.5) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 27.5) (polar END1 WIZ 27.5) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 28.63) (polar END1 WIZ 28.63) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI36)
    (progn (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ 2) (polar END1 WIZ 2) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 6.4) (polar END1 WIZ 6.4) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 11.5) (polar END1 WIZ 11.5) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 32.5) (polar END1 WIZ 32.5) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 37.6) (polar END1 WIZ 37.6) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 42) (polar END1 WIZ 42) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI37)
    (progn (command EAITlay EAITlse "EAIT50" "")
           (command EAITlin EPKT (polar EPKT WIZ 3.5) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin END1 (polar END1 WIZ 3.5) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ -7.5) EPKT "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar END1 WIZ -7.5) END1 "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ -7.5) (polar END1 WIZ -7.5) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ -3.2) (polar END1 WIZ -3.2) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 6) (polar END1 WIZ 6) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 3.5) (polar EPKT WIZ 6) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar END1 WIZ 3.5) (polar END1 WIZ 6) "")
           (setq SS1 (ssadd (entlast) SS1))
           (setq SS1 (ssdel OBJNS1 SS1)
                 SS1 (ssdel OBJNS2 SS1)
                 SS1 (ssdel OBJNG1 SS1))
           (entdel OBJNS1)
           (entdel OBJNS2)
           (entdel OBJNG1)
           )
    )
  (if (= LI LI38)
    (progn (command EAITlay EAITlse "EAITgstr" "")
           (command EAITlin (polar EPKT WIZ 3) (polar EPKT WIZ 27) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar END1 WIZ 3) (polar END1 WIZ 27) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 3) (polar END1 WIZ 3) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 11.15) (polar END1 WIZ 11.15) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 12.05) (polar END1 WIZ 12.05) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 17.05) (polar END1 WIZ 17.05) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 17.95) (polar END1 WIZ 17.95) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlin (polar EPKT WIZ 27) (polar END1 WIZ 27) "")
           (setq SS1 (ssadd (entlast) SS1))
           (command EAITlay EAITlse "EAITstpg" "")
           (command EAITlin (polar EPKT WIZ 15) (polar END1 WIZ 15) "")
           (setq SS1 (ssadd (entlast) SS1))
           (setq SS1 (ssdel OBJNG SS1)
                 SS1 (ssdel OBJNS1 SS1)
                 SS1 (ssdel OBJNS2 SS1)
                 SS1 (ssdel OBJNG1 SS1))
           (entdel OBJNG)
           (entdel OBJNS1)
           (entdel OBJNS2)
           (entdel OBJNG1)
           )
    )
    (if (= LI LI40)
    (progn (command EAITlay EAITlse "EAIT25" "")
           (command EAITlin (polar EPKT WIZ 13.833) (polar END1 WIZ 13.833) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
    (if (= LI LI41)
    (progn (command EAITlay EAITlse "EAIT25" "")
           (command EAITlin (polar EPKT WIZ 29.057) (polar END1 WIZ 29.057) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI43)
    (progn (command EAITlay EAITlse "EAIT25" "")
           (command EAITlin (polar EPKT WIZ 21.119) (polar END1 WIZ 21.119) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
    (if (= LI LI44)
    (progn (command EAITlay EAITlse "EAIT25" "")
           (command EAITlin (polar EPKT WIZ 7.522) (polar END1 WIZ 7.522) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI46)
    (progn (command EAITlay EAITlse "EAIT25" "")
           (command EAITlin (polar EPKT WIZ 26.962) (polar END1 WIZ 26.962) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
    (if (= LI LI47)
    (progn (command EAITlay EAITlse "EAIT25" "")
           (command EAITlin (polar EPKT WIZ 13.844) (polar END1 WIZ 13.844) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (if (= LI LI49)
    (progn (command EAITlay EAITlse "EAIT25" "")
           (command EAITlin (polar EPKT WIZ 29.873) (polar END1 WIZ 29.873) "")
           (setq SS1 (ssadd (entlast) SS1))
           )
    )
  (setq BName (EAITbnr)) ;-----------Block bilden	
  (command EAITblo BName EPKT SS1 "" EAITege BName EPKT "" "" "")
  )