commit e6e1705f0d41ceed3fb8b239cefcd7410bb55229 Author: mistangl Date: Thu Apr 3 13:27:23 2025 +0200 Erste Fassung der Skripte von Alexander Walz eingestellt diff --git a/STEUERG/03000115.sld b/STEUERG/03000115.sld new file mode 100644 index 0000000..83b3575 Binary files /dev/null and b/STEUERG/03000115.sld differ diff --git a/STEUERG/03001017.sld b/STEUERG/03001017.sld new file mode 100644 index 0000000..83d6e3b Binary files /dev/null and b/STEUERG/03001017.sld differ diff --git a/STEUERG/03001050.sld b/STEUERG/03001050.sld new file mode 100644 index 0000000..bff0241 Binary files /dev/null and b/STEUERG/03001050.sld differ diff --git a/STEUERG/03001051.sld b/STEUERG/03001051.sld new file mode 100644 index 0000000..fd2d669 Binary files /dev/null and b/STEUERG/03001051.sld differ diff --git a/STEUERG/03001053.sld b/STEUERG/03001053.sld new file mode 100644 index 0000000..99a4266 Binary files /dev/null and b/STEUERG/03001053.sld differ diff --git a/STEUERG/03001054.sld b/STEUERG/03001054.sld new file mode 100644 index 0000000..6b6a537 Binary files /dev/null and b/STEUERG/03001054.sld differ diff --git a/STEUERG/03001055.sld b/STEUERG/03001055.sld new file mode 100644 index 0000000..29b1f78 Binary files /dev/null and b/STEUERG/03001055.sld differ diff --git a/STEUERG/03001060.sld b/STEUERG/03001060.sld new file mode 100644 index 0000000..fb598e3 Binary files /dev/null and b/STEUERG/03001060.sld differ diff --git a/STEUERG/03001062.sld b/STEUERG/03001062.sld new file mode 100644 index 0000000..0a2f23d Binary files /dev/null and b/STEUERG/03001062.sld differ diff --git a/STEUERG/03001063.sld b/STEUERG/03001063.sld new file mode 100644 index 0000000..0557461 Binary files /dev/null and b/STEUERG/03001063.sld differ diff --git a/STEUERG/03001064.sld b/STEUERG/03001064.sld new file mode 100644 index 0000000..90c8498 Binary files /dev/null and b/STEUERG/03001064.sld differ diff --git a/STEUERG/03002063.sld b/STEUERG/03002063.sld new file mode 100644 index 0000000..98177ec Binary files /dev/null and b/STEUERG/03002063.sld differ diff --git a/STEUERG/20002002.sld b/STEUERG/20002002.sld new file mode 100644 index 0000000..eb1c662 Binary files /dev/null and b/STEUERG/20002002.sld differ diff --git a/STEUERG/20002003.sld b/STEUERG/20002003.sld new file mode 100644 index 0000000..2fa6671 Binary files /dev/null and b/STEUERG/20002003.sld differ diff --git a/STEUERG/20002006.sld b/STEUERG/20002006.sld new file mode 100644 index 0000000..e498c99 Binary files /dev/null and b/STEUERG/20002006.sld differ diff --git a/STEUERG/21000011.sld b/STEUERG/21000011.sld new file mode 100644 index 0000000..175467e Binary files /dev/null and b/STEUERG/21000011.sld differ diff --git a/STEUERG/22035037.sld b/STEUERG/22035037.sld new file mode 100644 index 0000000..e84cf0b Binary files /dev/null and b/STEUERG/22035037.sld differ diff --git a/STEUERG/22035100.sld b/STEUERG/22035100.sld new file mode 100644 index 0000000..9e68926 Binary files /dev/null and b/STEUERG/22035100.sld differ diff --git a/STEUERG/22035102.sld b/STEUERG/22035102.sld new file mode 100644 index 0000000..bbbfe45 Binary files /dev/null and b/STEUERG/22035102.sld differ diff --git a/STEUERG/24604011.sld b/STEUERG/24604011.sld new file mode 100644 index 0000000..19e9506 Binary files /dev/null and b/STEUERG/24604011.sld differ diff --git a/STEUERG/24604012.sld b/STEUERG/24604012.sld new file mode 100644 index 0000000..9c3e304 Binary files /dev/null and b/STEUERG/24604012.sld differ diff --git a/STEUERG/25304002.sld b/STEUERG/25304002.sld new file mode 100644 index 0000000..7a5cc38 Binary files /dev/null and b/STEUERG/25304002.sld differ diff --git a/STEUERG/25304003.sld b/STEUERG/25304003.sld new file mode 100644 index 0000000..59e5135 Binary files /dev/null and b/STEUERG/25304003.sld differ diff --git a/STEUERG/25304004.sld b/STEUERG/25304004.sld new file mode 100644 index 0000000..712d3b1 Binary files /dev/null and b/STEUERG/25304004.sld differ diff --git a/STEUERG/25304006.sld b/STEUERG/25304006.sld new file mode 100644 index 0000000..52e5684 Binary files /dev/null and b/STEUERG/25304006.sld differ diff --git a/STEUERG/25304007.sld b/STEUERG/25304007.sld new file mode 100644 index 0000000..cd6c8e2 Binary files /dev/null and b/STEUERG/25304007.sld differ diff --git a/STEUERG/26904024.sld b/STEUERG/26904024.sld new file mode 100644 index 0000000..84d8eb1 Binary files /dev/null and b/STEUERG/26904024.sld differ diff --git a/STEUERG/26904025.sld b/STEUERG/26904025.sld new file mode 100644 index 0000000..bcfb4e6 Binary files /dev/null and b/STEUERG/26904025.sld differ diff --git a/STEUERG/27072013.sld b/STEUERG/27072013.sld new file mode 100644 index 0000000..aee348d Binary files /dev/null and b/STEUERG/27072013.sld differ diff --git a/STEUERG/27072014.sld b/STEUERG/27072014.sld new file mode 100644 index 0000000..584edd4 Binary files /dev/null and b/STEUERG/27072014.sld differ diff --git a/STEUERG/27072015.sld b/STEUERG/27072015.sld new file mode 100644 index 0000000..97896c5 Binary files /dev/null and b/STEUERG/27072015.sld differ diff --git a/STEUERG/27072016.sld b/STEUERG/27072016.sld new file mode 100644 index 0000000..06d2816 Binary files /dev/null and b/STEUERG/27072016.sld differ diff --git a/STEUERG/27074007.sld b/STEUERG/27074007.sld new file mode 100644 index 0000000..e6d45b0 Binary files /dev/null and b/STEUERG/27074007.sld differ diff --git a/STEUERG/27074008.sld b/STEUERG/27074008.sld new file mode 100644 index 0000000..a7e8f64 Binary files /dev/null and b/STEUERG/27074008.sld differ diff --git a/STEUERG/27074011.sld b/STEUERG/27074011.sld new file mode 100644 index 0000000..8af46e2 Binary files /dev/null and b/STEUERG/27074011.sld differ diff --git a/STEUERG/27422001.sld b/STEUERG/27422001.sld new file mode 100644 index 0000000..1352dc3 Binary files /dev/null and b/STEUERG/27422001.sld differ diff --git a/STEUERG/27422002.sld b/STEUERG/27422002.sld new file mode 100644 index 0000000..d02942a Binary files /dev/null and b/STEUERG/27422002.sld differ diff --git a/STEUERG/27422003.sld b/STEUERG/27422003.sld new file mode 100644 index 0000000..b300ce1 Binary files /dev/null and b/STEUERG/27422003.sld differ diff --git a/STEUERG/27422004.sld b/STEUERG/27422004.sld new file mode 100644 index 0000000..1779ecf Binary files /dev/null and b/STEUERG/27422004.sld differ diff --git a/STEUERG/27724001.sld b/STEUERG/27724001.sld new file mode 100644 index 0000000..d57cdca Binary files /dev/null and b/STEUERG/27724001.sld differ diff --git a/STEUERG/703000115.dwg b/STEUERG/703000115.dwg new file mode 100644 index 0000000..ff4087b Binary files /dev/null and b/STEUERG/703000115.dwg differ diff --git a/STEUERG/720002002.dwg b/STEUERG/720002002.dwg new file mode 100644 index 0000000..a009359 Binary files /dev/null and b/STEUERG/720002002.dwg differ diff --git a/STEUERG/720002003.dwg b/STEUERG/720002003.dwg new file mode 100644 index 0000000..d1cb857 Binary files /dev/null and b/STEUERG/720002003.dwg differ diff --git a/STEUERG/720002006.dwg b/STEUERG/720002006.dwg new file mode 100644 index 0000000..58a3268 Binary files /dev/null and b/STEUERG/720002006.dwg differ diff --git a/STEUERG/721000011.dwg b/STEUERG/721000011.dwg new file mode 100644 index 0000000..1e50888 Binary files /dev/null and b/STEUERG/721000011.dwg differ diff --git a/STEUERG/790000001.dwg b/STEUERG/790000001.dwg new file mode 100644 index 0000000..7662db2 Binary files /dev/null and b/STEUERG/790000001.dwg differ diff --git a/STEUERG/790000002.dwg b/STEUERG/790000002.dwg new file mode 100644 index 0000000..84bc85c Binary files /dev/null and b/STEUERG/790000002.dwg differ diff --git a/STEUERG/790000003.dwg b/STEUERG/790000003.dwg new file mode 100644 index 0000000..07c2bbe Binary files /dev/null and b/STEUERG/790000003.dwg differ diff --git a/STEUERG/790000004.dwg b/STEUERG/790000004.dwg new file mode 100644 index 0000000..4321328 Binary files /dev/null and b/STEUERG/790000004.dwg differ diff --git a/STEUERG/790000005.dwg b/STEUERG/790000005.dwg new file mode 100644 index 0000000..0dfb088 Binary files /dev/null and b/STEUERG/790000005.dwg differ diff --git a/STEUERG/790000006.dwg b/STEUERG/790000006.dwg new file mode 100644 index 0000000..fd93748 Binary files /dev/null and b/STEUERG/790000006.dwg differ diff --git a/STEUERG/825304002.dwg b/STEUERG/825304002.dwg new file mode 100644 index 0000000..72acaae Binary files /dev/null and b/STEUERG/825304002.dwg differ diff --git a/STEUERG/825304003.dwg b/STEUERG/825304003.dwg new file mode 100644 index 0000000..7076d4b Binary files /dev/null and b/STEUERG/825304003.dwg differ diff --git a/STEUERG/825304004.dwg b/STEUERG/825304004.dwg new file mode 100644 index 0000000..54a705a Binary files /dev/null and b/STEUERG/825304004.dwg differ diff --git a/STEUERG/825304006.dwg b/STEUERG/825304006.dwg new file mode 100644 index 0000000..3b9c35f Binary files /dev/null and b/STEUERG/825304006.dwg differ diff --git a/STEUERG/825304007.dwg b/STEUERG/825304007.dwg new file mode 100644 index 0000000..0b0b4d7 Binary files /dev/null and b/STEUERG/825304007.dwg differ diff --git a/STEUERG/826904024.dwg b/STEUERG/826904024.dwg new file mode 100644 index 0000000..2608cbb Binary files /dev/null and b/STEUERG/826904024.dwg differ diff --git a/STEUERG/826904025.dwg b/STEUERG/826904025.dwg new file mode 100644 index 0000000..344dfa9 Binary files /dev/null and b/STEUERG/826904025.dwg differ diff --git a/STEUERG/827724001.dwg b/STEUERG/827724001.dwg new file mode 100644 index 0000000..5b69643 Binary files /dev/null and b/STEUERG/827724001.dwg differ diff --git a/STEUERG/90000001.sld b/STEUERG/90000001.sld new file mode 100644 index 0000000..aa74b2d Binary files /dev/null and b/STEUERG/90000001.sld differ diff --git a/STEUERG/90000002.sld b/STEUERG/90000002.sld new file mode 100644 index 0000000..65f76d7 Binary files /dev/null and b/STEUERG/90000002.sld differ diff --git a/STEUERG/90000003.sld b/STEUERG/90000003.sld new file mode 100644 index 0000000..379c6d9 Binary files /dev/null and b/STEUERG/90000003.sld differ diff --git a/STEUERG/90000004.sld b/STEUERG/90000004.sld new file mode 100644 index 0000000..e0cd4ba Binary files /dev/null and b/STEUERG/90000004.sld differ diff --git a/STEUERG/90000005.sld b/STEUERG/90000005.sld new file mode 100644 index 0000000..f2b0ad6 Binary files /dev/null and b/STEUERG/90000005.sld differ diff --git a/STEUERG/90000006.sld b/STEUERG/90000006.sld new file mode 100644 index 0000000..fd1ba24 Binary files /dev/null and b/STEUERG/90000006.sld differ diff --git a/STEUERG/ACAD.ERR b/STEUERG/ACAD.ERR new file mode 100644 index 0000000..8310705 --- /dev/null +++ b/STEUERG/ACAD.ERR @@ -0,0 +1,66 @@ + + +GESAMT- FEHLER: General protection exception + +9/14/1994 at 22:17:43.990 Drawing: C:\ACADSST\STEUERG\UNNAMED +------------- + + +GESAMT- FEHLER: General protection exception + +9/14/1994 at 22:17:47.670 Drawing: C:\ACADSST\STEUERG\UNNAMED +------------- + + +GESAMT- FEHLER: General protection exception + +9/14/1994 at 22:20:21.410 Drawing: C:\ACADSST\STEUERG\UNNAMED +------------- + + +GESAMT- FEHLER: General protection exception + +9/14/1994 at 22:20:23.600 Drawing: C:\ACADSST\STEUERG\UNNAMED +------------- + + +GESAMT- FEHLER: General protection exception + +9/14/1994 at 22:21:45.990 Drawing: C:\ACADSST\STEUERG\UNNAMED +------------- + + +GESAMT- FEHLER: Null pointer referenced + +9/14/1994 at 22:21:48.680 Drawing: C:\ACADSST\STEUERG\UNNAMED +------------- + + +GESAMT- FEHLER: General protection exception + +9/14/1994 at 22:22:30.480 Drawing: C:\ACADSST\STEUERG\UNNAMED +------------- + + +GESAMT- FEHLER: menu1 0 + +9/15/1994 at 8:40:09.540 Drawing: C:\ACADSST\STEUERG\DIS-KAB--SAVED +------------- + + +GESAMT- FEHLER: menu1 1 + +9/15/1994 at 15:57:57.050 Drawing: C:\ACADSST\STEUERG\DIS-KAB +------------- + + +GESAMT- FEHLER: menu1 1 + +9/15/1994 at 16:27:22.360 Drawing: C:\ACADSST\STEUERG\DIS-KAB +------------- + + +GESAMT- FEHLER: menu1 1 + +9/16/1994 at 7:52:00.070 Drawing: C:\ACADSST\STEUERG\DIS-KAB--SAVED +------------- diff --git a/STEUERG/ANTRIEB.SLD b/STEUERG/ANTRIEB.SLD new file mode 100644 index 0000000..cf8f1e0 Binary files /dev/null and b/STEUERG/ANTRIEB.SLD differ diff --git a/STEUERG/ANZLEU.SLD b/STEUERG/ANZLEU.SLD new file mode 100644 index 0000000..b52208f Binary files /dev/null and b/STEUERG/ANZLEU.SLD differ diff --git a/STEUERG/ASI.DCL b/STEUERG/ASI.DCL new file mode 100644 index 0000000..960f189 --- /dev/null +++ b/STEUERG/ASI.DCL @@ -0,0 +1,31 @@ +/* Dialogbox fuer ILS2100 Komponaneten */ +/* Datum: 16.7.2008 AW */ + +ASI : dialog { + label = "ASI-KOMPONENTEN"; + spacer; + : row { + : list_box { + label = "ASI-Komponenten"; + key = "DWG_NAME"; + mnemonic = "H"; + list = "ASI-K60 4E-4A\nASI-F90(IP20)\nNOT-AUS\nTAB.2FACH\nTAB.1FACH\nLED LEUCHTE"; + width = 30; + height = 10; + } + : image { + height = 10; + width = 40; + color = 7; + key = "anzeige"; + } + :edit_box { + label="Skalierungsfaktor"; + key="FAKT"; + value = 1; + mnemonic="F"; + } + } + spacer; + ok_cancel; +} diff --git a/STEUERG/ASI.LSP b/STEUERG/ASI.LSP new file mode 100644 index 0000000..0bad393 --- /dev/null +++ b/STEUERG/ASI.LSP @@ -0,0 +1,187 @@ +;-----------------------------------------------------------------; +; ASI ; +;-----------------------------------------------------------------; +; 16.7.2008 ; +;-----------------------------------------------------------------; +(defun Dbox (/ Dat) + (setq Dat (load_dialog (strcat lw "/acadsst/steuerg/ASI.DCL"))) + (if (not (new_dialog "ASI" Dat)) (exit)) + + (set_tile "DWG_NAME" m_DWG_NAME); Blockname + (set_tile "FAKT" m_FAKT) + + (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 "steuerg(90000001)") + ) + ((= m_DWG_NAME "1") + (slide_image 0 0 breite hoehe "steuerg(90000002)") + ) + ((= m_DWG_NAME "2") + (slide_image 0 0 breite hoehe "steuerg(90000003)") + ) + ((= m_DWG_NAME "3") + (slide_image 0 0 breite hoehe "steuerg(90000004)") + ) + ((= m_DWG_NAME "4") + (slide_image 0 0 breite hoehe "steuerg(90000005)") + ) + ((= m_DWG_NAME "5") + (slide_image 0 0 breite hoehe "steuerg(90000006)") ; LED Leuchte + ) + ) ; end cond + (end_image) +) + +(defun zeig_dia() + (setq WINKEL1 0) + (setq m_DWG_NAME (get_tile "DWG_NAME")) + (setq m_FAKT (get_tile "FAKT")) + (SetDia) +) + +(defun setpara() + (setq m_FAKT (get_tile "FAKT")) + (setq FAKTO (atof m_FAKT)) + (setq ANZ_CHARACT 0) +) + +(defun datain () + (setq dummy nil) +) + +(defun geometrie() + (cond + ((= m_DWG_NAME "0") + (setq BL_NAME "790000001") ;ASI KOMPAKT K60 4E/4A M12 KPL. + (setq BEZEICHNUNG "ASI KOMPAKT K60 4E/4A M12 KPL.") + ) + ((= m_DWG_NAME "1") + (setq BL_NAME "790000002") ;ASI KOMPAKT F90 4E/4A IP20 KPL. + (setq BEZEICHNUNG "ASI KOMPAKT F90 4E/4A IP20 KPL.") + ) + ((= m_DWG_NAME "2") + (setq BL_NAME "790000003") ;ASI NOT-AUS IN 1 FACH GEHÄUSE KPL. + (setq BEZEICHNUNG "ASI NOT-AUS IN 1 FACH GEHÄUSE KPL.") + ) + ((= m_DWG_NAME "3") + (setq BL_NAME "790000004") ;ASI-TABLEAU MIT 2 BEFEHLSSTELLEN KPL. + (setq BEZEICHNUNG "ASI-TABLEAU MIT 2 BEFEHLSSTELLEN KPL.") + ) + ((= m_DWG_NAME "4") + (setq BL_NAME "790000005") ;ASI-TABLEAU MIT 1 BEFEHLSSTELLEN KPL. + (setq BEZEICHNUNG "ASI-TABLEAU MIT 1 BEFEHLSSTELLEN KPL.") + ) + ((= m_DWG_NAME "5") + (setq BL_NAME "790000006") + (setq BEZEICHNUNG "LED LEUCHTE KPL.") + ) + ) ; end cond + + (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 + + ;<<< Schalter einfügen + (command "_layer" "_m" "ASI" "_c" "7" "" "") + (command "_insert" (strcat lw "/acadsst/steuerg/" BL_NAME) P0 "1" "" "") + (setq AUSWAHL-SATZ-ROTATE (ssget "_L")) + + (cond + ((= m_DWG_NAME "0") ;790000001-ASI KOMPAKT K60 4E/4A M12 KPL. + ) + ((= m_DWG_NAME "1") ;790000002-ASI KOMPAKT F90 4E/4A IP20 KPL. + ) + ((= m_DWG_NAME "2") ;790000003-ASI NOT-AUS IN 1 FACH GEHÄUSE KPL. + (IO_ZEICHNEN P0 "EINGANG" "6" "S0000" "EMERGENCY STOP" "A1+Kx-Axxx" ) + (setq P0 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 330)) (caddr p0))) + (IO_ZEICHNEN P0 "EINGANG" "6" "S0000" "EMERGENCY STOP" "A1+Kx-Axxx") + ) + ((= m_DWG_NAME "3") ;790000004-ASI-TABLEAU MIT 2 BEFEHLSSTELLEN KPL. + (IO_ZEICHNEN P0 "EINGANG" "6" "S0000" "RESTART AFTER TROUBLE" "A1+Kx-Axxx") + (setq P0 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 330)) (caddr p0))) + (IO_ZEICHNEN P0 "OUTPUT" "3" "H0000" "RESTART AFTER TROUBLE" "A1+Kx-Axxx") + (setq P0 (list (+ (car p0) (* FAKTO 1170)) (+ (cadr p0) (* FAKTO 330)) (caddr p0))) + (IO_ZEICHNEN P0 "EINGANG" "6" "S0000" "TRAVELTIME ERROR" "A1+Kx-Axxx") + (setq P0 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 330)) (caddr p0))) + (IO_ZEICHNEN P0 "OUTPUT" "3" "H0000" "TRAVELTIME ERROR" "A1+Kx-Axxx") + ) + ((= m_DWG_NAME "4") ;790000005-ASI-TABLEAU MIT 1 BEFEHLSSTELLEN KPL. + (IO_ZEICHNEN P0 "EINGANG" "6" "S0000" "TRAIN REQUEST" "A1+Kx-Axxx") + (setq P0 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 330)) (caddr p0))) + (IO_ZEICHNEN P0 "OUTPUT" "3" "H0000" "TRAIN REQUEST" "A1+Kx-Axxx") + ) + ((= m_DWG_NAME "5") ;790000006-LED LEUCHTE KPL. + (IO_ZEICHNEN P0 "OUTPUT" "3" "H0000" "TROUBLE/WARNING" "A1+Kx-Axxx") + ) + ) ; end cond + + (command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause) + +) + +(defun IO_ZEICHNEN (P0 IO_EBENE IO_FARBE IO_ADRESSE IO_BEZEICHNUNG IO_VERWENDUNG) + ;<<< IO Einfügen + + (setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) + (setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (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 p12)(* FAKTO 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12))) + + (command "_layer" "_m" IO_EBENE "_c" IO_FARBE "" "") + (command "_insert" (strcat lw "/acadsst/steuerg/io") P15 FAKTO "" "") + (ATTRIBUTE-AENDERN_IO IO_ADRESSE "9999" "NO-ID" IO_BEZEICHNUNG IO_VERWENDUNG) + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + + ;<<< Korpus zeichnen --------------------------------------- + (command "_layer" "_m" IO_EBENE "_c" IO_FARBE "" "") + (command "_pline" P0 "_w" "0" "0" 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) + + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + +; (setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren + :<<<------------------------------------------------------------------- +) + +;------------------------------------------------------------------------------ +(defun c:ASI ( / 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 "**** ASI KOMPONENTEN *******") + (prompt "") + (if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl + (if (null m_FAKT) (setq m_FAKT "0.5")) ; Skalierungsfaktor + (Dbox) + (prompt "") + (datain) + (geometrie) + (setvar "osmode" ALTFANG) +) diff --git a/STEUERG/AUSGAENGE.DCL b/STEUERG/AUSGAENGE.DCL new file mode 100644 index 0000000..ae37b04 --- /dev/null +++ b/STEUERG/AUSGAENGE.DCL @@ -0,0 +1,124 @@ +/* Dialogbox fuer ILS2100 Komponaneten */ +/* Datum: 20.9.2006 AW */ + +AUSGAENGE : dialog { + label = "STEUERUNG-AUSGÄNGE"; + spacer; + : row { + : list_box { + label = "Ausgänge"; + key = "DWG_NAME"; + mnemonic = "H"; + list = "BLIND\nV-BI->AS o. RAD-RAD\nV-MONO->SEP.GEFÄLLE\nV-BI->KREISEL\nSC-BT LINKS\nSC-BT RECHTS\nM 0.18 UNI\nM 0.25-0.37 UNI\nM 0.55 UNI\nM 0.75-0.9 UNI\nM 1.1 UNI\nM 0.18 BI\nM 0.25-0.37 BI\nM 0.55 BI\nM 0.75-0.9 BI\nM 1.1 BI"; + width = 30; + height = 10; + } + : image { + height = 10; + width = 40; + color = 7; + key = "anzeige"; + } + : list_box { + label = "Verwendung"; + key = "COMPONENT"; + mnemonic = "H"; + list = "SEP1_2Y+1B\nSEP1_1Y+1B\nSEP2_2Y+1B\nSEP2_1Y+1B\nSCAN_1A\nSW_2Y\nSW_2Y+1B\nSW_2Y+3B\nMOT_1M+1B\nMOT_1M\nOUTPUT-1Y\nNO-ID"; + width = 30; + height = 10; + } + } + : row { + : column { + : edit_box { + label = "Output:"; + allow_accept = true; + key = "OUTPUT"; + value = 1; + } + : edit_box { + label = "ID:"; + allow_accept = true; + key = "IDENT"; + value = 3000; + } + : edit_box { + label = "Bezeichnung:"; + allow_accept = true; + key = "BEZEICHNUNG"; + value = xxxxxxxxx; + } + : edit_box { + label = "Kennzeichnung:"; + allow_accept = true; + key = "KENNZEICHNUNG"; + } + : edit_box { + label="Skalierungsfaktor"; + key="FAKT"; + value = 1; + mnemonic="F"; + } + : edit_box { + label="ZUSATZTEXT"; + key="ZUSATZ"; + } + : edit_box { + label="SPS-Prefix"; + key="SPS-NR"; + } + : toggle { + label = "I/O-Bezeichnung=Artikel-Bezeichnung"; + mnemonic = "I"; + key = "IO-BEZ"; + } + : toggle { + label = "I/O-Bezeichnung auch als Text RECHTS"; + mnemonic = "I"; + key = "IO-BEZ-RECHTS"; + } + } + : boxed_radio_column { + label = "PREFIX"; + key = "PREFIX"; + : radio_button { + label = "M"; + key = "PREFIX_1"; + } + : radio_button { + label = "Y"; + key = "PREFIX_2"; + } + : radio_button { + label = "A"; + key = "PREFIX_3"; + } + : radio_button { + label = "K"; + key = "PREFIX_4"; + } + : radio_button { + label = "H"; + key = "PREFIX_5"; + } + : radio_button { + label = "LT"; + key = "PREFIX_6"; + } + : radio_button { + label = "SOL"; + key = "PREFIX_7"; + } + : radio_button { + label = "MTR"; + key = "PREFIX_8"; + } + : radio_button { + label = "O"; + key = "PREFIX_9"; + } + } + } + spacer; + ok_cancel; +} diff --git a/STEUERG/AUSGAENGE.LSP b/STEUERG/AUSGAENGE.LSP new file mode 100644 index 0000000..3ca694d --- /dev/null +++ b/STEUERG/AUSGAENGE.LSP @@ -0,0 +1,531 @@ +;------------------------------------------------------------------------; +; 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 -> Rckgabe: 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))) + + ;<<>> + (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) +) diff --git a/STEUERG/AUSGAENGE._LS b/STEUERG/AUSGAENGE._LS new file mode 100644 index 0000000..f747443 --- /dev/null +++ b/STEUERG/AUSGAENGE._LS @@ -0,0 +1,517 @@ +;------------------------------------------------------------------------; +; AUSGAENGE ; +;------------------------------------------------------------------------; +; 02.02.2007 ; +;------------------------------------------------------------------------; +(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 "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 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")) + (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 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 "") + ) + ((= m_DWG_NAME "1") + (setq BEZEICHNUNG_BG "VENTIL BISTABIL- AS O. RAD-RAD") + (setq BEZ1 "VENT") + (setq BEZ2 "BI-2Y") + ) + ((= m_DWG_NAME "2") + (setq BEZEICHNUNG_BG "VENTIL MONOSTABIL- SEP.GEFÄLLE") + (setq BEZ1 "VENT") + (setq BEZ2 "MO-1Y") + ) + ((= m_DWG_NAME "3") + (setq BEZEICHNUNG_BG "VENTIL-BISTABIL- SEP.KREISEL") + (setq BEZ1 "VENT") + (setq BEZ2 "BI-2Y") + ) + ((= m_DWG_NAME "4") + (setq BEZEICHNUNG_BG "SCANNER BT SEP.LINKS") + (setq BEZ1 "SC") + (setq BEZ2 "S-LI") + ) + ((= m_DWG_NAME "5") + (setq BEZEICHNUNG_BG "SCANNER BT SEP.RECHTS") + (setq BEZ1 "SC") + (setq BEZ2 "S-RE") + ) + ((= m_DWG_NAME "6") + (setq BEZEICHNUNG_BG "MOTOR 0.18 KW UNIDIREKTIONAL") + (setq BEZ1 "M-UNI") + (setq BEZ2 "0.18") + ) + ((= m_DWG_NAME "7") + (setq BEZEICHNUNG_BG "MOTOR 0.25-0.37 KW UNIDIREKTIONAL") + (setq BEZ1 "M-UNI") + (setq BEZ2 "0.37") + ) + ((= m_DWG_NAME "8") + (setq BEZEICHNUNG_BG "MOTOR 0.55 KW UNIDIREKTIONAL") + (setq BEZ1 "M-UNI") + (setq BEZ2 "0.55") + ) + ((= m_DWG_NAME "9") + (setq BEZEICHNUNG_BG "MOTOR 0.75-0.9 KW UNIDIREKTIONAL") + (setq BEZ1 "M-UNI") + (setq BEZ2 "0.9") + ) + ((= m_DWG_NAME "10") + (setq BEZEICHNUNG_BG "MOTOR 1.1 KW UNIDIREKTIONAL") + (setq BEZ1 "M-UNI") + (setq BEZ2 "1.1") + ) + ((= m_DWG_NAME "11") + (setq BEZEICHNUNG_BG "MOTOR 0.18 KW BIDIREKTIONAL") + (setq BEZ1 "M-BI") + (setq BEZ2 "0.18") + ) + ((= m_DWG_NAME "12") + (setq BEZEICHNUNG_BG "MOTOR 0.25-0.37 KW BIDIREKTIONAL") + (setq BEZ1 "M-BI") + (setq BEZ2 "0.37") + ) + ((= m_DWG_NAME "13") + (setq BEZEICHNUNG_BG "MOTOR 0.55 KW BIDIREKTIONAL") + (setq BEZ1 "M-BI") + (setq BEZ2 "0.55") + ) + ((= m_DWG_NAME "14") + (setq BEZEICHNUNG_BG "MOTOR 0.75-0.9 KW BIDIREKTIONAL") + (setq BEZ1 "M-BI") + (setq BEZ2 "0.9") + ) + ((= m_DWG_NAME "15") + (setq BEZEICHNUNG_BG "MOTOR 1.1 KW BIDIREKTIONAL") + (setq BEZ1 "M-BI") + (setq BEZ2 "1.1") + ) + ) ; 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 -> Rckgabe: element-name + + (setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) + (setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (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 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 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12))) + (setq P7 (list (+ (car p12) (* FAKTO 1200)) (+ (cadr p12) (* FAKTO 100)) (caddr p12))) + + (command "_layer" "_m" "AUSGANG" "_c" "3" "" "") + + ;<<< 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) + (ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG) + ) + + (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" 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 ) + (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 + + (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) + ) + ) + + (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") P0 "" "" (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_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) +) diff --git a/STEUERG/AUSGAENGE_F.DCL b/STEUERG/AUSGAENGE_F.DCL new file mode 100644 index 0000000..6979f60 --- /dev/null +++ b/STEUERG/AUSGAENGE_F.DCL @@ -0,0 +1,158 @@ +/* Dialogbox fuer Ausgänge Spinnerei */ +/* Datum: 18.7.2008 AW 18.06.2011 */ + +AUSGAENGE_F : dialog { + label = "ANSCHLÜSSE FÜR AUSGÄNGE SPINNEREI"; + spacer; + : row { + : list_box { + label = "Anschlüsse für Ausgänge"; + key = "DWG_NAME"; + mnemonic = "H"; + list = "BLIND\nANSCHL. VENTIL FÜR WEICHE\nANSCHL. FÜR VENTIL RA1\nANSCHL. FÜR VENTIL RA2\nANSCHL. MOTOR FÜR RA1/RA2 UNI\nANSCHL. MOTOR FÜR RA1/RA2 BI\nANSCHL. FÜR VENTIL FLYER-STOPPER"; + width = 40; + height = 10; + } + : image { + height = 10; + width = 40; + color = 7; + key = "anzeige"; + } + : list_box { + label = "Verwendung"; + key = "COMPONENT"; + mnemonic = "H"; + list = "NO-ID"; + width = 30; + height = 10; + } + } + : row { + : column { + : edit_box { + label = "Input:"; + allow_accept = true; + key = "INPUT"; + value = 1; + } + : edit_box { + label = "ID:"; + allow_accept = true; + key = "IDENT"; + value = 1000; + } + : edit_box { + label = "Bezeichnung:"; + allow_accept = true; + key = "BEZEICHNUNG"; + value = xxxxxxxxx; + } + : edit_box { + label = "Kennzeichnung:"; + allow_accept = true; + key = "KENNZEICHNUNG"; + } + : edit_box { + label="Skalierungsfaktor"; + key="FAKT"; + value = 1; + mnemonic="F"; + } + : edit_box { + label="ZUSATZTEXT"; + key="ZUSATZ"; + } + : edit_box { + label="SPS-Prefix"; + key="SPS-NR"; + } + : toggle { + label = "Bezeichnung=Artikel-Bezeichnung"; + mnemonic = "I"; + key = "IO-BEZ"; + } + : toggle { + label = "Bezeichnung auch als Text RECHTS"; + mnemonic = "I"; + key = "IO-BEZ-RECHTS"; + } + } + : boxed_radio_column { + label = "PREFIX"; + key = "PREFIX"; + : radio_button { + label = "M"; + key = "PREFIX_1"; + } + : radio_button { + label = "Y"; + key = "PREFIX_2"; + } + : radio_button { + label = "A"; + key = "PREFIX_3"; + } + : radio_button { + label = "K"; + key = "PREFIX_4"; + } + : radio_button { + label = "H"; + key = "PREFIX_5"; + } + : radio_button { + label = "LT"; + key = "PREFIX_6"; + } + : radio_button { + label = "SOL"; + key = "PREFIX_7"; + } + : radio_button { + label = "MTR"; + key = "PREFIX_8"; + } + : radio_button { + label = "O"; + key = "PREFIX_9"; + } + } + : column { + : boxed_radio_column { + label = "LÄNGE"; + key = "LAENGE"; + : radio_button { + label = "2 m"; + key = "LAENGE_1"; + } + : radio_button { + label = "3 m"; + key = "LAENGE_2"; + } + : radio_button { + label = "5 m"; + key = "LAENGE_3"; + } + : radio_button { + label = "10 m"; + key = "LAENGE_4"; + } + } + : boxed_radio_column { + label = "LEISTUNG"; + key = "LEISTUNG"; + : radio_button { + label = "0.12 KW 400V/50Hz o. 60Hz"; + key = "LEISTUNG_1"; + } + : radio_button { + label = "0.18 KW 400V/50Hz o. 60Hz"; + key = "LEISTUNG_2"; + } + } + } + } + spacer; + ok_cancel; +} diff --git a/STEUERG/AUSGAENGE_F.LSP b/STEUERG/AUSGAENGE_F.LSP new file mode 100644 index 0000000..7f57e8f --- /dev/null +++ b/STEUERG/AUSGAENGE_F.LSP @@ -0,0 +1,569 @@ +;------------------------------------------------------------------------; +; 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))) + + ;<<>> + (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) +) diff --git a/STEUERG/AUSGAENGE_F._LS b/STEUERG/AUSGAENGE_F._LS new file mode 100644 index 0000000..04b9af7 --- /dev/null +++ b/STEUERG/AUSGAENGE_F._LS @@ -0,0 +1,591 @@ +;------------------------------------------------------------------------; +; 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 "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_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 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") + (if (> (strlen m_ZUSATZ) 0 ) + (progn + (setq VERWENDUNG m_ZUSATZ) + (setq m_IDENT "9999") + ) + (progn + (setq VERWENDUNG "NO-ID") + (setq m_IDENT "9999") + ) + ) + ) + ) ; 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 P0 "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 P0 "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 P0 "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 P0 "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 P0 "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 P0 "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 P0 "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 P0 "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") P0 "" "" (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) + + (setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) + (setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (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 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 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12))) + (setq P7 (list (+ (car p12) (* FAKTO 1200)) (+ (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) + (ATTRIBUTE-AENDERN_IO (strcat IO_PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG) + ) + + (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" P0 "_w" "0" "0" 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 (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8")) +; (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 + +; (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) + ) + ) +) + +(defun TEILE_ANSCHLUSS_MOTOR () + (EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1" "0") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HILFSCHALTER")) + (EINZELTEIL P0 "700004200" "ZUGFEDER-DURCHGANGSKLEMME ST2,5" "3" "0") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+KLEMME1")) + (EINZELTEIL P0 "700004203" "ZUGFEDER-SCHUTZLEITERKLEMME ST2,5-PE" "1" "0") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+KLEMME2")) + (EINZELTEIL P0 "723000006" "ADERL. H07V-K 1,5 QMM SCHWARZ" "1" "3") + (EINZELTEIL P0 "723000005" "ADERL.H07V-K 1,5MM BLAU" "1" "3") + (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) +) +;------------------------------------------------------------------------------ +(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_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) +) diff --git a/STEUERG/AUSGAENGE_F_DCL.old b/STEUERG/AUSGAENGE_F_DCL.old new file mode 100644 index 0000000..5ec69f4 --- /dev/null +++ b/STEUERG/AUSGAENGE_F_DCL.old @@ -0,0 +1,120 @@ +/* Dialogbox fuer Ausgänge Spinnerei */ +/* Datum: 30u.9.2007 AW */ + +AUSGAENGE_F : dialog { + label = "STEUERUNG-AUSGÄNGE-SPINNEREI"; + spacer; + : row { + : list_box { + label = "Ausgänge"; + key = "DWG_NAME"; + mnemonic = "H"; + list = "BLIND\nK-20M SMC\nASI-K-2M SMC\nASI-K-3M SMC\nASI-K-5M SMC\nASI-K-10M SMC\nPNEUM.REIBRAD\nPNEUM.REIBRAD+KABEL"; + width = 30; + height = 10; + } + : image { + height = 10; + width = 40; + color = 7; + key = "anzeige"; + } + : list_box { + label = "Verwendung"; + key = "COMPONENT"; + mnemonic = "H"; + list = "NO-ID"; + width = 30; + height = 10; + } + } + : row { + :column { + : edit_box { + label = "Input:"; + allow_accept = true; + key = "INPUT"; + value = 1; + } + : edit_box { + label = "ID:"; + allow_accept = true; + key = "IDENT"; + value = 1000; + } + : edit_box { + label = "Bezeichnung:"; + allow_accept = true; + key = "BEZEICHNUNG"; + value = xxxxxxxxx; + } + : edit_box { + label = "Kennzeichnung:"; + allow_accept = true; + key = "KENNZEICHNUNG"; + } + :edit_box { + label="Skalierungsfaktor"; + key="FAKT"; + value = 1; + mnemonic="F"; + } + :edit_box { + label="ZUSATZTEXT"; + key="ZUSATZ"; + } + : toggle { + label = "Bezeichnung=Artikel-Bezeichnung"; + mnemonic = "I"; + key = "IO-BEZ"; + } + : toggle { + label = "Bezeichnung auch als Text RECHTS"; + mnemonic = "I"; + key = "IO-BEZ-RECHTS"; + } + } + : boxed_radio_column { + label = "PREFIX"; + key = "PREFIX"; + : radio_button { + label = "M"; + key = "PREFIX_1"; + } + : radio_button { + label = "Y"; + key = "PREFIX_2"; + } + : radio_button { + label = "A"; + key = "PREFIX_3"; + } + : radio_button { + label = "K"; + key = "PREFIX_4"; + } + : radio_button { + label = "H"; + key = "PREFIX_5"; + } + : radio_button { + label = "LT"; + key = "PREFIX_6"; + } + : radio_button { + label = "SOL"; + key = "PREFIX_7"; + } + : radio_button { + label = "MTR"; + key = "PREFIX_8"; + } + : radio_button { + label = "O"; + key = "PREFIX_9"; + } + } + } + spacer; + ok_cancel; +} diff --git a/STEUERG/AUSGAENGE_F_LSP.old b/STEUERG/AUSGAENGE_F_LSP.old new file mode 100644 index 0000000..9a079e8 --- /dev/null +++ b/STEUERG/AUSGAENGE_F_LSP.old @@ -0,0 +1,392 @@ +;------------------------------------------------------------------------; +; AUSGAENGE_F ; +;------------------------------------------------------------------------; +; 30.09.2007 ; +;------------------------------------------------------------------------; +(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 "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 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(kab20)") + ) + ((= m_DWG_NAME "2") + (slide_image 0 0 breite hoehe "steuerg(kab02)") + ) + ((= m_DWG_NAME "3") + (slide_image 0 0 breite hoehe "steuerg(kab03)") + ) + ((= m_DWG_NAME "4") + (slide_image 0 0 breite hoehe "steuerg(kab05)") + ) + ((= m_DWG_NAME "5") + (slide_image 0 0 breite hoehe "steuerg(kab10)") + ) + ((= m_DWG_NAME "6") + (slide_image 0 0 breite hoehe "steuerg(pn_reib)") + ) + ((= m_DWG_NAME "7") + (slide_image 0 0 breite hoehe "steuerg(pn_reibs)") + ) + ) ; 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_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_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_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") + (if (> (strlen m_ZUSATZ) 0 ) + (progn + (setq VERWENDUNG m_ZUSATZ) + (setq m_IDENT "9999") + ) + (progn + (setq VERWENDUNG "NO-ID") + (setq m_IDENT "9999") + ) + ) + ) + ) ; end cond +; (alert verwendung) +) + +(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 "720000002") ; ASI Kabel 20 M für SMC Pneumatik für Weiche + (setq BEZEICHNUNG "ASI-KABEL 20M F.SMC F.WEICHE") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SW") + (setq BEZ2 "20M") + ) + ((= m_DWG_NAME "2") + (setq BL_NAME "722001121") ; ASI Kabel 2 M für SMC Pneumatik für Weiche + (setq BEZEICHNUNG "ASI-KABEL 2M F.SMC F.WEICHE") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SW") + (setq BEZ2 "2M") + ) + ((= m_DWG_NAME "3") + (setq BL_NAME "722001122") ; ASI Kabel 3 M für SMC Pneumatik für Weiche + (setq BEZEICHNUNG "ASI-KABEL 3M F.SMC F.WEICHE") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SW") + (setq BEZ2 "3M") + ) + ((= m_DWG_NAME "4") + (setq BL_NAME "722001123") ; ASI Kabel 5 M für SMC Pneumatik für Weiche + (setq BEZEICHNUNG "ASI-KABEL 5M F.SMC F.WEICHE") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SW") + (setq BEZ2 "5M") + ) + ((= m_DWG_NAME "5") + (setq BL_NAME "722001124") ; ASI Kabel 10 M für SMC Pneumatik für Weiche + (setq BEZEICHNUNG "ASI-KABEL 10M F.SMC F.WEICHE") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SW") + (setq BEZ2 "10M") + ) + ((= m_DWG_NAME "6") + (setq BL_NAME "722000015") ; Ansteuerung Reibrad mit 30 M Kabel + (setq BEZEICHNUNG "ANSTEUERUNG REIBRAD MIT KABEL") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "RR") + (setq BEZ2 "NOKAB") + ) + ((= m_DWG_NAME "7") + (setq BL_NAME "722000015") ; Ansteuerung Reibrad mit 30 M Kabel und ASI Stecker + (setq BEZEICHNUNG "ANSTEUERUNG REIBRAD MIT KABEL") + (setq BEZEICHNUNG_BG "ANSTEUERUNG REIBRAD MIT KABEL UND STECKER") + (setq BEZ1 "RR") + (setq BEZ2 "+KAB") + ) + ) ; 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 + + (setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) + (setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (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 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 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12))) + (setq P7 (list (+ (car p12) (* FAKTO 1200)) (+ (cadr p12) (* FAKTO 100)) (caddr p12))) + + (command "_layer" "_m" "AUSGANG" "_c" "3" "" "") + + ;<<< 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 m_KENNZEICHNUNG) + (ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG) + ) + + (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 (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8")) +; (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 + +; (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) + ) + ) + + (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 "1" "") + ) + ) + + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + + (setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren + :<<<------------------------------------------------------------------- + + ;<<<< BAUGRUPPEN >>> + (if (= m_DWG_NAME "7") + (progn + (EINZELTEIL P0 "722003015" "VENTILSTECKER ASI-SEITE" "1") + (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: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_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) +) diff --git a/STEUERG/AUSGAENGE_S.DCL b/STEUERG/AUSGAENGE_S.DCL new file mode 100644 index 0000000..9ee9a7a --- /dev/null +++ b/STEUERG/AUSGAENGE_S.DCL @@ -0,0 +1,128 @@ +/* Dialogbox fuer Ausgänge Sonstige */ +/* Datum: 22.9.2007 18.06.2011 W */ + +AUSGAENGE_S : dialog { + label = "STEUERUNG-AUSGÄNGE"; + spacer; + : row { + : list_box { + label = "Ausgänge"; + key = "DWG_NAME"; + mnemonic = "H"; + list = "BLIND\nWS 0.18\nWS 0.37\nWS 0.55\nWS 1.1\nDS 0.18\nDS 0.37\nDS 0.55\nDS 0.9\nDS 1.1"; + width = 30; + height = 10; + } + : image { + height = 10; + width = 40; + color = 7; + key = "anzeige"; + } + : list_box { + label = "Verwendung"; + key = "COMPONENT"; + mnemonic = "H"; + list = "NO-ID"; + width = 30; + height = 10; + } + } + : row { + :column { + : edit_box { + label = "Input:"; + allow_accept = true; + key = "INPUT"; + value = 1; + } + : edit_box { + label = "ID:"; + allow_accept = true; + key = "IDENT"; + value = 1000; + } + : edit_box { + label = "Bezeichnung:"; + allow_accept = true; + key = "BEZEICHNUNG"; + value = xxxxxxxxx; + } + : edit_box { + label = "Kennzeichnung:"; + allow_accept = true; + key = "KENNZEICHNUNG"; + } + : edit_box { + label="Skalierungsfaktor"; + key="FAKT"; + value = 1; + mnemonic="F"; + } + : edit_box { + label="ZUSATZTEXT"; + key="ZUSATZ"; + } + : edit_box { + label="SPS-Prefix"; + key="SPS-NR"; + } + : toggle { + label = "Bezeichnung=Artikel-Bezeichnung"; + mnemonic = "I"; + key = "IO-BEZ"; + } + : toggle { + label = "Bezeichnung auch als Text RECHTS"; + mnemonic = "I"; + key = "IO-BEZ-RECHTS"; + } + } + : boxed_radio_column { + label = "BMK"; + key = "PREFIX"; + : radio_button { + label = "M"; + key = "PREFIX_1"; + } + : radio_button { + label = "Y"; + key = "PREFIX_2"; + } + : radio_button { + label = "A"; + key = "PREFIX_3"; + } + : radio_button { + label = "K"; + key = "PREFIX_4"; + } + : radio_button { + label = "H"; + key = "PREFIX_5"; + } + : radio_button { + label = "LT"; + key = "PREFIX_6"; + } + : radio_button { + label = "SOL"; + key = "PREFIX_7"; + } + : radio_button { + label = "MTR"; + key = "PREFIX_8"; + } + : radio_button { + label = "O"; + key = "PREFIX_9"; + } + : radio_button { + label = "Q"; + key = "PREFIX_10"; + } + } + } + spacer; + ok_cancel; +} diff --git a/STEUERG/AUSGAENGE_S.LSP b/STEUERG/AUSGAENGE_S.LSP new file mode 100644 index 0000000..043d3b7 --- /dev/null +++ b/STEUERG/AUSGAENGE_S.LSP @@ -0,0 +1,429 @@ +;------------------------------------------------------------------------; +; AUSGAENGE_S ; +;------------------------------------------------------------------------; +; 22.09.2007 ; +;------------------------------------------------------------------------; +(defun Dbox (/ Dat) + (setq Dat (load_dialog (strcat lw "/acadsst/steuerg/AUSGAENGE_S.DCL"))) + (if (not (new_dialog "AUSGAENGE_S" 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) + + (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(03001060)") + ) + ((= m_DWG_NAME "2") + (slide_image 0 0 breite hoehe "steuerg(03001062)") + ) + ((= m_DWG_NAME "3") + (slide_image 0 0 breite hoehe "steuerg(03001063)") + ) + ((= m_DWG_NAME "4") + (slide_image 0 0 breite hoehe "steuerg(03001064)") + ) + ((= m_DWG_NAME "5") + (slide_image 0 0 breite hoehe "steuerg(03001050)") + ) + ((= m_DWG_NAME "6") + (slide_image 0 0 breite hoehe "steuerg(03001051)") + ) + ((= m_DWG_NAME "7") + (slide_image 0 0 breite hoehe "steuerg(03001053)") + ) + ((= m_DWG_NAME "8") + (slide_image 0 0 breite hoehe "steuerg(03001055)") + ) + ((= m_DWG_NAME "9") + (slide_image 0 0 breite hoehe "steuerg(03001054)") + ) + ) ; 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")) + (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_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 VERWENDUNG "NO-ID") + (setq m_IDENT "9999") + ) + ) ; end cond +; (alert verwendung) +) + +(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 "703001060") + (setq BEZEICHNUNG "WENDESTARTER 0.18 KW 0.55-0.8 A M-BI") + (setq BEZEICHNUNG_BG "WENDESTARTER 0.18 KW 0.55-0.8 A M-BI KPL.") + (setq BEZ1 "WS") + (setq BEZ2 "0.18") + ) + ((= m_DWG_NAME "2") + (setq BL_NAME "703001062") + (setq BEZEICHNUNG "WENDESTARTER 0.37 KW 1.1-1.6 A M-BI") + (setq BEZEICHNUNG_BG "WENDESTARTER 0.37 KW 1.1-1.6 A M-BI KPL.") + (setq BEZ1 "WS") + (setq BEZ2 "0.37") + ) + ((= m_DWG_NAME "3") + (setq BL_NAME "703001063") + (setq BEZEICHNUNG "WENDESTARTER 0.55 KW 1.4-2.0 A M-BI") + (setq BEZEICHNUNG_BG "WENDESTARTER 0.55 KW 1.4-2.0 A M-BI KPL.") + (setq BEZ1 "WS") + (setq BEZ2 "0.55") + ) + ((= m_DWG_NAME "4") + (setq BL_NAME "703001064") + (setq BEZEICHNUNG "WENDESTARTER 1.1 KW 2.2-3.2 A M-BI") + (setq BEZEICHNUNG_BG "WENDESTARTER 1.1 KW 2.2-3.2 A M-BI KPL.") + (setq BEZ1 "WS") + (setq BEZ2 "1.1") + ) + ((= m_DWG_NAME "5") + (setq BL_NAME "703001050") + (setq BEZEICHNUNG "DIREKTSTARTER 0.18 KW 0.55-0.8 A M-UNI") + (setq BEZEICHNUNG_BG "DIREKTSTARTER 0.18 KW 0.55-0.8 A M-UNI KPL.") + (setq BEZ1 "DS") + (setq BEZ2 "0.18") + ) + ((= m_DWG_NAME "6") + (setq BL_NAME "703001051") + (setq BEZEICHNUNG "DIREKTSTARTER 0.37 KW 0.9-1.25 A M-UNI") + (setq BEZEICHNUNG_BG "DIREKTSTARTER 0.37 KW 0.9-1.25 A M-UNI KPL.") + (setq BEZ1 "DS") + (setq BEZ2 "0.37") + ) + ((= m_DWG_NAME "7") + (setq BL_NAME "703001053") + (setq BEZEICHNUNG "DIREKTSTARTER 0.55 KW 1.4-2.0 A M-UNI") + (setq BEZEICHNUNG_BG "DIREKTSTARTER 0.55 KW 1.4-2.0 A M-UNI KPL.") + (setq BEZ1 "DS") + (setq BEZ2 "0.55") + ) + ((= m_DWG_NAME "8") + (setq BL_NAME "703001055") + (setq BEZEICHNUNG "DIREKTSTARTER 0.9 KW 1.8-2.5 A M-UNI") + (setq BEZEICHNUNG_BG "DIREKTSTARTER 0.9 KW 1.8-2.5 A M-UNI KPL.") + (setq BEZ1 "DS") + (setq BEZ2 "0.9") + ) + ((= m_DWG_NAME "9") + (setq BL_NAME "703001054") + (setq BEZEICHNUNG "DIREKTSTARTER 1.1 KW 2.2-3.2 A M-UNI") + (setq BEZEICHNUNG_BG "DIREKTSTARTER 1.1 KW 2.2-3.2 A M-UNI KPL.") + (setq BEZ1 "DS") + (setq BEZ2 "1.1") + ) + ) ; 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) + ) + ((= m_PREFIX "PREFIX_10") + (setq _PREFIX "Q") + (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))) + + ;<<>> + (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" "AUSGANG" "_c" "3" "" "") + + ;<<< 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 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_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" "AUSGANG-HW" "_c" "7" "" "") + (command "_pline" P13 P10 P11 P14 P13 "") + (setq AUSWAHL-SATZ (ssget "_L")) + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + + ;<<<< Zusatztext >>>>>>> + (if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8")) + (progn + (setq x_length (+ 1170 (* (strlen m_Zusatz) 160))) + (setq P15 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext + (setq P16 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (- (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) + (command "_point" P12) + (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))) + (command "_point" P12) + (ssadd (entlast) AUSWAHL-SATZ) + (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) + ) + ) + ;---------------------------------------------------------------------------------------------------------------- + + ;<<<<<<<<< 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) + ) + ) + + (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 "1" "") + ) + ) + + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + + (setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren + + ;<<<< BAUGRUPPEN >>> + (if (or (= m_DWG_NAME "1") (= m_DWG_NAME "2") (= m_DWG_NAME "3") + (= m_DWG_NAME "4") (= m_DWG_NAME "5") (= m_DWG_NAME "6") + (= m_DWG_NAME "7") (= m_DWG_NAME "8") (= m_DWG_NAME "9")) + (progn + (EINZELTEIL P0 "703001017" "REFLEXIONSLICHTTASTER" "1") + (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_S ( / 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 S *******") + (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 "")) ; Zusatztext + (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) +) diff --git a/STEUERG/AUSGAENGE_S._DC b/STEUERG/AUSGAENGE_S._DC new file mode 100644 index 0000000..4b2e0cf --- /dev/null +++ b/STEUERG/AUSGAENGE_S._DC @@ -0,0 +1,128 @@ +/* Dialogbox fuer Ausgänge Spinnerei/Stockwerksautomatisierung */ +/* Datum: 22.9.2007 AW */ + +AUSGAENGE_S : dialog { + label = "STEUERUNG-AUSGÄNGE"; + spacer; + : row { + : list_box { + label = "Ausgänge"; + key = "DWG_NAME"; + mnemonic = "H"; + list = "BLIND\nWS 0.18\nWS 0.37\nWS 0.55\nWS 1.1\nDS 0.18\nDS 0.37\nDS 0.55\nDS 0.9\nDS 1.1"; + width = 30; + height = 10; + } + : image { + height = 10; + width = 40; + color = 7; + key = "anzeige"; + } + : list_box { + label = "Verwendung"; + key = "COMPONENT"; + mnemonic = "H"; + list = "NO-ID"; + width = 30; + height = 10; + } + } + : row { + :column { + : edit_box { + label = "Input:"; + allow_accept = true; + key = "INPUT"; + value = 1; + } + : edit_box { + label = "ID:"; + allow_accept = true; + key = "IDENT"; + value = 1000; + } + : edit_box { + label = "Bezeichnung:"; + allow_accept = true; + key = "BEZEICHNUNG"; + value = xxxxxxxxx; + } + : edit_box { + label = "Kennzeichnung:"; + allow_accept = true; + key = "KENNZEICHNUNG"; + } + :edit_box { + label="Skalierungsfaktor"; + key="FAKT"; + value = 1; + mnemonic="F"; + } + :edit_box { + label="ZUSATZTEXT"; + key="ZUSATZ"; + } + : edit_box { + label="SPS-Prefix"; + key="SPS-NR"; + } + : toggle { + label = "Bezeichnung=Artikel-Bezeichnung"; + mnemonic = "I"; + key = "IO-BEZ"; + } + : toggle { + label = "Bezeichnung auch als Text RECHTS"; + mnemonic = "I"; + key = "IO-BEZ-RECHTS"; + } + } + : boxed_radio_column { + label = "BMK"; + key = "PREFIX"; + : radio_button { + label = "M"; + key = "PREFIX_1"; + } + : radio_button { + label = "Y"; + key = "PREFIX_2"; + } + : radio_button { + label = "A"; + key = "PREFIX_3"; + } + : radio_button { + label = "K"; + key = "PREFIX_4"; + } + : radio_button { + label = "H"; + key = "PREFIX_5"; + } + : radio_button { + label = "LT"; + key = "PREFIX_6"; + } + : radio_button { + label = "SOL"; + key = "PREFIX_7"; + } + : radio_button { + label = "MTR"; + key = "PREFIX_8"; + } + : radio_button { + label = "O"; + key = "PREFIX_9"; + } + : radio_button { + label = "Q"; + key = "PREFIX_10"; + } + } + } + spacer; + ok_cancel; +} diff --git a/STEUERG/AUSGAENGE_S._LS b/STEUERG/AUSGAENGE_S._LS new file mode 100644 index 0000000..6dd6fc6 --- /dev/null +++ b/STEUERG/AUSGAENGE_S._LS @@ -0,0 +1,424 @@ +;------------------------------------------------------------------------; +; AUSGAENGE_S ; +;------------------------------------------------------------------------; +; 22.09.2007 ; +;------------------------------------------------------------------------; +(defun Dbox (/ Dat) + (setq Dat (load_dialog (strcat lw "/acadsst/steuerg/AUSGAENGE_S.DCL"))) + (if (not (new_dialog "AUSGAENGE_S" 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) + + (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(03001060)") + ) + ((= m_DWG_NAME "2") + (slide_image 0 0 breite hoehe "steuerg(03001062)") + ) + ((= m_DWG_NAME "3") + (slide_image 0 0 breite hoehe "steuerg(03001063)") + ) + ((= m_DWG_NAME "4") + (slide_image 0 0 breite hoehe "steuerg(03001064)") + ) + ((= m_DWG_NAME "5") + (slide_image 0 0 breite hoehe "steuerg(03001050)") + ) + ((= m_DWG_NAME "6") + (slide_image 0 0 breite hoehe "steuerg(03001051)") + ) + ((= m_DWG_NAME "7") + (slide_image 0 0 breite hoehe "steuerg(03001053)") + ) + ((= m_DWG_NAME "8") + (slide_image 0 0 breite hoehe "steuerg(03001055)") + ) + ((= m_DWG_NAME "9") + (slide_image 0 0 breite hoehe "steuerg(03001054)") + ) + ) ; 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")) + (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_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 VERWENDUNG "NO-ID") + (setq m_IDENT "9999") + ) + ) ; end cond +; (alert verwendung) +) + +(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 "703001060") + (setq BEZEICHNUNG "WENDESTARTER 0.18 KW 0.55-0.8 A M-BI") + (setq BEZEICHNUNG_BG "WENDESTARTER 0.18 KW 0.55-0.8 A M-BI KPL.") + (setq BEZ1 "WS") + (setq BEZ2 "0.18") + ) + ((= m_DWG_NAME "2") + (setq BL_NAME "703001062") + (setq BEZEICHNUNG "WENDESTARTER 0.37 KW 1.1-1.6 A M-BI") + (setq BEZEICHNUNG_BG "WENDESTARTER 0.37 KW 1.1-1.6 A M-BI KPL.") + (setq BEZ1 "WS") + (setq BEZ2 "0.37") + ) + ((= m_DWG_NAME "3") + (setq BL_NAME "703001063") + (setq BEZEICHNUNG "WENDESTARTER 0.55 KW 1.4-2.0 A M-BI") + (setq BEZEICHNUNG_BG "WENDESTARTER 0.55 KW 1.4-2.0 A M-BI KPL.") + (setq BEZ1 "WS") + (setq BEZ2 "0.55") + ) + ((= m_DWG_NAME "4") + (setq BL_NAME "703001064") + (setq BEZEICHNUNG "WENDESTARTER 1.1 KW 2.2-3.2 A M-BI") + (setq BEZEICHNUNG_BG "WENDESTARTER 1.1 KW 2.2-3.2 A M-BI KPL.") + (setq BEZ1 "WS") + (setq BEZ2 "1.1") + ) + ((= m_DWG_NAME "5") + (setq BL_NAME "703001050") + (setq BEZEICHNUNG "DIREKTSTARTER 0.18 KW 0.55-0.8 A M-UNI") + (setq BEZEICHNUNG_BG "DIREKTSTARTER 0.18 KW 0.55-0.8 A M-UNI KPL.") + (setq BEZ1 "DS") + (setq BEZ2 "0.18") + ) + ((= m_DWG_NAME "6") + (setq BL_NAME "703001051") + (setq BEZEICHNUNG "DIREKTSTARTER 0.37 KW 0.9-1.25 A M-UNI") + (setq BEZEICHNUNG_BG "DIREKTSTARTER 0.37 KW 0.9-1.25 A M-UNI KPL.") + (setq BEZ1 "DS") + (setq BEZ2 "0.37") + ) + ((= m_DWG_NAME "7") + (setq BL_NAME "703001053") + (setq BEZEICHNUNG "DIREKTSTARTER 0.55 KW 1.4-2.0 A M-UNI") + (setq BEZEICHNUNG_BG "DIREKTSTARTER 0.55 KW 1.4-2.0 A M-UNI KPL.") + (setq BEZ1 "DS") + (setq BEZ2 "0.55") + ) + ((= m_DWG_NAME "8") + (setq BL_NAME "703001055") + (setq BEZEICHNUNG "DIREKTSTARTER 0.9 KW 1.8-2.5 A M-UNI") + (setq BEZEICHNUNG_BG "DIREKTSTARTER 0.9 KW 1.8-2.5 A M-UNI KPL.") + (setq BEZ1 "DS") + (setq BEZ2 "0.9") + ) + ((= m_DWG_NAME "9") + (setq BL_NAME "703001054") + (setq BEZEICHNUNG "DIREKTSTARTER 1.1 KW 2.2-3.2 A M-UNI") + (setq BEZEICHNUNG_BG "DIREKTSTARTER 1.1 KW 2.2-3.2 A M-UNI KPL.") + (setq BEZ1 "DS") + (setq BEZ2 "1.1") + ) + ) ; 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) + ) + ((= m_PREFIX "PREFIX_10") + (setq _PREFIX "Q") + (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 + + (setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 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 P12 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 360)) (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 360)) (caddr p0))) + + ;<<>> + (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 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" "AUSGANG" "_c" "3" "" "") + + ;<<< 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 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_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" "AUSGANG-HW" "_c" "7" "" "") + (command "_pline" P13 P10 P11 P14 P13 "") + (setq AUSWAHL-SATZ (ssget "_L")) + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + + ;<<<< Zusatztext >>>>>>> + (if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8")) + (progn + (setq x_length (+ 1170 (* (strlen m_Zusatz) 160))) + (setq P15 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext + (setq P16 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (- (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) + (command "_point" P12) + (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))) + (command "_point" P12) + (ssadd (entlast) AUSWAHL-SATZ) + (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) + ) + ) + ;---------------------------------------------------------------------------------------------------------------- + + ;<<<<<<<<< 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) + ) + ) + + (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 "1" "") + ) + ) + + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + + (setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren + + ;<<<< BAUGRUPPEN >>> + (if (or (= m_DWG_NAME "1") (= m_DWG_NAME "2") (= m_DWG_NAME "3") + (= m_DWG_NAME "4") (= m_DWG_NAME "5") (= m_DWG_NAME "6") + (= m_DWG_NAME "7") (= m_DWG_NAME "8") (= m_DWG_NAME "9")) + (progn + (EINZELTEIL P0 "703001017" "REFLEXIONSLICHTTASTER" "1") + (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_S ( / 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 S *******") + (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 "")) ; Zusatztext + (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) +) diff --git a/STEUERG/DIS-KAB.DWG b/STEUERG/DIS-KAB.DWG new file mode 100644 index 0000000..02fed63 Binary files /dev/null and b/STEUERG/DIS-KAB.DWG differ diff --git a/STEUERG/DIS-KAB.DWK b/STEUERG/DIS-KAB.DWK new file mode 100644 index 0000000..56f4c87 Binary files /dev/null and b/STEUERG/DIS-KAB.DWK differ diff --git a/STEUERG/DRUCKT.SLD b/STEUERG/DRUCKT.SLD new file mode 100644 index 0000000..d138463 Binary files /dev/null and b/STEUERG/DRUCKT.SLD differ diff --git a/STEUERG/D_EINZEL.DWG b/STEUERG/D_EINZEL.DWG new file mode 100644 index 0000000..0d9fd03 Binary files /dev/null and b/STEUERG/D_EINZEL.DWG differ diff --git a/STEUERG/EINGAENGE_B.DCL b/STEUERG/EINGAENGE_B.DCL new file mode 100644 index 0000000..bdf1346 --- /dev/null +++ b/STEUERG/EINGAENGE_B.DCL @@ -0,0 +1,120 @@ +/* Dialogbox fuer ILS2100 Komponenten */ +/* Datum: 20.9.2006 18.06.2011 AW */ + +EINGAENGE_B : dialog { + label = "STEUERUNG-EINGÄNGE"; + spacer; + : row { + : list_box { + label = "Eingänge"; + key = "DWG_NAME"; + mnemonic = "H"; + list = "BLIND\nRAST3[SI]\nRAST8[SI]\nBT-SYNC 3[SI]\nBT-SYNC 8[SI]\nSTAUMELDER LP[LT]\nINKR.GEBER-3[WEG]\nINKR.GEBER-8[WEG]\nPIN-SYNC[LT]\nVERL.R8-R[SI]\nVERL.R8-L[SI]\nVERL.RG-8-R[SI]\nVERL.RG-8-L[SI]\nSENSOR F.LP[SI]\nBT-SCANN.\nIN-SEP.[SI]\nBT-BELADEN[SI]\nDOPP.B.ERK.+SPS\nLTINSP"; + width = 30; + height = 10; + } + : image { + height = 10; + width = 40; + color = 7; + key = "anzeige"; + } + : list_box { + label = "Verwendung"; + key = "COMPONENT"; + mnemonic = "H"; + list = "SEP1_2Y+1B\nSEP1_1Y+1B\nSEP2_2Y+1B\nSEP2_1Y+1B\nSW_2Y+1B\nSW_2Y+3B\nMOT_1M+1B\nINPUT-1B\nNO-ID"; + width = 30; + height = 10; + } + } + : row { + :column { + : edit_box { + label = "Input:"; + allow_accept = true; + key = "INPUT"; + value = 1; + } + : edit_box { + label = "ID:"; + allow_accept = true; + key = "IDENT"; + value = 1000; + } + : edit_box { + label = "Bezeichnung:"; + allow_accept = true; + key = "BEZEICHNUNG"; + value = xxxxxxxxx; + } + : edit_box { + label = "Kennzeichnung:"; + allow_accept = true; + key = "KENNZEICHNUNG"; + } + : edit_box { + label="Skalierungsfaktor"; + key="FAKT"; + value = 1; + mnemonic="F"; + } + : edit_box { + label="ZUSATZTEXT"; + key="ZUSATZ"; + } + : edit_box { + label="SPS-Prefix"; + key="SPS-NR"; + } + : toggle { + label = "Bezeichnung=Artikel-Bezeichnung"; + mnemonic = "I"; + key = "IO-BEZ"; + } + : toggle { + label = "Bezeichnung auch als Text RECHTS"; + mnemonic = "I"; + key = "IO-BEZ-RECHTS"; + } + } + : boxed_radio_column { + label = "PREFIX"; + key = "PREFIX"; + : radio_button { + label = "B"; + key = "PREFIX_1"; + } + : radio_button { + label = "E"; + key = "PREFIX_2"; + } + : radio_button { + label = "S"; + key = "PREFIX_3"; + } + : radio_button { + label = "IPB"; + key = "PREFIX_4"; + } + : radio_button { + label = "PB"; + key = "PREFIX_5"; + } + : radio_button { + label = "PRS"; + key = "PREFIX_6"; + } + : radio_button { + label = "CB"; + key = "PREFIX_7"; + } + : radio_button { + label = "I"; + key = "PREFIX_8"; + } + } + } + spacer; + ok_cancel; +} diff --git a/STEUERG/EINGAENGE_B.LSP b/STEUERG/EINGAENGE_B.LSP new file mode 100644 index 0000000..bd8ea02 --- /dev/null +++ b/STEUERG/EINGAENGE_B.LSP @@ -0,0 +1,530 @@ +;------------------------------------------------------------------------; +; EINGAENGE_B ; +;------------------------------------------------------------------------; +; 02.02.2007 / 22.09.2007 / 18.06.2011 ; +;------------------------------------------------------------------------; +(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 "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) + (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 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 "ils2100(i01)") + ) + ((= m_DWG_NAME "2") + (slide_image 0 0 breite hoehe "ils2100(i02)") + ) + ((= m_DWG_NAME "3") + (slide_image 0 0 breite hoehe "ils2100(i03)") + ) + ((= m_DWG_NAME "4") + (slide_image 0 0 breite hoehe "ils2100(i04)") + ) + ((= m_DWG_NAME "5") + (slide_image 0 0 breite hoehe "ils2100(i05)") + ) + ((= m_DWG_NAME "6") + (slide_image 0 0 breite hoehe "ils2100(i06)") + ) + ((= m_DWG_NAME "7") + (slide_image 0 0 breite hoehe "ils2100(i07)") + ) + ((= m_DWG_NAME "8") + (slide_image 0 0 breite hoehe "ils2100(i08)") + ) + ((= m_DWG_NAME "9") + (slide_image 0 0 breite hoehe "ils2100(i09)") + ) + ((= m_DWG_NAME "10") + (slide_image 0 0 breite hoehe "ils2100(i10)") + ) + ((= m_DWG_NAME "11") + (slide_image 0 0 breite hoehe "ils2100(i11)") + ) + ((= m_DWG_NAME "12") + (slide_image 0 0 breite hoehe "ils2100(i12)") + ) + ((= m_DWG_NAME "13") + (slide_image 0 0 breite hoehe "ils2100(i13)") + ) + ((= m_DWG_NAME "14") + (slide_image 0 0 breite hoehe "ils2100(i14)") + ) + ((= m_DWG_NAME "15") + (slide_image 0 0 breite hoehe "ils2100(i15)") + ) + ((= m_DWG_NAME "16") + (slide_image 0 0 breite hoehe "ils2100(i16)") + ) + ((= m_DWG_NAME "17") + (slide_image 0 0 breite hoehe "ils2100(i17)") + ) + ((= m_DWG_NAME "18") + (slide_image 0 0 breite hoehe "ils2100(i18)") + ) + ) ; 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")) + (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_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 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 "SW_2Y+1B") + ) + ((= m_COMPONENT "5") + (setq VERWENDUNG "SW_2Y+3B") + ) + ((= m_COMPONENT "6") + (setq VERWENDUNG "MOT_1M+1B") + ) + ((= m_COMPONENT "7") + (setq VERWENDUNG "INPUT-1B") + ) + ((= m_COMPONENT "8") + (setq VERWENDUNG m_ZUSATZ) + (setq m_IDENT "9999") + ) + ) ; 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 "829426303") ;SENSOR INDUKTIV M18/12 KPL.-RASTERSENSOR FÜR KREISEL 300 + (setq BEZEICHNUNG "RASTER 300[SI] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "RS") + (setq BEZ2 "300") + ) + ((= m_DWG_NAME "2") + (setq BL_NAME "720002003") ;SENSOR INDUKTIV M18/12 ET-RASTERSENSOR FÜR KREISEL 800 -> Bohrung bereits vorhanden + (setq BEZEICHNUNG "RASTER 800[SI] ET") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "RS") + (setq BEZ2 "800") + ) + ((= m_DWG_NAME "3") + (setq BL_NAME "829422025") ;SENSOR INDUKTIV M18/12 KPL.-BT SYNC 300 (BT Sync im Rad) + (setq BEZEICHNUNG "BT-SYNC 300[SI] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SI") + (setq BEZ2 "SYNC") + ) + ((= m_DWG_NAME "4") + (setq BL_NAME "829434304") ;SENSOR INDUKTIV M18/12 KPL.-BT SYNC 800 (BT Sync im Rad) + (setq BEZEICHNUNG "BT-SYNC 800[SI] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SI") + (setq BEZ2 "SYNC") + ) + ((= m_DWG_NAME "5") + (setq BL_NAME "829434300") ; LICHTTASTER WT 14 KPL.-STAUABFRAGE (setq BEZEICHNUNG "STAUABFRAGE[LT]") + (setq BEZEICHNUNG "STAUABFRAGE[LT] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "LT") + (setq BEZ2 "STAU") + ) + ((= m_DWG_NAME "6") + (setq BL_NAME "829434308") ; INKREMENTALGEBER KPL. 300-ER KREISEL + (setq BEZEICHNUNG "DREHGEBER-300 KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "DG") + (setq BEZ2 "300") + ) + ((= m_DWG_NAME "7") + (setq BL_NAME "829434307") ; INKREMENTALGEBER KPL. 800-ER KREISEL + (setq BEZEICHNUNG "DREHGEBER-800 KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "DG") + (setq BEZ2 "800") + ) + ((= m_DWG_NAME "8") + (setq BL_NAME "829434301") ; LASERLICHTTASTER WT12-PIN SYNCHRONISATION + (setq BEZEICHNUNG "PIN SYNC[LT] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "LT") + (setq BEZ2 "PIN") + ) + ((= m_DWG_NAME "9") + (setq BL_NAME "827422001") + (setq BEZEICHNUNG "WEICHE VERL.R800 RECHTS[SI] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SI") + (setq BEZ2 "VERL") + ) + ((= m_DWG_NAME "10") + (setq BL_NAME "827422002") + (setq BEZEICHNUNG "WEICHE VERL.R800 LINKS[SI] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SI") + (setq BEZ2 "VERL") + ) + ((= m_DWG_NAME "11") + (setq BL_NAME "827422003") + (setq BEZEICHNUNG "WEICHE VERL.RG-800 RECHTS[SI] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SI") + (setq BEZ2 "VERL") + ) + ((= m_DWG_NAME "12") + (setq BL_NAME "827422004") + (setq BEZEICHNUNG "WEICHE VERL.RG-800 LINKS[SI] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SI") + (setq BEZ2 "VERL") + ) + ((= m_DWG_NAME "13") + (setq BL_NAME "827422026") + (setq BEZEICHNUNG "BT SENSOR F.LP[SI] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SI") + (setq BEZ2 "VERL") + ) + ((= m_DWG_NAME "14") + (setq BL_NAME "829434003") + (setq BEZEICHNUNG "BT SCANNER IM SEPARATOR KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "BT") + (setq BEZ2 "SCAN") + ) + ((= m_DWG_NAME "15") + (setq BL_NAME "720002003") + (setq BEZEICHNUNG "IN-SENSOR SEPARATOR[SI] ET") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SI") + (setq BEZ2 "INSP") + ) + ((= m_DWG_NAME "16") + (setq BL_NAME "720002004") + (setq BEZEICHNUNG "BT BELADEN M30[SI] ET") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "BT") + (setq BEZ2 "BELA") + ) + ((= m_DWG_NAME "17") + (setq BL_NAME "829434302") + (setq BEZEICHNUNG "SPS F.DOPPEL BUEGEL ERKENNUNG") + (setq BEZEICHNUNG_BG "LICHTSCHRANKE F. DOPPEL-B ERKENNUNG KPL.") + (setq BEZ1 "DB") + (setq BEZ2 "DETC") + ) + ((= m_DWG_NAME "18") + (setq BL_NAME "721000020") + (setq BEZEICHNUNG "LICHTTASTER IN SEPARATOR") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "LT") + (setq BEZ2 "INSP") + ) + ) ; end cond + + (cond + ((= m_PREFIX "PREFIX_1") + (setq _PREFIX "B") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_2") + (setq _PREFIX "E") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_3") + (setq _PREFIX "S") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_4") + (setq _PREFIX "IPB") + (setq ANZ_CHARACT 2) + ) + ((= m_PREFIX "PREFIX_5") + (setq _PREFIX "PB") + (setq ANZ_CHARACT 1) + ) + ((= m_PREFIX "PREFIX_6") + (setq _PREFIX "PRS") + (setq ANZ_CHARACT 2) + ) + ((= m_PREFIX "PREFIX_7") + (setq _PREFIX "CB") + (setq ANZ_CHARACT 1) + ) + ((= m_PREFIX "PREFIX_8") + (setq _PREFIX "I") + (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))) + + ;<<>> + (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" "EINGANG" "_c" "6" "" "") + + ;<<< 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 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_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" P13 P10 P11 P14 P13 "") + (setq AUSWAHL-SATZ (ssget "_L")) + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + + ;<<<< Zusatztext >>>>>>> + (if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8")) + (progn + (setq x_length (+ 1170 (* (strlen m_Zusatz) 160))) + (setq P15 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext + (setq P16 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (- (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) + (command "_point" P12) + (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))) + (command "_point" P12) + (ssadd (entlast) AUSWAHL-SATZ) + (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" "EINGANG-HW" "_c" "7" "" "") + (command "_pline" P13 P14 P18 P17 P13 "") + (ssadd (entlast) AUSWAHL-SATZ) + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + ) + ) + ;---------------------------------------------------------------------------------------------------------------- + + (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) + ) + ) + + (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 "1" "") + ) + ) + + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + + (setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren + :<<<------------------------------------------------------------------- + + ;<<<< BAUGRUPPEN >>> + (if (= m_DWG_NAME "16") + (progn + (EINZELTEIL P0 "827334016" "HALTER F. LT DOPPEL-B ERKENNUNG KPL." "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") P13 "" "" (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_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) +) diff --git a/STEUERG/EINGAENGE_B._DC b/STEUERG/EINGAENGE_B._DC new file mode 100644 index 0000000..9bc6784 --- /dev/null +++ b/STEUERG/EINGAENGE_B._DC @@ -0,0 +1,116 @@ +/* Dialogbox fuer ILS2100 Komponaneten */ +/* Datum: 20.9.2006 AW */ + +EINGAENGE_B : dialog { + label = "STEUERUNG-EINGÄNGE"; + spacer; + : row { + : list_box { + label = "Eingänge"; + key = "DWG_NAME"; + mnemonic = "H"; + list = "BLIND\nRASTER 3[SI]\nRASTER 8[SI]\nBT-SYNC 3[SI]\nBT-SYNC 8[SI]\nSTAUMELDER LP[LT]\nINKR.GEBER-3[WEG]\nINKR.GEBER-8[WEG]\nPIN-SYNC[LT]\nVERL.R8-R[SI]\nVERL.R8-L[SI]\nVERL.RG-8-R[SI]\nVERL.RG-8-L[SI]\nSENSOR F.LP[SI]\nBT-SCANN.\nIN-SEP.[SI]\nBT-BELADEN[SI]\nDOPP.B.ERK.+SPS"; + width = 30; + height = 10; + } + : image { + height = 10; + width = 40; + color = 7; + key = "anzeige"; + } + : list_box { + label = "Verwendung"; + key = "COMPONENT"; + mnemonic = "H"; + list = "SEP1_2Y+1B\nSEP1_1Y+1B\nSEP2_2Y+1B\nSEP2_1Y+1B\nSW_2Y+1B\nSW_2Y+3B\nMOT_1M+1B\nINPUT-1B\nNO-ID"; + width = 30; + height = 10; + } + } + : row { + :column { + : edit_box { + label = "Input:"; + allow_accept = true; + key = "INPUT"; + value = 1; + } + : edit_box { + label = "ID:"; + allow_accept = true; + key = "IDENT"; + value = 1000; + } + : edit_box { + label = "Bezeichnung:"; + allow_accept = true; + key = "BEZEICHNUNG"; + value = xxxxxxxxx; + } + : edit_box { + label = "Kennzeichnung:"; + allow_accept = true; + key = "KENNZEICHNUNG"; + } + :edit_box { + label="Skalierungsfaktor"; + key="FAKT"; + value = 1; + mnemonic="F"; + } + :edit_box { + label="ZUSATZTEXT"; + key="ZUSATZ"; + } + : toggle { + label = "Bezeichnung=Artikel-Bezeichnung"; + mnemonic = "I"; + key = "IO-BEZ"; + } + : toggle { + label = "Bezeichnung auch als Text RECHTS"; + mnemonic = "I"; + key = "IO-BEZ-RECHTS"; + } + } + : boxed_radio_column { + label = "PREFIX"; + key = "PREFIX"; + : radio_button { + label = "B"; + key = "PREFIX_1"; + } + : radio_button { + label = "E"; + key = "PREFIX_2"; + } + : radio_button { + label = "S"; + key = "PREFIX_3"; + } + : radio_button { + label = "IPB"; + key = "PREFIX_4"; + } + : radio_button { + label = "PB"; + key = "PREFIX_5"; + } + : radio_button { + label = "PRS"; + key = "PREFIX_6"; + } + : radio_button { + label = "CB"; + key = "PREFIX_7"; + } + : radio_button { + label = "I"; + key = "PREFIX_8"; + } + } + } + spacer; + ok_cancel; +} diff --git a/STEUERG/EINGAENGE_B._LS b/STEUERG/EINGAENGE_B._LS new file mode 100644 index 0000000..1b2888a --- /dev/null +++ b/STEUERG/EINGAENGE_B._LS @@ -0,0 +1,510 @@ +;------------------------------------------------------------------------; +; EINGAENGE_B ; +;------------------------------------------------------------------------; +; 02.02.2007 / 22.09.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 "KENNZEICHNUNG" m_KENNZEICHNUNG) + (set_tile "FAKT" m_FAKT) + (set_tile "ZUSATZ" m_ZUSATZ) + (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 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 "ils2100(i01)") + ) + ((= m_DWG_NAME "2") + (slide_image 0 0 breite hoehe "ils2100(i02)") + ) + ((= m_DWG_NAME "3") + (slide_image 0 0 breite hoehe "ils2100(i03)") + ) + ((= m_DWG_NAME "4") + (slide_image 0 0 breite hoehe "ils2100(i04)") + ) + ((= m_DWG_NAME "5") + (slide_image 0 0 breite hoehe "ils2100(i05)") + ) + ((= m_DWG_NAME "6") + (slide_image 0 0 breite hoehe "ils2100(i06)") + ) + ((= m_DWG_NAME "7") + (slide_image 0 0 breite hoehe "ils2100(i07)") + ) + ((= m_DWG_NAME "8") + (slide_image 0 0 breite hoehe "ils2100(i08)") + ) + ((= m_DWG_NAME "9") + (slide_image 0 0 breite hoehe "ils2100(i09)") + ) + ((= m_DWG_NAME "10") + (slide_image 0 0 breite hoehe "ils2100(i10)") + ) + ((= m_DWG_NAME "11") + (slide_image 0 0 breite hoehe "ils2100(i11)") + ) + ((= m_DWG_NAME "12") + (slide_image 0 0 breite hoehe "ils2100(i12)") + ) + ((= m_DWG_NAME "13") + (slide_image 0 0 breite hoehe "ils2100(i13)") + ) + ((= m_DWG_NAME "14") + (slide_image 0 0 breite hoehe "ils2100(i14)") + ) + ((= m_DWG_NAME "15") + (slide_image 0 0 breite hoehe "ils2100(i15)") + ) + ((= m_DWG_NAME "16") + (slide_image 0 0 breite hoehe "ils2100(i16)") + ) + ((= m_DWG_NAME "17") + (slide_image 0 0 breite hoehe "ils2100(i17)") + ) + ((= m_DWG_NAME "18") + (slide_image 0 0 breite hoehe "ils2100(i18)") + ) + ) ; 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_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_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_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 "SW_2Y+1B") + ) + ((= m_COMPONENT "5") + (setq VERWENDUNG "SW_2Y+3B") + ) + ((= m_COMPONENT "6") + (setq VERWENDUNG "MOT_1M+1B") + ) + ((= m_COMPONENT "7") + (setq VERWENDUNG "INPUT-1B") + ) + ((= m_COMPONENT "8") + (setq VERWENDUNG m_ZUSATZ) + (setq m_IDENT "9999") + ) + ) ; 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 "829426303") ;SENSOR INDUKTIV M18/12 KPL.-RASTERSENSOR FÜR KREISEL 300 + (setq BEZEICHNUNG "RASTER 300[SI] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "RS") + (setq BEZ2 "300") + ) + ((= m_DWG_NAME "2") + (setq BL_NAME "720002003") ;SENSOR INDUKTIV M18/12 ET-RASTERSENSOR FÜR KREISEL 800 -> Bohrung bereits vorhanden + (setq BEZEICHNUNG "RASTER 800[SI] ET") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "RS") + (setq BEZ2 "800") + ) + ((= m_DWG_NAME "3") + (setq BL_NAME "829422025") ;SENSOR INDUKTIV M18/12 KPL.-BT SYNC 300 (BT Sync im Rad) + (setq BEZEICHNUNG "BT-SYNC 300[SI] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SI") + (setq BEZ2 "SYNC") + ) + ((= m_DWG_NAME "4") + (setq BL_NAME "829434304") ;SENSOR INDUKTIV M18/12 KPL.-BT SYNC 800 (BT Sync im Rad) + (setq BEZEICHNUNG "BT-SYNC 800[SI] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SI") + (setq BEZ2 "SYNC") + ) + ((= m_DWG_NAME "5") + (setq BL_NAME "829434300") ; LICHTTASTER WT 14 KPL.-STAUABFRAGE (setq BEZEICHNUNG "STAUABFRAGE[LT]") + (setq BEZEICHNUNG "STAUABFRAGE[LT] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "LT") + (setq BEZ2 "STAU") + ) + ((= m_DWG_NAME "6") + (setq BL_NAME "829434308") ; INKREMENTALGEBER KPL. 300-ER KREISEL + (setq BEZEICHNUNG "DREHGEBER-300 KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "DG") + (setq BEZ2 "300") + ) + ((= m_DWG_NAME "7") + (setq BL_NAME "829434307") ; INKREMENTALGEBER KPL. 800-ER KREISEL + (setq BEZEICHNUNG "DREHGEBER-800 KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "DG") + (setq BEZ2 "800") + ) + ((= m_DWG_NAME "8") + (setq BL_NAME "829434301") ; LASERLICHTTASTER WT12-PIN SYNCHRONISATION + (setq BEZEICHNUNG "PIN SYNC[LT] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "LT") + (setq BEZ2 "PIN") + ) + ((= m_DWG_NAME "9") + (setq BL_NAME "827422001") + (setq BEZEICHNUNG "WEICHE VERL.R800 RECHTS[SI] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SI") + (setq BEZ2 "VERL") + ) + ((= m_DWG_NAME "10") + (setq BL_NAME "827422002") + (setq BEZEICHNUNG "WEICHE VERL.R800 LINKS[SI] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SI") + (setq BEZ2 "VERL") + ) + ((= m_DWG_NAME "11") + (setq BL_NAME "827422003") + (setq BEZEICHNUNG "WEICHE VERL.RG-800 RECHTS[SI] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SI") + (setq BEZ2 "VERL") + ) + ((= m_DWG_NAME "12") + (setq BL_NAME "827422004") + (setq BEZEICHNUNG "WEICHE VERL.RG-800 LINKS[SI] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SI") + (setq BEZ2 "VERL") + ) + ((= m_DWG_NAME "13") + (setq BL_NAME "827422026") + (setq BEZEICHNUNG "BT SENSOR F.LP[SI] KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SI") + (setq BEZ2 "VERL") + ) + ((= m_DWG_NAME "14") + (setq BL_NAME "829434003") + (setq BEZEICHNUNG "BT SCANNER IM SEPARATOR KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "BT") + (setq BEZ2 "SCAN") + ) + ((= m_DWG_NAME "15") + (setq BL_NAME "720002003") + (setq BEZEICHNUNG "IN-SENSOR SEPARATOR[SI] ET") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SI") + (setq BEZ2 "INSP") + ) + ((= m_DWG_NAME "16") + (setq BL_NAME "720002004") + (setq BEZEICHNUNG "BT BELADEN M30[SI] ET") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "BT") + (setq BEZ2 "BELA") + ) + ((= m_DWG_NAME "17") + (setq BL_NAME "829434302") + (setq BEZEICHNUNG "SPS F.DOPPEL BUEGEL ERKENNUNG") + (setq BEZEICHNUNG_BG "LICHTSCHRANKE F. DOPPEL-B ERKENNUNG KPL.") + (setq BEZ1 "DB") + (setq BEZ2 "DETC") + ) + ((= m_DWG_NAME "18") + (setq BL_NAME "721000020") + (setq BEZEICHNUNG "LICHTTASTER IN SEPARATOR") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "LT") + (setq BEZ2 "INSP") + ) + ) ; end cond + + (cond + ((= m_PREFIX "PREFIX_1") + (setq _PREFIX "B") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_2") + (setq _PREFIX "E") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_3") + (setq _PREFIX "S") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_4") + (setq _PREFIX "IPB") + (setq ANZ_CHARACT 2) + ) + ((= m_PREFIX "PREFIX_5") + (setq _PREFIX "PB") + (setq ANZ_CHARACT 1) + ) + ((= m_PREFIX "PREFIX_6") + (setq _PREFIX "PRS") + (setq ANZ_CHARACT 2) + ) + ((= m_PREFIX "PREFIX_7") + (setq _PREFIX "CB") + (setq ANZ_CHARACT 1) + ) + ((= m_PREFIX "PREFIX_8") + (setq _PREFIX "I") + (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 + + (setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) + (setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (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 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 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12))) + (setq P7 (list (+ (car p12) (* FAKTO 1200)) (+ (cadr p12) (* FAKTO 100)) (caddr p12))) + + (command "_layer" "_m" "EINGANG" "_c" "6" "" "") + + ;<<< 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 m_KENNZEICHNUNG) + (ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG) + ) + + (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 (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8")) + (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 + + (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) + ) + ) + + (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 "1" "") + ) + ) + + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + + (setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren + :<<<------------------------------------------------------------------- + + ;<<<< BAUGRUPPEN >>> + (if (= m_DWG_NAME "16") + (progn + (EINZELTEIL P0 "827334016" "HALTER F. LT DOPPEL-B ERKENNUNG KPL." "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_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_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) +) diff --git a/STEUERG/EINGAENGE_B_DCL_OLD b/STEUERG/EINGAENGE_B_DCL_OLD new file mode 100644 index 0000000..b794aed --- /dev/null +++ b/STEUERG/EINGAENGE_B_DCL_OLD @@ -0,0 +1,81 @@ +/* Dialogbox fuer ILS2100 Komponaneten */ +/* Datum: 20.9.2006 AW */ + +EINGAENGE_B : dialog { + label = "STEUERUNG-EINGÄNGE"; + spacer; + : row { + : list_box { + label = "Eingänge"; + key = "DWG_NAME"; + mnemonic = "H"; + list = "BLIND\nIND.8mm\nIND.12mm\nIND.16mm\nKAP.AP60\nKAP.AP110\nKAPAZITIV\nSK-KURZ\nSK-LANG\nROLLENSCHALTER\nFEDESCHALTER\nENCODER\nLICHTASTER\nLICHTTASTER ROLLENFRAGE\nLICHTTASTER TRAVERSENABFRAGE\nREFLEXIONS-LICHTSCHRANKE\nEINWEG-LICHTSCHRANKE\nSICHERHEITSLEISTE"; + width = 30; + height = 10; + } + : image { + height = 10; + width = 40; + color = 7; + key = "anzeige"; + } + } + : row { + :column { + : edit_box { + label = "Input:"; + allow_accept = true; + key = "INPUT"; + value = 1; + } + : edit_box { + label = "ID:"; + allow_accept = true; + key = "IDENT"; + value = 1000; + } + : list_box { + label = "Verwendung"; + key = "COMPONENT"; + mnemonic = "H"; + list = "SEP1_2Y+1B\nSEP1_1Y+1B\nSEP2_2Y+1B\nSEP2_1Y+1B\nSCAN_1A\nSW_2Y\nSW_2Y+1B\nSW_2Y+3B\nMOT_1M+1B\nMOT_1M\nINPUT-1B\nOUTPUT-1Y\nNO-ID"; + width = 30; + height = 15; + } + : edit_box { + label = "Bezeichnung:"; + allow_accept = true; + key = "BEZEICHNUNG"; + value = xxxxxxxxx; + } + :edit_box { + label="Skalierungsfaktor"; + key="FAKT"; + value = 1; + mnemonic="F"; + } + } + :edit_box { + label="ZUSATZTEXT"; + key="ZUSATZ"; + } + : boxed_radio_column { + label = "PREFIX"; + key = "PREFIX"; + : radio_button { + label = "B"; + key = "PREFIX_1"; + } + : radio_button { + label = "E"; + key = "PREFIX_2"; + } + : radio_button { + label = "S"; + key = "PREFIX_3"; + } + } + } + spacer; + ok_cancel; +} diff --git a/STEUERG/EINGAENGE_B_LSP_OLD b/STEUERG/EINGAENGE_B_LSP_OLD new file mode 100644 index 0000000..c60510c --- /dev/null +++ b/STEUERG/EINGAENGE_B_LSP_OLD @@ -0,0 +1,338 @@ +;------------------------------------------------------------------------; +; 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 -> Rckgabe: 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))) + + ;<<>> + (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) +) diff --git a/STEUERG/EINGAENGE_F.DCL b/STEUERG/EINGAENGE_F.DCL new file mode 100644 index 0000000..cfcc077 --- /dev/null +++ b/STEUERG/EINGAENGE_F.DCL @@ -0,0 +1,140 @@ +/* Dialogbox fuer Eingänge Spinnerei */ +/* Datum: 30.9.2007 18.06.2011 AW */ + +EINGAENGE_F : dialog { + label = "STEUERUNG-EINGÄNGE-SPINNEREI"; + spacer; + : row { + : list_box { + label = "Eingänge"; + key = "DWG_NAME"; + mnemonic = "H"; + list = "BLIND\nSENSOR-KAPAZITIV an AP110\nSENSOR-KAPAZITIV an AP60\nABF.SPULENPOSITION\nABF.SPULE VOLL-LEER\nABF.SPULENFARBE"; + width = 30; + height = 10; + } + : image { + height = 10; + width = 40; + color = 7; + key = "anzeige"; + } + : list_box { + label = "Verwendung"; + key = "COMPONENT"; + mnemonic = "H"; + list = "NO-ID"; + width = 30; + height = 10; + } + } + : row { + :column { + : edit_box { + label = "Input:"; + allow_accept = true; + key = "INPUT"; + value = 1; + } + : edit_box { + label = "ID:"; + allow_accept = true; + key = "IDENT"; + value = 1000; + } + : edit_box { + label = "Bezeichnung:"; + allow_accept = true; + key = "BEZEICHNUNG"; + value = xxxxxxxxx; + } + : edit_box { + label = "Kennzeichnung:"; + allow_accept = true; + key = "KENNZEICHNUNG"; + } + : edit_box { + label="Skalierungsfaktor"; + key="FAKT"; + value = 1; + mnemonic="F"; + } + : edit_box { + label="ZUSATZTEXT"; + key="ZUSATZ"; + } + : edit_box { + label="SPS-Prefix"; + key="SPS-NR"; + } + : toggle { + label = "Bezeichnung=Artikel-Bezeichnung"; + mnemonic = "I"; + key = "IO-BEZ"; + } + : toggle { + label = "Bezeichnung auch als Text RECHTS"; + mnemonic = "I"; + key = "IO-BEZ-RECHTS"; + } + } + : boxed_radio_column { + label = "PREFIX"; + key = "PREFIX"; + : radio_button { + label = "B"; + key = "PREFIX_1"; + } + : radio_button { + label = "E"; + key = "PREFIX_2"; + } + : radio_button { + label = "S"; + key = "PREFIX_3"; + } + : radio_button { + label = "IPB"; + key = "PREFIX_4"; + } + : radio_button { + label = "PB"; + key = "PREFIX_5"; + } + : radio_button { + label = "PRS"; + key = "PREFIX_6"; + } + : radio_button { + label = "CB"; + key = "PREFIX_7"; + } + : radio_button { + label = "I"; + key = "PREFIX_8"; + } + } + : boxed_radio_column { + label = "LÄNGE"; + key = "LAENGE"; + : radio_button { + label = "2 m"; + key = "LAENGE_1"; + } + : radio_button { + label = "3 m"; + key = "LAENGE_2"; + } + : radio_button { + label = "5 m"; + key = "LAENGE_3"; + } + : radio_button { + label = "10 m"; + key = "LAENGE_4"; + } + } + } + spacer; + ok_cancel; +} diff --git a/STEUERG/EINGAENGE_F.LSP b/STEUERG/EINGAENGE_F.LSP new file mode 100644 index 0000000..201b02f --- /dev/null +++ b/STEUERG/EINGAENGE_F.LSP @@ -0,0 +1,641 @@ +;------------------------------------------------------------------------; +; EINGAENGE_S ; +;------------------------------------------------------------------------; +; 22.09.2007 18.06.2011 ; +;------------------------------------------------------------------------; +(defun Dbox (/ Dat) + (setq Dat (load_dialog (strcat lw "/acadsst/steuerg/EINGAENGE_F.DCL"))) + (if (not (new_dialog "EINGAENGE_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) + + (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(sk110_k)") + ) + ((= m_DWG_NAME "2") + (slide_image 0 0 breite hoehe "steuerg(sk60_k)") + ) + ((= m_DWG_NAME "3") + (slide_image 0 0 breite hoehe "steuerg(sp_pos)") + ) + ((= m_DWG_NAME "4") + (slide_image 0 0 breite hoehe "steuerg(sp_vl)") + ) + ((= m_DWG_NAME "5") + (slide_image 0 0 breite hoehe "steuerg(sp_farbe)") + ) + ) ; 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")) + (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_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") + (if (> (strlen m_ZUSATZ) 0 ) + (progn + (setq VERWENDUNG m_ZUSATZ) + (setq m_IDENT "9999") + ) + (progn + (setq VERWENDUNG "NO-ID") + (setq m_IDENT "9999") + ) + ) + ) + ) ; end cond +; (alert verwendung) +) + +(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") ; Sensor Kapazitiv mit Halter für AP110 + Sensor + (setq BL_NAME "826904049") + (setq BEZEICHNUNG "SENSOR KAP.MIT HALTER F.AP110") + (setq BEZEICHNUNG_BG "SENSOR KAP.MIT HALTER F.AP110") + (setq BEZ1 "SK110") + ) + ((= m_DWG_NAME "2") ; Sensor Kapazitiv mit Halter für AP60 + Sensor + (setq BL_NAME "826904050") + (setq BEZEICHNUNG "SENSOR KAP.MIT HALTER F.AP60") + (setq BEZEICHNUNG_BG "SENSOR KAP.MIT HALTER F.AP60") + (setq BEZ1 "SK60") + ) + ((= m_DWG_NAME "3") ; Abfrage Spulenposition + (setq BL_NAME "720002003") + (setq BEZEICHNUNG "SENSOR INDU. M18/12MM 150MM KABEL MIT STECKER M12") + (setq BEZEICHNUNG_BG "ABFRAGE SPULENPOSITION") + (setq BEZ1 "POSI") + ) + ((= m_DWG_NAME "4") ; Abfrage Spule VOLL/LEER + (setq BL_NAME "721001034") + (setq BEZEICHNUNG "LICHTTASTER STECKBAR VTE18-3F2740; TASTW:200 MM") + (setq BEZEICHNUNG_BG "ABFRAGE SPULE VOLL/LEER") + (setq BEZ1 "V-L") + ) + ((= m_DWG_NAME "5") ; Abfrage SpulenFARBE + (setq BL_NAME "721002003") + (setq BEZEICHNUNG "KEYENCE- FARBSENSOR (FASEROPTIK)") + (setq BEZEICHNUNG_BG "ABFRAGE SPULENFARBE") + (setq BEZ1 "FARBE") + ) + ) ; end cond + + (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_PREFIX "PREFIX_1") + (setq _PREFIX "B") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_2") + (setq _PREFIX "E") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_3") + (setq _PREFIX "S") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_4") + (setq _PREFIX "IPB") + (setq ANZ_CHARACT 2) + ) + ((= m_PREFIX "PREFIX_5") + (setq _PREFIX "PB") + (setq ANZ_CHARACT 1) + ) + ((= m_PREFIX "PREFIX_6") + (setq _PREFIX "PRS") + (setq ANZ_CHARACT 2) + ) + ((= m_PREFIX "PREFIX_7") + (setq _PREFIX "CB") + (setq ANZ_CHARACT 1) + ) + ((= m_PREFIX "PREFIX_8") + (setq _PREFIX "I") + (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))) + + ;<<>> + (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" "EINGANG" "_c" "6" "" "") + + ;<<< 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 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_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" P13 P10 P11 P14 P13 "") + (setq AUSWAHL-SATZ (ssget "_L")) + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + + ;<<<< Zusatztext >>>>>>> + (if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8")) + (progn + (setq x_length (+ 1170 (* (strlen m_Zusatz) 160))) + (setq P15 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext + (setq P16 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (- (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) + (command "_point" P12) + (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))) + (command "_point" P12) + (ssadd (entlast) AUSWAHL-SATZ) + (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" "EINGANG-HW" "_c" "7" "" "") + (command "_pline" P13 P14 P18 P17 P13 "") + (ssadd (entlast) AUSWAHL-SATZ) + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + ) + ) + ;---------------------------------------------------------------------------------------------------------------- + + + ;<<<<<<<<< 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) + ) + ) + + (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 "1" "") + ) + ) + + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + + (setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren + :<<<------------------------------------------------------------------- + + ;<<<< BAUGRUPPEN >>> + (cond + ((= m_DWG_NAME "1") ; Sensor Kapazitiv mit Halter für AP110 + Sensor + ASI-Kabel ... + (cond + ((= m_LAENGE "LAENGE_1") + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1") + (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 P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1") + (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 P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1") + (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 P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1") + (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 "2") ; Sensor Kapazitiv mit Halter für AP110 + Sensor + ASI-Kabel ... + (cond + ((= m_LAENGE "LAENGE_1") + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1") + (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 P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1") + (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 P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1") + (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 P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1") + (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") ; Abfrage Spulenposition + (cond + ((= m_LAENGE "LAENGE_1") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1") + (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 "4") ; Abfrage Spule VOLL/LEER mit ASI Kabel + (cond + ((= m_LAENGE "LAENGE_1") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1") + (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 "5") ; Abfrage Spulenfarbe + (cond + ((= m_LAENGE "LAENGE_1") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< Sensorkopf + (EINZELTEIL P0 "721002004" "KEYENCE- RGB-SENSORKOPF" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+SENSORKOPF")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< Sensorkopf + (EINZELTEIL P0 "721002004" "KEYENCE- RGB-SENSORKOPF" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+SENSORKOPF")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< Sensorkopf + (EINZELTEIL P0 "721002004" "KEYENCE- RGB-SENSORKOPF" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+SENSORKOPF")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< Sensorkopf + (EINZELTEIL P0 "721002004" "KEYENCE- RGB-SENSORKOPF" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+SENSORKOPF")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1") + (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) + ) + ) + ) + ) ; end cond + + (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:EINGAENGE_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 "**** EINGÄ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 + (Dbox) + (prompt "") + (datain) + (geometrie) + (setvar "osmode" ALTFANG) +) diff --git a/STEUERG/EINGAENGE_F._LS b/STEUERG/EINGAENGE_F._LS new file mode 100644 index 0000000..d9ad1f3 --- /dev/null +++ b/STEUERG/EINGAENGE_F._LS @@ -0,0 +1,619 @@ +;------------------------------------------------------------------------; +; EINGAENGE_S ; +;------------------------------------------------------------------------; +; 22.09.2007 ; +;------------------------------------------------------------------------; +(defun Dbox (/ Dat) + (setq Dat (load_dialog (strcat lw "/acadsst/steuerg/EINGAENGE_F.DCL"))) + (if (not (new_dialog "EINGAENGE_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 "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) + + (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(sk110_k)") + ) + ((= m_DWG_NAME "2") + (slide_image 0 0 breite hoehe "steuerg(sk60_k)") + ) + ((= m_DWG_NAME "3") + (slide_image 0 0 breite hoehe "steuerg(sp_pos)") + ) + ((= m_DWG_NAME "4") + (slide_image 0 0 breite hoehe "steuerg(sp_vl)") + ) + ((= m_DWG_NAME "5") + (slide_image 0 0 breite hoehe "steuerg(sp_farbe)") + ) + ) ; 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_IO-BEZ (get_tile "IO-BEZ")) + (setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS")) + (setq m_LAENGE (get_tile "LAENGE")) + (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_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") + (if (> (strlen m_ZUSATZ) 0 ) + (progn + (setq VERWENDUNG m_ZUSATZ) + (setq m_IDENT "9999") + ) + (progn + (setq VERWENDUNG "NO-ID") + (setq m_IDENT "9999") + ) + ) + ) + ) ; end cond +; (alert verwendung) +) + +(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") ; Sensor Kapazitiv mit Halter für AP110 + Sensor + (setq BL_NAME "826904049") + (setq BEZEICHNUNG "SENSOR KAP.MIT HALTER F.AP110") + (setq BEZEICHNUNG_BG "SENSOR KAP.MIT HALTER F.AP110") + (setq BEZ1 "SK110") + ) + ((= m_DWG_NAME "2") ; Sensor Kapazitiv mit Halter für AP60 + Sensor + (setq BL_NAME "826904050") + (setq BEZEICHNUNG "SENSOR KAP.MIT HALTER F.AP60") + (setq BEZEICHNUNG_BG "SENSOR KAP.MIT HALTER F.AP60") + (setq BEZ1 "SK60") + ) + ((= m_DWG_NAME "3") ; Abfrage Spulenposition + (setq BL_NAME "720002003") + (setq BEZEICHNUNG "SENSOR INDU. M18/12MM 150MM KABEL MIT STECKER M12") + (setq BEZEICHNUNG_BG "ABFRAGE SPULENPOSITION") + (setq BEZ1 "POSI") + ) + ((= m_DWG_NAME "4") ; Abfrage Spule VOLL/LEER + (setq BL_NAME "721001034") + (setq BEZEICHNUNG "LICHTTASTER STECKBAR VTE18-3F2740; TASTW:200 MM") + (setq BEZEICHNUNG_BG "ABFRAGE SPULE VOLL/LEER") + (setq BEZ1 "V-L") + ) + ((= m_DWG_NAME "5") ; Abfrage SpulenFARBE + (setq BL_NAME "721002003") + (setq BEZEICHNUNG "KEYENCE- FARBSENSOR (FASEROPTIK)") + (setq BEZEICHNUNG_BG "ABFRAGE SPULENFARBE") + (setq BEZ1 "FARBE") + ) + ) ; end cond + + (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_PREFIX "PREFIX_1") + (setq _PREFIX "B") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_2") + (setq _PREFIX "E") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_3") + (setq _PREFIX "S") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_4") + (setq _PREFIX "IPB") + (setq ANZ_CHARACT 2) + ) + ((= m_PREFIX "PREFIX_5") + (setq _PREFIX "PB") + (setq ANZ_CHARACT 1) + ) + ((= m_PREFIX "PREFIX_6") + (setq _PREFIX "PRS") + (setq ANZ_CHARACT 2) + ) + ((= m_PREFIX "PREFIX_7") + (setq _PREFIX "CB") + (setq ANZ_CHARACT 1) + ) + ((= m_PREFIX "PREFIX_8") + (setq _PREFIX "I") + (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 + + (setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) + (setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (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 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 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12))) + (setq P7 (list (+ (car p12) (* FAKTO 1200)) (+ (cadr p12) (* FAKTO 100)) (caddr p12))) + + (command "_layer" "_m" "EINGANG" "_c" "6" "" "") + + ;<<< 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 m_KENNZEICHNUNG) + (ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG) + ) + + (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 "_w" "0" "0" 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 (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8")) +; (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 + +; (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) + ) + ) + + (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 "1" "") + ) + ) + + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + + (setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren + :<<<------------------------------------------------------------------- + + ;<<<< BAUGRUPPEN >>> + (cond + ((= m_DWG_NAME "1") ; Sensor Kapazitiv mit Halter für AP110 + Sensor + ASI-Kabel ... + (cond + ((= m_LAENGE "LAENGE_1") + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1") + (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 P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1") + (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 P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1") + (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 P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1") + (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 "2") ; Sensor Kapazitiv mit Halter für AP110 + Sensor + ASI-Kabel ... + (cond + ((= m_LAENGE "LAENGE_1") + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1") + (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 P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1") + (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 P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1") + (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 P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1") + (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") ; Abfrage Spulenposition + (cond + ((= m_LAENGE "LAENGE_1") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1") + (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 "4") ; Abfrage Spule VOLL/LEER mit ASI Kabel + (cond + ((= m_LAENGE "LAENGE_1") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1") + (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 "5") ; Abfrage Spulenfarbe + (cond + ((= m_LAENGE "LAENGE_1") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< Sensorkopf + (EINZELTEIL P0 "721002004" "KEYENCE- RGB-SENSORKOPF" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+SENSORKOPF")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< Sensorkopf + (EINZELTEIL P0 "721002004" "KEYENCE- RGB-SENSORKOPF" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+SENSORKOPF")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< Sensorkopf + (EINZELTEIL P0 "721002004" "KEYENCE- RGB-SENSORKOPF" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+SENSORKOPF")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1") + (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") + ;<<< Halter + (EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER")) + ;<<< Sensorkopf + (EINZELTEIL P0 "721002004" "KEYENCE- RGB-SENSORKOPF" "1") + (setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+SENSORKOPF")) + ;<<< 2m ASI Kabel + (EINZELTEIL P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1") + (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) + ) + ) + ) + ) ; end cond + + (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_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 "**** EINGÄ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_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 + (Dbox) + (prompt "") + (datain) + (geometrie) + (setvar "osmode" ALTFANG) +) diff --git a/STEUERG/EINGAENGE_S.DCL b/STEUERG/EINGAENGE_S.DCL new file mode 100644 index 0000000..c54a43f --- /dev/null +++ b/STEUERG/EINGAENGE_S.DCL @@ -0,0 +1,129 @@ +/* Dialogbox fuer Eingänge Sonstige */ +/* Datum: 22.9.2007 17.06.2011 AW */ + +EINGAENGE_S : dialog { +label = "STEUERUNG-EINGÄNGE"; +spacer; +: row { + : list_box { + label = "Eingänge"; + key = "DWG_NAME"; + mnemonic = "H"; + list = "BLIND\nSK700 AP\nSK700 ST\nSK200 AP\nSK200 ST\nSK200 KF\nUH F.ST\nUH F.AP\nRS KF\nRS AFS/ST\nRS AP\nSS-L 450\nSS-R 450\nHS WS+DS"; + width = 30; + height = 10; + } + : image { + height = 10; + width = 40; + color = 7; + key = "anzeige"; + } + : list_box { + label = "Verwendung"; + key = "COMPONENT"; + mnemonic = "H"; + list = "NO-ID"; + width = 30; + height = 10; + } + } + +: row { + :column { + : edit_box { + label = "Input:"; + allow_accept = true; + key = "INPUT"; + value = 1; + } + : edit_box { + label = "ID:"; + allow_accept = true; + key = "IDENT"; + value = 1000; + } + : edit_box { + label = "Bezeichnung:"; + allow_accept = true; + key = "BEZEICHNUNG"; + value = xxxxxxxxx; + } + : edit_box { + label = "Kennzeichnung:"; + allow_accept = true; + key = "KENNZEICHNUNG"; + } + : edit_box { + label="Skalierungsfaktor"; + key="FAKT"; + value = 1; + mnemonic="F"; + } + : edit_box { + label="Zusatztext"; + key="ZUSATZ"; + } + : edit_box { + label="SPS-Prefix"; + key="SPS-NR"; + } + : toggle { + label = "Bezeichnung=Artikel-Bezeichnung"; + mnemonic = "I"; + key = "IO-BEZ"; + } + : toggle { + label = "Bezeichnung auch als Text RECHTS"; + mnemonic = "I"; + key = "IO-BEZ-RECHTS"; + } + } + : boxed_radio_column { + label = "BMK"; + key = "PREFIX"; + : radio_button { + label = "B"; + key = "PREFIX_1"; + } + : radio_button { + label = "E"; + key = "PREFIX_2"; + } + : radio_button { + label = "S"; + key = "PREFIX_3"; + } + : radio_button { + label = "IPB"; + key = "PREFIX_4"; + } + : radio_button { + label = "PB"; + key = "PREFIX_5"; + } + : radio_button { + label = "PRS"; + key = "PREFIX_6"; + } + : radio_button { + label = "CB"; + key = "PREFIX_7"; + } + : radio_button { + label = "I"; + key = "PREFIX_8"; + } + : radio_button { + label = "C"; + key = "PREFIX_9"; + } + : radio_button { + label = "P"; + key = "PREFIX_10"; + } + } + } + spacer; + ok_cancel; +} diff --git a/STEUERG/EINGAENGE_S.LSP b/STEUERG/EINGAENGE_S.LSP new file mode 100644 index 0000000..4c3ad50 --- /dev/null +++ b/STEUERG/EINGAENGE_S.LSP @@ -0,0 +1,483 @@ +;------------------------------------------------------------------------; +; EINGAENGE_S ; +;------------------------------------------------------------------------; +; 22.09.2007 16.06.2011 ; +;------------------------------------------------------------------------; +(defun Dbox (/ Dat) + (setq Dat (load_dialog (strcat lw "/acadsst/steuerg/EINGAENGE_S.DCL"))) + (if (not (new_dialog "EINGAENGE_S" 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,E,PB,PRS,CB,I + (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 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(27072013)") + ) + ((= m_DWG_NAME "2") + (slide_image 0 0 breite hoehe "steuerg(27072014)") + ) + ((= m_DWG_NAME "3") + (slide_image 0 0 breite hoehe "steuerg(27072015)") + ) + ((= m_DWG_NAME "4") + (slide_image 0 0 breite hoehe "steuerg(27072016)") + ) + ((= m_DWG_NAME "5") + (slide_image 0 0 breite hoehe "steuerg(27074011)") + ) + ((= m_DWG_NAME "6") + (slide_image 0 0 breite hoehe "steuerg(27074007)") + ) + ((= m_DWG_NAME "7") + (slide_image 0 0 breite hoehe "steuerg(27074008)") + ) + ((= m_DWG_NAME "8") + (slide_image 0 0 breite hoehe "steuerg(22035037)") + ) + ((= m_DWG_NAME "9") + (slide_image 0 0 breite hoehe "steuerg(22035100)") + ) + ((= m_DWG_NAME "10") + (slide_image 0 0 breite hoehe "steuerg(22035102)") + ) + ((= m_DWG_NAME "11") + (slide_image 0 0 breite hoehe "steuerg(24604011)") + ) + ((= m_DWG_NAME "12") + (slide_image 0 0 breite hoehe "steuerg(24604012)") + ) + ((= m_DWG_NAME "13") + (slide_image 0 0 breite hoehe "steuerg(03001017)") + ) + ) ; 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")) + (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_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 VERWENDUNG "NO-ID") + (setq m_IDENT "9999") + ) + ) ; end cond +; (alert verwendung) +) + +(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 "827072013") + (setq BEZEICHNUNG "STAUKLAPPE 700 AP KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SK") + (setq BEZ2 "700") + ) + ((= m_DWG_NAME "2") + (setq BL_NAME "827072014") + (setq BEZEICHNUNG "STAUKLAPPE 700 ST KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SK") + (setq BEZ2 "700") + ) + ((= m_DWG_NAME "3") + (setq BL_NAME "827072015") + (setq BEZEICHNUNG "STAUKLAPPE 200 AP KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SK") + (setq BEZ2 "200") + ) + ((= m_DWG_NAME "4") + (setq BL_NAME "827072016") + (setq BEZEICHNUNG "STAUKLAPPE 200 ST KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SK") + (setq BEZ2 "200") + ) + ((= m_DWG_NAME "5") + (setq BL_NAME "827074011") + (setq BEZEICHNUNG "STAUKLAPPE 200 KF KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SK") + (setq BEZ2 "200") + ) + ((= m_DWG_NAME "6") + (setq BL_NAME "827074007") + (setq BEZEICHNUNG "HALTER TRAVERSENABFRAGE ST OHNE SENSOR") + (setq BEZEICHNUNG_BG "HALTER TRAVERSENABFRAGE ST KPL.") + (setq BEZ1 "UH") + (setq BEZ2 "ST") + ) + ((= m_DWG_NAME "7") + (setq BL_NAME "827074008") + (setq BEZEICHNUNG "HALTER TRAVERSENABFRAGE AP OHNE SENSOR") + (setq BEZEICHNUNG_BG "HALTER TRAVERSENABFRAGE AP KPL.") + (setq BEZ1 "UH") + (setq BEZ2 "AP") + ) + ((= m_DWG_NAME "8") + (setq BL_NAME "822035037") + (setq BEZEICHNUNG "ROLLENSCHALTER KF KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "RS") + (setq BEZ2 "KF") + ) + ((= m_DWG_NAME "9") + (setq BL_NAME "822035100") + (setq BEZEICHNUNG "ROLLENSCHALTER AFS/ST KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "RF/ST") + (setq BEZ2 "AFS") + ) + ((= m_DWG_NAME "10") + (setq BL_NAME "822035102") + (setq BEZEICHNUNG "ROLLENSCHLATER AP KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "RS") + (setq BEZ2 "AP") + ) + ((= m_DWG_NAME "11") + (setq BL_NAME "824604011") + (setq BEZEICHNUNG "SCHWENKSCHIENE 450 LINKS KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SS") + (setq BEZ2 "LINK") + ) + ((= m_DWG_NAME "12") + (setq BL_NAME "824604012") + (setq BEZEICHNUNG "SCHWENKSCHIENE 450 LINKS KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SS") + (setq BEZ2 "RECH") + ) + ((= m_DWG_NAME "13") + (setq BL_NAME "701004005") + (setq BEZEICHNUNG "HILFSCHALTER WS/DS") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "HS") + (setq BEZ2 "WSDS") + ) + ) ; end cond + + (cond + ((= m_PREFIX "PREFIX_1") + (setq _PREFIX "B") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_2") + (setq _PREFIX "E") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_3") + (setq _PREFIX "S") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_4") + (setq _PREFIX "IPB") + (setq ANZ_CHARACT 2) + ) + ((= m_PREFIX "PREFIX_5") + (setq _PREFIX "PB") + (setq ANZ_CHARACT 1) + ) + ((= m_PREFIX "PREFIX_6") + (setq _PREFIX "PRS") + (setq ANZ_CHARACT 2) + ) + ((= m_PREFIX "PREFIX_7") + (setq _PREFIX "CB") + (setq ANZ_CHARACT 1) + ) + ((= m_PREFIX "PREFIX_8") + (setq _PREFIX "I") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_9") + (setq _PREFIX "C") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_10") + (setq _PREFIX "P") + (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))) + + ;<<>> + (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" "EINGANG" "_c" "6" "" "") + + ;<<< 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 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_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" P13 P10 P11 P14 P13 "") + (setq AUSWAHL-SATZ (ssget "_L")) + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + + ;<<<< Zusatztext >>>>>>> + (if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8")) + (progn + (setq x_length (+ 1170 (* (strlen m_Zusatz) 160))) + (setq P15 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext + (setq P16 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (- (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) + (command "_point" P12) + (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))) + (command "_point" P12) + (ssadd (entlast) AUSWAHL-SATZ) + (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" "EINGANG-HW" "_c" "7" "" "") + (command "_pline" P13 P14 P18 P17 P13 "") + (ssadd (entlast) AUSWAHL-SATZ) + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + ) + ) + ;---------------------------------------------------------------------------------------------------------------- + + + ;<<<<<<<<< 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) + ) + ) + + (if (= m_DWG_NAME "0") + (progn + (if (> (strlen m_SPS-NR) 0 ) + (mach-block-ohne-prop P17 "0" AUSWAHL-SATZ) + (mach-block-ohne-prop P13 "0" AUSWAHL-SATZ) + ) + ) + (progn + (if (> (strlen m_SPS-NR) 0 ) + (mach-block P17 "0" AUSWAHL-SATZ) + (mach-block P13 "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 "6") + (progn + (EINZELTEIL P0 "721000009" "REFLEXIONSLICHTTASTER" "1") + (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) + ) + ) + (if (= m_DWG_NAME "7") + (progn + (EINZELTEIL P0 "721000009" "REFLEXIONSLICHTTASTER" "1") + (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:EINGAENGE_S ( / 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 "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 "")) ; Zusatztext + (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) +) diff --git a/STEUERG/EINGAENGE_S._DC b/STEUERG/EINGAENGE_S._DC new file mode 100644 index 0000000..0697690 --- /dev/null +++ b/STEUERG/EINGAENGE_S._DC @@ -0,0 +1,129 @@ +/* Dialogbox fuer Eingänge Spinnerei/Stockwerksautomatisierung */ +/* Datum: 22.9.2007 AW */ + +EINGAENGE_S : dialog { +label = "STEUERUNG-EINGÄNGE"; +spacer; +: row { + : list_box { + label = "Eingänge"; + key = "DWG_NAME"; + mnemonic = "H"; + list = "BLIND\nSK700 AP\nSK700 ST\nSK200 AP\nSK200 ST\nSK200 KF\nUH F.ST\nUH F.AP\nRS KF\nRS AFS/ST\nRS AP\nSS-L 450\nSS-R 450\nHS WS+DS"; + width = 30; + height = 10; + } + : image { + height = 10; + width = 40; + color = 7; + key = "anzeige"; + } + : list_box { + label = "Verwendung"; + key = "COMPONENT"; + mnemonic = "H"; + list = "NO-ID"; + width = 30; + height = 10; + } + } + +: row { + :column { + : edit_box { + label = "Input:"; + allow_accept = true; + key = "INPUT"; + value = 1; + } + : edit_box { + label = "ID:"; + allow_accept = true; + key = "IDENT"; + value = 1000; + } + : edit_box { + label = "Bezeichnung:"; + allow_accept = true; + key = "BEZEICHNUNG"; + value = xxxxxxxxx; + } + : edit_box { + label = "Kennzeichnung:"; + allow_accept = true; + key = "KENNZEICHNUNG"; + } + : edit_box { + label="Skalierungsfaktor"; + key="FAKT"; + value = 1; + mnemonic="F"; + } + : edit_box { + label="Zusatztext"; + key="ZUSATZ"; + } + : edit_box { + label="SPS-Prefix"; + key="SPS-NR"; + } + : toggle { + label = "Bezeichnung=Artikel-Bezeichnung"; + mnemonic = "I"; + key = "IO-BEZ"; + } + : toggle { + label = "Bezeichnung auch als Text RECHTS"; + mnemonic = "I"; + key = "IO-BEZ-RECHTS"; + } + } + : boxed_radio_column { + label = "BMK"; + key = "PREFIX"; + : radio_button { + label = "B"; + key = "PREFIX_1"; + } + : radio_button { + label = "E"; + key = "PREFIX_2"; + } + : radio_button { + label = "S"; + key = "PREFIX_3"; + } + : radio_button { + label = "IPB"; + key = "PREFIX_4"; + } + : radio_button { + label = "PB"; + key = "PREFIX_5"; + } + : radio_button { + label = "PRS"; + key = "PREFIX_6"; + } + : radio_button { + label = "CB"; + key = "PREFIX_7"; + } + : radio_button { + label = "I"; + key = "PREFIX_8"; + } + : radio_button { + label = "C"; + key = "PREFIX_9"; + } + : radio_button { + label = "P"; + key = "PREFIX_10"; + } + } + } + spacer; + ok_cancel; +} diff --git a/STEUERG/EINGAENGE_S._LS b/STEUERG/EINGAENGE_S._LS new file mode 100644 index 0000000..b0a58a9 --- /dev/null +++ b/STEUERG/EINGAENGE_S._LS @@ -0,0 +1,472 @@ +;------------------------------------------------------------------------; +; EINGAENGE_S ; +;------------------------------------------------------------------------; +; 22.09.2007 16.06.2011 ; +;------------------------------------------------------------------------; +(defun Dbox (/ Dat) + (setq Dat (load_dialog (strcat lw "/acadsst/steuerg/EINGAENGE_S.DCL"))) + (if (not (new_dialog "EINGAENGE_S" 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,E,PB,PRS,CB,I + (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 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(27072013)") + ) + ((= m_DWG_NAME "2") + (slide_image 0 0 breite hoehe "steuerg(27072014)") + ) + ((= m_DWG_NAME "3") + (slide_image 0 0 breite hoehe "steuerg(27072015)") + ) + ((= m_DWG_NAME "4") + (slide_image 0 0 breite hoehe "steuerg(27072016)") + ) + ((= m_DWG_NAME "5") + (slide_image 0 0 breite hoehe "steuerg(27074011)") + ) + ((= m_DWG_NAME "6") + (slide_image 0 0 breite hoehe "steuerg(27074007)") + ) + ((= m_DWG_NAME "7") + (slide_image 0 0 breite hoehe "steuerg(27074008)") + ) + ((= m_DWG_NAME "8") + (slide_image 0 0 breite hoehe "steuerg(22035037)") + ) + ((= m_DWG_NAME "9") + (slide_image 0 0 breite hoehe "steuerg(22035100)") + ) + ((= m_DWG_NAME "10") + (slide_image 0 0 breite hoehe "steuerg(22035102)") + ) + ((= m_DWG_NAME "11") + (slide_image 0 0 breite hoehe "steuerg(24604011)") + ) + ((= m_DWG_NAME "12") + (slide_image 0 0 breite hoehe "steuerg(24604012)") + ) + ((= m_DWG_NAME "13") + (slide_image 0 0 breite hoehe "steuerg(03001017)") + ) + ) ; 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")) + (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_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") + (if (> (strlen m_ZUSATZ) 0 ) + (progn + (setq VERWENDUNG m_ZUSATZ) + (setq m_IDENT "9999") + ) + (progn + (setq VERWENDUNG "NO-ID") + (setq m_IDENT "9999") + ) + ) + ) + ) ; end cond +; (alert verwendung) +) + +(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 "827072013") + (setq BEZEICHNUNG "STAUKLAPPE 700 AP KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SK") + (setq BEZ2 "700") + ) + ((= m_DWG_NAME "2") + (setq BL_NAME "827072014") + (setq BEZEICHNUNG "STAUKLAPPE 700 ST KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SK") + (setq BEZ2 "700") + ) + ((= m_DWG_NAME "3") + (setq BL_NAME "827072015") + (setq BEZEICHNUNG "STAUKLAPPE 200 AP KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SK") + (setq BEZ2 "200") + ) + ((= m_DWG_NAME "4") + (setq BL_NAME "827072016") + (setq BEZEICHNUNG "STAUKLAPPE 200 ST KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SK") + (setq BEZ2 "200") + ) + ((= m_DWG_NAME "5") + (setq BL_NAME "827074011") + (setq BEZEICHNUNG "STAUKLAPPE 200 KF KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SK") + (setq BEZ2 "200") + ) + ((= m_DWG_NAME "6") + (setq BL_NAME "827074007") + (setq BEZEICHNUNG "HALTER TRAVERSENABFRAGE ST OHNE SENSOR") + (setq BEZEICHNUNG_BG "HALTER TRAVERSENABFRAGE ST KPL.") + (setq BEZ1 "UH") + (setq BEZ2 "ST") + ) + ((= m_DWG_NAME "7") + (setq BL_NAME "827074008") + (setq BEZEICHNUNG "HALTER TRAVERSENABFRAGE AP OHNE SENSOR") + (setq BEZEICHNUNG_BG "HALTER TRAVERSENABFRAGE AP KPL.") + (setq BEZ1 "UH") + (setq BEZ2 "AP") + ) + ((= m_DWG_NAME "8") + (setq BL_NAME "822035037") + (setq BEZEICHNUNG "ROLLENSCHALTER KF KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "RS") + (setq BEZ2 "KF") + ) + ((= m_DWG_NAME "9") + (setq BL_NAME "822035100") + (setq BEZEICHNUNG "ROLLENSCHALTER AFS/ST KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "RF/ST") + (setq BEZ2 "AFS") + ) + ((= m_DWG_NAME "10") + (setq BL_NAME "822035102") + (setq BEZEICHNUNG "ROLLENSCHLATER AP KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "RS") + (setq BEZ2 "AP") + ) + ((= m_DWG_NAME "11") + (setq BL_NAME "824604011") + (setq BEZEICHNUNG "SCHWENKSCHIENE 450 LINKS KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SS") + (setq BEZ2 "LINK") + ) + ((= m_DWG_NAME "12") + (setq BL_NAME "824604012") + (setq BEZEICHNUNG "SCHWENKSCHIENE 450 LINKS KPL.") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "SS") + (setq BEZ2 "RECH") + ) + ((= m_DWG_NAME "13") + (setq BL_NAME "701004005") + (setq BEZEICHNUNG "HILFSCHALTER WS/DS") + (setq BEZEICHNUNG_BG "") + (setq BEZ1 "HS") + (setq BEZ2 "WSDS") + ) + ) ; end cond + + (cond + ((= m_PREFIX "PREFIX_1") + (setq _PREFIX "B") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_2") + (setq _PREFIX "E") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_3") + (setq _PREFIX "S") + (setq ANZ_CHARACT 0) + ) + ((= m_PREFIX "PREFIX_4") + (setq _PREFIX "IPB") + (setq ANZ_CHARACT 2) + ) + ((= m_PREFIX "PREFIX_5") + (setq _PREFIX "PB") + (setq ANZ_CHARACT 1) + ) + ((= m_PREFIX "PREFIX_6") + (setq _PREFIX "PRS") + (setq ANZ_CHARACT 2) + ) + ((= m_PREFIX "PREFIX_7") + (setq _PREFIX "CB") + (setq ANZ_CHARACT 1) + ) + ((= m_PREFIX "PREFIX_8") + (setq _PREFIX "I") + (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 + + (setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 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 P12 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 360)) (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 360)) (caddr p0))) + + ;<<>> + (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 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12))) + (setq P7 (list (+ (car p12) (* FAKTO 1200)) (+ (cadr p12) (* FAKTO 100)) (caddr p12))) + + (command "_layer" "_m" "EINGANG" "_c" "6" "" "") + + ;<<< 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 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_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" P13 P10 P11 P14 P13 "") + (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 (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8")) + (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 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))) + ) + ) + ;<<<< 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" "EINGANG-HW" "_c" "7" "" "") + (command "_pline" P13 P14 P18 P17 P13 "") + (ssadd (entlast) AUSWAHL-SATZ) + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + ) + ) + ;<<<<<<<<< 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) + ) + ) + + (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 "1" "") + ) + ) + + (ssadd (entlast) AUSWAHL-SATZ-ROTATE) + (setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren + ;<<<------------------------------------------------------------------- + + ;<<<< BAUGRUPPEN >>> + (if (= m_DWG_NAME "6") + (progn + (EINZELTEIL P0 "721000009" "REFLEXIONSLICHTTASTER" "1") + (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) + ) + ) + (if (= m_DWG_NAME "7") + (progn + (EINZELTEIL P0 "721000009" "REFLEXIONSLICHTTASTER" "1") + (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:EINGAENGE_S ( / 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 "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 "")) ; Zusatztext + (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) +) diff --git a/STEUERG/ELEKTRO.DCL b/STEUERG/ELEKTRO.DCL new file mode 100644 index 0000000..1d698fa --- /dev/null +++ b/STEUERG/ELEKTRO.DCL @@ -0,0 +1,191 @@ +elektro : dialog { + label = "SCHÖNENBERGER Systeme GmbH"; + initial_focus = "KOMP"; + : text { + label = "HFS 2100 - ELEKTRO-LAYOUT"; + } + : row { + : list_box { + label = "Sensorik/Aktorik"; + key = "KOMP"; + mnemonic = "S"; + list = "Sensor\nMagnetventil\nAntrieb\nSeparator\nWeiche\nScanner\nRollenhebelschalter\nDrucktaster\nAnzeigeleuchte"; + width = 20; + height = 6; + } + : image { + height = 7; + width = 10; + color = 0; + key = "anzeige"; + } + } +: row { + : column { + : boxed_radio_column { + label = "SEPARATOR"; + key = "NULLTR"; + : radio_button { + label = "Mit NULL-Trolley Erkennung"; + key = "NULLTR_1"; + } + : radio_button { + label = "OHNE NULL-Trolley Erkennung"; + key = "NULLTR_2"; + } + } + } + : column { + : boxed_radio_column { + label = "SCANNER"; + key = "SCAN"; + : radio_button { + label = "SC - BT Scanner"; + key = "SCAN_1"; + } + : radio_button { + label = "SCC - Kleidungsscanner-automatisch"; + key = "SCAN_2"; + } + : radio_button { + label = "SCM - Kleidungsscanner-manuell"; + key = "SCAN_3"; + } + } + } + } + : row { + : column { + : boxed_radio_column { +/* Antrieb reversibel oder nicht */ + label = "ANTRIEB"; + key = "REVERS"; + : radio_button { + label = "NICHT Reversibel"; + key = "REVERS_1"; + } + : radio_button { + label = "Reversibel"; + key = "REVERS_2"; + } + } + : boxed_radio_column { + label = "NORM"; + key = "NORM"; + : radio_button { + label = "Deutsch"; + key = "NORM_1"; + } + : radio_button { + label = "US"; + key = "NORM_2"; + } + } + } + :column { + : list_box { + label = "1.Weichenausgang"; + key = "W1"; + list = "Leereintrag\nGerade-G/S\nLinks-L/L\nRechts-R/R\nAuf-A/O\nZu-Z/C\nGem.Ruecksetzung-GR/GI"; + width = 20; + height = 3; + } + : list_box { + label = "2.Weichenausgang"; + key = "W2"; + list = "Leereintrag\nGerade-G/S\nLinks-L/L\nRechts-R/R\nAuf-A/O\nZu-Z/C\nGem.Ruecksetzung-GR/GI"; + width = 20; + height = 3; + } + } + :column { + : list_box { + label = "1.Lage"; + key = "LAGE1"; + list = "Leereintrag\nVON\nNACH"; + width = 20; + height = 3; + } + } + } + : row { + : column { + : edit_box { + label = "Anlagenebene :"; + allow_accept = true; + key = "A_EBENE"; + value = 0; + } + : edit_box { + label = "Ort(5-6/5.01):"; + allow_accept = true; + key = "A_ORT"; + value = 0; + } + : edit_box { + label = "Klemmkasten :"; + allow_accept = true; + key = "A_KLKAST"; + value = 0; + } + : edit_box { + label = "IBS-Verteiler:"; + allow_accept = true; + key = "A_IBS-UV"; + value = 0; + } + + } + : column { + : edit_box { + label = "Skalierung:"; + allow_accept = true; + key = "VAR_F"; + value = 1; + } + : edit_box { + label = "Präfix :"; + allow_accept = true; + key = "EBEN"; + value = 1; + } + : edit_box { + label = "Sufix :"; + allow_accept = true; + key = "ZUSATZ"; + value = 1; + } + } + : column { + : edit_box { + label = "Eingang:"; + allow_accept = true; + key = "ZB"; + value = 0; + } + : edit_box { + label = "Ausgang:"; + allow_accept = true; + key = "ZY"; + value = 0; + } + : edit_box { + label = "Motor :"; + allow_accept = true; + key = "ZM"; + value = 0; + } + } + } + : row { + : edit_box { + label = "Kommentar :"; + allow_accept = true; + key = "A_KOMMENT"; + value = 0; + } + } + : row { + ok_cancel_help; + } +} diff --git a/STEUERG/ELEKTRO.LSP b/STEUERG/ELEKTRO.LSP new file mode 100644 index 0000000..0e65ecb --- /dev/null +++ b/STEUERG/ELEKTRO.LSP @@ -0,0 +1,995 @@ +;------------------------------------------------------------------------; +; ELEKTRO - Layout ; +; -----------------------------------------------------------------------; +; AW 1.9.94 / 18.05.97 ; +;------------------------------------------------------------------------; + +(defun Dbox (/ Dat) + (setq Dat (load_dialog (strcat lw "/acadsst/steuerg/elektro.DCL"))) + (if (not (new_dialog "elektro" Dat)) + (exit) + ) + (set_tile "NULLTR" m_NULLTR) ; Null Trolley + (set_tile "KOMP" m_KOMP) ; Art der Komponente + (SetVisibility) + (set_tile "SCAN" m_SCAN) ; Scannerart + (set_tile "NORM" m_NORM) ; Deutsch oder US Norm + (set_tile "REVERS" m_REVERS) ; Antrieb reversibel oder nicht + (set_tile "ZUSATZ" m_ZUSATZ) ; Deutsch oder US Norm + (set_tile "W1" m_W1) ; Beschriftung 1. Weiche + (set_tile "W2" m_W2) ; Beschriftung 2. Weiche + (set_tile "LAGE1" m_LAGE1) ; Weiche - VON / NACH + (set_tile "ZB" m_ZB) ; Anzahl Sensoren + (set_tile "ZY" m_ZY) ; Anzahl Magnetventile + (set_tile "ZM" m_ZM) ; Anzahl Motoren + (set_tile "VAR_F" m_VAR_F) + (set_tile "EBEN" m_EBEN) ; Layer + (set_tile "A_EBENE" m_EBENE) ; Anlagenebene + (set_tile "A_ORT" m_ORT) ; 10-11 / 10.01 + (set_tile "A_KLKAST" m_KLKAST) ; Klemmkasten + (set_tile "A_IBS-UV" m_IBS-UV) ; Interbuskasten + (set_tile "A_KOMMENT" m_KOMMENT) ; Kommentar + + (ACTION_TILE "KOMP" "(zeig_dia)") + (action_tile "accept" "(SetPara) (done_dialog)") + (action_tile "cancel" "(exit) (done_dialog)") +; (action_tile "help" "(acad_helpdlg \"/acadsst/steuerg/steuerg.hlp\" \"elektro\")") + (action_tile "help" "(acad_helpdlg \HIDATEI\ \"HARDWAREPLANUNG\")" ) + (start_dialog) + (unload_dialog Dat) +) + +(defun zeig_dia() + (setq m_KOMP (get_tile "KOMP")) + (SetVisibility) +) + +(defun SetVisibility() + (setq breite (dimx_tile "anzeige")) + (setq hoehe (dimy_tile "anzeige")) + (start_image "anzeige") + (FILL_IMAGE 0 0 breite hoehe 0) + (if (= m_KOMP "0") ; Sensor + (progn + (mode_tile "NULLTR" 1) + (mode_tile "SCAN" 1) + (mode_tile "REVERS" 1) + (mode_tile "W1" 1) + (mode_tile "W2" 1) + (mode_tile "LAGE1" 1) + (mode_tile "LAGE2" 1) + (mode_tile "ZB" 0) + (mode_tile "ZY" 1) + (mode_tile "ZM" 1) + (slide_image 0 0 breite hoehe "steuerg(sensor)") + ) + ) + (if (= m_KOMP "1") ; Ventil + (progn + (mode_tile "NULLTR" 1) + (mode_tile "SCAN" 1) + (mode_tile "REVERS" 1) + (mode_tile "W1" 0) + (mode_tile "W2" 1) + (mode_tile "LAGE1" 0) + (mode_tile "LAGE2" 1) + (mode_tile "ZB" 1) + (mode_tile "ZY" 0) + (mode_tile "ZM" 1) + (slide_image 0 0 breite hoehe "steuerg(ventil)") + ) + ) + (if (= m_KOMP "2") ; Antrieb + (progn + (mode_tile "NULLTR" 1) + (mode_tile "SCAN" 1) + (mode_tile "REVERS" 0) + (mode_tile "W1" 1) + (mode_tile "W2" 1) + (mode_tile "LAGE1" 1) + (mode_tile "LAGE2" 1) + (mode_tile "ZB" 1) + (mode_tile "ZY" 1) + (mode_tile "ZM" 0) + (slide_image 0 0 breite hoehe "steuerg(antrieb)") + ) + ) + (if (= m_KOMP "3") ; Separator + (progn + (mode_tile "NULLTR" 0) + (mode_tile "SCAN" 1) + (mode_tile "REVERS" 1) + (mode_tile "W1" 1) + (mode_tile "W2" 1) + (mode_tile "LAGE1" 1) + (mode_tile "LAGE2" 1) + (mode_tile "ZB" 0) + (mode_tile "ZY" 0) + (mode_tile "ZM" 1) + (slide_image 0 0 breite hoehe "steuerg(separat)") + ) + ) + (if (= m_KOMP "4") ; Weiche + (progn + (mode_tile "NULLTR" 1) + (mode_tile "SCAN" 1) + (mode_tile "REVERS" 1) + (mode_tile "W1" 0) + (mode_tile "W2" 0) + (mode_tile "LAGE1" 0) + (mode_tile "LAGE2" 0) + (mode_tile "ZB" 1) + (mode_tile "ZY" 0) + (mode_tile "ZM" 1) + (slide_image 0 0 breite hoehe "steuerg(weiche)") + ) + ) + (if (= m_KOMP "5") ; Scanner + (progn + (mode_tile "NULLTR" 1) + (mode_tile "SCAN" 0) + (mode_tile "REVERS" 1) + (mode_tile "W1" 1) + (mode_tile "W2" 1) + (mode_tile "LAGE1" 1) + (mode_tile "LAGE2" 1) + (mode_tile "ZB" 0) + (mode_tile "ZY" 0) + (mode_tile "ZM" 1) + (slide_image 0 0 breite hoehe "steuerg(scanner)") + ) + ) + (if (= m_KOMP "6") ; Rollenhebelschalter + (progn + (mode_tile "NULLTR" 1) + (mode_tile "SCAN" 1) + (mode_tile "REVERS" 1) + (mode_tile "W1" 1) + (mode_tile "W2" 1) + (mode_tile "LAGE1" 1) + (mode_tile "LAGE2" 1) + (mode_tile "ZB" 0) + (mode_tile "ZY" 1) + (mode_tile "ZM" 1) + (slide_image 0 0 breite hoehe "steuerg(rollenh)") + ) + ) + (if (= m_KOMP "7") + (progn + (mode_tile "NULLTR" 1) + (mode_tile "SCAN" 1) + (mode_tile "REVERS" 1) + (mode_tile "W1" 1) + (mode_tile "W2" 1) + (mode_tile "LAGE1" 1) + (mode_tile "LAGE2" 1) + (mode_tile "ZB" 1) + (mode_tile "ZY" 0) + (mode_tile "ZM" 1) + (slide_image 0 0 breite hoehe "steuerg(druckt)") + ) + ) + (if (= m_KOMP "8") + (progn + (mode_tile "NULLTR" 1) + (mode_tile "SCAN" 1) + (mode_tile "REVERS" 1) + (mode_tile "W1" 1) + (mode_tile "W2" 1) + (mode_tile "LAGE1" 1) + (mode_tile "LAGE2" 1) + (mode_tile "ZB" 0) + (mode_tile "ZY" 1) + (mode_tile "ZM" 1) + (slide_image 0 0 breite hoehe "steuerg(anzleu)") + ) + ) + (end_image) +) + +(defun SetPara () + (setq m_NULLTR (get_tile "NULLTR")) + (setq m_KOMP (get_tile "KOMP")) + (setq m_SCAN (get_tile "SCAN")) + (setq m_NORM (get_tile "NORM")) + (setq m_REVERS (get_tile "REVERS")) + (setq m_ZUSATZ (get_tile "ZUSATZ")) + (setq m_W1 (get_tile "W1")) + (setq m_W2 (get_tile "W2")) + (setq m_LAGE1 (get_tile "LAGE1")) + (setq m_ZB (get_tile "ZB")) + (setq m_ZY (get_tile "ZY")) + (setq m_ZM (get_tile "ZM")) + (setq m_VAR_F (get_tile "VAR_F")) + (setq m_EBEN (get_tile "EBEN")) + (setq m_EBENE (get_tile "A_EBENE")) + (setq m_ORT (get_tile "A_ORT")) + (setq m_KLKAST (get_tile "A_KLKAST")) + (setq m_IBS-UV (get_tile "A_IBS-UV")) + (setq m_KOMMENT (get_tile "A_KOMMENT")) + ;------------------------------------- + (initget (+ 2 4)) + ;--------------------------------------- +) +(defun datain () + ;------------------------------------------------------- + ;>>>> Eingabeteil <<<<<<< + ;------------------------------------------------------- + (setq ALTFANG (getvar "osmode")) + (initget (+ 1 2 4)) + (command "_ortho" "_off") + (setq P0 (getpoint "\nKomponente setzen : ")) + (bl-name P0) ;--> Block-Name definieren -> Rckgabe: block-kennung + (setq P1 (getpoint P0 "\n2.Punkt antippen: ")) + (setq P6 (list (car p1) (- (cadr p1) 75) (caddr p1))) + (command "_ortho" "_on") + (setvar "osmode" 0) + (command "_elevation" "0") + (command "_ucs" "_w") + (command "_fill" "_off") + (command "_layer" "_m" "Y-7" "_c" "7" "" "") + (command "_line" P0 P1 "") + (command "_circle" P1 "1") + (setq SATZ1 (ssget "_L")) + +) + +(defun geometrie() + (if (= m_KOMP "0") ;****** Sensor gew„hlt + (progn + (setq FOLIE "Y-EINGANG") + (setq SZIN "1") + (if (= m_NORM "NORM_1") + (setq PREFIX "B") ; Deutsch + (setq PREFIX "PRS") ; US + ) + (setq ALPHA (strcat m_EBEN PREFIX m_ZB)) ; Beschriftung + ;----------------------- + ; Properties definieren + ;----------------------- + (setq M_LAGE "") + (setq M_FUNKTION "") + (setq M_ART "B") ;--> Sensor + (setq M_LFD_NR M_ZB) ;--> Laufendenummer - unique + (setq M_E_A "E") ;--> E-Eingang / A-Ausgang + (setq M_BENENNG "Sensor") ;--> Element + (setq M_LEISTUNG "3W-0,125A") ;-->Leistungufnahme + (setq ZAHL m_ZB) ; Variable vertauschen + (pruefe_lz) ; und prfen (OKTAL) + (setq ALPHA (strcat ALPHA m_ZUSATZ)) + (setq m_ZB ZAHL) ; Variable vertauschen + (kasten 0) ; Rechteck zeichnen + ) + ) + (if (= m_KOMP "1") ; ******* Magnetventil + (progn + (setq FOLIE "Y-AUSGANG") + (setq SZIN "3") + (if (= m_NORM "NORM_1") + (setq PREFIX "Y") + (setq PREFIX "SOL") + ) + (setq ALPHA (strcat m_EBEN PREFIX m_ZY)) + (setq M_LFD_NR M_ZY) ;--> Laufendenummer - unique + (setq ZAHL m_ZY) + (pruefe_lz) + (if (= m_W1 "0") + (setq DUMMY1 "") + ) + (if (= m_W1 "1") + (setq DUMMY1 "-G") + ) + (if (= m_W1 "2") + (setq DUMMY1 "-L") + ) + (if (= m_W1 "3") + (setq DUMMY1 "-R") + ) + (if (= m_W1 "4") + (setq DUMMY1 "-A") + ) + (if (= m_W1 "5") + (setq DUMMY1 "-Z") + ) + (if (= m_W1 "6") + (setq DUMMY1 "-GR") + ) + (if (= m_LAGE1 "0") ; kein VON / NACH erforderlich + (setq m_LAGE "") + ) + (if (= m_LAGE1 "1") ; VON erforderlich + (setq m_LAGE "V") + ) + (if (= m_LAGE1 "2") ; NACH erforderlich + (setq m_LAGE "N") + ) + (setq ALPHA (strcat ALPHA DUMMY1 m_ZUSATZ)) + (setq m_ZY ZAHL) + ;------------------- + ; Abfrage Properties + ;************************************************************************ + (setq M_LAGE "") + (setq M_FUNKTION "") + (setq M_ART "Y") ;--> Sensor + (setq M_E_A "A") ;--> E-Eingang / A-Ausgang + (setq M_BENENNG "Ventil") ;--> Element + (setq M_LEISTUNG "3W-0,125A") ;-->Leistungufnahme + ;------------------------------------------------------------------------ + (setq DUMMY1 "") + (kasten 0) + ) + ) + (if (= m_KOMP "2") ; ********* Antrieb + (progn + (setq FOLIE "Y-4") + (setq SZIN "4") + (if (= m_NORM "NORM_1") + (setq PREFIX "M") + (setq PREFIX "MTR") + ) + (if (= m_REVERS "REVERS_2") ; wenn reversibel + (setq DUMMY1 "-R") + (setq DUMMY1 "") + ) + (setq ALPHA (strcat m_EBEN PREFIX m_ZM)) + (setq M_LFD_NR M_ZM) ;--> Laufendenummer - unique + (setq ZAHL m_ZM) + (pruefe_lz) + (setq ALPHA (strcat ALPHA DUMMY1 m_ZUSATZ)) + ;------------------- + ; Abfrage Properties + ;------------------- + (setq M_LAGE "") + (setq M_FUNKTION "") + (setq M_ART "M") ;--> Sensor + (setq M_E_A "A") ;--> E-Eingang / A-Ausgang + (setq M_BENENNG "Motor") ;--> Element + (setq M_LEISTUNG "550W-4,5A") ;-->Leistungufnahme + ;------------------------------------------------------------------------ + (setq DUMMY1 "") + (setq m_ZM ZAHL) + (kasten 0) + ) + ) + (if (or (= m_KOMP "3") (= m_KOMP "4")) ; ********* Separator oder Weiche + ; --------- + ; 2 Ventile + ; --------- + (progn + (setq FOLIE "Y-AUSGANG") + (setq SZIN "3") + (if (= m_NORM "NORM_1") ; Deutsch + (progn + (setq PREFIX "Y") + (if (= m_KOMP "3") ; Separator DEUTSCH + (progn + (setq SEP1 "-A") + (setq SEP2 "-Z") + (setq SEP3 "-I") + (setq SEP4 "-V") + (setq SEP5 "-0") + (setq DUMMY1 "") + (setq DUMMY2 "") + ) + (progn + (setq SEP1 "") ; Weiche DEUTSCH + (setq SEP2 "") + (setq SEP3 "") + (setq SEP4 "") + (setq SEP5 "") + ;------------- Funktion des ersten Ventils ------------- + (if (= m_W1 "0") + (setq DUMMY1 "") + ) + (if (= m_W1 "1") + (setq DUMMY1 "-G") + ) + (if (= m_W1 "2") + (setq DUMMY1 "-L") + ) + (if (= m_W1 "3") + (setq DUMMY1 "-R") + ) + (if (= m_W1 "4") + (setq DUMMY1 "-A") + ) + (if (= m_W1 "5") + (setq DUMMY1 "-Z") + ) + (if (= m_W1 "6") + (setq DUMMY1 "-GR") + ) + ;---- Lage definieren --------------------------------- + (if (= m_LAGE1 "0") ; kein VON / NACH erforderlich + (setq m_LAGE "") + ) + (if (= m_LAGE1 "1") ; VON erforderlich + (setq m_LAGE "V") + ) + (if (= m_LAGE1 "2") ; NACH erforderlich + (setq m_LAGE "N") + ) + ;----- Funktion des zweiten Ventils --------------------- + (if (= m_W2 "0") + (setq DUMMY2 "") + ) + (if (= m_W2 "1") + (setq DUMMY2 "-G") + ) + (if (= m_W2 "2") + (setq DUMMY2 "-L") + ) + (if (= m_W2 "3") + (setq DUMMY2 "-R") + ) + (if (= m_W2 "4") + (setq DUMMY2 "-A") + ) + (if (= m_W2 "5") + (setq DUMMY2 "-Z") + ) + (if (= m_W2 "6") + (setq DUMMY2 "-GR") + ) + ) + ) + ) + (progn + (setq PREFIX "SOL") + (if (= m_KOMP "3") + (progn + (setq SEP1 "-O") ; Separator US + (setq SEP2 "-C") + (setq SEP3 "-I") + (setq SEP4 "-L") + (setq SEP5 "-0") + (setq DUMMY1 "") + (setq DUMMY2 "") + ) + (progn + (setq SEP1 "") ; Weiche US + (setq SEP2 "") + (setq SEP3 "") + (setq SEP4 "") + (setq SEP5 "") + (if (= m_W1 "0") + (setq DUMMY1 "") + ) + (if (= m_W1 "1") + (setq DUMMY1 "-S") + ) + (if (= m_W1 "2") + (setq DUMMY1 "-L") + ) + (if (= m_W1 "3") + (setq DUMMY1 "-R") + ) + (if (= m_W1 "4") + (setq DUMMY1 "-O") + ) + (if (= m_W1 "5") + (setq DUMMY1 "-C") + ) + (if (= m_W1 "6") + (setq DUMMY1 "-GI") + ) + (if (= m_W2 "0") + (setq DUMMY2 "") + ) + (if (= m_W2 "1") + (setq DUMMY2 "-S") + ) + (if (= m_W2 "2") + (setq DUMMY2 "-L") + ) + (if (= m_W2 "3") + (setq DUMMY2 "-R") + ) + (if (= m_W2 "4") + (setq DUMMY2 "-O") + ) + (if (= m_W2 "5") + (setq DUMMY2 "-C") + ) + (if (= m_W2 "6") + (setq DUMMY2 "-GI") + ) + ) + ) + ) + ) + (setq ALPHA (strcat m_EBEN PREFIX m_ZY)) + ;------------------- + ; Abfrage Properties - Ventile + ;*********************************************************************** + (if (= m_KOMP "4") ; Weiche + (setq M_FUNKTION (substr DUMMY1 2)) + (setq M_FUNKTION SEP1) + ) + (setq M_ART "Y") ;--> Ventil + (setq M_LFD_NR M_ZY) ;--> Laufendenummer - unique + (setq M_E_A "A") ;--> E-Eingang / A-Ausgang + (if (= m_KOMP "3") + (setq M_BENENNG "Ventil-Separator") ;--> Element + (setq M_BENENNG "Ventil-Weiche") ;--> Element + ) + (setq M_LEISTUNG "3W-0,125A") ;-->Leistungufnahme + ;*********************************************************************** + (setq ZAHL m_ZY) + (pruefe_lz) + (setq ALPHA (strcat ALPHA SEP1 DUMMY1 m_ZUSATZ)) + (setq m_ZY ZAHL) + (kasten 0) + (setq DUMMY1 "") + (setq P6 (list (car p6) (- (cadr p6) 150) (caddr p6))) + (setq ALPHA (strcat m_EBEN PREFIX m_ZY)) + (if (= m_KOMP "4") ; Weiche + (setq M_FUNKTION (substr DUMMY2 2)) + (setq M_FUNKTION SEP2) + ) + (setq M_LFD_NR M_ZY) ;--> Laufendenummer - unique + (setq ZAHL m_ZY) + (pruefe_lz) + (setq ALPHA (strcat ALPHA SEP2 DUMMY2 m_ZUSATZ)) + (setq m_ZY ZAHL) + (kasten 0) + (setq DUMMY2 "") + ) + ) + (if (= m_KOMP "3") ; nur frs Separator + ; --------------------- + ; 2 Sensoren erstellen + ; --------------------- + (progn + (setq P6 (list (car p6) (- (cadr p6) 150) (caddr p6))) + (setq FOLIE "Y-EINGANG") + (setq SZIN "1") + (if (= m_NORM "NORM_1") + (setq PREFIX "B") + (setq PREFIX "PRS") + ) + (setq ALPHA (strcat m_EBEN PREFIX m_ZB)) + ;********************************************************************** + (setq M_ART "B") ;--> Sensor + (setq M_E_A "E") ;--> E-Eingang / A-Ausgang + (setq M_FUNKTION "I") ;--> Funktion + (setq M_BENENNG "Sensor-Separator") ;--> Element + (setq M_LFD_NR M_ZB) ;--> Laufendenummer - unique + ;********************************************************************** + (setq ZAHL m_ZB) + (pruefe_lz) + (setq ALPHA (strcat ALPHA SEP3 m_ZUSATZ)) + (setq m_ZB ZAHL) + (kasten 0) + (setq P6 (list (car p6) (- (cadr p6) 150) (caddr p6))) + (setq ALPHA (strcat m_EBEN PREFIX m_ZB)) + ;********************************************************************* + (setq M_FUNKTION "V") ;--> Funktion + (setq M_LFD_NR M_ZB) ;--> Laufendenummer - unique + ;********************************************************************* + (setq ZAHL m_ZB) + (pruefe_lz) + (setq ALPHA (strcat ALPHA SEP4 m_ZUSATZ)) + (setq m_ZB ZAHL) + (kasten 0) + (if (= m_NULLTR "NULLTR_1") ; Separator mit NULL-BT Erkennung + (progn + (setq P6 (list (car p6) (- (cadr p6) 150) (caddr p6))) + (setq ALPHA (strcat m_EBEN PREFIX m_ZB)) + ;********************************************************** + (setq M_FUNKTION "0") ;--> Funktion + (setq M_LFD_NR M_ZB) ;--> Laufendenummer - unique + ;********************************************************** + (setq ZAHL m_ZB) + (pruefe_lz) + (setq ALPHA (strcat ALPHA SEP5 m_ZUSATZ)) + (setq m_ZB ZAHL) + (kasten 0) + ) + ) + ) + ) + (if (= m_KOMP "5") ; ***************** Scanner + (progn + ;--> Scannerkasten zeichnen + (if (= m_NORM "NORM_1") ; Deutsch + (progn + (setq INP1 "E") + (setq INP2 "A") + ) + (progn + (setq INP1 "I") + (setq INP2 "O") + ) + ) + (if (= m_SCAN "SCAN_1") ; Scanner fr BT + (setq SC_NAME "SC") + ) + (if (= m_SCAN "SCAN_2") ; Kleidungsscanner automatisch + (setq SC_NAME "SCC") + ) + (if (= m_SCAN "SCAN_3") ; Kleidungsscanner manuell + (setq SC_NAME "SCM") + ) + (setq ALPHA SC_NAME) + (setq FOLIE "Y-7") + (setq SZIN "7") + (setq ALPHA (strcat m_EBEN SC_NAME)) + (setq ANZ_CHAR (strlen ALPHA)) + (kasten 1) + ;--> Eingang zeichnen + (setq DUMMY1 "") + (setq DUMMY2 "") + (setq P6 (list (car p6) (- (cadr p6) 150) (caddr p6))) + (setq PREFIX "E") + (setq ALPHA (strcat m_EBEN INP1 m_ZB)) + ;******************* + ; Abfrage Properties + ;****************************************************************** + (setq M_LAGE "") + (setq M_FUNKTION "") + (setq M_ART "E") ;--> Sensor + (setq M_LFD_NR M_ZB) ;--> Laufendenummer - unique + (setq M_E_A "E") ;--> E-Eingang / A-Ausgang + (setq M_BENENNG "Eingang Scanner") ;--> Element + (setq M_LEISTUNG "3W-0,125A") ;--> Leistungufnahme + ;******************************************************************* + (setq ZAHL m_ZB) + (pruefe_lz) + (setq ALPHA (strcat ALPHA m_ZUSATZ)) + (setq m_ZB ZAHL) + (setq FOLIE "Y-EINGANG") + (setq SZIN "1") + (kasten 0) + ;--> Ausgang 1 + (setq P6 (list (car p6) (- (cadr p6) 150) (caddr p6))) + (setq ALPHA (strcat m_EBEN INP2 m_ZY)) + ;******************************************************************* + (setq M_ART "A") ;--> Ausgang + (setq M_LFD_NR M_ZY) ;--> Laufendenummer - unique + (setq M_E_A "A") ;--> E-Eingang / A-Ausgang + (setq M_BENENNG "Ausgang1 Scanner") ;--> Element + (setq M_LEISTUNG "3W-0,125A") ;--> Leistungufnahme + ;******************************************************************* + (setq ZAHL m_ZY) + (pruefe_lz) + (setq ALPHA (strcat ALPHA m_ZUSATZ)) + (setq m_ZY ZAHL) + (setq FOLIE "Y-AUSGANG") + (setq SZIN "3") + (kasten 0) + ;--> Ausgang 2 + (setq P6 (list (car p6) (- (cadr p6) 150) (caddr p6))) + (setq ALPHA (strcat m_EBEN INP2 m_ZY)) + ;******************************************************************* + (setq M_ART "A") ;--> Ausgang + (setq M_LFD_NR M_ZY) ;--> Laufendenummer - unique + (setq M_E_A "A") ;--> E-Eingang / A-Ausgang + (setq M_BENENNG "Ausgang2 Scanner") ;--> Element + (setq M_LEISTUNG "3W-0,125A") ;--> Leistungufnahme + ;******************************************************************* + (setq ZAHL m_ZY) + (pruefe_lz) + (setq ALPHA (strcat ALPHA m_ZUSATZ)) + (setq m_ZY ZAHL) + (kasten 0) + ) + ) + (if (or (= m_KOMP "6") (= m_KOMP "7") (= m_KOMP "8")) + (progn + (if (= m_KOMP "6") ; ************** Rollenhebelschalter + (progn + ;------------------- + ; Abfrage Properties + ;------------------- + (setq M_LAGE "") + (setq M_FUNKTION "") + (setq M_ART "E") ;--> Sensor + (setq M_LFD_NR M_ZB) ;--> Laufendenummer - unique + (setq M_E_A "E") ;--> E-Eingang / A-Ausgang + (setq M_BENENNG "Rollenhebelschalter");--> Element + (setq M_LEISTUNG "3W-0,125A") ;--> Leistungufnahme + ;------------------------------------------------------------------------ + (setq FOLIE "Y-EINGANG") + (setq SZIN "1") + (if (= m_NORM "NORM_1") + (setq PREFIX "RS") + (setq PREFIX "RS") ; fr US noch „ndern !! + ) + ) + ) + (if (= m_KOMP "7") ; Drucktaster + (progn + ;------------------- + ; Abfrage Properties + ;------------------- + (setq M_LAGE "") + (setq M_FUNKTION "") + (setq M_ART "E") + (setq M_LFD_NR M_ZB) ;--> Laufendenummer - unique + (setq M_E_A "E") ;--> E-Eingang / A-Ausgang + (setq M_BENENNG "Drucktaster");--> Element + (setq M_LEISTUNG "3W-0,125A") ;--> Leistungufnahme + ;------------------------------------------------------------------------ + (setq FOLIE "Y-EINGANG") + (setq SZIN "1") + (if (= m_NORM "NORM_1") + (setq PREFIX "S") + (setq PREFIX "S") ; fr US noch „ndern !! + ) + ) + ) + (if (= m_KOMP "8") ; Anzeigeleuchte + (progn + ;------------------- + ; Abfrage Properties + ;------------------- + (setq M_LAGE "") + (setq M_FUNKTION "") + (setq M_ART "A") ;--> Sensor + (setq M_LFD_NR M_ZY) ;--> Laufendenummer - unique + (setq M_E_A "A") ;--> E-Eingang / A-Ausgang + (setq M_BENENNG "Anzeigeleuchte") ;--> Element + (setq M_LEISTUNG "3W-0,125A") ;--> Leistungufnahme + ;------------------------------------------------------------------------ + (setq FOLIE "Y-AUSGANG") + (setq SZIN "3") + (if (= m_NORM "NORM_1") + (setq PREFIX "H") + (setq PREFIX "H") ; fuer US noch aendern !! + ) + ) + ) + (if (or (= m_KOMP "6") (= m_KOMP "7")) ; Anzahl Eingaenge erhoehen + (progn + (setq ALPHA (strcat m_EBEN PREFIX m_ZB)) + (setq ZAHL m_ZB) + (pruefe_lz) + (setq ALPHA (strcat ALPHA m_ZUSATZ)) + (setq m_ZB ZAHL) + ) + ) + (if (= m_KOMP "8") ; Anzahl Ausgaenge erhoehen + (progn + (setq ALPHA (strcat m_EBEN PREFIX m_ZY)) + (setq ZAHL m_ZY) + (pruefe_lz) + (setq ALPHA (strcat ALPHA m_ZUSATZ)) + (setq m_ZY ZAHL) + ) + ) + (kasten 0) + ) + ) +) + +(defun pruefe_lz () + (setq ANZ_CHAR (strlen ALPHA)) + (if (or (= (substr ALPHA ANZ_CHAR 1) "8") (= (substr ALPHA ANZ_CHAR 1) "9")) + (progn + (alert "Letztes Zeichen der Kette ist falsch !!") + (command "_erase" "_l" "") + (setq SATZ1 nil) + (exit) + ) + ) + (setq ZAHL (itoa (+ (atoi ZAHL) 1))) ; um 1 erh”hen und + (setq PRUF_LZ (strlen ZAHL)) ; das Ergebnis der Erh”hung + (if (= (substr ZAHL PRUF_LZ 1) "8") ; prfen und gegebenenfalls + (setq ZAHL (itoa (+ (atoi ZAHL) 2))) ; korrigieren, um auf OKTAL- + ) ; code zu kommen + (if (= (substr ZAHL PRUF_LZ 1) "9") + (setq ZAHL (itoa (+ (atoi ZAHL) 1))) + ) +) + +(defun kasten(mit_prop) + (command "_layer" "_m" "Y-7" "_c" "7" "" "") + (setq ANZ_CHAR (strlen ALPHA)) + (setq P3 (list (+ (car p6) (* ANZ_CHAR 105)) (+ (cadr p6) 150) (caddr p6))) + (setq P4 (list (+ (car p6) (* ANZ_CHAR 105)) (cadr p6) (caddr p6))) + (setq P5 (list (car p6) (+ (cadr p6) 150) (caddr p6))) + (setq P2 (list (+ (car p6) 20) (+ (cadr p6) 20) (caddr p6))) + (command "_pline" P6 P4 P3 P5 P6 "") + (ssadd (entlast) SATZ1) +; (block-op P0 "0" SATZ1) + (command "_layer" "_m" FOLIE "_c" SZIN "" "") + (command "_text" "_s" "STANDARD" P2 "100" "0" ALPHA) + (setq auswahl-satz (ssget "_L")) ; Properties dem Text zuordnen + (if (= mit_prop 0) + (property) + ) + (ssadd (entlast) SATZ1) +) + +(defun property() + ;------------------ + ; Block definieren + ;----------------------------------------------------------- + ; P2 - Origin der Baugruppe + ; szoeg - Einfuegewinkel + ; auswahl-satz - Elemente des Blockes in Auswahlsatz + ;------------------------------------------------------------ + (setq komponente1 (strcat (itoa (abs (fix (car P2)))) (itoa (abs (fix (cadr P2)))) + (itoa (abs (fix (caddr P2)))))) +; (setq komponente2 szoeg) + (setq komponente2 "0") + (setq seconds (substr (rtos (getvar "cdate") 2 9) 10 9)) + (setq element-name (strcat komponente1 komponente2 seconds)) + (princ) + (princ (strcat komponente1 "\n")) + (princ (strcat komponente2 "\n")) + (princ (strcat seconds "\n")) + (princ) + (princ (strcat "\n" element-name "\n")) + (princ) + (setq gefunden (tblsearch "block" element-name)) + (if (not gefunden) + (progn + (princ) + (command "_insert" (strcat "*" lw "/acadsst/menu/EBENE") P2 "" "") + (ssadd (entlast) auswahl-satz) + (command "_insert" (strcat "*" lw "/acadsst/menu/ART") P2 "" "") + (ssadd (entlast) auswahl-satz) + (command "_insert" (strcat "*" lw "/acadsst/menu/LFD_NR") P2 "" "") + (ssadd (entlast) auswahl-satz) + (command "_insert" (strcat "*" lw "/acadsst/menu/LAGE") P2 "" "") + (ssadd (entlast) auswahl-satz) + (command "_insert" (strcat "*" lw "/acadsst/menu/FUNKTION") P2 "" "") + (ssadd (entlast) auswahl-satz) + (command "_insert" (strcat "*" lw "/acadsst/menu/E_A") P2 "" "") + (ssadd (entlast) auswahl-satz) + (command "_insert" (strcat "*" lw "/acadsst/menu/BYTE_BIT") P2 "" "") + (ssadd (entlast) auswahl-satz) + (command "_insert" (strcat "*" lw "/acadsst/menu/BENENNG") P2 "" "") + (ssadd (entlast) auswahl-satz) + (command "_insert" (strcat "*" lw "/acadsst/menu/LEISTUNG") P2 "" "") + (ssadd (entlast) auswahl-satz) + (command "_insert" (strcat "*" lw "/acadsst/menu/ORT") P2 "" "") + (ssadd (entlast) auswahl-satz) + (command "_insert" (strcat "*" lw "/acadsst/menu/KLKAST") P2 "" "") + (ssadd (entlast) auswahl-satz) + (command "_insert" (strcat "*" lw "/acadsst/menu/IBS-UV") P2 "" "") + (ssadd (entlast) auswahl-satz) + (command "_insert" (strcat "*" lw "/acadsst/menu/KOMMENT") P2 "" "") + (ssadd (entlast) auswahl-satz) + (command "_block" element-name P2 auswahl-satz "") + (command "_insert" element-name P2 "" "" "0") + (PROPERTY-AENDERN M_EBENE M_ART M_LFD_NR M_LAGE M_FUNKTION + M_E_A M_BENENNG M_LEISTUNG M_ORT M_KLKAST + M_IBS-UV M_KOMMENT) + ) + (alert "\nBlockname existiert. Bitte A. Walz benachrichtigen. + Das Programm muá ge„ndert werden !") + ) +) + +(defun PROPERTY-AENDERN ( M_EBENE M_ART M_LFD_NR M_LAGE M_FUNKTION + M_E_A M_BENENNG M_LEISTUNG M_ORT M_KLKAST M_IBS-UV + M_KOMMENT + / objekt typ attribut-bezeichnung attribut-wert) + (setq objekt (entlast)) + (while (not (equal + (cdr (assoc 0 (entget objekt))) + "SEQEND")) + (setq typ + (cdr (assoc 0 (entget objekt)))) + (if + (equal typ "ATTRIB") + (progn + (setq ATTRIBUT-BEZEICHNUNG (cdr (assoc 2 (entget objekt)))) + (setq ATTRIBUT-WERT (cdr (assoc 1 (entget objekt)))) + (if (and (> (strlen M_EBENE) 0) (equal ATTRIBUT-BEZEICHNUNG "EBENE")) + (entmod (subst (cons 1 M_EBENE) (assoc 1 (entget objekt)) + (entget objekt))) + ) + (if (and (> (strlen M_ART) 0) (equal ATTRIBUT-BEZEICHNUNG "ART")) + (entmod (subst (cons 1 M_ART) (assoc 1 (entget objekt)) + (entget objekt))) + ) + (if (and (> (strlen M_LFD_NR) 0) (equal ATTRIBUT-BEZEICHNUNG "LFD_NR")) + (entmod (subst (cons 1 M_LFD_NR) (assoc 1 (entget objekt)) + (entget objekt))) + ) + (if (and (> (strlen M_LAGE) 0) (= ATTRIBUT-BEZEICHNUNG "LAGE")) + (entmod (subst (cons 1 M_LAGE) (assoc 1 (entget objekt)) + (entget objekt))) + ) + (if (and (> (strlen M_FUNKTION) 0) (= ATTRIBUT-BEZEICHNUNG "FUNKTION")) + (entmod (subst (cons 1 M_FUNKTION) (assoc 1 (entget objekt)) + (entget objekt))) + ) + (if (and (> (strlen M_E_A) 0) (equal ATTRIBUT-BEZEICHNUNG "E_A")) + (entmod (subst (cons 1 M_E_A) (assoc 1 (entget objekt)) + (entget objekt))) + ) + (if (and (> (strlen M_BENENNG) 0) (equal ATTRIBUT-BEZEICHNUNG "BENENNG")) + (entmod (subst (cons 1 M_BENENNG) (assoc 1 (entget objekt)) + (entget objekt))) + ) + (if (and (> (strlen M_LEISTUNG) 0) (equal ATTRIBUT-BEZEICHNUNG "LEISTUNG")) + (entmod (subst (cons 1 M_LEISTUNG) + (assoc 1 (entget objekt)) (entget objekt))) + ) + (if (and (> (strlen M_ORT) 0) (equal ATTRIBUT-BEZEICHNUNG "ORT")) + (entmod (subst (cons 1 M_ORT) (assoc 1 (entget objekt)) + (entget objekt))) + ) + (if (and (> (strlen M_KLKAST) 0) (equal ATTRIBUT-BEZEICHNUNG "KLKAST")) + (entmod (subst (cons 1 M_KLKAST) (assoc 1 (entget objekt)) + (entget objekt))) + ) + (if (and (> (strlen M_IBS-UV) 0) (equal ATTRIBUT-BEZEICHNUNG "IBS-UV")) + (entmod (subst (cons 1 M_IBS-UV) (assoc 1 (entget objekt)) + (entget objekt))) + ) + (if (and (> (strlen M_KOMMENT) 0) (equal ATTRIBUT-BEZEICHNUNG "KOMMENT")) + (entmod (subst (cons 1 M_KOMMENT) + (assoc 1 (entget objekt)) (entget objekt))) + ) + ) ; Ende ----progn + ) ; Ende ----if + (setq objekt (entnext objekt)) + ) + (setq objekt objekt) +) + +;------------------------------------------------------------------------------ +(defun c:elektro ( / NULLTR NULLTR_1 NULLTR_2 KOMP SCAN NORM P0 P1 P2 P3 P4 + P5 P6 ZB ZY ZM PREFIX SUFIX ALPHA1 ALPHA ANZ_CHAR VAR_F + VAR_Z SEP1 SEP2 SEP3 SEP4 SEP5 INP1 INP2 SC_NAME EBEN + ZAHL REVERS REVERS_1 REVERS_2 SCAN_1 SCAN_2 SCAN_3 ZUSATZ + W1 W2 LAGE1 DUMMY1 DUMMY2 FOLIE SZIN MIT_PROP A_EBENE + A_ORT A_KLKAST A_IBS-UV A_KOMMENT) + (setvar "limcheck" 0) + (setq SATZ1 nil) + (setq HIDATEI (strcat lw "/acadsst/steuerg/steuerg.hlp")) + (prompt "******* HFS 2100 ELEKTRO-LAYOUT *******") + (prompt "") + (if (null m_NULLTR) (setq m_NULLTR "NULLTR_1")) ; mit NULL-Trolley Erkennung + (if (null m_KOMP) (setq m_KOMP "0")) ; Komponente (Sensor def.) + (if (null m_SCAN) (setq m_SCAN "SCAN_1")) ; Scannerart + (if (null m_NORM) (setq m_NORM "NORM_1")) ; Norm (Deutsch default) + (if (null m_REVERS) (setq m_REVERS "REVERS_1")) ; Antrieb reversibel (NICHT) + (if (null m_W1) (setq m_W1 "0")) ; Beschriftung 1. Weiche + (if (null m_W2) (setq m_W2 "0")) ; Beschriftung 2. Weiche + (if (null m_LAGE1) (setq m_LAGE1 "0")) ; 1. Weiche auf VON stellen + (if (null m_ZB) (setq m_ZB "0")) ; Zaehler Sensor (Eingaenge) + (if (null m_ZY) (setq m_ZY "0")) ; Zaehler Ventil (Ausgaenge) + (if (null m_ZM) (setq m_ZM "0")) ; Zaehler Motor + (if (null m_VAR_F) (setq m_VAR_F "1")) ; Varia-Faktor + (if (null m_EBEN) (setq m_EBEN "")) ; Praefix-Bezeichnung + (if (null m_ZUSATZ) (setq m_ZUSATZ "")) ; Sufix + ;----------- Variablen fuer die Properties + (if (null m_EBENE) (setq m_EBENE "")) + (if (null m_ART) (setq m_ART "")) + (if (null m_LFD_NR) (setq m_LFD_NR "")) + (if (null m_LAGE) (setq m_LAGE "")) + (if (null m_FUKTION) (setq m_FUNKTION "")) + (if (null m_E_A) (setq m_E_A "")) + (if (null m_BENENNG) (setq m_BENENNG "")) + (if (null m_LEISTUNG) (setq m_LEISTUNG "")) + (if (null m_ORT) (setq m_ORT "")) + (if (null m_KLKAST) (setq m_KLKAST "")) + (if (null m_IBS-UV) (setq m_IBS-UV "")) + (if (null m_KOMMENT) (setq m_KOMMENT "")) + ;------------------------------------------ + (Dbox) + (datain) + (geometrie) + (if (/= m_VAR_F "1") + (progn + (command "_scale" SATZ1 "" P1 m_VAR_F) + (command "_rotate" SATZ1 "" P1 pause) + ) + (progn + (command "_rotate" SATZ1 "" P1 pause) +; (command "_explode" SATZ1) + ) + ) +; (block-op P0 "0" SATZ1) + (setq SATZ1 nil) + (setvar "osmode" ALTFANG) + (command "_thickness" "0") + (command "_elevation" "0") +) diff --git a/STEUERG/ELEKTRO.OLD b/STEUERG/ELEKTRO.OLD new file mode 100644 index 0000000..65db33b --- /dev/null +++ b/STEUERG/ELEKTRO.OLD @@ -0,0 +1,160 @@ +elektro : dialog { + label = "SCHOENENBERGER Systeme GmbH [AW]"; + : text { + label = "HFS 2100 - ELEKTRO-LAYOUT"; + } + : row { + : list_box { + label = "Sensorik/Aktorik"; + key = "KOMP"; + mnemonic = "S"; + list = "Sensor\nMagnetventil\nAntrieb\nSeparator\nWeiche\nScanner\nRollenhebelschalter\nDrucktaster\nAnzeigeleuchte"; + width = 20; + height = 6; + } + : image { + height = 7; + width = 10; + color = 0; + key = "anzeige"; + } + } +: row { + : column { + : boxed_radio_column { + label = "SEPARATOR"; + key = "NULLTR"; + : radio_button { + label = "Mit NULL-Trolley Erkennung"; + key = "NULLTR_1"; + } + : radio_button { + label = "OHNE NULL-Trolley Erkennung"; + key = "NULLTR_2"; + } + } + } + : column { + : boxed_radio_column { + label = "SCANNER"; + key = "SCAN"; + : radio_button { + label = "SC - BT Scanner"; + key = "SCAN_1"; + } + : radio_button { + label = "SCC - Kleidungsscanner-automatisch"; + key = "SCAN_2"; + } + : radio_button { + label = "SCM - Kleidungsscanner-manuell"; + key = "SCAN_3"; + } + } + } + } + : row { + : column { + : boxed_radio_column { +/* Antrieb reversibel oder nicht */ + label = "ANTRIEB"; + key = "REVERS"; + : radio_button { + label = "NICHT Reversibel"; + key = "REVERS_1"; + } + : radio_button { + label = "Reversibel"; + key = "REVERS_2"; + } + } + } + :column { + : list_box { + label = "1.Weichenausgang"; + key = "W1"; + list = "Leereintrag\nGerade-G/S\nLinks-L/L\nRechts-R/R\nAuf-A/O\nZu-Z/C\nGem.Rcksetzung-GR/GI"; + width = 20; + height = 3; + } + : list_box { + label = "2.Weichenausgang"; + key = "W2"; + list = "Leereintrag\nGerade-G/S\nLinks-L/L\nRechts-R/R\nAuf-A/O\nZu-Z/C\nGem.Rcksetzung-GR/GI"; + width = 20; + height = 3; + } + } + :column { + : list_box { + label = "1.Lage"; + key = "LAGE1"; + list = "Leereintrag\nVON\nNACH"; + width = 20; + height = 3; + } + } + } + : row { + : column { + : boxed_radio_column { + label = "NORM"; + key = "NORM"; + : radio_button { + label = "Deutsch"; + key = "NORM_1"; + } + : radio_button { + label = "US"; + key = "NORM_2"; + } + } + } + : column { + : edit_box { + label = "Z„hler-SENSOR (Eingang):"; + allow_accept = true; + key = "ZB"; + value = 0; + } + : edit_box { + label = "Z„hler-VENTIL (Ausgang):"; + allow_accept = true; + key = "ZY"; + value = 0; + } + : edit_box { + label = "Z„hler-ANTRIEB :"; + allow_accept = true; + key = "ZM"; + value = 0; + } + } + } + : row { + : column { + : edit_box { + label = "Skalierung :"; + allow_accept = true; + key = "VAR_F"; + value = 1; + } + : edit_box { + label = "Pr„fix :"; + allow_accept = true; + key = "EBEN"; + value = 1; + } + : edit_box { + label = "Sufix :"; + allow_accept = true; + key = "ZUSATZ"; + value = 1; + } + } + : column { + ok_cancel_help; + } + } +} + \ No newline at end of file diff --git a/STEUERG/Elektro_Symbole_061108.dwg b/STEUERG/Elektro_Symbole_061108.dwg new file mode 100644 index 0000000..ce28369 Binary files /dev/null and b/STEUERG/Elektro_Symbole_061108.dwg differ diff --git a/STEUERG/Elektro_Symbole_061108.dwl b/STEUERG/Elektro_Symbole_061108.dwl new file mode 100644 index 0000000..029a7ca --- /dev/null +++ b/STEUERG/Elektro_Symbole_061108.dwl @@ -0,0 +1,3 @@ +ial +MINI-VAIO +Mittwoch, 16. Juli 2008 14:07:33 \ No newline at end of file diff --git a/STEUERG/Elektro_Symbole_080716.dwg b/STEUERG/Elektro_Symbole_080716.dwg new file mode 100644 index 0000000..75ffd64 Binary files /dev/null and b/STEUERG/Elektro_Symbole_080716.dwg differ diff --git a/STEUERG/Elektro_Symbole_080716.dwl b/STEUERG/Elektro_Symbole_080716.dwl new file mode 100644 index 0000000..ac096ce --- /dev/null +++ b/STEUERG/Elektro_Symbole_080716.dwl @@ -0,0 +1,3 @@ +ial +MINI-VAIO +Mittwoch, 23. Juli 2008 14:25:39 \ No newline at end of file diff --git a/STEUERG/Elektro_Symbole_AutoCAD102006.dwg b/STEUERG/Elektro_Symbole_AutoCAD102006.dwg new file mode 100644 index 0000000..e9f82a1 Binary files /dev/null and b/STEUERG/Elektro_Symbole_AutoCAD102006.dwg differ diff --git a/STEUERG/IO.dwg b/STEUERG/IO.dwg new file mode 100644 index 0000000..3d0064b Binary files /dev/null and b/STEUERG/IO.dwg differ diff --git a/STEUERG/IO2019.dwg b/STEUERG/IO2019.dwg new file mode 100644 index 0000000..8f6d429 Binary files /dev/null and b/STEUERG/IO2019.dwg differ diff --git a/STEUERG/IO_OLD.dwg b/STEUERG/IO_OLD.dwg new file mode 100644 index 0000000..4e21fe9 Binary files /dev/null and b/STEUERG/IO_OLD.dwg differ diff --git a/STEUERG/KLKASTEN.LSP b/STEUERG/KLKASTEN.LSP new file mode 100644 index 0000000..dc7cc13 --- /dev/null +++ b/STEUERG/KLKASTEN.LSP @@ -0,0 +1,225 @@ +;------------------------------------------------------------------------; +; Klemmkasten generieren ; +;------------------------------------------------------------------------; +; AW 21.09.94 ; +;------------------------------------------------------------------------; + +(defun datain () + (setq ALTFANG (getvar "osmode")) + (setq AUSWAHL-SATZ nil) + (command "_ortho" "_off") + ;---- Kastenecke unten und Punkte definieren ---------------- + (setq P0 (getpoint "\nEcke UNTEN-LINKS antippen: ")) + (setq P2 (getcorner P0 "\nEcke OBEN-RECHTS antippen: ")) +; (setq M_EBENE (strcase (getstring T "\nAnlagenebene: "))) + (setq M_KLKAST (strcase (getstring T "\nKlemmkasten-Nr.: "))) +; (setq M_IBS-UV (strcase (getstring T "\nInterbus-S Unterverteiler: "))) + (setq P1 (list (car P2) (cadr P0) (caddr P0))) + (setq P3 (list (car P0) (cadr P2) (caddr P0))) + (setq P5 (list (+ (car P0) 30) (+ (cadr P0) 30) (caddr P0))) + (setq P6 (list (+ (car P3) 150) (- (cadr P3) 200) (caddr P0))) + (bl-name P6) ;--> Block-Name definieren -> Rckgabe: block-kennung + ;---- Anzahl Eing„nge und Ausg„nge feststellen -------------- +; (setq EINGANG (ssget "_W" P0 P2 '((8 . "Y-EINGANG")))) +; (if (not EINGANG) +; (setq SUMME_E 0) +; (setq SUMME_E (sslength EINGANG)) ; Anzahl Eing„nge +; ) +; (setq AUSGANG (ssget "_W" P0 P2 '((8 . "Y-AUSGANG")))) +; (if (not AUSGANG) +; (setq SUMME_A 0) +; (setq SUMME_A (sslength AUSGANG)) ; Anzahl Ausg„nge +; ) +; (setvar "osmode" 0) + (setq ASATZ (ssget) ; Auswahlsatz bilden + ALEN (sslength ASATZ) ; Auswahlsatzl„nge + ALAUF 0 ; Laufvariable initialisieren + SUMME_E 0 ; Summe Eing„nge initialisieren + SUMME_A 0) ; Summe Ausg„nge initialisieren + (while (< alauf alen) + (Setq E (ssname ASATZ ALAUF)) + (Setq B (Cdr (Assoc 8 (Entget E)))) + (if (= B "Y-EINGANG") + (progn + (setq SUMME_E (+ SUMME_E 1)) +; (einzel-attr-aendern "KLKAST" M_KLKAST 0) +; (einzel-attr-aendern "IBS-UV" M_IBS-UV 0) +; (einzel-attr-aendern "EBENE" M_EBENE 0) + ) + ) + (if (= B "Y-AUSGANG") + (progn + (setq SUMME_A (+ SUMME_A 1)) +; (einzel-attr-aendern "KLKAST" M_KLKAST 0) +; (einzel-attr-aendern "IBS-UV" M_IBS-UV 0) +; (einzel-attr-aendern "EBENE" M_EBENE 0) + ) + ) + (setq ALAUF (1+ ALAUF)) + ) + (if (and (= SUMME_E 0) (= SUMME_A 0)) + (progn + (alert "Kein Eingang und kein Ausgang.Programmende !!!") + (exit) + ) + ) +) + +(defun geometrie() + ; Kasten in Abh„ngigkeit von der Anzahl EIN+AUSGŽNGE definieren + (if (<= (+ SUMME_E SUMME_A) 16) ; Anzahl E+A <= 16 + (progn + (command "_layer" "_m" "Y-6" "_c" "6" "" "") + (setq KAST_BEZ "Klemmkasten 200x200x120 kpl.") + (setq ARTINR "824804002") + ) + ) + (if (and (> (+ SUMME_E SUMME_A) 16) (<= (+ SUMME_E SUMME_A) 30)) + (progn + (command "_layer" "_m" "Y-4" "_c" "4" "" "") + (setq KAST_BEZ "Klemmkasten 300x200x120 kpl.") + (setq ARTINR "824604001") + ) + ) + (if (> (+ SUMME_E SUMME_A) 30) ; Anzahl E+A > 30 -> EXIT + (progn + (alert "Summe EINGŽNGE+AUSGŽNGE = " (itoa (+ SUMME_E SUMME_A)) "(> 30 !)") + (exit) + ) + (progn + (alert (strcat "Eing„nge: " (itoa SUMME_E) " - Ausg„nge: " (itoa SUMME_A) " - " KAST_BEZ)) + (setq OK_NOT (getstring "Klemmkasten generieren ? (/N): ")) + (if (or (= OK_NOT "N") (= OK_NOT "n")) + (exit) + ) + ) + ) + (command "_pline" P0 P1 P2 P3 P0 "") + (setq auswahl-satz (ssget "_L")) + (command "_text" P5 "75" "0" (strcat M_KLKAST " X3" " E:" (itoa SUMME_E) " A:" (itoa SUMME_A))) + (ssadd (entlast) auswahl-satz) + (mach-block P6 "0" auswahl-satz) + (attribute-aendern "0" "2" "9" "" "" block-kennung ARTINR KAST_BEZ "1" "J") + (setq auswahl-satz nil) + (setq auswahl-satz (ssget "_L")) ; der Block wird das 1.Element des Satzes + ; ----------------------------------------------- + ; nun die Komponenten fr die EINGŽNGE definieren + ; ----------------------------------------------- + (prompt "\n**** Dreistock.Initiatorklemme DIK 1,5 *******") + (setq WINKEL (+ WINKEL 5)) + (command "_insert" (strcat lw "/acadsst/steuerg/p_einzel") + P0 "" "" (rtos WINKEL)) + (attribute-aendern "0" "0" "9" "" "" block-kennung "929065265" + "Dreistock-Initiatorenklemme DIK 1,5" (itoa SUMME_E) "") + (ssadd (entlast) auswahl-satz) + (prompt "\n**** Einlegebrcke,blau *******") + (setq WINKEL (+ WINKEL 5)) + (command "_insert" (strcat lw "/acadsst/steuerg/p_einzel") + P0 "" "" (rtos WINKEL)) + (attribute-aendern "0" "0" "9" "" "" block-kennung "929065260" + "Einlegebrcke,blau,10-pol,EB 10-DIK BU" (itoa (+ SUMME_E SUMME_A)) "") + (ssadd (entlast) auswahl-satz) + (prompt "\n**** Einlegebrcke,rot *******") + (setq WINKEL (+ WINKEL 5)) + (command "_insert" (strcat lw "/acadsst/steuerg/p_einzel") + P0 "" "" (rtos WINKEL)) + (attribute-aendern "0" "0" "9" "" "" block-kennung "929065261" + "Einlegebrcke,rot,10-pol,EB 10-DIK RD" (itoa SUMME_E) "") + (ssadd (entlast) auswahl-satz) + (prompt "\n**** Aderendhlse *******") + (setq WINKEL (+ WINKEL 5)) + (command "_insert" (strcat lw "/acadsst/steuerg/p_einzel") + P0 "" "" (rtos WINKEL)) + (attribute-aendern "0" "0" "9" "" "" block-kennung "929065113" + "Aderendhlse 0,5 qmm" (itoa (* SUMME_E 3)) "") + (ssadd (entlast) auswahl-satz) + ; ----------------------------------------------- + ; nun die Komponenten fr die AUSGŽNGE definieren + ; ----------------------------------------------- + (prompt "\n**** Dreistock-Aktorenklemme DOK 1,5 *******") + (setq WINKEL (+ WINKEL 5)) + (command "_insert" (strcat lw "/acadsst/steuerg/p_einzel") + P0 "" "" (rtos WINKEL)) + (attribute-aendern "0" "0" "9" "" "" block-kennung "929065266" + "Dreistock-Aktorenklemme DOK 1,5" (itoa SUMME_A) "") + (ssadd (entlast) auswahl-satz) + (prompt "\n**** Einlegebrcke,blau ******* siehe EINGŽNGE") + (prompt "\n**** Aderendhlse *******") + (setq WINKEL (+ WINKEL 5)) + (command "_insert" (strcat lw "/acadsst/steuerg/p_einzel") + P0 "" "" (rtos WINKEL)) + (attribute-aendern "0" "0" "9" "" "" block-kennung "929065118" + "Aderendhlse 0,75 qmm" (itoa (* SUMME_A 3)) "") + (ssadd (entlast) auswahl-satz) + ; ----------------------- + ; nun die Montageelemente + ; ----------------------- + (prompt "\n**** Verschraubung ST21 *******") + (setq WINKEL (+ WINKEL 5)) + (command "_insert" (strcat lw "/acadsst/steuerg/p_einzel") + P0 "" "" (rtos WINKEL)) + (attribute-aendern "0" "0" "9" "" "" block-kennung "929065270" + "Verschraubung ST21" (rtos (* (/ (+ SUMME_E SUMME_A) 3) 1.1)) "") + (ssadd (entlast) auswahl-satz) + (prompt "\n**** Gegenmutter GMP-GL21 *******") + (setq WINKEL (+ WINKEL 5)) + (command "_insert" (strcat lw "/acadsst/steuerg/p_einzel") + P0 "" "" (rtos WINKEL)) + (attribute-aendern "0" "0" "9" "" "" block-kennung "929065275" + "Gegenmutter GMP-GL21" (rtos (* (/ (+ SUMME_E SUMME_A) 3) 1.1)) "") + (ssadd (entlast) auswahl-satz) + (prompt "\n**** Mehrfach-Dichteinsatz PG21 *******") + (setq WINKEL (+ WINKEL 5)) + (command "_insert" (strcat lw "/acadsst/steuerg/p_einzel") + P0 "" "" (rtos WINKEL)) + (attribute-aendern "0" "0" "9" "" "" block-kennung "929065138" + "Mehrfach-Dichteinsatz PG21" (rtos (* (/ (+ SUMME_E SUMME_A) 3) 1.1)) "") + (ssadd (entlast) auswahl-satz) + ; ----------------------- + ; nun die Schutzschl„uche + ; ----------------------- + (prompt "\n**** Schutzschlauch Typ 2020.101.021 PG21 *******") + (setq WINKEL (+ WINKEL 5)) + (command "_insert" (strcat lw "/acadsst/steuerg/p_einzel") + P0 "" "" (rtos WINKEL)) + (attribute-aendern "0" "0" "9" "" "" block-kennung "929065285" + "Schutzschlauch Typ 2020.101.021 PG21" "6" "") + (ssadd (entlast) auswahl-satz) + (prompt "\n**** Befestigungsschelle 28 mm *******") + (setq WINKEL (+ WINKEL 5)) + (command "_insert" (strcat lw "/acadsst/steuerg/p_einzel") + P0 "" "" (rtos WINKEL)) + (attribute-aendern "0" "0" "9" "" "" block-kennung "929065280" + "Befestigungsschelle 28 mm" "24" "") + (ssadd (entlast) auswahl-satz) + (prompt "\n**** Selbstbohrschraube 4,8x16 DIN 7976 *******") + (setq WINKEL (+ WINKEL 5)) + (command "_insert" (strcat lw "/acadsst/steuerg/p_einzel") + P0 "" "" (rtos WINKEL)) + (attribute-aendern "0" "0" "9" "" "" block-kennung "911281005" + "Selbstbohrschraube 4,8x16 DIN 7976" "24" "") + (ssadd (entlast) auswahl-satz) + (prompt "\n**** Spreiz-Clip *******") + (setq WINKEL (+ WINKEL 5)) + (command "_insert" (strcat lw "/acadsst/steuerg/p_einzel") + P0 "" "" (rtos WINKEL)) + (attribute-aendern "0" "0" "9" "" "" block-kennung "821436011" + "Spreiz-Clip" "24" "") + (ssadd (entlast) auswahl-satz) +) + +;------------------------------------------------------------------------------ +(defun c:klkasten ( / P0 P1 P2 P3 P4 P5 P6 SUMME_E SUMME_A EINGANG AUSGANG + KAST_BEZ WINKEL BEZ ARTINR OK_NOT ALEN ALAUF ASATZ E) + (setvar "limcheck" 0) + (setq WINKEL 0) + (prompt "\n**** KLEMMKASTEN *******") + (prompt "\n") + (datain) + (geometrie) + (mach-block P6 "0" auswahl-satz) + (setq auswahl-satz nil) + (attribute-aendern "0" "2" "9" "" "" block-kennung "111111111" (strcat KAST_BEZ " E:" (itoa SUMME_E) " A:" (itoa SUMME_A)) "" "") ; in SSTBASE.LSP + (setvar "osmode" ALTFANG) +) +;------------------------------------------------------------------------------ \ No newline at end of file diff --git a/STEUERG/LEGEND_D.DWG b/STEUERG/LEGEND_D.DWG new file mode 100644 index 0000000..cf8ce10 Binary files /dev/null and b/STEUERG/LEGEND_D.DWG differ diff --git a/STEUERG/LEGEND_E.DWG b/STEUERG/LEGEND_E.DWG new file mode 100644 index 0000000..20695cc Binary files /dev/null and b/STEUERG/LEGEND_E.DWG differ diff --git a/STEUERG/PRITSCH1.DWG b/STEUERG/PRITSCH1.DWG new file mode 100644 index 0000000..b8818bd Binary files /dev/null and b/STEUERG/PRITSCH1.DWG differ diff --git a/STEUERG/PRITSCHE.DCL b/STEUERG/PRITSCHE.DCL new file mode 100644 index 0000000..8c631a0 --- /dev/null +++ b/STEUERG/PRITSCHE.DCL @@ -0,0 +1,70 @@ +/* Dialogbox fr PRITSCHE = Kabelpritschen einfgen */ +/* Datum: 14.9.1994 AW */ + + +PRITSCHE : dialog { + label = "SCHÖNENBERGER Systeme GmbH - Kabelpritschen"; + spacer; + : row { + : list_box { + label = "KABELPRITSCHEN"; + key = "KOMP"; + mnemonic = "K"; + list = "RINNE\nTRENNSTEG\nBG 45\nBG 90\nT-ABZ.\nKREUZUNG\nANBAU-ABZ.\nV.T-Abz.breit\nV.T-Abz.-schmal\nAbs.Bl.\nBoden-Endbl.\nAusleger\nSHS-Stiel\nSteigeleiter\nLängssverbinder\nWinkelverb.\nFlachrundschr.\nGelenkverb.\nReduzierw.\nSensorh.AP\nH-BT6\nH-BT4\nH-BT1\nH-BT2\nH-BT3\nREP.SCHALTER"; + width = 20; + height = 6; + } + : image { + height = 7; + width = 10; + color = 0; + key = "anzeige"; + } + } + spacer; + : row { + : boxed_radio_column { + label = "Breite"; + key = "BREI"; + : radio_button { + label = "100"; + key = "BREI_1"; + } + : radio_button { + label = "300"; + key = "BREI_2"; + } + } + spacer; + : boxed_radio_column { + label = "DECKEL"; + key = "DECKEL"; + : radio_button { + label = "MIT Deckel"; + key = "DECKEL_1"; + } + : radio_button { + label = "OHNE Deckel"; + key = "DECKEL_2"; + } + } + : column { + : edit_box { + label = "Anzahl:"; + allow_accept = true; + key = "ANZAHL"; + value = 1; + } + : popup_list { + label = "Länge-SHS"; + key = "SHS_L"; + list = "300\n400\n500\n600\n700\n800\n900\n1000\n1100\n1200\n1300\n1400\n1500"; + edit_width = 9; + } + } + spacer; + } + spacer; + ok_cancel_help; +} + \ No newline at end of file diff --git a/STEUERG/PRITSCHE.DWG b/STEUERG/PRITSCHE.DWG new file mode 100644 index 0000000..97e9fb4 Binary files /dev/null and b/STEUERG/PRITSCHE.DWG differ diff --git a/STEUERG/PRITSCHE.LSP b/STEUERG/PRITSCHE.LSP new file mode 100644 index 0000000..0e34a01 --- /dev/null +++ b/STEUERG/PRITSCHE.LSP @@ -0,0 +1,951 @@ +;------------------------------------------------------------------------; +; KABELPRITSCHEN ; +;------------------------------------------------------------------------; +; AW 15.09.94 / 23.09.2007 ; +;------------------------------------------------------------------------; +(defun Dbox (/ Dat) + (setq Dat (load_dialog (strcat lw "/acadsst/steuerg/PRITSCHE.DCL"))) + (if (not (new_dialog "PRITSCHE" Dat)) (exit)) + (set_tile "KOMP" m_KOMP) ; Komponente + (set_tile "BREI" m_BREI) ; Komponentenbreite - def. 300 + (set_tile "DECKEL" m_DECKEL) ; Deckel - default = mit Deckel + (set_tile "SHS_L" m_SHS_L) ; L„nge SHS + (set_tile "ANZAHL" m_ANZAHL) ; Anzahl Teile bei Montagematerial + (ACTION_TILE "KOMP" "(zeig_dia)") + (ACTION_TILE "DECKEL" "(zeig_dia)") + (action_tile "accept" "(SetPara) (done_dialog)") + (action_tile "help" "(acad_helpdlg \HIDATEI\ \"KABELPRITSCHEN\")" ) + (action_tile "cancel" "(exit) (done_dialog)") + (start_dialog) + (unload_dialog Dat) +) + +(defun zeig_dia() + (setq m_KOMP (get_tile "KOMP")) + (setq m_DECKEL (get_tile "DECKEL")) + (setq breite (dimx_tile "anzeige")) + (setq hoehe (dimy_tile "anzeige")) + (start_image "anzeige") + (FILL_IMAGE 0 0 breite hoehe 0) + (if (= m_KOMP "0") ; Rinne + (progn + (mode_tile "DECKEL" 0) + (mode_tile "BREI" 0) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + (if (= m_DECKEL "DECKEL_1") ; Rinne+Deckel + (slide_image 0 0 breite hoehe "steuerg(p_rinne-)") + (slide_image 0 0 breite hoehe "steuerg(p_rinne)") + ) + ) + ) + (if (= m_KOMP "1") ; Trennsteg + (progn + (slide_image 0 0 breite hoehe "steuerg(p_trenn)") + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 1) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + ) + ) + (if (= m_KOMP "2") ; Bogen 45 + (progn + (mode_tile "DECKEL" 0) + (mode_tile "BREI" 0) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + (if (= m_DECKEL "DECKEL_1") + (slide_image 0 0 breite hoehe "steuerg(p_bog45-)") + (slide_image 0 0 breite hoehe "steuerg(p_bog45)") + ) + ) + ) + (if (= m_KOMP "3") ; Bogen 90 + (progn + (mode_tile "DECKEL" 0) + (mode_tile "BREI" 0) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + (if (= m_DECKEL "DECKEL_1") + (slide_image 0 0 breite hoehe "steuerg(p_bog90-)") + (slide_image 0 0 breite hoehe "steuerg(p_bog90)") + ) + ) + ) + (if (= m_KOMP "4") ; T-Abzweigungsstck + (progn + (mode_tile "DECKEL" 0) + (mode_tile "BREI" 0) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + (if (= m_DECKEL "DECKEL_1") + (slide_image 0 0 breite hoehe "steuerg(p_abz_t-)") + (slide_image 0 0 breite hoehe "steuerg(p_abz_t)") + ) + ) + ) + (if (= m_KOMP "5") ; Kreuzung + (progn + (mode_tile "DECKEL" 0) + (mode_tile "BREI" 0) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + (if (= m_DECKEL "DECKEL_1") + (slide_image 0 0 breite hoehe "steuerg(p_kreuz-)") + (slide_image 0 0 breite hoehe "steuerg(p_kreuz)") + ) + ) + ) + (if (= m_KOMP "6") ; Anbau-Abzweig + (progn + (mode_tile "DECKEL" 0) + (mode_tile "BREI" 0) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + (if (= m_DECKEL "DECKEL_1") + (slide_image 0 0 breite hoehe "steuerg(p_anabz-)") + (slide_image 0 0 breite hoehe "steuerg(p_an_abz)") + ) + ) + ) + (if (= m_KOMP "7") ; Vert-T-Abzweig breit + (progn + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 0) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + (slide_image 0 0 breite hoehe "steuerg(p_tabzbr)") + ) + ) + (if (= m_KOMP "8") ; Vert-T-Abzweig schmal + (progn + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 0) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + (slide_image 0 0 breite hoehe "steuerg(p_tabzsc)") + ) + ) + (if (= m_KOMP "9") ; Endabschlussblech + (progn + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 0) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + (slide_image 0 0 breite hoehe "steuerg(p_reduz)") + ) + ) + (if (= m_KOMP "10") ; Boden-Endbleche + (progn + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 0) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + (slide_image 0 0 breite hoehe "steuerg(p_bend)") + ) + ) + (if (= m_KOMP "11") ; Wandausleger + (progn + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 0) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + (slide_image 0 0 breite hoehe "steuerg(p_wandau)") + ) + ) + + (if (= m_KOMP "12") ; SHS-Stiel + (progn + (slide_image 0 0 breite hoehe "steuerg(p_shs)") + (mode_tile "DECKEL" 1) + (mode_tile "SHS_L" 0) + (mode_tile "ANZAHL" 1) + ) + ) + (if (= m_KOMP "13") ; Steigleiter + (progn + (slide_image 0 0 breite hoehe "steuerg(p_leiter)") + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 1) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + ) + ) + (if (= m_KOMP "14") ; L„ngssverbinder + (progn + (slide_image 0 0 breite hoehe "steuerg(p_langvb)") + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 1) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 0) + ) + ) + (if (= m_KOMP "15") ; Winkelverbinder + (progn + (slide_image 0 0 breite hoehe "steuerg(p_winkv)") + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 1) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 0) + ) + ) + (if (= m_KOMP "16") ; Flachrundschraube + (progn + (slide_image 0 0 breite hoehe "steuerg(p_flrund)") + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 1) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 0) + ) + ) + (if (= m_KOMP "17") ; Gelenkverbinder + (progn + (slide_image 0 0 breite hoehe "steuerg(p_gelenk)") + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 1) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 0) + ) + ) + (if (= m_KOMP "18") ; Reduzierwinkel + (progn + (slide_image 0 0 breite hoehe "steuerg(p_reduz)") + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 1) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 0) + ) + ) + (if (= m_KOMP "19") ; Sensorhalter für AP/APS ohne Sensor + (progn + (slide_image 0 0 breite hoehe "steuerg(27724001)") + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 1) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + ) + ) + (if (= m_KOMP "20") ; Halter für BT 6-Fach (Bedientableau) + (progn + (slide_image 0 0 breite hoehe "steuerg(25304002)") + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 1) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + ) + ) + (if (= m_KOMP "21") ; Halter für BT 4-Fach (Bedientableau) + (progn + (slide_image 0 0 breite hoehe "steuerg(25304003)") + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 1) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + ) + ) + (if (= m_KOMP "22") ; Halter für BT 1-Fach (Bedientableau) + (progn + (slide_image 0 0 breite hoehe "steuerg(25304004)") + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 1) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + ) + ) + (if (= m_KOMP "23") ; Halter für BT 2-Fach (Bedientableau) + (progn + (slide_image 0 0 breite hoehe "steuerg(25304006)") + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 1) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + ) + ) + (if (= m_KOMP "24") ; Halter für BT 3-Fach (Bedientableau) + (progn + (slide_image 0 0 breite hoehe "steuerg(25304007)") + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 1) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + ) + ) + (if (= m_KOMP "25") ; Reparaturschalter Motor + (progn + (slide_image 0 0 breite hoehe "steuerg(03000115)") + (mode_tile "DECKEL" 1) + (mode_tile "BREI" 1) + (mode_tile "SHS_L" 1) + (mode_tile "ANZAHL" 1) + ) + ) + (end_image) +) + +(defun SetPara () + (setq m_KOMP (get_tile "KOMP")) + (setq m_BREI (get_tile "BREI")) + (setq m_DECKEL (get_tile "DECKEL")) + (setq m_SHS_L (get_tile "SHS_L")) + (setq m_ANZAHL (get_tile "ANZAHL")) + + ;------ Komponente definieren ---------------------------------- + ;-------------------------------------------------------------------- + (if (= m_KOMP "0") ; RKS-Kabelrinne + ;-------------------------------------------------------------------- + (progn + (if (= m_BREI "BREI_1") ; Breite 100 + (progn + (setq EBENE "PRITSCHE-4") ; Name der Ebene + (setq FARBE "4") ; Farbe der Ebene + (setq BL_NAME1 "P_RINNE1") ; Block-name + (if (= m_DECKEL "DECKEL_1") ; RKS-Rinne mit Deckel + (setq BL_NAME2 "P_DRINN1") ; Block-Name + (setq BL_NAME2 "") + ) + ) + (progn + (setq EBENE "PRITSCHE-4") ; Name der Ebene + (setq FARBE "4") ; Farbe der Ebene + (setq BL_NAME1 "P_RINNE2") ; ansonsten Breite 300 + (if (= m_DECKEL "DECKEL_1") ; RKS-Rinne mit Deckel + (setq BL_NAME2 "P_DRINN2") + (setq BL_NAME2 "") + ) + ) + ) + ) + ) + ;------------------------------------------------------------------------- + (if (= m_KOMP "1") ; Trennsteg + ;------------------------------------------------------------------------- + (progn + (setq EBENE "PRITSCHE-6") ; Name der Ebene + (setq FARBE "6") ; Farbe der Ebene + (setq BL_NAME1 "P_TRENN") ; Block-name + ) + ) + ;-------------------------------------------------------------------- + (if (= m_KOMP "2") ; RKS-Boden45 + ;-------------------------------------------------------------------- + (progn + (if (= m_BREI "BREI_1") ; Breite 100 + (progn + (setq EBENE "PRITSCHE-4") ; Name der Ebene + (setq FARBE "4") ; Farbe der Ebene + (setq BL_NAME1 "P_BOG451") ; Block-name + (if (= m_DECKEL "DECKEL_1") ; RKS-Rinne mit Deckel + (setq BL_NAME2 "P_DB451") ; Block-Name + (setq BL_NAME2 "") + ) + ) + (progn + (setq EBENE "PRITSCHE-4") ; Name der Ebene + (setq FARBE "4") ; Farbe der Ebene + (setq BL_NAME1 "P_BOG452") ; ansonsten Breite 300 + (if (= m_DECKEL "DECKEL_1") ; RKS-Rinne mit Deckel + (setq BL_NAME2 "P_DB452") + (setq BL_NAME2 "") + ) + ) + ) + ) + ) + ;-------------------------------------------------------------------- + (if (= m_KOMP "3") ; RKS-Boden90 + ;-------------------------------------------------------------------- + (progn + (if (= m_BREI "BREI_1") ; Breite 100 + (progn + (setq EBENE "PRITSCHE-4") ; Name der Ebene + (setq FARBE "4") ; Farbe der Ebene + (setq BL_NAME1 "P_BOG901") ; Block-name + (if (= m_DECKEL "DECKEL_1") ; RKS-Rinne mit Deckel + (setq BL_NAME2 "P_DB901") ; Block-Name + (setq BL_NAME2 "") + ) + ) + (progn + (setq EBENE "PRITSCHE-4") ; Name der Ebene + (setq FARBE "4") ; Farbe der Ebene + (setq BL_NAME1 "P_BOG902") ; ansonsten Breite 300 + (if (= m_DECKEL "DECKEL_1") ; RKS-Rinne mit Deckel + (setq BL_NAME2 "P_DB902") + (setq BL_NAME2 "") + ) + ) + ) + ) + ) + ;----------------------------------------------------------------------- + (if (= m_KOMP "4") ; RKS-T-Abzweigstck + ;----------------------------------------------------------------------- + (progn + (if (= m_BREI "BREI_1") ; Breite 100 + (progn + (setq EBENE "PRITSCHE-4") ; Name der Ebene + (setq FARBE "4") ; Farbe der Ebene + (setq BL_NAME1 "P_ABZT1") ; Block-name + (if (= m_DECKEL "DECKEL_1") ; RKS-Rinne mit Deckel + (setq BL_NAME2 "P_DABZT1") ; Block-Name + (setq BL_NAME2 "") + ) + ) + (progn + (setq EBENE "PRITSCHE-4") ; Name der Ebene + (setq FARBE "4") ; Farbe der Ebene + (setq BL_NAME1 "P_ABZT2" ) ; ansonsten Breite 300 + (if (= m_DECKEL "DECKEL_1") ; RKS-Rinne mit Deckel + (setq BL_NAME2 "P_DABZT2") + (setq BL_NAME2 "") + ) + ) + ) + ) + ) + ;----------------------------------------------------------------------- + (if (= m_KOMP "5") ; RKS-Kreuzung + ;----------------------------------------------------------------------- + (progn + (if (= m_BREI "BREI_1") ; Breite 100 + (progn + (setq EBENE "PRITSCHE-4") ; Name der Ebene + (setq FARBE "4") ; Farbe der Ebene + (setq BL_NAME1 "P_KREUZ1") ; Block-name + (if (= m_DECKEL "DECKEL_1") ; RKS-Rinne mit Deckel + (setq BL_NAME2 "P_DKR1") ; Block-Name + (setq BL_NAME2 "") + ) + ) + (progn + (setq EBENE "PRITSCHE-4") ; Name der Ebene + (setq FARBE "4") ; Farbe der Ebene + (setq BL_NAME1 "P_KREUZ2" ) ; ansonsten Breite 300 + (if (= m_DECKEL "DECKEL_1") ; RKS-Rinne mit Deckel + (setq BL_NAME2 "P_DKR2") + (setq BL_NAME2 "") + ) + ) + ) + ) + ) + ;----------------------------------------------------------------------- + (if (= m_KOMP "6") ; Anbau-Abzweigstck + ;----------------------------------------------------------------------- + (progn + (if (= m_BREI "BREI_1") ; Breite 100 + (progn + (setq EBENE "PRITSCHE-4") ; Name der Ebene + (setq FARBE "4") ; Farbe der Ebene + (setq BL_NAME1 "P_ANABZ1") ; Block-name + (if (= m_DECKEL "DECKEL_1") ; RKS-Rinne mit Deckel + (setq BL_NAME2 "P_DANAB1") ; Block-Name + (setq BL_NAME2 "") + ) + ) + (progn + (setq EBENE "PRITSCHE-4") ; Name der Ebene + (setq FARBE "4") ; Farbe der Ebene + (setq BL_NAME1 "P_ANABZ2" ) ; ansonsten Breite 300 + (if (= m_DECKEL "DECKEL_1") ; RKS-Rinne mit Deckel + (setq BL_NAME2 "P_DANAB2") + (setq BL_NAME2 "") + ) + ) + ) + ) + ) + ;------------------------------------------------------------------------- + (if (= m_KOMP "7") ; Vert-T-Abzweig breit + ;------------------------------------------------------------------------- + (progn + (if (= m_BREI "BREI_1") ; Breite 100 + (progn + (setq EBENE "PRITSCHE-1") ; Name der Ebene + (setq FARBE "1") ; Farbe der Ebene + (setq BL_NAME1 "P_TABZB1") ; Block-name + ) + (progn + (setq EBENE "PRITSCHE-1") ; Name der Ebene + (setq FARBE "1") ; Farbe der Ebene + (setq BL_NAME1 "P_TABZB2" ) ; ansonsten Breite 300 + ) + ) + ) + ) + ;------------------------------------------------------------------------- + (if (= m_KOMP "8") ; Vert-T-Abzweig schmal + ;------------------------------------------------------------------------- + (progn + (if (= m_BREI "BREI_1") ; Breite 100 + (progn + (setq EBENE "PRITSCHE-1") ; Name der Ebene + (setq FARBE "1") ; Farbe der Ebene + (setq BL_NAME1 "P_TABZS1") ; Block-name + ) + (progn + (setq EBENE "PRITSCHE-1") ; Name der Ebene + (setq FARBE "1") ; Farbe der Ebene + (setq BL_NAME1 "P_TABZS2" ) ; ansonsten Breite 300 + ) + ) + ) + ) + ;------------------------------------------------------------------------- + (if (= m_KOMP "9") ; Endabschlussblech + ;------------------------------------------------------------------------- + (progn + (if (= m_BREI "BREI_1") ; Breite 100 + (progn + (setq EBENE "PRITSCHE-3") ; Name der Ebene + (setq FARBE "3") ; Farbe der Ebene + (setq BL_NAME1 "P_REDUZ1") ; Block-name + ) + (progn + (setq EBENE "PRITSCHE-3") ; Name der Ebene + (setq FARBE "3") ; Farbe der Ebene + (setq BL_NAME1 "P_REDUZ2" ) ; ansonsten Breite 300 + ) + ) + ) + ) + ;------------------------------------------------------------------------- + (if (= m_KOMP "10") ; Bodenendblech + ;------------------------------------------------------------------------- + (progn + (if (= m_BREI "BREI_1") ; Breite 100 + (progn + (setq EBENE "PRITSCHE-5") ; Name der Ebene + (setq FARBE "5") ; Farbe der Ebene + (setq BL_NAME1 "P_BEND1") ; Block-name + ) + (progn + (setq EBENE "PRITSCHE-5") ; Name der Ebene + (setq FARBE "5") ; Farbe der Ebene + (setq BL_NAME1 "P_BEND2" ) ; ansonsten Breite 300 + ) + ) + ) + ) + ;------------------------------------------------------------------------- + (if (= m_KOMP "11") ; Wadausleger + ;------------------------------------------------------------------------- + (progn + (if (= m_BREI "BREI_1") ; Breite 100 + (progn + (setq EBENE "PRITSCHE-7") ; Name der Ebene + (setq FARBE "7") ; Farbe der Ebene + (setq BL_NAME1 "P_WANDA1") ; Block-name + ) + (progn + (setq EBENE "PRITSCHE-7") ; Name der Ebene + (setq FARBE "7") ; Farbe der Ebene + (setq BL_NAME1 "P_WANDA2" ) ; ansonsten Breite 300 + ) + ) + ) + ) + ;------------------------------------------------------------------------- + (if (= m_KOMP "12") ; SHS-Stiel kpl. + ;------------------------------------------------------------------------- + (progn + (setq EBENE "PRITSCHE-7") ; Name der Ebene + (setq FARBE "7") ; Farbe der Ebene + (setq BL_NAME1 "P_SHS") ; Block-name + (if (= m_SHS_L "0") + (progn + (setq ARTINR "929065209") + (setq BEZ "SHS-Stiel L=300 -OBO:6322 04 2") + (setq LANG "300") + ) + ) + (if (= m_SHS_L "1") + (progn + (setq ARTINR "929065210") + (setq BEZ "SHS-Stiel L=400 -OBO:6322 06 9") + (setq LANG "400") + ) + ) + (if (= m_SHS_L "2") + (progn + (setq ARTINR "929065211") + (setq BEZ "SHS-Stiel L=500 -OBO:6322 08 5") + (setq LANG "500") + ) + ) + (if (= m_SHS_L "3") + (progn + (setq ARTINR "929065212") + (setq BEZ "SHS-Stiel L=600 -OBO:6322 10 7") + (setq LANG "600") + ) + ) + (if (= m_SHS_L "4") + (progn + (setq ARTINR "929065213") + (setq BEZ "SHS-Stiel L=700 -OBO:6322 12 3") + (setq LANG "700") + ) + ) + (if (= m_SHS_L "5") + (progn + (setq ARTINR "929065214") + (setq BEZ "SHS-Stiel L=800 -OBO:6322 15 8") + (setq LANG "800") + ) + ) + (if (= m_SHS_L "6") + (progn + (setq ARTINR "929065215") + (setq BEZ "SHS-Stiel L=900 -OBO:6322 17 4") + (setq LANG "900") + ) + ) + (if (= m_SHS_L "7") + (progn + (setq ARTINR "929065216") + (setq BEZ "SHS-Stiel L=1000-OBO:6322 19 0") + (setq LANG "1000") + ) + ) + (if (= m_SHS_L "8") + (progn + (setq ARTINR "929065217") + (setq BEZ "SHS-Stiel L=1100-OBO:6322 21 2") + (setq LANG "1100") + ) + ) + (if (= m_SHS_L "9") + (progn + (setq ARTINR "929065218") + (setq BEZ "SHS-Stiel L=1200-OBO:6322 23 9") + (setq LANG "1200") + ) + ) + (if (= m_SHS_L "10") + (progn + (setq ARTINR "929065219") + (setq BEZ "SHS-Stiel L=1300-OBO:6322 25 5") + (setq LANG "1300") + ) + ) + (if (= m_SHS_L "11") + (progn + (setq ARTINR "929065220") + (setq BEZ "SHS-Stiel L=1400-OBO:6322 27 1") + (setq LANG "1400") + ) + ) + (if (= m_SHS_L "12") + (progn + (setq ARTINR "929065221") + (setq BEZ "SHS-Stiel L=1500-OBO:6322 30 1") + (setq LANG "1500") + ) + ) + ) + ) + ;------------------------------------------------------------------------- + (if (= m_KOMP "13") ; Steigleiter + ;------------------------------------------------------------------------- + (progn + (setq EBENE "PRITSCHE-2") ; Name der Ebene + (setq FARBE "2") ; Farbe der Ebene + ) + ) + ;-------> ab hier Montageelemente, die als LEGENDE eingesetzt werden + ;------------------------------------------------------------------------- + (if (= m_KOMP "14") ; L„ngsverbinder + ;------------------------------------------------------------------------- + ; noch nicht fertig !!!! + (progn + (setq EBENE "PRITSCHE-7") ; Name der Ebene + (setq FARBE "7") ; Farbe der Ebene + (setq BL_NAME1 "P_LANGVB") ; Block-name + ) + ) + ;------------------------------------------------------------------------- + (if (= m_KOMP "15") ; Winkelverbinder + ;------------------------------------------------------------------------- + (progn + (setq EBENE "PRITSCHE-7") ; Name der Ebene + (setq FARBE "7") ; Farbe der Ebene + (setq BL_NAME1 "P_WINKV") ; Block-name + ) + ) + ;------------------------------------------------------------------------- + (if (= m_KOMP "16") ; Flachrundschraube + ;------------------------------------------------------------------------- + (progn + (setq EBENE "PRITSCHE-7") ; Name der Ebene + (setq FARBE "7") ; Farbe der Ebene + (setq BL_NAME1 "P_FLRUND") ; Block-name + ) + ) + ;------------------------------------------------------------------------- + (if (= m_KOMP "17") ; Gelenkverbinder + ;------------------------------------------------------------------------- + (progn + (setq EBENE "PRITSCHE-7") ; Name der Ebene + (setq FARBE "7") ; Farbe der Ebene + (setq BL_NAME1 "P_GELENK") ; Block-name + ) + ) + ;------------------------------------------------------------------------- + (if (= m_KOMP "18") ; Reduzierwinkel + ;------------------------------------------------------------------------- + (progn + (setq EBENE "PRITSCHE-7") ; Name der Ebene + (setq FARBE "7") ; Farbe der Ebene + (setq BL_NAME1 "P_REDUZ3") ; Block-name + ) + ) + ;-------------------------------------------------------------------------------------------------- + (if (= m_KOMP "19") ; Sensorhalter f. AP/APS, Halter für Bedientableaus + ;-------------------------------------------------------------------------------------------------- + (progn + (setq EBENE "HALTER") ; Name der Ebene + (setq FARBE "1") ; Farbe der Ebene + (setq BL_NAME1 "827724001") ; Block-name + ) + ) + ;-------------------------------------------------------------------------------------------------- + (if (= m_KOMP "20") ; Halter für BT 6-fach ohne BT (Bedientableau) + ;-------------------------------------------------------------------------------------------------- + (progn + (setq EBENE "HALTER") ; Name der Ebene + (setq FARBE "1") ; Farbe der Ebene + (setq BL_NAME1 "825304002") ; Block-name + ) + ) + ;-------------------------------------------------------------------------------------------------- + (if (= m_KOMP "21") ; Halter für BT 4-fach ohne BT (Bedientableau) + ;-------------------------------------------------------------------------------------------------- + (progn + (setq EBENE "HALTER") ; Name der Ebene + (setq FARBE "1") ; Farbe der Ebene + (setq BL_NAME1 "825304003") ; Block-name + ) + ) + ;-------------------------------------------------------------------------------------------------- + (if (= m_KOMP "22") ; Halter für BT 1-fach ohne BT (Bedientableau) + ;-------------------------------------------------------------------------------------------------- + (progn + (setq EBENE "HALTER") ; Name der Ebene + (setq FARBE "1") ; Farbe der Ebene + (setq BL_NAME1 "825304004") ; Block-name + ) + ) + ;-------------------------------------------------------------------------------------------------- + (if (= m_KOMP "23") ; Halter für BT 2-fach ohne BT (Bedientableau) + ;-------------------------------------------------------------------------------------------------- + (progn + (setq EBENE "HALTER") ; Name der Ebene + (setq FARBE "1") ; Farbe der Ebene + (setq BL_NAME1 "825304006") ; Block-name + ) + ) + ;-------------------------------------------------------------------------------------------------- + (if (= m_KOMP "24") ; Halter für BT 3-fach ohne BT (Bedientableau) + ;-------------------------------------------------------------------------------------------------- + (progn + (setq EBENE "HALTER") ; Name der Ebene + (setq FARBE "1") ; Farbe der Ebene + (setq BL_NAME1 "825304007") ; Block-name + ) + ) + ;-------------------------------------------------------------------------------------------------- + (if (= m_KOMP "25") ; Reparaturschalter Motor + ;-------------------------------------------------------------------------------------------------- + (progn + (setq EBENE "MOTOR") ; Name der Ebene + (setq FARBE "1") ; Farbe der Ebene + (setq BL_NAME1 "703000115") ; Block-name + ) + ) +) +;........... Ende SetPara()............................ + + +(defun datain () + (setq AUSWAHL-SATZ nil) +) + +(defun geometrie() + (command "_layer" "_m" EBENE "_c" FARBE "" "") + (setq P0 (getpoint "\nKomponente setzen : ")) + (if (or (= m_KOMP "0") (= m_KOMP "1")) ; --> Rinne - zus„tzlich 2.Punkt antippen + (progn + (setq P2 (getpoint P0 "\nAnschlusspunkt antippen: ")) + (setq SZAM (+ (fix (/ (distance P0 P2) 3000)) 1)) + (setq WINK_RAD (angle P0 P2)) + (setq WINK_GRA (/ (* WINK_RAD 180) pi)) + (command "_insert" (strcat lw "/acadsst/steuerg/" BL_NAME1) P0 (rtos (distance P0 P2)) "1" (rtos WINK_GRA)) + (attribute-aendern "" "" "" (rtos (distance P0 P2)) "" "" "" "" (rtos SZAM) "") + ) + (command "_insert" (strcat lw "/acadsst/steuerg/" BL_NAME1) P0 "" "" "") + ) + (setq auswahl-satz (ssget "_L")) + + ; -- wenn noch Deckel gewnscht - nur fr die Rinne + (if (> (strlen BL_NAME2) 0) + (progn + (setq P1 (list (car P0) (cadr P0) (+ (caddr P0) 60))) + (if (= m_KOMP "0") + (progn + (command "_layer" "_m" "PRITSCHE-1" "_c" "1" "" "") + (command "_insert" (strcat lw "/acadsst/steuerg/" BL_NAME2) P1 (rtos (distance P0 P2)) "1" (rtos WINK_GRA)) + (attribute-aendern "" "" "" (rtos (distance P0 P2)) "" "" "" "" (rtos SZAM) "") + ) + (command "_insert" (strcat lw "/acadsst/steuerg/" BL_NAME2) P1 "" "" "") + ) + (ssadd (entlast) auswahl-satz) + ) + ) + (if (and (/= m_KOMP "0") (/= m_KOMP "1")) ; wenn nicht Rinne oder Trennelement - NICHT drehen + (progn + (command "_ortho" "_on") + (command "_rotate" auswahl-satz "" P0 pause) + (command "_ortho" "_off") + ) + ) +) + +(defun geom_einzel() + (command "_layer" "_m" EBENE "_c" FARBE "" "") + (setq P0 (getpoint "\nKomponente setzen : ")) + (command "_insert" (strcat lw "/acadsst/steuerg/" BL_NAME1) P0 "" "" "") + (if (= m_KOMP "14") ; L„ngsverbinder + (progn + (if (= m_BREI "BREI_1") ; Breite 100 + (attribute-aendern "0" "0" "9" "" "" "" "929065171" "100-OBO:6068 15 4" m_ANZAHL "") + (attribute-aendern "0" "0" "9" "" "" "" "929065170" "300-OBO:6068 18 9" m_ANZAHL "") + ) + ) + (progn + (attribute-aendern "0" "0" "" "" "" "" "" "" m_ANZAHL "") + ) + ) +) + +(defun geom_shs() + (setq auswahl-satz nil) + (setq WINKEL 0) + (command "_layer" "_m" EBENE "_c" FARBE "" "") + (setq P0 (getpoint "\nSHS-Stiel setzen : ")) + (bl-name P0) ;--> Block-Name definieren -> Rckgabe: block-kennung + ; ------------------------ + ; ---- SHS-Stiel einfgen + ; ------------------------ + (command "_insert" (strcat lw "/acadsst/steuerg/" "P_SHS") P0 "" "" "") + (attribute-aendern "0" "0" "9" LANG "" block-kennung ARTINR BEZ "" "") + (setq auswahl-satz (ssget "_L")) + ; ------------------------------------ + ; ---- Endstck fr SHS-Stiel einfgen + ; ------------------------------------ + (setq WINKEL (+ WINKEL 10)) + (command "_insert" (strcat lw "/acadsst/steuerg/p_einzel") + P0 "" "" (rtos WINKEL)) + (attribute-aendern "0" "0" "9" "" "" block-kennung "929065208" + "Endst.f.SHS-Stiel-OBO: 6322 99 9" "1" "") + (ssadd (entlast) auswahl-satz) + ; ------------------------------- + ; ---- MKA-Klemmauskeger einfgen + ; ------------------------------- + (setq WINKEL (+ WINKEL 10)) + (command "_insert" (strcat lw "/acadsst/steuerg/p_einzel") + P0 "" "" (rtos WINKEL)) + (if (= m_BREI "BREI_1") ; Breite 100 + (attribute-aendern "0" "0" "9" "" "" block-kennung "929065206" + "MKA-Klemmausleger 10/10-OBO: 6425 01 1" "1" "") + (attribute-aendern "0" "0" "9" "" "" block-kennung "929065207" + "MKA-Klemmausleger 10/30-OBO: 6425 06 2" "1" "") + ) + ; ------------------------ + ; Obergruppe bilden + ; ------------------------ + (setq BEZ (strcat (substr BEZ 1 16) " kpl.")) + (ssadd (entlast) auswahl-satz) + (mach-block P0 "0" auswahl-satz) + (attribute-aendern "0" "" "9" LANG "" block-kennung "111111111" (strcat BEZ " [BG1]") "" "") + (command "_ortho" "_on") + (command "_rotate" "_l" "" P0 pause) + (command "_ortho" "_off") + (setq auswahl-satz nil) +) + +(defun geom_leiter() + (setq auswahl-satz nil) + (setq WINKEL 0) + (command "_layer" "_m" EBENE "_c" FARBE "" "") + (setq P0 (getpoint "\nSteigeleiter setzen : ")) + (bl-name P0) ;--> Block-Name definieren -> Rckgabe: block-kennung + ; -------------------------- + ; ---- Steigeleiter einfgen + ; -------------------------- + (command "_insert" (strcat lw "/acadsst/steuerg/" "P_LEITER") P0 "" "" "") + (attribute-aendern "0" "0" "9" "6000" "" block-kennung "" "" "" "") + (setq auswahl-satz (ssget "_L")) + ; ----------------------------------------------- + ; ---- 2 L„ngsverbinder fr Steigeleiter zuordnen + ; ----------------------------------------------- + (command "_insert" (strcat lw "/acadsst/steuerg/p_einzel") + P0 "" "" "45") + (attribute-aendern "0" "0" "9" "" "" block-kennung "929065254" + "L„ngsverb.Steigeleiter-OBO:6200 81 8" "2" "") + (ssadd (entlast) auswahl-satz) + ; ------------------------ + ; Obergruppe bilden + ; ------------------------ + (ssadd (entlast) auswahl-satz) + (mach-block P0 "0" auswahl-satz) + (attribute-aendern "0" "" "9" "" "" block-kennung "111111111" "Steigeleiter+2 L„ngsverb. [BG1]" "" "") + (command "_ortho" "_on") + (command "_rotate" "_l" "" P0 pause) + (command "_ortho" "_off") + (setq auswahl-satz nil) +) + +;------------------------------------------------------------------------------ +(defun c:PRITSCHE ( / KOMP BREITE BREITE_1 BREITE_2 DECKEL DECKEL_1 DECKEL_2 + BL_NAME1 BL_NAME2 EBENE FARBE SHS_L ANZAHL ARTINR WINKEL + BEZ LANG P0 P1) + (setvar "limcheck" 0) + (setvar "CMDECHO" 0) + (setvar "BLIPMODE" 0) + (setq BL_NAME1 "") + (setq BL_NAME2 "") + (setq auswahl-satz "") + (setq HIDATEI (strcat lw "/acadsst/steuerg/steuerg.hlp")) + (command "_ortho" "_off") + (setq EINZEL 0) ; fr EINZEL=0 Baugruppen / EINZEL=1 fr APB + (prompt "**** ALU KOMPONENTEN *******") + (prompt "") + (if (null m_KOMP) (setq m_KOMP "0")) ; Komponente + (if (null m_BREI) (setq m_BREI "BREI_2")) ; Breite 300 + (if (null m_DECKEL) (setq m_DECKEL "DECKEL_1")) ; mit Deckel + (if (null m_SHS_L) (setq m_SHS_L "0")) ; SHS-Stiell„nge + (if (null m_ANZAHL) (setq m_ANZAHL "0")) ; SHS-Stiell„nge + (Dbox) + (prompt "") +; (datain) + (if (or (= m_KOMP "0") (= m_KOMP "1") (= m_KOMP "2") (= m_KOMP "3") + (= m_KOMP "4") (= m_KOMP "5") (= m_KOMP "6") (= m_KOMP "7") + (= m_KOMP "8") (= m_KOMP "9") (= m_KOMP "10")(= m_KOMP "11") + (= m_KOMP "19") (= m_KOMP "20") (= m_KOMP "21")(= m_KOMP "22") (= m_KOMP "23") (= m_KOMP "24") (= m_KOMP "25") + ) + (geometrie) + ) + (if (or (= m_KOMP "14") (= m_KOMP "15") (= m_KOMP "16") + (= m_KOMP "17") (= m_KOMP "18")) + (geom_einzel) + ) + (if (= m_KOMP "12") + (geom_shs) + ) + (if (= m_KOMP "13") + (geom_leiter) + ) + (setq BL_NAME1 "") + (setq BL_NAME2 "") +) diff --git a/STEUERG/PRITSCHE.NEW b/STEUERG/PRITSCHE.NEW new file mode 100644 index 0000000..a8a8656 --- /dev/null +++ b/STEUERG/PRITSCHE.NEW @@ -0,0 +1,234 @@ +;------------------------------------------------------------------------; +; ALU-KOMPONENTEN - ALU_K4.LSP - WBs mit 180 Abstand ; +;------------------------------------------------------------------------; +; AW 10.09.94 ; +;------------------------------------------------------------------------; +(defun Dbox (/ Dat) + (setq Dat (load_dialog (strcat lw "/acadsst/steuerg/PRITSCHE.DCL"))) + (if (not (new_dialog "PRITSCHE" Dat)) (exit)) + (set_tile "KOMP" m_KOMP) ; Komponente + (set_tile "BREI" m_BREI) ; Komponentenbreite - def. 300 + (set_tile "DECKEL" m_DECKEL) ; Deckel - default = mit Deckel + (ACTION_TILE "KOMP" "(zeig_dia)") + (ACTION_TILE "DECKEL" "(zeig_dia)") + (action_tile "accept" "(SetPara) (done_dialog)") + (action_tile "cancel" "(exit) (done_dialog)") + (start_dialog) + (unload_dialog Dat) +) + +(defun zeig_dia() + (setq m_KOMP (get_tile "KOMP")) + (setq breite (dimx_tile "anzeige")) + (setq hoehe (dimy_tile "anzeige")) + (start_image "anzeige") + (FILL_IMAGE 0 0 breite hoehe -18) + (if (= m_KOMP "0") + (progn + (if (= m_DECKEL "DECKEL_1") + (slide_image 0 0 breite hoehe "steuerg(p_rinne-)") + (slide_image 0 0 breite hoehe "steuerg(p_rinne)") + ) + ) + (if (= m_KOMP "1") + (slide_image 0 0 breite hoehe "steuerg(p_bog45)") + ) + (if (= m_KOMP "2") + (slide_image 0 0 breite hoehe "steuerg(p_bog90)") + ) + (if (= m_KOMP "3") + (slide_image 0 0 breite hoehe "steuerg(p_abz_t)") + ) + (if (= m_KOMP "4") + (slide_image 0 0 breite hoehe "steuerg(p_kreuz)") + ) + (if (= m_KOMP "5") + (slide_image 0 0 breite hoehe "steuerg(p_an_abz)") + ) + (if (= m_KOMP "6") + (slide_image 0 0 breite hoehe "steuerg(p_tabzbr)") + ) + (if (= m_KOMP "7") + (slide_image 0 0 breite hoehe "steuerg(p_tabzsc)") + ) + (if (= m_KOMP "8") + (slide_image 0 0 breite hoehe "steuerg(p_reduz)") + ) + (if (= m_KOMP "9") + (slide_image 0 0 breite hoehe "steuerg(p_bend)") + ) + (if (= m_KOMP "10") + (slide_image 0 0 breite hoehe "steuerg(p_langvb)") + ) + (if (= m_KOMP "11") + (slide_image 0 0 breite hoehe "steuerg(p_wandau)") + ) + (if (= m_KOMP "12") + (slide_image 0 0 breite hoehe "steuerg(p_mka)") + ) + (if (= m_KOMP "13") + (slide_image 0 0 breite hoehe "steuerg(p_winkv)") + ) + (if (= m_KOMP "14") + (slide_image 0 0 breite hoehe "steuerg(p_flrund)") + ) + (if (= m_KOMP "15") + (slide_image 0 0 breite hoehe "steuerg(p_gelenk)") + ) + (if (= m_KOMP "16") + (slide_image 0 0 breite hoehe "steuerg(p_trenn)") + ) + (if (= m_KOMP "17") + (slide_image 0 0 breite hoehe "steuerg(p_shs)") + ) + (if (= m_KOMP "18") + (slide_image 0 0 breite hoehe "steuerg(p_shs_e)") + ) + (end_image) +) + +(defun SetPara () + (setq m_KOMP (get_tile "KOMP")) + (setq m_BREI (get_tile "SATZ")) + (setq m_DECKEL (get_tile "AUSF")) + + ;------ Komponente definieren + (if (= m_KOMP "0") + (progn + (setq BL_NAME "WBE2L18") + (setq BEZ "WB 1SW+APB R550/90-L-180") + ) + ) + (if (= m_KOMP "1") + (progn + (setq BL_NAME "WBE2R18") + (setq BEZ "WB 1SW+APB R550/90-R-180") + ) + ) + (if (= m_KOMP "2") + (progn + (setq BL_NAME "WB1L18") + (setq BEZ "WB 1SW R550/90-L-180") + ) + ) + (if (= m_KOMP "3") + (progn + (setq BL_NAME "WB1R18") + (setq BEZ "WB 1SW R550/90-R-180") + ) + ) + (if (= m_KOMP "4") + (progn + (setq BL_NAME "WB2L18") + (setq BEZ "WB 2SW R550/90-L-180") + ) + ) + (if (= m_KOMP "5") + (progn + (setq BL_NAME "WB2R18") + (setq BEZ "WB 2SW R550/90-R-180") + ) + ) + (if (= m_KOMP "6") + (progn + (setq BL_NAME "WB3L18") + (setq BEZ "WB 2SW+APB R550/90-L-180") + ) + ) + (if (= m_KOMP "7") + (progn + (setq BL_NAME "WB3R18") + (setq BEZ "WB 2SW+APB R550/90-R-180") + ) + ) + (if (= m_KOMP "8") + (progn + (setq BL_NAME "SWL18") + (setq BEZ "SW R550/PARALLEL-L-180") + ) + ) + (if (= m_KOMP "9") + (progn + (setq BL_NAME "SWR18") + (setq BEZ "SW R550/PARALLEL-R-180") + ) + ) + (if (= m_KOMP "10") + (progn + (setq BL_NAME "DSWPA18") + (setq BEZ "DSW R550/PARALLEL-180") + ) + ) + (if (= m_KOMP "11") + (progn + (setq BL_NAME "3SWPA18") + (setq BEZ "SW3 R550/PARALLEL-180") + ) + ) +) +;........... Ende SetPara()............................ + + +(defun datain () + (setq AUSWAHL-SATZ nil) +) + +(defun geometrie() + (setq auswahl-satz nil) + (command "_layer" "_m" "PRITSCHE-5" "_c" "5" "" "") + (setq P0 (getpoint "\nEinfgepunkt antippen: ")) + (bl-name P0) ;--> Block-Name definieren -> Rckgabe: block-kennung + (setq BL_NAME (strcat lw "/acadsst/alu/" BL_NAME)) + + (command "_insert" BL_NAME P0 "" "" "0") + + (if (= EINZEL 0) ; kein APB -> BG bilden + (progn + + (setq auswahl-satz (ssget "_L")) + (command "_layer" "_m" "A-4" "_c" "4" "" "") + (schaltung) + (if (or (= m_KOMP "4") (= m_KOMP "5") + (= m_KOMP "6") (= m_KOMP "7")) ; 2 Weichen + (schaltung) + ) + (if (= m_VERW "VERW_1") + (block-op P0 "0" auswahl-satz) ; fr Angebot + (progn + (mach-block P0 "0" auswahl-satz) + (attribute-aendern "0" "2" "1" "" "" block-kennung "111111111" (strcat BEZ " [BG1]") "" "") ; in SSTBASE.LSP + ) + ) + ) + ) + + (command "_rotate" "_l" "" P0 pause) + + (if (= EINZEL 0) + (progn + (if (= m_VERW "VERW_1") ; fr Angebote die obere Gruppe zerst”ren + (command "_explode" "_l") + ) + ) + ) + (setq EINZEL 0) ; auf BG Status zurcksetzen +) + +;------------------------------------------------------------------------------ +(defun c:PRITSCHE ( / KOMP BREITE BREITE_1 BREITE_2 DECKEL DECKEL_1 DECKEL_2) + (setvar "limcheck" 0) + (setvar "CMDECHO" 0) + (setvar "BLIPMODE" 0) + (setq auswahl-satz nil) + (setq EINZEL 0) ; fr EINZEL=0 Baugruppen / EINZEL=1 fr APB + (prompt "**** ALU KOMPONENTEN *******") + (prompt "") + (if (null m_KOMP) (setq m_KOMP "0")) ; Komponente + (if (null m_BREI) (setq m_BREI "BREI_2")) ; Breite 300 + (if (null m_DECKEL) (setq m_DECKEL "DECKEL_1")) ; mit Deckel + (Dbox) + (prompt "") + (datain) + (geometrie) +) + \ No newline at end of file diff --git a/STEUERG/PRITSCHE.OLD b/STEUERG/PRITSCHE.OLD new file mode 100644 index 0000000..d70e933 --- /dev/null +++ b/STEUERG/PRITSCHE.OLD @@ -0,0 +1,229 @@ +;------------------------------------------------------------------------; +; ALU-KOMPONENTEN - ALU_K4.LSP - WBs mit 180 Abstand ; +;------------------------------------------------------------------------; +; AW 10.09.94 ; +;------------------------------------------------------------------------; +(defun Dbox (/ Dat) + (setq Dat (load_dialog (strcat lw "/acadsst/steuerg/PRITSCHE.DCL"))) + (if (not (new_dialog "PRITSCHE" Dat)) (exit)) + (set_tile "KOMP" m_KOMP) ; Komponente + (set_tile "BREI" m_BREI) ; Komponentenbreite - def. 300 + (set_tile "DECKEL" m_DECKEL) ; Deckel - default = mit Deckel + (ACTION_TILE "KOMP" "(zeig_dia)") + (action_tile "accept" "(SetPara) (done_dialog)") + (action_tile "cancel" "(exit) (done_dialog)") + (start_dialog) + (unload_dialog Dat) +) + +(defun zeig_dia() + (setq m_KOMP (get_tile "KOMP")) + (setq breite (dimx_tile "anzeige")) + (setq hoehe (dimy_tile "anzeige")) + (start_image "anzeige") + (FILL_IMAGE 0 0 breite hoehe -18) + (if (= m_KOMP "0") + (slide_image 0 0 breite hoehe "steuerg(p_rinne)") + ) + (if (= m_KOMP "1") + (slide_image 0 0 breite hoehe "steuerg(p_bog45)") + ) + (if (= m_KOMP "2") + (slide_image 0 0 breite hoehe "steuerg(p_bog90)") + ) + (if (= m_KOMP "3") + (slide_image 0 0 breite hoehe "steuerg(p_abz_t)") + ) + (if (= m_KOMP "4") + (slide_image 0 0 breite hoehe "steuerg(p_kreuz)") + ) + (if (= m_KOMP "5") + (slide_image 0 0 breite hoehe "steuerg(p_an_abz)") + ) + (if (= m_KOMP "6") + (slide_image 0 0 breite hoehe "steuerg(p_tabzbr)") + ) + (if (= m_KOMP "7") + (slide_image 0 0 breite hoehe "steuerg(p_tabzsc)") + ) + (if (= m_KOMP "8") + (slide_image 0 0 breite hoehe "steuerg(p_reduz)") + ) + (if (= m_KOMP "9") + (slide_image 0 0 breite hoehe "steuerg(p_bend)") + ) + (if (= m_KOMP "10") + (slide_image 0 0 breite hoehe "steuerg(p_langvb)") + ) + (if (= m_KOMP "11") + (slide_image 0 0 breite hoehe "steuerg(p_wandau)") + ) + (if (= m_KOMP "12") + (slide_image 0 0 breite hoehe "steuerg(p_mka)") + ) + (if (= m_KOMP "13") + (slide_image 0 0 breite hoehe "steuerg(p_winkv)") + ) + (if (= m_KOMP "14") + (slide_image 0 0 breite hoehe "steuerg(p_flrund)") + ) + (if (= m_KOMP "15") + (slide_image 0 0 breite hoehe "steuerg(p_gelenk)") + ) + (if (= m_KOMP "16") + (slide_image 0 0 breite hoehe "steuerg(p_trenn)") + ) + (if (= m_KOMP "17") + (slide_image 0 0 breite hoehe "steuerg(p_shs)") + ) + (if (= m_KOMP "18") + (slide_image 0 0 breite hoehe "steuerg(p_shs_e)") + ) + (end_image) +) + +(defun SetPara () + (setq m_KOMP (get_tile "KOMP")) + (setq m_BREI (get_tile "SATZ")) + (setq m_DECKEL (get_tile "AUSF")) + + ;------ Komponente definieren + (if (= m_KOMP "0") + (progn + (setq BL_NAME "WBE2L18") + (setq BEZ "WB 1SW+APB R550/90-L-180") + ) + ) + (if (= m_KOMP "1") + (progn + (setq BL_NAME "WBE2R18") + (setq BEZ "WB 1SW+APB R550/90-R-180") + ) + ) + (if (= m_KOMP "2") + (progn + (setq BL_NAME "WB1L18") + (setq BEZ "WB 1SW R550/90-L-180") + ) + ) + (if (= m_KOMP "3") + (progn + (setq BL_NAME "WB1R18") + (setq BEZ "WB 1SW R550/90-R-180") + ) + ) + (if (= m_KOMP "4") + (progn + (setq BL_NAME "WB2L18") + (setq BEZ "WB 2SW R550/90-L-180") + ) + ) + (if (= m_KOMP "5") + (progn + (setq BL_NAME "WB2R18") + (setq BEZ "WB 2SW R550/90-R-180") + ) + ) + (if (= m_KOMP "6") + (progn + (setq BL_NAME "WB3L18") + (setq BEZ "WB 2SW+APB R550/90-L-180") + ) + ) + (if (= m_KOMP "7") + (progn + (setq BL_NAME "WB3R18") + (setq BEZ "WB 2SW+APB R550/90-R-180") + ) + ) + (if (= m_KOMP "8") + (progn + (setq BL_NAME "SWL18") + (setq BEZ "SW R550/PARALLEL-L-180") + ) + ) + (if (= m_KOMP "9") + (progn + (setq BL_NAME "SWR18") + (setq BEZ "SW R550/PARALLEL-R-180") + ) + ) + (if (= m_KOMP "10") + (progn + (setq BL_NAME "DSWPA18") + (setq BEZ "DSW R550/PARALLEL-180") + ) + ) + (if (= m_KOMP "11") + (progn + (setq BL_NAME "3SWPA18") + (setq BEZ "SW3 R550/PARALLEL-180") + ) + ) +) +;........... Ende SetPara()............................ + + +(defun datain () + (setq AUSWAHL-SATZ nil) +) + +(defun geometrie() + (setq auswahl-satz nil) + (command "_layer" "_m" "PRITSCHE-5" "_c" "5" "" "") + (setq P0 (getpoint "\nEinfgepunkt antippen: ")) + (bl-name P0) ;--> Block-Name definieren -> Rckgabe: block-kennung + (setq BL_NAME (strcat lw "/acadsst/alu/" BL_NAME)) + + (command "_insert" BL_NAME P0 "" "" "0") + + (if (= EINZEL 0) ; kein APB -> BG bilden + (progn + + (setq auswahl-satz (ssget "_L")) + (command "_layer" "_m" "A-4" "_c" "4" "" "") + (schaltung) + (if (or (= m_KOMP "4") (= m_KOMP "5") + (= m_KOMP "6") (= m_KOMP "7")) ; 2 Weichen + (schaltung) + ) + (if (= m_VERW "VERW_1") + (block-op P0 "0" auswahl-satz) ; fr Angebot + (progn + (mach-block P0 "0" auswahl-satz) + (attribute-aendern "0" "2" "1" "" "" block-kennung "111111111" (strcat BEZ " [BG1]") "" "") ; in SSTBASE.LSP + ) + ) + ) + ) + + (command "_rotate" "_l" "" P0 pause) + + (if (= EINZEL 0) + (progn + (if (= m_VERW "VERW_1") ; fr Angebote die obere Gruppe zerst”ren + (command "_explode" "_l") + ) + ) + ) + (setq EINZEL 0) ; auf BG Status zurcksetzen +) + +;------------------------------------------------------------------------------ +(defun c:PRITSCHE ( / KOMP BREITE BREITE_1 BREITE_2 DECKEL DECKEL_1 DECKEL_2) + (setvar "limcheck" 0) + (setvar "CMDECHO" 0) + (setvar "BLIPMODE" 0) + (setq auswahl-satz nil) + (setq EINZEL 0) ; fr EINZEL=0 Baugruppen / EINZEL=1 fr APB + (prompt "**** ALU KOMPONENTEN *******") + (prompt "") + (if (null m_KOMP) (setq m_KOMP "0")) ; Komponente + (if (null m_BREI) (setq m_BREI "BREI_2")) ; Breite 300 + (if (null m_DECKEL) (setq m_DECKEL "DECKEL_1")) ; mit Deckel + (Dbox) + (prompt "") + (datain) + (geometrie) +) + \ No newline at end of file diff --git a/STEUERG/P_ABZT1.DWG b/STEUERG/P_ABZT1.DWG new file mode 100644 index 0000000..01a0529 Binary files /dev/null and b/STEUERG/P_ABZT1.DWG differ diff --git a/STEUERG/P_ABZT2.DWG b/STEUERG/P_ABZT2.DWG new file mode 100644 index 0000000..3610523 Binary files /dev/null and b/STEUERG/P_ABZT2.DWG differ diff --git a/STEUERG/P_ABZ_T-.SLD b/STEUERG/P_ABZ_T-.SLD new file mode 100644 index 0000000..53c4460 Binary files /dev/null and b/STEUERG/P_ABZ_T-.SLD differ diff --git a/STEUERG/P_ABZ_T.SLD b/STEUERG/P_ABZ_T.SLD new file mode 100644 index 0000000..d211417 Binary files /dev/null and b/STEUERG/P_ABZ_T.SLD differ diff --git a/STEUERG/P_ANABZ-.SLD b/STEUERG/P_ANABZ-.SLD new file mode 100644 index 0000000..416e62c Binary files /dev/null and b/STEUERG/P_ANABZ-.SLD differ diff --git a/STEUERG/P_ANABZ1.DWG b/STEUERG/P_ANABZ1.DWG new file mode 100644 index 0000000..751069c Binary files /dev/null and b/STEUERG/P_ANABZ1.DWG differ diff --git a/STEUERG/P_ANABZ2.DWG b/STEUERG/P_ANABZ2.DWG new file mode 100644 index 0000000..7d794d6 Binary files /dev/null and b/STEUERG/P_ANABZ2.DWG differ diff --git a/STEUERG/P_AN_ABZ.SLD b/STEUERG/P_AN_ABZ.SLD new file mode 100644 index 0000000..ec7c4ff Binary files /dev/null and b/STEUERG/P_AN_ABZ.SLD differ diff --git a/STEUERG/P_BEND.SLD b/STEUERG/P_BEND.SLD new file mode 100644 index 0000000..de536f9 Binary files /dev/null and b/STEUERG/P_BEND.SLD differ diff --git a/STEUERG/P_BEND2.DWG b/STEUERG/P_BEND2.DWG new file mode 100644 index 0000000..bcc338c Binary files /dev/null and b/STEUERG/P_BEND2.DWG differ diff --git a/STEUERG/P_BOG45-.SLD b/STEUERG/P_BOG45-.SLD new file mode 100644 index 0000000..6b6dd1d Binary files /dev/null and b/STEUERG/P_BOG45-.SLD differ diff --git a/STEUERG/P_BOG45.SLD b/STEUERG/P_BOG45.SLD new file mode 100644 index 0000000..b87d9d0 Binary files /dev/null and b/STEUERG/P_BOG45.SLD differ diff --git a/STEUERG/P_BOG451.DWG b/STEUERG/P_BOG451.DWG new file mode 100644 index 0000000..e63013c Binary files /dev/null and b/STEUERG/P_BOG451.DWG differ diff --git a/STEUERG/P_BOG452.DWG b/STEUERG/P_BOG452.DWG new file mode 100644 index 0000000..88c47d3 Binary files /dev/null and b/STEUERG/P_BOG452.DWG differ diff --git a/STEUERG/P_BOG90-.SLD b/STEUERG/P_BOG90-.SLD new file mode 100644 index 0000000..936d49c Binary files /dev/null and b/STEUERG/P_BOG90-.SLD differ diff --git a/STEUERG/P_BOG90.SLD b/STEUERG/P_BOG90.SLD new file mode 100644 index 0000000..71f6f50 Binary files /dev/null and b/STEUERG/P_BOG90.SLD differ diff --git a/STEUERG/P_BOG901.DWG b/STEUERG/P_BOG901.DWG new file mode 100644 index 0000000..2620850 Binary files /dev/null and b/STEUERG/P_BOG901.DWG differ diff --git a/STEUERG/P_BOG902.DWG b/STEUERG/P_BOG902.DWG new file mode 100644 index 0000000..f10039f Binary files /dev/null and b/STEUERG/P_BOG902.DWG differ diff --git a/STEUERG/P_DABZT1.DWG b/STEUERG/P_DABZT1.DWG new file mode 100644 index 0000000..c32248b Binary files /dev/null and b/STEUERG/P_DABZT1.DWG differ diff --git a/STEUERG/P_DABZT2.DWG b/STEUERG/P_DABZT2.DWG new file mode 100644 index 0000000..d9886e7 Binary files /dev/null and b/STEUERG/P_DABZT2.DWG differ diff --git a/STEUERG/P_DABZ_T.SLD b/STEUERG/P_DABZ_T.SLD new file mode 100644 index 0000000..8dc1acf Binary files /dev/null and b/STEUERG/P_DABZ_T.SLD differ diff --git a/STEUERG/P_DANAB1.DWG b/STEUERG/P_DANAB1.DWG new file mode 100644 index 0000000..a9f28e4 Binary files /dev/null and b/STEUERG/P_DANAB1.DWG differ diff --git a/STEUERG/P_DANAB2.DWG b/STEUERG/P_DANAB2.DWG new file mode 100644 index 0000000..0a4009b Binary files /dev/null and b/STEUERG/P_DANAB2.DWG differ diff --git a/STEUERG/P_DANABZ.DWG b/STEUERG/P_DANABZ.DWG new file mode 100644 index 0000000..bf50271 Binary files /dev/null and b/STEUERG/P_DANABZ.DWG differ diff --git a/STEUERG/P_DB451.DWG b/STEUERG/P_DB451.DWG new file mode 100644 index 0000000..a2b27e3 Binary files /dev/null and b/STEUERG/P_DB451.DWG differ diff --git a/STEUERG/P_DB452.DWG b/STEUERG/P_DB452.DWG new file mode 100644 index 0000000..b7de132 Binary files /dev/null and b/STEUERG/P_DB452.DWG differ diff --git a/STEUERG/P_DB901.DWG b/STEUERG/P_DB901.DWG new file mode 100644 index 0000000..40e7e1f Binary files /dev/null and b/STEUERG/P_DB901.DWG differ diff --git a/STEUERG/P_DB902.DWG b/STEUERG/P_DB902.DWG new file mode 100644 index 0000000..cdd8d94 Binary files /dev/null and b/STEUERG/P_DB902.DWG differ diff --git a/STEUERG/P_DBOG45.SLD b/STEUERG/P_DBOG45.SLD new file mode 100644 index 0000000..7dd7624 Binary files /dev/null and b/STEUERG/P_DBOG45.SLD differ diff --git a/STEUERG/P_DBOG90.SLD b/STEUERG/P_DBOG90.SLD new file mode 100644 index 0000000..cf1e79c Binary files /dev/null and b/STEUERG/P_DBOG90.SLD differ diff --git a/STEUERG/P_DKR1.DWG b/STEUERG/P_DKR1.DWG new file mode 100644 index 0000000..31b87ae Binary files /dev/null and b/STEUERG/P_DKR1.DWG differ diff --git a/STEUERG/P_DKR2.DWG b/STEUERG/P_DKR2.DWG new file mode 100644 index 0000000..665c3c7 Binary files /dev/null and b/STEUERG/P_DKR2.DWG differ diff --git a/STEUERG/P_DKREUZ.SLD b/STEUERG/P_DKREUZ.SLD new file mode 100644 index 0000000..4b73b34 Binary files /dev/null and b/STEUERG/P_DKREUZ.SLD differ diff --git a/STEUERG/P_DRINN1.DWG b/STEUERG/P_DRINN1.DWG new file mode 100644 index 0000000..2f818a7 Binary files /dev/null and b/STEUERG/P_DRINN1.DWG differ diff --git a/STEUERG/P_DRINN2.DWG b/STEUERG/P_DRINN2.DWG new file mode 100644 index 0000000..77ae06a Binary files /dev/null and b/STEUERG/P_DRINN2.DWG differ diff --git a/STEUERG/P_DRINNE.SLD b/STEUERG/P_DRINNE.SLD new file mode 100644 index 0000000..c4a0f39 Binary files /dev/null and b/STEUERG/P_DRINNE.SLD differ diff --git a/STEUERG/P_DVS.SLD b/STEUERG/P_DVS.SLD new file mode 100644 index 0000000..7caa814 Binary files /dev/null and b/STEUERG/P_DVS.SLD differ diff --git a/STEUERG/P_EINZEL.DWG b/STEUERG/P_EINZEL.DWG new file mode 100644 index 0000000..0d9fd03 Binary files /dev/null and b/STEUERG/P_EINZEL.DWG differ diff --git a/STEUERG/P_FLRUND.DWG b/STEUERG/P_FLRUND.DWG new file mode 100644 index 0000000..a20441f Binary files /dev/null and b/STEUERG/P_FLRUND.DWG differ diff --git a/STEUERG/P_FLRUND.SLD b/STEUERG/P_FLRUND.SLD new file mode 100644 index 0000000..26e35f4 Binary files /dev/null and b/STEUERG/P_FLRUND.SLD differ diff --git a/STEUERG/P_GELENK.DWG b/STEUERG/P_GELENK.DWG new file mode 100644 index 0000000..27dfd6a Binary files /dev/null and b/STEUERG/P_GELENK.DWG differ diff --git a/STEUERG/P_GELENK.SLD b/STEUERG/P_GELENK.SLD new file mode 100644 index 0000000..7b21fa6 Binary files /dev/null and b/STEUERG/P_GELENK.SLD differ diff --git a/STEUERG/P_KREUZ-.SLD b/STEUERG/P_KREUZ-.SLD new file mode 100644 index 0000000..47008a8 Binary files /dev/null and b/STEUERG/P_KREUZ-.SLD differ diff --git a/STEUERG/P_KREUZ.SLD b/STEUERG/P_KREUZ.SLD new file mode 100644 index 0000000..09d57fd Binary files /dev/null and b/STEUERG/P_KREUZ.SLD differ diff --git a/STEUERG/P_KREUZ1.DWG b/STEUERG/P_KREUZ1.DWG new file mode 100644 index 0000000..f8a0ac8 Binary files /dev/null and b/STEUERG/P_KREUZ1.DWG differ diff --git a/STEUERG/P_KREUZ2.DWG b/STEUERG/P_KREUZ2.DWG new file mode 100644 index 0000000..a1135a3 Binary files /dev/null and b/STEUERG/P_KREUZ2.DWG differ diff --git a/STEUERG/P_LANGVB.DWG b/STEUERG/P_LANGVB.DWG new file mode 100644 index 0000000..87a15e7 Binary files /dev/null and b/STEUERG/P_LANGVB.DWG differ diff --git a/STEUERG/P_LANGVB.SLD b/STEUERG/P_LANGVB.SLD new file mode 100644 index 0000000..3c07a58 Binary files /dev/null and b/STEUERG/P_LANGVB.SLD differ diff --git a/STEUERG/P_LEITER.DWG b/STEUERG/P_LEITER.DWG new file mode 100644 index 0000000..70ebf9e Binary files /dev/null and b/STEUERG/P_LEITER.DWG differ diff --git a/STEUERG/P_LEITER.SLD b/STEUERG/P_LEITER.SLD new file mode 100644 index 0000000..667f29b Binary files /dev/null and b/STEUERG/P_LEITER.SLD differ diff --git a/STEUERG/P_MKA.SLD b/STEUERG/P_MKA.SLD new file mode 100644 index 0000000..17d6067 Binary files /dev/null and b/STEUERG/P_MKA.SLD differ diff --git a/STEUERG/P_P_DRIN.DWG b/STEUERG/P_P_DRIN.DWG new file mode 100644 index 0000000..afda3eb Binary files /dev/null and b/STEUERG/P_P_DRIN.DWG differ diff --git a/STEUERG/P_REDUZ.SLD b/STEUERG/P_REDUZ.SLD new file mode 100644 index 0000000..7db9923 Binary files /dev/null and b/STEUERG/P_REDUZ.SLD differ diff --git a/STEUERG/P_REDUZ1.DWG b/STEUERG/P_REDUZ1.DWG new file mode 100644 index 0000000..a6126f3 Binary files /dev/null and b/STEUERG/P_REDUZ1.DWG differ diff --git a/STEUERG/P_REDUZ2.DWG b/STEUERG/P_REDUZ2.DWG new file mode 100644 index 0000000..49397b3 Binary files /dev/null and b/STEUERG/P_REDUZ2.DWG differ diff --git a/STEUERG/P_REDUZ3.DWG b/STEUERG/P_REDUZ3.DWG new file mode 100644 index 0000000..52d8fcd Binary files /dev/null and b/STEUERG/P_REDUZ3.DWG differ diff --git a/STEUERG/P_RINNE-.SLD b/STEUERG/P_RINNE-.SLD new file mode 100644 index 0000000..39cef3e Binary files /dev/null and b/STEUERG/P_RINNE-.SLD differ diff --git a/STEUERG/P_RINNE.SLD b/STEUERG/P_RINNE.SLD new file mode 100644 index 0000000..cd154b4 Binary files /dev/null and b/STEUERG/P_RINNE.SLD differ diff --git a/STEUERG/P_RINNE1.DWG b/STEUERG/P_RINNE1.DWG new file mode 100644 index 0000000..b0147c8 Binary files /dev/null and b/STEUERG/P_RINNE1.DWG differ diff --git a/STEUERG/P_RINNE2.DWG b/STEUERG/P_RINNE2.DWG new file mode 100644 index 0000000..de11fcf Binary files /dev/null and b/STEUERG/P_RINNE2.DWG differ diff --git a/STEUERG/P_RKS100.DWG b/STEUERG/P_RKS100.DWG new file mode 100644 index 0000000..0d312bd Binary files /dev/null and b/STEUERG/P_RKS100.DWG differ diff --git a/STEUERG/P_RKS300.DWG b/STEUERG/P_RKS300.DWG new file mode 100644 index 0000000..aec3de1 Binary files /dev/null and b/STEUERG/P_RKS300.DWG differ diff --git a/STEUERG/P_SHS.DWG b/STEUERG/P_SHS.DWG new file mode 100644 index 0000000..dafb47e Binary files /dev/null and b/STEUERG/P_SHS.DWG differ diff --git a/STEUERG/P_SHS.SLD b/STEUERG/P_SHS.SLD new file mode 100644 index 0000000..f42f236 Binary files /dev/null and b/STEUERG/P_SHS.SLD differ diff --git a/STEUERG/P_SHS_E.SLD b/STEUERG/P_SHS_E.SLD new file mode 100644 index 0000000..3c56db8 Binary files /dev/null and b/STEUERG/P_SHS_E.SLD differ diff --git a/STEUERG/P_TABZB1.DWG b/STEUERG/P_TABZB1.DWG new file mode 100644 index 0000000..239eb48 Binary files /dev/null and b/STEUERG/P_TABZB1.DWG differ diff --git a/STEUERG/P_TABZB2.DWG b/STEUERG/P_TABZB2.DWG new file mode 100644 index 0000000..e59342a Binary files /dev/null and b/STEUERG/P_TABZB2.DWG differ diff --git a/STEUERG/P_TABZBR.SLD b/STEUERG/P_TABZBR.SLD new file mode 100644 index 0000000..4d308a0 Binary files /dev/null and b/STEUERG/P_TABZBR.SLD differ diff --git a/STEUERG/P_TABZS1.DWG b/STEUERG/P_TABZS1.DWG new file mode 100644 index 0000000..5d4dfd6 Binary files /dev/null and b/STEUERG/P_TABZS1.DWG differ diff --git a/STEUERG/P_TABZS2.DWG b/STEUERG/P_TABZS2.DWG new file mode 100644 index 0000000..0aafde1 Binary files /dev/null and b/STEUERG/P_TABZS2.DWG differ diff --git a/STEUERG/P_TABZSC.SLD b/STEUERG/P_TABZSC.SLD new file mode 100644 index 0000000..2263a67 Binary files /dev/null and b/STEUERG/P_TABZSC.SLD differ diff --git a/STEUERG/P_TRENN.DWG b/STEUERG/P_TRENN.DWG new file mode 100644 index 0000000..d46b1e4 Binary files /dev/null and b/STEUERG/P_TRENN.DWG differ diff --git a/STEUERG/P_TRENN.SLD b/STEUERG/P_TRENN.SLD new file mode 100644 index 0000000..7aad396 Binary files /dev/null and b/STEUERG/P_TRENN.SLD differ diff --git a/STEUERG/P_WANDA1.DWG b/STEUERG/P_WANDA1.DWG new file mode 100644 index 0000000..bad0f96 Binary files /dev/null and b/STEUERG/P_WANDA1.DWG differ diff --git a/STEUERG/P_WANDA2.DWG b/STEUERG/P_WANDA2.DWG new file mode 100644 index 0000000..83c7d60 Binary files /dev/null and b/STEUERG/P_WANDA2.DWG differ diff --git a/STEUERG/P_WANDAU.SLD b/STEUERG/P_WANDAU.SLD new file mode 100644 index 0000000..a6da578 Binary files /dev/null and b/STEUERG/P_WANDAU.SLD differ diff --git a/STEUERG/P_WINKV.DWG b/STEUERG/P_WINKV.DWG new file mode 100644 index 0000000..ba1806f Binary files /dev/null and b/STEUERG/P_WINKV.DWG differ diff --git a/STEUERG/P_WINKV.SLD b/STEUERG/P_WINKV.SLD new file mode 100644 index 0000000..075865e Binary files /dev/null and b/STEUERG/P_WINKV.SLD differ diff --git a/STEUERG/P_WNDAU.SLD b/STEUERG/P_WNDAU.SLD new file mode 100644 index 0000000..a6da578 Binary files /dev/null and b/STEUERG/P_WNDAU.SLD differ diff --git a/STEUERG/ROLLENH.SLD b/STEUERG/ROLLENH.SLD new file mode 100644 index 0000000..21688c6 Binary files /dev/null and b/STEUERG/ROLLENH.SLD differ diff --git a/STEUERG/SCANNER.SLD b/STEUERG/SCANNER.SLD new file mode 100644 index 0000000..89af21b Binary files /dev/null and b/STEUERG/SCANNER.SLD differ diff --git a/STEUERG/SENSOR.SLD b/STEUERG/SENSOR.SLD new file mode 100644 index 0000000..a5fd2e1 Binary files /dev/null and b/STEUERG/SENSOR.SLD differ diff --git a/STEUERG/SEPARAT.SLD b/STEUERG/SEPARAT.SLD new file mode 100644 index 0000000..a4f1b05 Binary files /dev/null and b/STEUERG/SEPARAT.SLD differ diff --git a/STEUERG/SLIDELIB.EXE b/STEUERG/SLIDELIB.EXE new file mode 100644 index 0000000..c992bbb Binary files /dev/null and b/STEUERG/SLIDELIB.EXE differ diff --git a/STEUERG/STEUERG.HLP b/STEUERG/STEUERG.HLP new file mode 100644 index 0000000..d08d431 --- /dev/null +++ b/STEUERG/STEUERG.HLP @@ -0,0 +1,91 @@ +\HARDWAREPLANUNG +Stand: 20.9.1994 +Der Anwender hat die M”glichkeit zwischen DEUTSCHEN und US-Norm +zu w„hlen. Es wurde versucht die gesamte Sensorik/Aktorik abzu- +decken. +__________________________________________________________________ +Wichtig!! - konstruktive Žnderungsvorschl„ge sind jederzeit will- +kommen. Bitte wenden Sie an den Leiter Automatisierung ! +------------------------------------------------------------------ + +In der n„chsten Ausbaustufe werden die Klemmk„sten auch per CAD +bestellt. +Geplante Fertigstellung: Ende September 1994 +Verantwortlich : IL +\SENSOR +1. Ein Sensor ist ein EINGANG. + Bezeichnung: "B". Das Programm sorgt dafr, daá die Nummerierung + der Sensoren OKTAL bleibt. D.h.: gltige Endziffer sind 0 - 7. + Ab 7 wird ein Sprung nach 10 gemacht. + Z.B.: ....B1106 B1107 B1110 B1111 ...... +\MAGNETVENTIL +2. Ein Ventil ist ein AUSGANG. + Bezeichnung: "Y". Das Programm sorgt dafr, daá die Nummerierung + der Ventile OKTAL bleibt. D.h.: gltige Endziffer sind 0 - 7. + Ab 7 wird ein Sprung nach 10 gemacht. + Z.B.: ....Y1106 Y1107 Y1110 Y1111 ...... +\ANTRIEB +3. Direktanschluá vom Schrank. + Bezeichnung: "M". Das Programm sorgt dafr, daá die Nummerierung + der Motoren OKTAL bleibt. D.h.: gltige Endziffer sind 0 - 7. + Ab 7 wird ein Sprung nach 10 gemacht. + Z.B.: ....M1106 M1107 M1110 M1111 ...... +\SEPARATOR +4.Bei dem Separator wird unterschieden zwischen: + a) Separator mit NULL-Bgeltr„ger Erkennung (3 Eing„nge und 2 Ausg„nge) + b) Separator OHNE NULL-Bgeltr„gererkennung (2 Eing„nge und 2 Ausg„nge) + Das Programm sorgt dafr, daá die Nummerierung der Ein- bzw Ausg„nge + OKTAL bleibt. +\WEICHE +5. Eine Weiche besteht aus 2 AUSGŽNGEN. + Das Programm sorgt dafr, daá die Nummerierung + der Ventile OKTAL bleibt. D.h.: gltige Endziffer sind 0 - 7. + Ab 7 wird ein Sprung nach 10 gemacht. + Z.B.: ....Y1106 Y1107 Y1110 Y1111 ...... +\SCANNER +6. Es gibt z.Z. 3 Arten von Scannern. + a) SCANNER FšR DIE BT's . Diese Scanner sind FEST installiert und + haben eine sehr hohe Lesequote. Sollte ein Barcode (oder Chip) + eines BT's nicht lesbar sein, bleibt die Anlage meistens stehen + bis das Bedienpersonal fr die Fehlerbehebung sorgt. + Bezeichnung der Scanner: "SC" + + b) SCANNER FšR DIE TEILE + b1) manuell (Bezeichnung: "SCM") + b2) automatisch (Bezeichnung: "SCA") + + Die automatischen Scanner sind zwar schnell aber die Ausschuárate + ist relativ hoch. 80% Leserate ist bei dieser Ausfhrund ein durch- + aus akzeptabler Wert. + + Fr die Scanner wird 1 EINGANG und 1 AUSGANG vorgesehen. + + Das Programm sorgt fr die richtige OKTAL Durchnunmmerierung der + Komponenten. + +\ROLLENHEBELSCHALTER +7. In erster Linie fr die Stockwerksautomatisierungen gedacht. + Bezeichnung: "RS" + Typ: 1 EINGANG +\DRUCKTASTE +8. Die Drucktaste ist steuerungstechnisch ein AUSGANG. Z.B. eine NOT- + AUS Taste ist auch eine Drucktaste. In den meisten Anlagen wird + ein solcher Ausgang mit mehreren Drucktasten installiert an + verschiedenen Orten angeschprochen. Um diese Situation erkentlich + zu machen, werden die Drucktasten noch zus„tzlich mit Buchstaben + gekennzeichnet. Z.B.: + + S101A, S101B, S101C,.... +\ANZEIGELEUCHTE +9. Die Anzeigeleuchte ist ein EINGANG. Der Anschluá und Beschriftungs- + regelung wie bei den DRUCKTASTE. +\KABELPRITSCHEN +1.RINNEN -werden CYAN dargestellt. Angetippt werden msssen die zwei + Anschluápunkte. Das Programm ermittelt automatisch die L„nge und + unter Bercksichtigung der Bestelll„nge von 3000 mm ermittelt die + Menge --> wird immer Aufgerundet. +2.DECKEL -werden ROT dargestellt. Ansonsten gelten die Vereinbarungen + von den RINNEN +3.TRENNSTEGE -werden WEISS dargestellt. Ansonsten gelten die Vereinbar- + ungen von den RINNEN + \ No newline at end of file diff --git a/STEUERG/STEUERG.LST b/STEUERG/STEUERG.LST new file mode 100644 index 0000000..bbf405c --- /dev/null +++ b/STEUERG/STEUERG.LST @@ -0,0 +1,104 @@ +sensor +ventil +antrieb +separat +weiche +scanner +rollenh +druckt +anzleu +p_rinne +p_bog45 +p_bog90 +p_abz_t +p_kreuz +p_langvb +p_gelenk +p_trenn +p_drinne +p_dbog45 +p_dbog90 +p_dabz_t +p_dkreuz +p_reduz +p_wandau +p_an_abz +p_tabzbr +p_tabzsc +p_shs +p_winkv +p_dvs +p_bend +p_flrund +p_leiter +p_rinne- +p_bog45- +p_bog90- +p_abz_t- +p_kreuz- +p_anabz- +20002002 +20002003 +20002006 +26904025 +26904024 +21000011 +27422001 +27422002 +27422003 +27422004 +27072013 +27072014 +27072015 +27072016 +27074011 +27074007 +27074008 +22035037 +22035100 +22035102 +24604011 +24604012 +03001062 +03001063 +03001064 +03001051 +03001053 +03001054 +03001055 +03001017 +03001060 +03001050 +27724001 +25304002 +25304003 +25304004 +25304006 +25304007 +03000115 +sk110_k +sk60_k +sp_pos +sp_vl +sp_farbe +kab20 +kab02 +kab03 +kab05 +kab10 +pn_reib +pn_reibs +90000001 +90000002 +90000003 +90000004 +90000005 +90000006 +sp_sw +sp_ra1 +sp_ra2 +sp_m_ra1 +sp_m_ra2 +sp_lamp +sp_stop + diff --git a/STEUERG/STEUERG.SLB b/STEUERG/STEUERG.SLB new file mode 100644 index 0000000..c8e7eb4 Binary files /dev/null and b/STEUERG/STEUERG.SLB differ diff --git a/STEUERG/STEUERUNG.dwg b/STEUERG/STEUERUNG.dwg new file mode 100644 index 0000000..639cdfd Binary files /dev/null and b/STEUERG/STEUERUNG.dwg differ diff --git a/STEUERG/TEST.DWG b/STEUERG/TEST.DWG new file mode 100644 index 0000000..3d5301a Binary files /dev/null and b/STEUERG/TEST.DWG differ diff --git a/STEUERG/TEST.TXT b/STEUERG/TEST.TXT new file mode 100644 index 0000000..d2adb8f --- /dev/null +++ b/STEUERG/TEST.TXT @@ -0,0 +1,20 @@ + B 0 E Sensor + Y 0 A Ventil + M 0 A Motor + Y 1 A A Ventil-Separator + Y 2 Z A Ventil-Separator + B 1 I E Sensor-Separator + B 2 V E Sensor-Separator + B 3 0 E Sensor-Separator + Y 3 A A Ventil-Weiche + Y 4 Z A Ventil-Weiche + Y 5 A A Ventil-Weiche + Y 6 Z A Ventil-Weiche + E 4 E Eingang Scanner + A 7 A Ausgang1 Scanner + A 10 A Ausgang2 Scanner + Y 0 A A Ventil-Separator + Y 1 Z A Ventil-Separator + B 0 I E Sensor-Separator + B 1 V E Sensor-Separator + B 2 0 E Sensor-Separator diff --git a/STEUERG/Thumbs.db b/STEUERG/Thumbs.db new file mode 100644 index 0000000..44a1150 Binary files /dev/null and b/STEUERG/Thumbs.db differ diff --git a/STEUERG/UNNAMED.TXT b/STEUERG/UNNAMED.TXT new file mode 100644 index 0000000..4b96e2e --- /dev/null +++ b/STEUERG/UNNAMED.TXT @@ -0,0 +1,10 @@ + Y 0 A A Ventil-Separator + Y 1 Z A Ventil-Separator + B 0 I E Sensor-Separator + B 1 V E Sensor-Separator + B 2 0 E Sensor-Separator + Y 2 A A Ventil-Separator + Y 3 Z A Ventil-Separator + B 3 I E Sensor-Separator + B 4 V E Sensor-Separator + B 5 0 E Sensor-Separator diff --git a/STEUERG/VENTIL.SLD b/STEUERG/VENTIL.SLD new file mode 100644 index 0000000..1423cd8 Binary files /dev/null and b/STEUERG/VENTIL.SLD differ diff --git a/STEUERG/WEICHE.SLD b/STEUERG/WEICHE.SLD new file mode 100644 index 0000000..b535e90 Binary files /dev/null and b/STEUERG/WEICHE.SLD differ diff --git a/STEUERG/abf_sp.sld b/STEUERG/abf_sp.sld new file mode 100644 index 0000000..0a90b07 Binary files /dev/null and b/STEUERG/abf_sp.sld differ diff --git a/STEUERG/abf_sp1.sld b/STEUERG/abf_sp1.sld new file mode 100644 index 0000000..8a732bc Binary files /dev/null and b/STEUERG/abf_sp1.sld differ diff --git a/STEUERG/abf_sp2.sld b/STEUERG/abf_sp2.sld new file mode 100644 index 0000000..e1cec58 Binary files /dev/null and b/STEUERG/abf_sp2.sld differ diff --git a/STEUERG/abf_sp3.sld b/STEUERG/abf_sp3.sld new file mode 100644 index 0000000..0620b2e Binary files /dev/null and b/STEUERG/abf_sp3.sld differ diff --git a/STEUERG/abf_sp4.sld b/STEUERG/abf_sp4.sld new file mode 100644 index 0000000..9d10253 Binary files /dev/null and b/STEUERG/abf_sp4.sld differ diff --git a/STEUERG/kab02.sld b/STEUERG/kab02.sld new file mode 100644 index 0000000..7ef2103 Binary files /dev/null and b/STEUERG/kab02.sld differ diff --git a/STEUERG/kab03.sld b/STEUERG/kab03.sld new file mode 100644 index 0000000..fbaafc9 Binary files /dev/null and b/STEUERG/kab03.sld differ diff --git a/STEUERG/kab05.sld b/STEUERG/kab05.sld new file mode 100644 index 0000000..a948fd7 Binary files /dev/null and b/STEUERG/kab05.sld differ diff --git a/STEUERG/kab10.sld b/STEUERG/kab10.sld new file mode 100644 index 0000000..234414a Binary files /dev/null and b/STEUERG/kab10.sld differ diff --git a/STEUERG/kab20.sld b/STEUERG/kab20.sld new file mode 100644 index 0000000..dfae837 Binary files /dev/null and b/STEUERG/kab20.sld differ diff --git a/STEUERG/log.tmp b/STEUERG/log.tmp new file mode 100644 index 0000000..6f5592e --- /dev/null +++ b/STEUERG/log.tmp @@ -0,0 +1,5 @@ +no function definition ; expected FUNCTION at [eval] +no function definition ; expected FUNCTION at [eval] +no function definition ; expected FUNCTION at [eval] +no function definition ; expected FUNCTION at [eval] +no function definition ; expected FUNCTION at [eval] diff --git a/STEUERG/plot.log b/STEUERG/plot.log new file mode 100644 index 0000000..11e0600 --- /dev/null +++ b/STEUERG/plot.log @@ -0,0 +1,9 @@ +Z:\Angebote_Projekte\DATEN\PROJEKTE\Textilot_29547\400000\400000_allgemein\Automatisierung\dwg\HardwarePlan_400000_080703.dwg,Model,18.07.2008 07:54:17,ial,FreePDF XP,A0,1:83.862, +Z:\Angebote_Projekte\DATEN\PROJEKTE\Textilot_29547\400000\400000_allgemein\Automatisierung\dwg\HardwarePlan_400000_080703.dwg,Model,18.07.2008 07:55:49,ial,FreePDF XP,A0,1:41.5734, +Z:\Angebote_Projekte\DATEN\PROJEKTE\Textilot_29547\400000\400000_allgemein\Automatisierung\dwg\HardwarePlan_400000_080703.dwg,Model,18.07.2008 07:56:26,ial,FreePDF XP,A0,1:56.8449, +Z:\Angebote_Projekte\DATEN\PROJEKTE\Textilot_29547\400000\400000_allgemein\Automatisierung\dwg\HardwarePlan_400000_080703.dwg,Model,18.07.2008 07:57:17,ial,FreePDF XP,A0,1:86.8043, +Z:\Angebote_Projekte\DATEN\PROJEKTE\Textilot_29547\400000\400000_allgemein\Automatisierung\dwg\HardwarePlan_400000_080703.dwg,Model,18.07.2008 07:58:03,ial,FreePDF XP,A0,1:86.5106, +Z:\Angebote_Projekte\DATEN\PROJEKTE\Textilot_29547\400000\400000_allgemein\Automatisierung\dwg\HardwarePlan_400000_080703.dwg,Model,18.07.2008 07:58:40,ial,FreePDF XP,A0,1:96.3453, +Z:\Angebote_Projekte\DATEN\PROJEKTE\Textilot_29547\400000\400000_allgemein\Automatisierung\dwg\HardwarePlan_400000_080703.dwg,Model,18.07.2008 07:59:46,ial,FreePDF XP,A0,1:47.1318, +Z:\Angebote_Projekte\DATEN\PROJEKTE\Textilot_29547\400000\400000_allgemein\Automatisierung\dwg\HardwarePlan_400000_080703.dwg,Model,18.07.2008 08:00:24,ial,FreePDF XP,A0,1:47.1318, +Z:\Angebote_Projekte\DATEN\PROJEKTE\Textilot_29547\400000\400000_allgemein\Automatisierung\dwg\HardwarePlan_400000_080703.dwg,Model,18.07.2008 08:01:12,ial,FreePDF XP,A0,1:47.1318, diff --git a/STEUERG/pn_reib.sld b/STEUERG/pn_reib.sld new file mode 100644 index 0000000..ab58911 Binary files /dev/null and b/STEUERG/pn_reib.sld differ diff --git a/STEUERG/pn_reibs.sld b/STEUERG/pn_reibs.sld new file mode 100644 index 0000000..af450bf Binary files /dev/null and b/STEUERG/pn_reibs.sld differ diff --git a/STEUERG/sk110_1.sld b/STEUERG/sk110_1.sld new file mode 100644 index 0000000..cb77418 Binary files /dev/null and b/STEUERG/sk110_1.sld differ diff --git a/STEUERG/sk110_2.sld b/STEUERG/sk110_2.sld new file mode 100644 index 0000000..1032b32 Binary files /dev/null and b/STEUERG/sk110_2.sld differ diff --git a/STEUERG/sk110_3.sld b/STEUERG/sk110_3.sld new file mode 100644 index 0000000..7170ade Binary files /dev/null and b/STEUERG/sk110_3.sld differ diff --git a/STEUERG/sk110_4.sld b/STEUERG/sk110_4.sld new file mode 100644 index 0000000..a38ff52 Binary files /dev/null and b/STEUERG/sk110_4.sld differ diff --git a/STEUERG/sk110_k.sld b/STEUERG/sk110_k.sld new file mode 100644 index 0000000..9f267e0 Binary files /dev/null and b/STEUERG/sk110_k.sld differ diff --git a/STEUERG/sk60_1.sld b/STEUERG/sk60_1.sld new file mode 100644 index 0000000..1f45189 Binary files /dev/null and b/STEUERG/sk60_1.sld differ diff --git a/STEUERG/sk60_2.sld b/STEUERG/sk60_2.sld new file mode 100644 index 0000000..2aa3106 Binary files /dev/null and b/STEUERG/sk60_2.sld differ diff --git a/STEUERG/sk60_3.sld b/STEUERG/sk60_3.sld new file mode 100644 index 0000000..52b05d0 Binary files /dev/null and b/STEUERG/sk60_3.sld differ diff --git a/STEUERG/sk60_4.sld b/STEUERG/sk60_4.sld new file mode 100644 index 0000000..302478c Binary files /dev/null and b/STEUERG/sk60_4.sld differ diff --git a/STEUERG/sk60_k.sld b/STEUERG/sk60_k.sld new file mode 100644 index 0000000..1c1a1ab Binary files /dev/null and b/STEUERG/sk60_k.sld differ diff --git a/STEUERG/sp_dsa.sld b/STEUERG/sp_dsa.sld new file mode 100644 index 0000000..7f2cb06 Binary files /dev/null and b/STEUERG/sp_dsa.sld differ diff --git a/STEUERG/sp_farbe.sld b/STEUERG/sp_farbe.sld new file mode 100644 index 0000000..ca9cf92 Binary files /dev/null and b/STEUERG/sp_farbe.sld differ diff --git a/STEUERG/sp_lamp.sld b/STEUERG/sp_lamp.sld new file mode 100644 index 0000000..a7ddfcb Binary files /dev/null and b/STEUERG/sp_lamp.sld differ diff --git a/STEUERG/sp_m_ra1.sld b/STEUERG/sp_m_ra1.sld new file mode 100644 index 0000000..544f380 Binary files /dev/null and b/STEUERG/sp_m_ra1.sld differ diff --git a/STEUERG/sp_m_ra2.sld b/STEUERG/sp_m_ra2.sld new file mode 100644 index 0000000..b6c6a97 Binary files /dev/null and b/STEUERG/sp_m_ra2.sld differ diff --git a/STEUERG/sp_pos.sld b/STEUERG/sp_pos.sld new file mode 100644 index 0000000..2dc9b13 Binary files /dev/null and b/STEUERG/sp_pos.sld differ diff --git a/STEUERG/sp_ra1.sld b/STEUERG/sp_ra1.sld new file mode 100644 index 0000000..9114967 Binary files /dev/null and b/STEUERG/sp_ra1.sld differ diff --git a/STEUERG/sp_ra2.sld b/STEUERG/sp_ra2.sld new file mode 100644 index 0000000..d09a9f3 Binary files /dev/null and b/STEUERG/sp_ra2.sld differ diff --git a/STEUERG/sp_rr.sld b/STEUERG/sp_rr.sld new file mode 100644 index 0000000..c79be04 Binary files /dev/null and b/STEUERG/sp_rr.sld differ diff --git a/STEUERG/sp_stop.sld b/STEUERG/sp_stop.sld new file mode 100644 index 0000000..be61339 Binary files /dev/null and b/STEUERG/sp_stop.sld differ diff --git a/STEUERG/sp_sw.sld b/STEUERG/sp_sw.sld new file mode 100644 index 0000000..6c41de8 Binary files /dev/null and b/STEUERG/sp_sw.sld differ diff --git a/STEUERG/sp_vl.sld b/STEUERG/sp_vl.sld new file mode 100644 index 0000000..a9af80b Binary files /dev/null and b/STEUERG/sp_vl.sld differ diff --git a/STEUERG/sp_weiche.sld b/STEUERG/sp_weiche.sld new file mode 100644 index 0000000..a41026c Binary files /dev/null and b/STEUERG/sp_weiche.sld differ diff --git a/STEUERG/steuerg.hdx b/STEUERG/steuerg.hdx new file mode 100644 index 0000000..e69de29