m.stangl/Walz
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
e6e1705f0d41ceed3fb8b239cefcd7410bb55229
Walz/STEUERG/AUSGAENGE_F.LSP
T

570 lines
23 KiB
Common Lisp
Raw Blame History

;------------------------------------------------------------------------;
; AUSGAENGE_F
; Spinnerei ;
;------------------------------------------------------------------------;
; 22.09.2007
; 18.07.2008 ;
;------------------------------------------------------------------------;
(defun Dbox (/ Dat)
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/AUSGAENGE_F.DCL")))
(if (not (new_dialog "AUSGAENGE_F" Dat)) (exit))
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
(set_tile "INPUT" m_INPUT)
(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)
(set_tile "LAENGE" m_LAENGE)
(set_tile "LEISTUNG" m_LEISTUNG)
(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 SetDia()
(setq breite (dimx_tile "anzeige"))
(setq hoehe (dimy_tile "anzeige"))
(start_image "anzeige")
(FILL_IMAGE 0 0 breite hoehe -18)
(cond
((= m_DWG_NAME "0")
(slide_image 0 0 breite hoehe "ils2100(i00)")
)
((= m_DWG_NAME "1")
(slide_image 0 0 breite hoehe "steuerg(sp_sw)")
)
((= m_DWG_NAME "2") ; VENTIL FÜR RA1 (Reibradsantrieb)
(slide_image 0 0 breite hoehe "steuerg(sp_ra1)")
)
((= m_DWG_NAME "3")
(slide_image 0 0 breite hoehe "steuerg(sp_ra2)") ; VENTIL FÜR RA2 (Doppelstreckenantrieb)
)
((= m_DWG_NAME "4") ; MOTOR FÜR RA1 (Reibradsantrieb)
(slide_image 0 0 breite hoehe "steuerg(sp_m_ra1)")
)
((= m_DWG_NAME "5")
(slide_image 0 0 breite hoehe "steuerg(sp_m_ra2)") ; MOTOR FÜR RA2 (Doppelstreckenantrieb)
)
((= m_DWG_NAME "6")
(slide_image 0 0 breite hoehe "steuerg(sp_stop)") ; Anschluss Ventil am Flyer-Stopper
)
) ; end cond
(end_image)
)
(defun zeig_dia()
(setq WINKEL1 0)
(setq m_DWG_NAME (get_tile "DWG_NAME"))
(setq m_COMPONENT (get_tile "COMPONENT"))
(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"))
(setq m_LAENGE (get_tile "LAENGE"))
(setq m_LEISTUNG (get_tile "LEISTUNG"))
(SetDia)
)
(defun setpara()
(setq m_PREFIX (get_tile "PREFIX"))
(setq m_INPUT (get_tile "INPUT"))
(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_LAENGE (get_tile "LAENGE"))
(setq m_LEISTUNG (get_tile "LEISTUNG"))
(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_INPUT))
; (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_INPUT))
)
((= InputLaenge 2)
(setq DisplayString (strcat "00" m_INPUT))
)
((= InputLaenge 3)
(setq DisplayString (strcat "0" m_INPUT))
)
((= InputLaenge 4)
(setq DisplayString m_INPUT)
)
) ; end cond
(cond
((= m_COMPONENT "0")
(setq m_IDENT "9999")
(setq VERWENDUNG "NO-ID")
)
) ; end cond
; (alert verwendung)
)
(defun datain ()
(setq dummy nil)
)
(defun geometrie()
(cond
((= m_LAENGE "LAENGE_1")
(setq BEZ2 "ASI-2")
)
((= m_LAENGE "LAENGE_2")
(setq BEZ2 "ASI-3")
)
((= m_LAENGE "LAENGE_3")
(setq BEZ2 "ASI-5")
)
((= m_LAENGE "LAENGE_4")
(setq BEZ2 "ASI10")
)
)
(cond
((= m_DWG_NAME "0")
(setq BL_NAME "") ;Blinde Eintragung
(setq BEZEICHNUNG "")
(setq BEZ1 "")
(setq BEZ2 "")
(setq BEZEICHNUNG_BG "")
(setq ANZAHL "1")
(setq FARBE "3")
(setq EBENE "AUSGANG")
)
;<<< ANSCHLUSS VENTIL FÜR WEICHE
((and (= m_DWG_NAME "1") (= m_LAENGE "LAENGE_1")) ; 2m ASI Kabel für Weiche
(setq BL_NAME "722001121")
(setq BEZEICHNUNG "ANSCHLUSSKABEL WEICHE - MQ12ST. GEW.->M8 BU. GEW.2m 3-POL.")
(setq BEZEICHNUNG_BG "---")
(setq BEZ1 "SW")
(setq ANZAHL "1")
(setq FARBE "3")
(setq EBENE "AUSGANG")
)
((and (= m_DWG_NAME "1") (= m_LAENGE "LAENGE_2")) ; 3m ASI Kabel für Weiche
(setq BL_NAME "722001122")
(setq BEZEICHNUNG "ANSCHLUSSKABEL WEICHE - MQ12ST. GEW.->M8 BU. GEW.3m 3-POL.")
(setq BEZEICHNUNG_BG "---")
(setq BEZ1 "SW")
(setq EBENE "AUSGANG")
(setq ANZAHL "1")
(setq FARBE "3")
)
((and (= m_DWG_NAME "1") (= m_LAENGE "LAENGE_3")) ; 5m ASI Kabel für Weiche
(setq BL_NAME "722001123")
(setq BEZEICHNUNG "ANSCHLUSSKABEL WEICHE - MQ12ST. GEW.->M8 BU. GEW.5m 3-POL.")
(setq BEZEICHNUNG_BG "---")
(setq BEZ1 "SW")
(setq ANZAHL "1")
(setq FARBE "3")
(setq EBENE "AUSGANG")
)
((and (= m_DWG_NAME "1") (= m_LAENGE "LAENGE_4")) ; 10m ASI Kabel für Weiche
(setq BL_NAME "722001124")
(setq BEZEICHNUNG "ANSCHLUSSKABEL WEICHE - MQ12ST. GEW.->M8 BU. GEW.10m 3-POL.")
(setq BEZEICHNUNG_BG "---")
(setq BEZ1 "SW")
(setq ANZAHL "1")
(setq FARBE "3")
(setq EBENE "AUSGANG")
)
;<<< ANSCHLUSS VENTIL FÜR RA1 (1 Stück)
((= m_DWG_NAME "2") ; 1 x Ventilstecker für Reibradantrieb RA1
(setq BL_NAME "722003052")
(setq BEZEICHNUNG "VENTILSTECKER BAUFORM BI->M12")
(setq BEZEICHNUNG_BG "RA VENTILSTECKER")
(setq BEZ1 "RR")
(setq ANZAHL "1")
(setq FARBE "3")
(setq EBENE "AUSGANG")
)
;<<< ANSCHLUSS VENTIL FÜR RA2 (2 Stück)
((= m_DWG_NAME "3") ; 2 x Ventilstecker für Doppelstreckenantrieb RA2
(setq BL_NAME "722003052")
(setq BEZEICHNUNG "VENTILSTECKER BAUFORM BI->M12")
(setq BEZEICHNUNG_BG "RA VENTILSTECKER")
(setq BEZ1 "DSA")
(setq ANZAHL "1")
(setq FARBE "3")
(setq EBENE "AUSGANG")
)
;<<< ANSCHLUSS MOTOR UNI -> LEISTUNG 0.12 KW
((and (= m_DWG_NAME "4") (= m_LEISTUNG "LEISTUNG_1")) ; Motor mit 0.12 KW UNI
(setq BL_NAME "703001049")
(setq BEZEICHNUNG "DIREKTSTARTER 0,12KW 24V MS 3RV1011 0,45-0,63A M-UNI")
(setq BEZEICHNUNG_BG "DIREKTSTARTER 0,12KW 24V ")
(setq BEZ1 "DSA")
(setq ANZAHL "1")
(setq FARBE "4")
(setq EBENE "MOTOR")
)
;<<< ANSCHLUSS MOTOR UNI -> LEISTUNG 0.18 KW
((and (= m_DWG_NAME "4") (= m_LEISTUNG "LEISTUNG_2")) ; Motor mit 0.12 KW BI
(setq BL_NAME "703001050")
(setq BEZEICHNUNG "DIREKTSTARTER 0,18KW 24V MS 3RV1011 0,55-0,8A M-UNI")
(setq BEZEICHNUNG_BG "DIREKTSTARTER 0,18KW 24V")
(setq BEZ1 "DSA")
(setq ANZAHL "1")
(setq FARBE "4")
(setq EBENE "MOTOR")
)
;<<< ANSCHLUSS MOTOR BI -> LEISTUNG 0.12 KW
((and (= m_DWG_NAME "5") (= m_LEISTUNG "LEISTUNG_1")) ; Motor mit 0.12 KW UNI
(setq BL_NAME "703001059")
(setq BEZEICHNUNG "WENDESTARTER 0,12 KW 24V MS 3RV1011 0,45-0,63A M-BI")
(setq BEZEICHNUNG_BG "WENDESTARTER 0,12 KW 24V ")
(setq BEZ1 "DSA")
(setq ANZAHL "1")
(setq FARBE "4")
(setq EBENE "MOTOR")
)
;<<< ANSCHLUSS MOTOR BI -> LEISTUNG 0.18 KW
((and (= m_DWG_NAME "5") (= m_LEISTUNG "LEISTUNG_2")) ; Motor mit 0.18 KW BI
(setq BL_NAME "703001060")
(setq BEZEICHNUNG "WENDESTARTER 0,18 KW 24V MS 3RV1011 0,55-0,8A M-BI")
(setq BEZEICHNUNG_BG "WENDESTARTER 0,18 KW 24V ")
(setq BEZ1 "DSA")
(setq ANZAHL "1")
(setq FARBE "4")
(setq EBENE "MOTOR")
)
;<<< ANSCHLUSS FÜR VENTIL FÜR FLYER-STOPPER
((= m_DWG_NAME "6") ; 5m ASI Kabel für Flyer-Stopper
(setq BL_NAME "722001153")
(setq BEZEICHNUNG "MQ12ST.GEW.3POL.->VEN.BFC/8 5M")
(setq BEZEICHNUNG_BG "---")
(setq BEZ1 "STOP")
(setq ANZAHL "1")
(setq FARBE "3")
(setq EBENE "AUSGANG")
(setq BEZ2 "ASI-5")
)
) ; 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_8")
(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
(IO_ZEICHNEN "0" P0 _PREFIX EBENE FARBE)
(if (= m_DWG_NAME "0")
(progn
(mach-block-ohne-prop P0 "0" AUSWAHL-SATZ)
)
(progn
(mach-block P0 "0" AUSWAHL-SATZ)
(attribute-aendern "0" "0" "9" "0" (strcat _PREFIX DisplayString) block-kennung BL_NAME BEZEICHNUNG ANZAHL "")
)
)
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
(setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
:<<<-------------------------------------------------------------------
;<<<< BAUGRUPPEN >>>
(cond
((= m_DWG_NAME "2") ; Anschluss für Ventil für RA1
(cond
((= m_LAENGE "LAENGE_1")
;<<< 2m ASI Kabel
(EINZELTEIL P10 "722001101" "MQ12ST. GEW.->MQ12BU. GER.2m 4-POL." "1" "0")
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 2M"))
(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)
)
((= m_LAENGE "LAENGE_2")
;<<< 2m ASI Kabel
(EINZELTEIL P10 "722001102" "MQ12ST. GEW.->MQ12BU. GER.3m 4-POL." "1" "0")
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 3M"))
(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)
)
((= m_LAENGE "LAENGE_3")
(EINZELTEIL P10 "722001103" "MQ12ST. GEW.->MQ12BU. GER.5m 4-POL." "1" "0")
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 5M"))
(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)
)
((= m_LAENGE "LAENGE_4")
(EINZELTEIL P10 "722001104" "MQ12ST. GEW.->MQ12BU. GER.10m 4-POL." "1" "0")
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 10M"))
(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)
)
)
)
((= m_DWG_NAME "3") ; 2 x Ventilstecker für RA2
(cond
((= m_LAENGE "LAENGE_1")
;<<< 2m ASI Kabel
(EINZELTEIL P10 "722001101" "MQ12ST. GEW.->MQ12BU. GER.2m 4-POL." "1" "0")
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 2M"))
(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)
;<<< .... und jetzt kopieren
(command "_copy" AUSWAHL-SATZ-ROTATE "" P0 P12)
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
)
((= m_LAENGE "LAENGE_2")
;<<< 2m ASI Kabel
(EINZELTEIL P10 "722001102" "MQ12ST. GEW.->MQ12BU. GER.3m 4-POL." "1" "0")
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 3M"))
(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)
;<<< .... und jetzt kopieren
(command "_copy" AUSWAHL-SATZ-ROTATE "" P0 P12)
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
)
((= m_LAENGE "LAENGE_3")
(EINZELTEIL P10 "722001103" "MQ12ST. GEW.->MQ12BU. GER.5m 4-POL." "1" "0")
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 5M"))
(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)
;<<< .... und jetzt kopieren
(command "_copy" AUSWAHL-SATZ-ROTATE "" P0 P12)
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
)
((= m_LAENGE "LAENGE_4")
(EINZELTEIL P10 "722001104" "MQ12ST. GEW.->MQ12BU. GER.10m 4-POL." "1" "0")
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 10M"))
(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)
;<<< .... und jetzt kopieren
(command "_copy" AUSWAHL-SATZ-ROTATE "" P0 P12)
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
)
)
)
((= m_DWG_NAME "4") ; ANSCHLUSS MOTOR
(TEILE_ANSCHLUSS_MOTOR)
)
((= m_DWG_NAME "5")
(TEILE_ANSCHLUSS_MOTOR)
(IO_ZEICHNEN "1" P12 "K" "MOTOR" "4")
; (mach-block P0 "0" AUSWAHL-SATZ)
; (ssadd (entlast) AUSWAHL-SATZ-ROTATE)
)
) ; end cond
(command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
)
(defun EINZELTEIL (P1 E_ARTINR E_BEZEICHNUNG E_MENGE E_LAENGE)
(setq WINKEL1 (+ WINKEL1 10))
(command "_insert" (strcat lw "/acadsst/steuerg/d_einzel") P10 "" "" (rtos WINKEL1))
(attribute-aendern "0" "0" "29" E_LAENGE "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
(ssadd (entlast) AUSWAHL-SATZ)
)
(defun IO_ZEICHNEN (LOS P0 IO_PREFIX IO_EBENE IO_FARBE)
;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" IO_EBENE "_c" IO_FARBE "" "")
;<<< IO Einfügen
(command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "")
;<<< LOS=0 beim ersten Durchlauf
(if (= LOS "0")
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
)
(if (= m_IO-BEZ "1") ; IO-Bezeichnung = Artikelbezeichnung
(ATTRIBUTE-AENDERN_IO (strcat IO_PREFIX DisplayString) m_IDENT VERWENDUNG BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
(ATTRIBUTE-AENDERN_IO (strcat IO_PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
)
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
;>>> Byteweise arbeiten. Wenn die letzte Zahl "7" dann auf "10" aufrunden
(setq LAENGE_m_INPUT (strlen m_INPUT))
(if (= (substr m_INPUT LAENGE_m_INPUT 1) "7")
(setq m_INPUT (itoa (+ 3 (atoi m_INPUT))))
(setq m_INPUT (itoa (+ 1 (atoi m_INPUT))))
)
;<<< Korpus zeichnen ---------------------------------------
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
(command "_pline" P10 "_w" "0" "0" P11 P14 P13 P10 "")
(setq AUSWAHL-SATZ (ssget "_L"))
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
(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)
)
)
)
(defun TEILE_ANSCHLUSS_MOTOR ()
(EINZELTEIL P10 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1" "0")
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HILFSCHALTER"))
(EINZELTEIL P10 "700004200" "ZUGFEDER-DURCHGANGSKLEMME ST2,5" "3" "0")
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+KLEMME1"))
(EINZELTEIL P10 "700004203" "ZUGFEDER-SCHUTZLEITERKLEMME ST2,5-PE" "1" "0")
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+KLEMME2"))
(EINZELTEIL P10 "723000006" "ADERL. H07V-K 1,5 QMM SCHWARZ" "1" "3")
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
(mach-block P10 "0" AUSWAHL-SATZ)
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
)
;------------------------------------------------------------------------------
(defun c:AUSGAENGE_F ( / DWG_NAME BL_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 "**** AUSGÄNGE SPINNEREI *******")
(prompt "")
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl
(if (null m_INPUT) (setq m_INPUT "1")) ; Input Bit
(if (null m_IDENT) (setq m_IDENT "1000")) ; ID
(if (null m_COMPONENT) (setq m_COMPONENT "0")) ; Verwendung
(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
(if (null m_LAENGE) (setq m_LAENGE "LAENGE_1")) ; Länge 2m/3m/5m/10m
(if (null m_LEISTUNG) (setq m_LEISTUNG "LEISTUNG_1")) ; LEISTUNG 0.12/018
(Dbox)
(prompt "")
(datain)
(geometrie)
(setvar "osmode" ALTFANG)
)
Reference in New Issue View Git Blame Copy Permalink