952 lines
36 KiB
Common Lisp
952 lines
36 KiB
Common Lisp
;------------------------------------------------------------------------;
|
|
; 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-Abzweigungsst�ck
|
|
(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-Abzweigst�ck
|
|
;-----------------------------------------------------------------------
|
|
(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-Abzweigst�ck
|
|
;-----------------------------------------------------------------------
|
|
(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 gew�nscht - nur f�r 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 -> R�ckgabe: block-kennung
|
|
; ------------------------
|
|
; ---- SHS-Stiel einf�gen
|
|
; ------------------------
|
|
(command "_insert" (strcat lw "/acadsst/steuerg/" "P_SHS") P0 "" "" "")
|
|
(attribute-aendern "0" "0" "9" LANG "" block-kennung ARTINR BEZ "" "")
|
|
(setq auswahl-satz (ssget "_L"))
|
|
; ------------------------------------
|
|
; ---- Endst�ck f�r SHS-Stiel einf�gen
|
|
; ------------------------------------
|
|
(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 einf�gen
|
|
; -------------------------------
|
|
(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 -> R�ckgabe: block-kennung
|
|
; --------------------------
|
|
; ---- Steigeleiter einf�gen
|
|
; --------------------------
|
|
(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 f�r 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) ; f�r EINZEL=0 Baugruppen / EINZEL=1 f�r 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 "")
|
|
)
|