;------------------------------------------------------------------------;
; AUSGAENGE                                                              ;
;------------------------------------------------------------------------;
; 02.02.2007  18.06.2011                                                 ;
;------------------------------------------------------------------------;
(defun Dbox (/ Dat)
  (setq Dat (load_dialog (strcat lw "/acadsst/steuerg/AUSGAENGE.DCL")))
  (if (not (new_dialog "AUSGAENGE" Dat)) (exit))
  (set_tile "DWG_NAME" m_DWG_NAME); Blockname

  (set_tile "OUTPUT"        m_OUTPUT)   
  (set_tile "IDENT"         m_IDENT)
  (set_tile "COMPONENT"     m_COMPONENT)   
  (set_tile "BEZEICHNUNG"   m_BEZEICHNUNG)   
  (set_tile "KENNZEICHNUNG" m_KENNZEICHNUNG)   
  (set_tile "FAKT"          m_FAKT)
  (set_tile "ZUSATZ"        m_ZUSATZ)
  (set_tile "SPS-NR"        m_SPS-NR)  
  (set_tile "PREFIX"        m_PREFIX)  ; B,S oder E
  (set_tile "IO-BEZ"        m_IO-BEZ)   
  (set_tile "IO-BEZ-RECHTS" m_IO-BEZ-RECHTS)   

;  (mode_tile "anzeige" 0)
;  (SetDia)
  (ACTION_TILE "DWG_NAME" "(zeig_dia)")
  (action_tile "accept" "(SetPara) (done_dialog)")
  (action_tile "cancel" "(exit) (done_dialog)")
  (start_dialog)
  (unload_dialog Dat)
)

(defun zeig_dia()
  (setq WINKEL1 0)
  (setq m_DWG_NAME      (get_tile "DWG_NAME"))
  (setq m_PREFIX        (get_tile "PREFIX"))
  (setq m_FAKT          (get_tile "FAKT"))
  (setq m_ZUSATZ        (get_tile "ZUSATZ"))
  (setq m_SPS-NR        (get_tile "SPS-NR"))  
  (setq m_IO-BEZ        (get_tile "IO-BEZ"))
  (setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
;  (SetDia)
)

(defun setpara()
  (setq m_PREFIX         (get_tile "PREFIX"))
  (setq m_OUTPUT         (get_tile "OUTPUT"))  
  (setq m_IDENT          (get_tile "IDENT"))  
  (setq m_COMPONENT      (get_tile "COMPONENT"))  
  (setq m_BEZEICHNUNG    (get_tile "BEZEICHNUNG"))  
  (setq m_KENNZEICHNUNG  (get_tile "KENNZEICHNUNG"))  
  (setq m_DWG_NAME       (get_tile "DWG_NAME"))
  (setq m_FAKT           (get_tile "FAKT"))
  (setq m_IO-BEZ         (get_tile "IO-BEZ"))
  (setq m_IO-BEZ-RECHTS  (get_tile "IO-BEZ-RECHTS"))
  (setq m_ZUSATZ         (get_tile "ZUSATZ"))
  (setq m_SPS-NR         (get_tile "SPS-NR"))  
  (setq FAKTO            (atof m_FAKT))
  (InputStringAnalyse)
)

(defun InputStringAnalyse()
  (setq DisplayString "")
  (setq InputLaenge (strlen m_OUTPUT))
;  (alert (itoa InputLaenge))
  (if (or (> InputLaenge 4) (= InputLaenge 0))
    (progn
      (alert "Mehr als 4 Stellen nicht bzw. LEERE Eingabe nicht erlaubt")
      (exit)
    )
  )
  (cond 
    ((= InputLaenge 1)
      (setq DisplayString (strcat "000" m_OUTPUT))
    )
    ((= InputLaenge 2)
      (setq DisplayString (strcat "00" m_OUTPUT))    
    )
    ((= InputLaenge 3)
      (setq DisplayString (strcat "0" m_OUTPUT))    
    )
    ((= InputLaenge 4)
      (setq DisplayString m_OUTPUT)    
    )
  )  ; end cond
  
  (cond 
    ((= m_COMPONENT "0")
      (setq VERWENDUNG "SEP1_2Y+1B")
    )
    ((= m_COMPONENT "1")
      (setq VERWENDUNG "SEP1_1Y+1B")
    )
    ((= m_COMPONENT "2")
      (setq VERWENDUNG "SEP2_2Y+1B")
    )
    ((= m_COMPONENT "3")
      (setq VERWENDUNG "SEP2_1Y+1B")
    )
    ((= m_COMPONENT "4")
      (setq VERWENDUNG "SCAN_1A")
    )
    ((= m_COMPONENT "5")
      (setq VERWENDUNG "SW_2Y")
    )
    ((= m_COMPONENT "6")
      (setq VERWENDUNG "SW_2Y+1B")
    )
    ((= m_COMPONENT "7")
      (setq VERWENDUNG "SW_2Y+3B")
    )
    ((= m_COMPONENT "8")
      (setq VERWENDUNG "MOT_1M+1B")
    )
    ((= m_COMPONENT "9")
      (setq VERWENDUNG "MOT_1M")
    )
    ((= m_COMPONENT "10")
      (setq VERWENDUNG "OUTPUT-1Y")
    )
    ((= m_COMPONENT "11")
      (setq VERWENDUNG m_ZUSATZ)
      (setq m_IDENT "9999")
    )
  )  ; end cond
)

(defun datain ()  
  (setq dummy nil)
)

(defun geometrie()
  (cond 
    ((= m_DWG_NAME "0")
      (setq BEZ1 "")
      (setq BEZ2 "")
      (setq BEZEICHNUNG_BG "")
      (setq EBENE "AUSGANG")
      (setq FARBE "3")
    )
    ((= m_DWG_NAME "1")
      (setq BEZEICHNUNG_BG "VENTIL BISTABIL- AS O. RAD-RAD")
      (setq BEZ1 "VENT")
      (setq BEZ2 "BI-2Y")
      (setq EBENE "AUSGANG")
      (setq FARBE "3")     
    )
    ((= m_DWG_NAME "2")
      (setq BEZEICHNUNG_BG "VENTIL MONOSTABIL- SEP.GEFÄLLE")
      (setq BEZ1 "VENT")
      (setq BEZ2 "MO-1Y")
      (setq EBENE "AUSGANG")
      (setq FARBE "3")          
    )
    ((= m_DWG_NAME "3")
      (setq BEZEICHNUNG_BG "VENTIL-BISTABIL- SEP.KREISEL")          
      (setq BEZ1 "VENT")
      (setq BEZ2 "BI-2Y")
      (setq EBENE "AUSGANG")
      (setq FARBE "3")          
    )
    ((= m_DWG_NAME "4")     
      (setq BEZEICHNUNG_BG "SCANNER BT SEP.LINKS")          
      (setq BEZ1 "SC")
      (setq BEZ2 "S-LI")
      (setq EBENE "SCANNER")
      (setq FARBE "1")          
    )
    ((= m_DWG_NAME "5")
      (setq BEZEICHNUNG_BG "SCANNER BT SEP.RECHTS")          
      (setq BEZ1 "SC")
      (setq BEZ2 "S-RE")
      (setq EBENE "SCANNER")
      (setq FARBE "1")          
    )
    ((= m_DWG_NAME "6")
      (setq BEZEICHNUNG_BG "MOTOR 0.18 KW UNIDIREKTIONAL")          
      (setq BEZ1 "M-UNI")
      (setq BEZ2 "0.18")
      (setq EBENE "MOTOR")
      (setq FARBE "4")               
    )
    ((= m_DWG_NAME "7")
      (setq BEZEICHNUNG_BG "MOTOR 0.25-0.37 KW UNIDIREKTIONAL")          
      (setq BEZ1 "M-UNI")
      (setq BEZ2 "0.37")
      (setq EBENE "MOTOR")
      (setq FARBE "4")                    
    )
    ((= m_DWG_NAME "8")
      (setq BEZEICHNUNG_BG "MOTOR 0.55 KW UNIDIREKTIONAL")          
      (setq BEZ1 "M-UNI")
      (setq BEZ2 "0.55")
      (setq EBENE "MOTOR")
      (setq FARBE "4")                    
    )
    ((= m_DWG_NAME "9")
      (setq BEZEICHNUNG_BG "MOTOR 0.75-0.9 KW UNIDIREKTIONAL")          
      (setq BEZ1 "M-UNI")
      (setq BEZ2 "0.9")
      (setq EBENE "MOTOR")
      (setq FARBE "4")                    
    )
    ((= m_DWG_NAME "10")
      (setq BEZEICHNUNG_BG "MOTOR 1.1 KW UNIDIREKTIONAL")          
      (setq BEZ1 "M-UNI")
      (setq BEZ2 "1.1")
      (setq EBENE "MOTOR")
      (setq FARBE "4")                    
    )
    ((= m_DWG_NAME "11")
      (setq BEZEICHNUNG_BG "MOTOR 0.18 KW BIDIREKTIONAL")          
      (setq BEZ1 "M-BI")
      (setq BEZ2 "0.18")
      (setq EBENE "MOTOR")
      (setq FARBE "4")                    
    )
    ((= m_DWG_NAME "12")
      (setq BEZEICHNUNG_BG "MOTOR 0.25-0.37 KW BIDIREKTIONAL")          
      (setq BEZ1 "M-BI")
      (setq BEZ2 "0.37")
      (setq EBENE "MOTOR")
      (setq FARBE "4")                    
    )
    ((= m_DWG_NAME "13")
      (setq BEZEICHNUNG_BG "MOTOR 0.55 KW BIDIREKTIONAL")          
      (setq BEZ1 "M-BI")
      (setq BEZ2 "0.55")
      (setq EBENE "MOTOR")
      (setq FARBE "4")                    
    )
    ((= m_DWG_NAME "14")
      (setq BEZEICHNUNG_BG "MOTOR 0.75-0.9 KW BIDIREKTIONAL")          
      (setq BEZ1 "M-BI")
      (setq BEZ2 "0.9")
      (setq EBENE "MOTOR")
      (setq FARBE "4")                    
    )
    ((= m_DWG_NAME "15")
      (setq BEZEICHNUNG_BG "MOTOR 1.1 KW BIDIREKTIONAL")          
      (setq BEZ1 "M-BI")
      (setq BEZ2 "1.1")
      (setq EBENE "MOTOR")
      (setq FARBE "4")                    
    )
  )  ; end cond

  (cond 
    ((= m_PREFIX "PREFIX_1")
      (setq _PREFIX "M")
      (setq ANZ_CHARACT 0)
    )
    ((= m_PREFIX "PREFIX_2")
      (setq _PREFIX "Y")
      (setq ANZ_CHARACT 0)			
    )
    ((= m_PREFIX "PREFIX_3")
      (setq _PREFIX "A")
      (setq ANZ_CHARACT 0)			
    )
    ((= m_PREFIX "PREFIX_4")
      (setq _PREFIX "K")
      (setq ANZ_CHARACT 0)			
    )
    ((= m_PREFIX "PREFIX_5")
       (setq _PREFIX "H")
       (setq ANZ_CHARACT 0)			
    )
    ((= m_PREFIX "PREFIX_6")
      (setq _PREFIX "LT")
      (setq ANZ_CHARACT 1)			
    )
    ((= m_PREFIX "PREFIX_7")
      (setq _PREFIX "SOL")
      (setq ANZ_CHARACT 2)			
    )
    ((= m_PREFIX "PREFIX_8")
      (setq _PREFIX "MTR")
      (setq ANZ_CHARACT 2)			
    )
    ((= m_PREFIX "PREFIX_9")
      (setq _PREFIX "O")
      (setq ANZ_CHARACT 0)			
    )	
  )
	    
  (setq AUSWAHL-SATZ-ROTATE nil) ; wird am Ende ROTATE
  (setq AUSWAHL-SATZ nil)        ; Blockbildung

  (setq P0  (getpoint "\nPick insert point: "))
  (setvar "osmode" 0)  
  (bl-name P0) ;--> Block-Name definieren -> R�ckgabe: element-name    
  
 ;jh (setq P10  (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0))    (caddr p0)))
  (setq P10  (list (+ (car p0) (+ (* FAKTO 830)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0))    (caddr p0)))
  ;(setq P11  (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 360))  (caddr p0)))
  (setq P11  (list (+ (car p0) (+ (* FAKTO 830)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 360))  (caddr p0)))
  (setq P12  (list (+ (car p0) (* FAKTO 0))                            (- (cadr p0) (* FAKTO 360))  (caddr p0)))
 ;jh (setq P13  (list (+ (car p0) (* FAKTO 340))                          (+ (cadr p0) (* FAKTO 0))    (caddr p0)))
  (setq P13  (list (+ (car p0) (* FAKTO 0))                          (+ (cadr p0) (* FAKTO 0))    (caddr p0)))
  (setq P14  (list (+ (car p0) (* FAKTO 0))                          (- (cadr p0) (* FAKTO 360))  (caddr p0)))
 ;jh (setq P14  (list (+ (car p0) (* FAKTO 340))                          (- (cadr p0) (* FAKTO 360))  (caddr p0)))
    
  ;<<<Text>>>
  (setq P1  (list (+ (car p12) (* FAKTO 380))                          (+ (cadr p12) (* FAKTO 90))  (caddr p12)))
  (setq P2  (list (+ (car p12) (* FAKTO 550))                          (+ (cadr p12) (* FAKTO 90))  (caddr p12)))
  (setq P3  (list (+ (car p12) (* FAKTO 20))                           (+ (cadr p12) (* FAKTO 220)) (caddr p12)))
  (setq P4  (list (+ (car p12) (* FAKTO 20))                           (+ (cadr p12) (* FAKTO 120)) (caddr p12)))
  (setq P5  (list (+ (car p12) (* FAKTO 20))                           (+ (cadr p12) (* FAKTO 10))  (caddr p12)))
  (setq P6  (list (- (car p12) (* FAKTO 320))                            (+ (cadr p12) (* FAKTO 20))  (caddr p12)))
 ;jh (setq P6  (list (+ (car p12) (* FAKTO 20))                           (+ (cadr p12) (* FAKTO 20))  (caddr p12)))
  (setq P7  (list (+ (car p0) (+ (* FAKTO 1200)) (* 150 ANZ_CHARACT))  (+ (cadr p12) (* FAKTO 100)) (caddr p12)))

  (command "_layer" "_m" EBENE "_c" FARBE "" "")

  ;<<< IO Einfügen
  (command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "") 

  (if (= m_IO-BEZ "1") ; IO-Bezeichnung = Artikelbezeichnung
    (ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG BEZEICHNUNG_BG m_KENNZEICHNUNG m_SPS-NR) 
    (ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR) 
  )

  (setq AUSWAHL-SATZ-ROTATE (ssget "_L"))	

  ;>>> Byteweise arbeiten. Wenn die letzte Zahl "7" dann auf "10" aufrunden
  (setq LAENGE_m_OUTPUT (strlen m_OUTPUT))
  (if (= (substr m_OUTPUT LAENGE_m_OUTPUT 1) "7")
    (setq m_OUTPUT (itoa (+ 3 (atoi m_OUTPUT))))
    (setq m_OUTPUT (itoa (+ 1 (atoi m_OUTPUT))))
  )

  ;<<< Korpus zeichnen ---------------------------------------
  (command "_layer" "_m" "AUSGANG-HW" "_c" "7" "" "")
	(command "_pline" P13 P10 P11 P14 P13 "")
  (setq AUSWAHL-SATZ (ssget "_L"))	
  (ssadd (entlast) AUSWAHL-SATZ-ROTATE)			
  (if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "11"))
    (progn
       (setq x_length (+ 1170 (* (strlen m_Zusatz) 160)))
       (setq P15  (list (+ (car p0) (* FAKTO x_length)) (+ (cadr p0) (* FAKTO 0))   (caddr p0)))  ;Zusatztext
       ;(setq P16  (list (+ (car p0) (* FAKTO x_length)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))  ;Zusatztext
       (setq P16  (list (+ (car p0) (* FAKTO x_length)) (- (cadr p11) (* FAKTO 0)) (caddr p0)))  ;Zusatztext			

      (command "_text" P7 (rtos (* FAKTO 150)) "0" m_ZUSATZ)
      ;(ssadd (entlast) AUSWAHL-SATZ)
      ;(ssadd (entlast) AUSWAHL-SATZ-ROTATE)			
      (command "_pline" P10 P15 "")
      (ssadd (entlast) AUSWAHL-SATZ)
      (ssadd (entlast) AUSWAHL-SATZ-ROTATE)			
      (command "_pline" P15 P16 "")
      (ssadd (entlast) AUSWAHL-SATZ)
      (ssadd (entlast) AUSWAHL-SATZ-ROTATE)			
      (command "_pline" P16 P11 "")
      (ssadd (entlast) AUSWAHL-SATZ)
      (ssadd (entlast) AUSWAHL-SATZ-ROTATE)			
    )
    (progn
       (setq P15  (list (car p10) (cadr p10) (caddr p10)))
       (setq P16  (list (car p11) (cadr p11) (caddr p11)))
    )
  )	
  ;<<<<<<<<< IO-Bezeichnung auch als TEXT rechts einfügen
  (if (= m_IO-BEZ-RECHTS "1") 
    (progn
      (setq P8  (list (+ (car p16) (* FAKTO 100)) (+ (cadr p16) (* FAKTO 100)) (caddr p16)))
      (command "_text" P8 (rtos (* FAKTO 150)) "0" m_BEZEICHNUNG)			
      (ssadd (entlast) AUSWAHL-SATZ-ROTATE)			
    )
  )
  ;<<<< SPS-NR checken - wenn eingetragen dann einrahmen >>>>>>>
  (if (> (strlen m_SPS-NR) 0 ) 
    (progn
      (setq left_length (* (strlen m_SPS-NR) 160))
      (setq P17  (list (- (car p13) (* FAKTO left_length)) (+ (cadr p13) (* FAKTO 0))   (caddr p0))) 
      (setq P18  (list (- (car p13) (* FAKTO left_length)) (- (cadr p13) (* FAKTO 360)) (caddr p0)))
      
      (command "_layer" "_m" "AUSGANG-HW" "_c" "7" "" "")
      (command "_pline" P13 P14 P18 P17 P13 "")
      (ssadd (entlast) AUSWAHL-SATZ)
      (ssadd (entlast) AUSWAHL-SATZ-ROTATE)			
    )
  )

  
  (mach-block-ohne-prop P0 "0" AUSWAHL-SATZ)	
  (ssadd (entlast) AUSWAHL-SATZ-ROTATE)			

  (setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren 	
	:<<<-------------------------------------------------------------------

  ;<<<< BAUGRUPPEN >>>
  (if (= m_DWG_NAME "1") ; VENTIL BISTABIL AS UND RAD-RAD
    (progn
      (EINZELTEIL P0 "722001120" "MQ12ST. GEW.->M8 BU. GEW.1,5M" "2") 
      (EINZELTEIL P0 "712000013" "DICHTUNGSNIPPEL M 25" "1") 
      (EINZELTEIL P0 "712000112" "VERSCHLUSSSCHRAUBE M16 KUNSTST" "1") 
    )  
  )
  (if (= m_DWG_NAME "2") ; VENTIL MONOSTABIL SEPARATOR GEFÄLLE
    (progn
      (EINZELTEIL P0 "722001120" "MQ12ST. GEW.->M8 BU. GEW.1,5M" "1") 
      (EINZELTEIL P0 "712000013" "DICHTUNGSNIPPEL M 25" "0.5") 
      (EINZELTEIL P0 "712000112" "VERSCHLUSSSCHRAUBE M16 KUNSTST" "0.5") 
    )  
  )
  (if (= m_DWG_NAME "3") ; VENTIL BISTABIL SEPARATOR KREISEL
    (progn
      (EINZELTEIL P0 "722001122" "MQ12ST. GEW.->M8 BU. GEW.1,5M" "2") 
      (EINZELTEIL P0 "712000013" "DICHTUNGSNIPPEL M 25" "0.5") 
      (EINZELTEIL P0 "712000112" "VERSCHLUSSSCHRAUBE M16 KUNSTST" "0.5") 
    )  
  )
  (if (= m_DWG_NAME "4") ; SCANNER FÜR BT SEP LINKS.
    (progn
      (EINZELTEIL P0 "829434003" "SCANNER M. ZUBEHÖR FÜR SEP LINKS KPL." "1") 
      (EINZELTEIL P0 "711000045" "ANSCHLUSSMODUL CDB420-001 DC24" "1") 
    )  
  )
  (if (= m_DWG_NAME "5") ; SCANNER FÜR BT SEP RECHTS
    (progn
      (EINZELTEIL P0 "829434003" "SCANNER M. ZUBEHÖR FÜR SEP RECHTS KPL." "1") 
      (EINZELTEIL P0 "711000045" "ANSCHLUSSMODUL CDB420-001 DC24" "1") 
    )  
  )
  (if (= m_DWG_NAME "6") ; ANTRIEB 0.18 UNIDIREKTIONAL
    (progn
      (EINZELTEIL P0 "703001050" "DIREKTSTARTER 0,18KW 24V MS 3RV1011 0,55-0,8A" "1") 
      (EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1") 
    )  
  )
  (if (= m_DWG_NAME "7") ; ANTRIEB 0.25-0.37 UNIDIREKTIONAL
    (progn
      (EINZELTEIL P0 "703001051" "DIREKTSTARTER 0,37KW 24V MS 3RV1011 0,9-1,25A" "1") 
      (EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1") 
    )  
  )
  (if (= m_DWG_NAME "8") ; ANTRIEB 0.55 UNIDIREKTIONAL
    (progn
      (EINZELTEIL P0 "703001052" "DIREKTSTARTER 0,55 KW 24V MS 3RV1011 1,1-1,6A" "1") 
      (EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1") 
    )  
  )
  (if (= m_DWG_NAME "9") ; ANTRIEB 0.75-0.9 UNIDIREKTIONAL
    (progn
      (EINZELTEIL P0 "703001053" "DIREKTSTARTER 0,75 KW 24V MS 3RV1011 1,4-2A" "1") 
      (EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1") 
    )  
  )
  (if (= m_DWG_NAME "10") ; ANTRIEB 1.1 UNIDIREKTIONAL
    (progn
      (EINZELTEIL P0 "703001054" "DIREKTSTARTER 1,1 KW 24V MS 3RV1011 2,2-3,2A" "1") 
      (EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1") 
    )  
  )
  (if (= m_DWG_NAME "11") ; ANTRIEB 0.18 BIDIREKTIONAL
    (progn
      (EINZELTEIL P0 "703001060" "WENDESTARTER 0,18 KW 24V MS 3RV1011 0,55-0,8A" "1") 
      (EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1") 
    )  
  )
  (if (= m_DWG_NAME "12") ; ANTRIEB 0.25-0.37 BIDIREKTIONAL
    (progn
      (EINZELTEIL P0 "703001061" "WENDESTARTER 0,37 KW 24V MS 3RV1011 0,9-1,25A" "1") 
      (EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1") 
    )  
  )
  (if (= m_DWG_NAME "13") ; ANTRIEB 0.55 BIDIREKTIONAL
    (progn
      (EINZELTEIL P0 "703001062" "WENDESTARTER 0,55 KW 24V MS 3RV1011 1,1-1,6A" "1") 
      (EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1") 
    )  
  )
  (if (= m_DWG_NAME "14") ; ANTRIEB 0.75-0.9 BIDIREKTIONAL
    (progn
      (EINZELTEIL P0 "703001063" "WENDESTARTER 0,75 KW 24V MS 3RV1011 1,4-2A" "1") 
      (EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1") 
    )  
  )
  (if (= m_DWG_NAME "15") ; ANTRIEB 1.1 BIDIREKTIONAL
    (progn
      (EINZELTEIL P0 "703001064" "WENDESTARTER 1,1 KW 24V MS 3RV1011 2,2-3,2A" "1") 
      (EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1") 
    )  
  )

  ;<<< Oberblock bilden
  (if (/= m_DWG_NAME "0") 
    (progn
      (command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")  
      (mach-block P0 "0" AUSWAHL-SATZ)
      (attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
      (ssadd (entlast) AUSWAHL-SATZ-ROTATE)
    )	
  )
  (command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
)

(defun EINZELTEIL (P1 E_ARTINR E_BEZEICHNUNG E_MENGE)
  (setq WINKEL1 (+ WINKEL1 10))
  (command "_insert" (strcat lw "/acadsst/steuerg/d_einzel") P13 "" "" (rtos WINKEL1)) 
  (attribute-aendern "0" "0" "29" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")     
  (ssadd (entlast) AUSWAHL-SATZ)
)

;------------------------------------------------------------------------------
(defun c:AUSGAENGE ( / DWG_NAME P0) 
  (setvar "limcheck" 0)
  (setvar "CMDECHO" 0)
  (setvar "BLIPMODE" 0)
  (setq ALTFANG (getvar "osmode"))  
  (setq EINZEL 0) ; fuer EINZEL=0 Baugruppen / EINZEL=1 fuer APB
  (prompt "**** EINGÄNGE B *******")
  (prompt "")
  (if (null m_DWG_NAME)      (setq m_DWG_NAME "0"))                   ; Auswahl
  (if (null m_OUTPUT)        (setq m_OUTPUT "1"))                     ; OUTPUT Bit   
  (if (null m_IDENT)         (setq m_IDENT "1"))                      ; IDENT Bit   
  (if (null m_COMPONENT)     (setq m_COMPONENT "1"))                  ; COMPONENT   
  (if (null m_BEZEICHNUNG)   (setq m_BEZEICHNUNG "xxxxxxxxxxxxxxx"))  ; BEZEICHNUNG   
  (if (null m_KENNZEICHNUNG) (setq m_KENNZEICHNUNG "=Axx+Exxx-Axxx")) ; KENNZEICHNUNG   
  (if (null m_FAKT)          (setq m_FAKT "1"))                       ; Skalierungsfaktor   
  (if (null m_ZUSATZ)        (setq m_ZUSATZ ""))                      ; Zusatztext
  (if (null m_SPS-NR)        (setq m_SPS-NR ""))                      ; SPS Prefix     
  (if (null m_PREFIX)        (setq m_PREFIX "PREFIX_1"))              ; Prefix (B,E oder S)
  (if (null m_IO-BEZ)        (setq m_IO-BEZ "0"))                     ; Bezeicnung nicht der Artikelbezeichnung gleichsetzen
  (if (null m_IO-BEZ-RECHTS) (setq m_IO-BEZ-RECHTS "0"))              ; Bezeicnung als Text rechts andrucken
  (Dbox)
  (prompt "")
  (datain)
  (geometrie)
  (setvar "osmode" ALTFANG)  
)