;------------------------------------------------------------------------; ; 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 "") )