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

339 lines
11 KiB
Plaintext
Raw Blame History

;------------------------------------------------------------------------;
; EINGAENGE_B ;
;------------------------------------------------------------------------;
; 02.02.2007 ;
;------------------------------------------------------------------------;
(defun Dbox (/ Dat)
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/EINGAENGE_B.DCL")))
(if (not (new_dialog "EINGAENGE_B" 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 "FAKT" m_FAKT)
(set_tile "ZUSATZ" m_ZUSATZ)
(set_tile "PREFIX" m_PREFIX) ; B,S oder E
(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 "1") ; Induktiv 8 mm
(slide_image 0 0 breite hoehe "steuerg(20002002)")
)
((= m_DWG_NAME "2") ; Induktiv 12 mm
(slide_image 0 0 breite hoehe "steuerg(20002003)")
)
((= m_DWG_NAME "3") ; Induktiv 16 mm
(slide_image 0 0 breite hoehe "steuerg(20002006)")
)
((= m_DWG_NAME "4") ;Sensor Kapazitiv AP60
(slide_image 0 0 breite hoehe "steuerg(26904025)")
)
((= m_DWG_NAME "5") ;Sensor Kapazitiv AP110
(slide_image 0 0 breite hoehe "steuerg(26904024)")
)
((= m_DWG_NAME "6") ;Sensor Kapazitiv
(slide_image 0 0 breite hoehe "steuerg(21000011)")
)
) ; end cond
(end_image)
)
(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"))
(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_DWG_NAME (get_tile "DWG_NAME"))
(setq m_FAKT (get_tile "FAKT"))
(setq m_ZUSATZ (get_tile "ZUSATZ"))
(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 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 "INPUT-1B")
)
((= m_COMPONENT "11")
(setq VERWENDUNG "OUTPUT-1Y")
)
((= m_COMPONENT "12")
(setq VERWENDUNG "NO-ID")
)
) ; end cond
)
(defun datain ()
(setq dummy nil)
)
(defun geometrie()
(cond
((= m_DWG_NAME "0")
(setq BL_NAME "") ;Blinde Eintragung
(setq BEZEICHNUNG "")
(setq BEZ1 "")
(setq BEZ2 "")
(setq BEZEICHNUNG_BG "")
)
((= m_DWG_NAME "1")
(setq BL_NAME "720002002") ;Sensor Induktiv 8mm Schaltabstand
(setq BEZEICHNUNG "SENSOR INDUKTIV 8MM SCHALTABSTAND")
(setq BEZ1 "IND")
(setq BEZ2 "8mm")
(setq BEZEICHNUNG_BG "")
)
((= m_DWG_NAME "2")
(setq BL_NAME "720002003") ;BG-> Sensor Induktiv 12mm Schaltabstand 720002003=1St.+ 826906133=1St.
(setq BEZEICHNUNG "SENSOR INDUKTIV 12MM SCHALTABSTAND") ;BG->720002003=1St.+ 826906133=1St.
(setq BEZEICHNUNG_BG "SENSOR INDUKTIV 12 MM MIT HALTER KPL.") ;BG->720002003=1St.+ 826906133=1St.
(setq BEZ1 "IND")
(setq BEZ2 "12mm")
)
((= m_DWG_NAME "3")
(setq BL_NAME "720002006") ;Sensor Induktiv 16mm Schaltabstand
(setq BEZEICHNUNG "SENSOR INDUKTIV 16MM SCHALTABSTAND")
(setq BEZEICHNUNG_BG "")
(setq BEZ1 "IND")
(setq BEZ2 "16mm")
)
((= m_DWG_NAME "4") ;Sensor Kapazitiv AP60
(setq BL_NAME "826904025")
(setq BEZEICHNUNG "SENSOR KAPAZITIV AP60")
(setq BEZEICHNUNG_BG "")
(setq BEZ1 "KAP")
(setq BEZ2 "AP60")
)
((= m_DWG_NAME "5") ;Sensor Kapazitiv AP110
(setq BL_NAME "826904025")
(setq BEZEICHNUNG "SENSOR KAPAZITIV AP110")
(setq BEZEICHNUNG_BG "")
(setq BEZ1 "KAP")
(setq BEZ2 "AP110")
)
((= m_DWG_NAME "6") ;Sensor Kapazitiv
(setq BL_NAME "721000011")
(setq BEZEICHNUNG "SENSOR KAPAZITIV")
(setq BEZEICHNUNG_BG "")
(setq BEZ1 "KAP")
(setq BEZ2 "")
)
) ; end cond
(cond
((= m_PREFIX "PREFIX_1")
(setq _PREFIX "B")
)
((= m_PREFIX "PREFIX_2")
(setq _PREFIX "E")
)
((= m_PREFIX "PREFIX_3")
(setq _PREFIX "S")
)
)
(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
(setq P10 (list (+ (car p0) (* FAKTO 1170)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
(setq P11 (list (+ (car p0) (* FAKTO 1170)) (+ (cadr p0) (* FAKTO 330)) (caddr p0)))
(setq P12 (list (+ (car p0) (* FAKTO 0)) (+ (cadr p0) (* FAKTO 330)) (caddr p0)))
(setq P13 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
(setq P14 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 330)) (caddr p0)))
(setq P15 (list (+ (car p0) (* FAKTO 1370)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
(setq P16 (list (+ (car p0) (* FAKTO 1370)) (+ (cadr p0) (* FAKTO 330)) (caddr p0)))
;<<<Text>>>
(setq P1 (list (+ (car p0) (* FAKTO 380)) (+ (cadr p0) (* FAKTO 90)) (caddr p0)))
(setq P2 (list (+ (car p0) (* FAKTO 550)) (+ (cadr p0) (* FAKTO 90)) (caddr p0)))
(setq P3 (list (+ (car p0) (* FAKTO 20)) (+ (cadr p0) (* FAKTO 220)) (caddr p0)))
(setq P4 (list (+ (car p0) (* FAKTO 20)) (+ (cadr p0) (* FAKTO 120)) (caddr p0)))
(setq P5 (list (+ (car p0) (* FAKTO 20)) (+ (cadr p0) (* FAKTO 10)) (caddr p0)))
(setq P6 (list (+ (car p0) (* FAKTO 20)) (+ (cadr p0) (* FAKTO 20)) (caddr p0)))
(setq P7 (list (+ (car p0) (* FAKTO 1200)) (+ (cadr p0) (* FAKTO 100)) (caddr p0)))
(command "_layer" "_m" "EINGANG" "_c" "6" "" "")
;<<< IO Einfügen
(command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "")
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG)
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
;>>> 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" "EINGANG-HW" "_c" "7" "" "")
(command "_pline" P0 P10 P11 P12 P0 "")
(setq AUSWAHL-SATZ (ssget "_L"))
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
(command "_pline" P13 P14 "")
(ssadd (entlast) AUSWAHL-SATZ)
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
;<<< Beschreibung als Text hinzufügen
(command "_text" P3 (rtos (* FAKTO 70)) "0" BEZ1)
(ssadd (entlast) AUSWAHL-SATZ)
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
(command "_text" P4 (rtos (* FAKTO 70)) "0" BEZ2)
(ssadd (entlast) AUSWAHL-SATZ)
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
;<<<< Zusatztext >>>>>>>
(if (> (strlen m_ZUSATZ) 0 )
(progn
(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)
)
)
(mach-block P0 "0" AUSWAHL-SATZ)
(attribute-aendern "0" "0" "9" "0" (strcat _PREFIX DisplayString) block-kennung BL_NAME BEZEICHNUNG "1" "")
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
(setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
:<<<-------------------------------------------------------------------
;<<<< BAUGRUPPEN >>>
(if (= m_DWG_NAME "1")
(progn
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜFUNG AP110" "1") ;BG-> Sensor Induktiv 12mm Schaltabstand 720002003=1St.+ 826906133=1St.
(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") P0 "" "" (rtos WINKEL1))
(attribute-aendern "0" "0" "29" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
(ssadd (entlast) AUSWAHL-SATZ)
)
;------------------------------------------------------------------------------
(defun c:EINGAENGE_B ( / 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 "**** EINGÄNGE B *******")
(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 "1")) ; Verwendung
(if (null m_BEZEICHNUNG) (setq m_BEZEICHNUNG "xxxxxxxxxxxxxxx")) ; BEZEICHNUNG
(if (null m_FAKT) (setq m_FAKT "1")) ; Skalierungsfaktor
(if (null m_ZUSATZ) (setq m_ZUSATZ "")) ; Zusatztext
(if (null m_PREFIX) (setq m_PREFIX "PREFIX_1")) ; Prefix (B,E oder S)
(Dbox)
(prompt "")
(datain)
(geometrie)
(setvar "osmode" ALTFANG)
)
Reference in New Issue View Git Blame Copy Permalink