532 lines
19 KiB
Common Lisp
532 lines
19 KiB
Common Lisp
;------------------------------------------------------------------------;
|
|
; 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)
|
|
)
|