Aus den Lisp Daten unter M:\ACADSST\MENU eine neue Standardlibrary mit Codedoku extrahiert
This commit is contained in:
@@ -0,0 +1,181 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; ALU-KOMPONENTEN - ILS_AE_ELEM.LSP ;
|
||||
;------------------------------------------------------------------------;
|
||||
; AW 14.06.97 / 15.8.98 / 20.9.06 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/ils2100/ILS_AE_ELEM.DCL")))
|
||||
(if (not (new_dialog "ILS_AE_ELEM" Dat)) (exit))
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(set_tile "PNEUM" m_PNEUM)
|
||||
(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)
|
||||
(if (= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "ils2100(29412018)") ; AS LINKS [BG]
|
||||
)
|
||||
(if (= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "ils2100(29412020)") ; AS RECHTS [BG]
|
||||
)
|
||||
(if (= m_DWG_NAME "2")
|
||||
(slide_image 0 0 breite hoehe "ils2100(29412021)") ; ES LINKS
|
||||
)
|
||||
(if (= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "ils2100(29412017)") ; ES RECHTS
|
||||
)
|
||||
(if (= m_DWG_NAME "4")
|
||||
(slide_image 0 0 breite hoehe "ils2100(29412022)") ; AS LINKS MIT SMC PNEUMATIK
|
||||
)
|
||||
(if (= m_DWG_NAME "5")
|
||||
(slide_image 0 0 breite hoehe "ils2100(29412023)") ; AS RECHTS MIT SMC PNEUMATIK
|
||||
)
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_PNEUM (get_tile "PNEUM"))
|
||||
(if (or (= m_DWG_NAME "0") (= m_DWG_NAME "1
|
||||
")) ; AS LINKS oder RECHTS als BG
|
||||
(progn
|
||||
(mode_tile "PNEUM_1" 0)
|
||||
(mode_tile "PNEUM_2" 0)
|
||||
)
|
||||
(progn
|
||||
(mode_tile "PNEUM_1" 1)
|
||||
(mode_tile "PNEUM_2" 1)
|
||||
)
|
||||
)
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_PNEUM (get_tile "PNEUM"))
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(if (= m_DWG_NAME "0")
|
||||
(progn
|
||||
(setq BL_NAME "829412018")
|
||||
(setq NEV "AS-ELEMENT LINKS ")
|
||||
(if (= m_PNEUM "PNEUM_1")
|
||||
(progn
|
||||
(setq E_ARTINR "829434103")
|
||||
(setq E_BEZEICHNUNG "BOSCH-PNEUMATIK-SATZ [829434103]")
|
||||
)
|
||||
)
|
||||
(if (= m_PNEUM "PNEUM_2")
|
||||
(progn
|
||||
(setq E_ARTINR "829434123")
|
||||
(setq E_BEZEICHNUNG "SMC-PNEUMATIK-SATZ [829434123]")
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "1")
|
||||
(progn
|
||||
(setq NEV "AS-ELEMENT RECHTS ")
|
||||
(setq BL_NAME "829412020")
|
||||
(if (= m_PNEUM "PNEUM_1")
|
||||
(progn
|
||||
(setq E_ARTINR "829434103")
|
||||
(setq E_BEZEICHNUNG "BOSCH-PNEUMATIK-SATZ [829434103]")
|
||||
)
|
||||
)
|
||||
(if (= m_PNEUM "PNEUM_2")
|
||||
(progn
|
||||
(setq E_ARTINR "829434123")
|
||||
(setq E_BEZEICHNUNG "SMC-PNEUMATIK-SATZ [829434123]")
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "2")
|
||||
(progn
|
||||
(setq NEV "")
|
||||
(setq BL_NAME "829412021")
|
||||
(setq E_ARTINR "")
|
||||
(setq E_BEZEICHNUNG "")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "3")
|
||||
(progn
|
||||
(setq NEV "")
|
||||
(setq BL_NAME "829412017")
|
||||
(setq E_ARTINR "")
|
||||
(setq E_BEZEICHNUNG "")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "4")
|
||||
(progn
|
||||
(setq NEV "")
|
||||
(setq BL_NAME "829412022")
|
||||
(setq E_ARTINR "")
|
||||
(setq E_BEZEICHNUNG "")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "5")
|
||||
(progn
|
||||
(setq NEV "")
|
||||
(setq BL_NAME "829412023")
|
||||
(setq E_ARTINR "")
|
||||
(setq E_BEZEICHNUNG "")
|
||||
)
|
||||
)
|
||||
(command "_layer" "_m" "ILS-AE-AS" "_c" "4" "" "")
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(bl-name P0) ;--> Block-Name definieren -> R�ckgabe: element-name
|
||||
(setq BL_NAME (strcat lw "/acadsst/ils2100/" BL_NAME))
|
||||
(command "_insert" BL_NAME P0 "" "" pause)
|
||||
(attribute-aendern "" "" "" "" "" block-kennung "" "" "" "")
|
||||
|
||||
(if (or (= m_DWG_NAME "0") (= m_DWG_NAME "1")) ; AS-Element als BG
|
||||
(progn
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(EINZELTEIL E_ARTINR E_BEZEICHNUNG "1")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "3" "0" "0" block-kennung "333333333" (strcat NEV "MIT " E_BEZEICHNUNG) "1" "")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (E_ARTINR E_BEZEICHNUNG E_MENGE)
|
||||
(command "_layer" "_m" "ILS-COMPONENTS" "_c" "7" "" "")
|
||||
(command "_insert" (strcat lw "/acadsst/ils2100/d_einzel") P0 "" "" "0")
|
||||
(attribute-aendern "0" "0" "23" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:ILS_AE_ELEM ( / 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 "**** ILS MODULS *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME)(setq m_DWG_NAME "0")) ; Anfangssymbolname
|
||||
(if (null m_PNEUM) (setq m_PNEUM "PNEUM_1")) ; Pneumatik
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,243 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; ALU-KOMPONENTEN - HFS_MOD.LSP ;
|
||||
;------------------------------------------------------------------------;
|
||||
; AW 14.06.97 / 15.8.98 / 19.9.06 / 11.01.07 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/ils2100/ILS_ANBAU_STR.DCL")))
|
||||
(if (not (new_dialog "ILS_ANBAU_STR" Dat)) (exit))
|
||||
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(set_tile "PNEUM" m_PNEUM)
|
||||
(set_tile "ANBAU" m_ANBAU)
|
||||
(set_tile "ABHANG" m_ABHANG)
|
||||
|
||||
(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)
|
||||
(if (= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "ils2100(SEP_EH_A)") ; rapid fire LINKS
|
||||
)
|
||||
(if (= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "ils2100(SEP_EH_B)") ; rapid fire RECHTS
|
||||
)
|
||||
(if (= m_DWG_NAME "2")
|
||||
(slide_image 0 0 breite hoehe "ils2100(SEP_DH_A)") ; Separator Doppel-Hub (Gefälle) LINKS
|
||||
)
|
||||
(if (= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "ils2100(SEP_DH_B)") ; *SONDER* Separator Doppel-Hub (Gefälle) RECHTS
|
||||
)
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(if (or (= m_DWG_NAME "0") (= m_DWG_NAME "1")) ; Einfach-Hub Separator LINKS oder RECHTS
|
||||
(progn
|
||||
(mode_tile "PNEUM" 0)
|
||||
(mode_tile "ANBAU" 1)
|
||||
(mode_tile "ABHANG" 0)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "2") ; Doppel-Hub Separator LINKS
|
||||
(progn
|
||||
(setq m_ANBAU "ANBAU_2")
|
||||
(set_tile "ANBAU" "ANBAU_2")
|
||||
(mode_tile "PNEUM" 0)
|
||||
(mode_tile "ANBAU" 0)
|
||||
(mode_tile "ABHANG" 1)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "3") ; Doppel-Hub Separator SONDER RECHTS
|
||||
(progn
|
||||
(setq m_ANBAU "ANBAU_3")
|
||||
(set_tile "ANBAU" "ANBAU_3")
|
||||
(mode_tile "PNEUM" 0)
|
||||
(mode_tile "ANBAU" 0)
|
||||
(mode_tile "ABHANG" 1)
|
||||
)
|
||||
)
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_PNEUM (get_tile "PNEUM"))
|
||||
(setq m_ABHANG (get_tile "ABHANG"))
|
||||
(setq m_ANBAU (get_tile "ANBAU"))
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(if (= m_DWG_NAME "0")
|
||||
(progn
|
||||
(setq NEV "SEPARATOR 1-HUB LINKS")
|
||||
(setq BL_NAME "829432001A")
|
||||
(PNEUM_SEP)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "1")
|
||||
(progn
|
||||
(setq NEV "SEPARATOR 1-HUB RECHTS")
|
||||
(setq BL_NAME "829432001B")
|
||||
(PNEUM_SEP)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "2")
|
||||
(progn
|
||||
(setq NEV "SEPARATOR 2-HUEBE LINKS")
|
||||
(setq BL_NAME "829432005A")
|
||||
(PNEUM_GEFAELLE)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "3")
|
||||
(progn
|
||||
(setq NEV "SEPARATOR 2-HUEBE RECHTS [*SONDER*]")
|
||||
(setq BL_NAME "829432005B")
|
||||
(PNEUM_GEFAELLE)
|
||||
)
|
||||
)
|
||||
|
||||
(command "_layer" "_m" "ILS-COMPONENTS" "_c" "7" "" "")
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(bl-name P0) ;--> Block-Name definieren -> R�ckgabe: element-name
|
||||
(setq BL_NAME (strcat lw "/acadsst/ils2100/" BL_NAME))
|
||||
(command "_insert" BL_NAME P0 "" "" pause)
|
||||
(attribute-aendern "" "" "" "" "" block-kennung "" "" "" "")
|
||||
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
|
||||
;<<< Pneumatik setzen
|
||||
(EINZELTEIL E_ARTINR E_BEZEICHNUNG "1" "0")
|
||||
;<<< Abhänger für Einfach-Hub Separator
|
||||
(if (or (= m_DWG_NAME "0") (= m_DWG_NAME "1"))
|
||||
(ABHAENGER)
|
||||
)
|
||||
;<<< Für Separator in Gefälle immer das gleiche Profil
|
||||
(if (or (= m_DWG_NAME "2") (= m_DWG_NAME "3"))
|
||||
(progn
|
||||
(EINZELTEIL "829434312" "ABHAENGUNG F.SEP.GEFAELLESTRECKE KPL." "1" "20")
|
||||
(setq NEV (strcat NEV "+" "ABH.GEFAELLE"))
|
||||
)
|
||||
)
|
||||
|
||||
;<<< Anbau [LINKS ]für Separator Doppel-Hub
|
||||
(if (or (= m_DWG_NAME "2") (= m_DWG_NAME "3"))
|
||||
(progn
|
||||
(if (= m_ANBAU "ANBAU_2")
|
||||
(progn
|
||||
(EINZELTEIL "829434320" "ANBAU [LINKS] MT-TRAVERSENSTOPPER AN SEP. KPL." "1" "30")
|
||||
(setq NEV (strcat NEV "+" "ANBAU [LINKS] MT"))
|
||||
)
|
||||
)
|
||||
(if (= m_ANBAU "ANBAU_3")
|
||||
(progn
|
||||
(EINZELTEIL "829434321" "ANBAU [RECHTS] MT-TRAVERSENSTOPPER AN SEP. KPL." "1" "30")
|
||||
(setq NEV (strcat NEV "+" "ANBAU [RECHTS] MT"))
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(setq NEV (strcat NEV " KPL."))
|
||||
(attribute-aendern "0" "2" "3" "0" "0" block-kennung "333333333" NEV "1" "")
|
||||
|
||||
)
|
||||
|
||||
(defun PNEUM_SEP ()
|
||||
(if (= m_PNEUM "PNEUM_1")
|
||||
(progn
|
||||
(setq E_ARTINR "829434101")
|
||||
(setq E_BEZEICHNUNG "BOSCH-PNEUM.F.EINFACH-HUB KPL.[829434101]")
|
||||
(setq NEV (strcat NEV "+" "BOSCH"))
|
||||
)
|
||||
)
|
||||
(if (= m_PNEUM "PNEUM_2")
|
||||
(progn
|
||||
(setq E_ARTINR "829434121")
|
||||
(setq E_BEZEICHNUNG "SMC-PNEUM.F:EINFACH-HUB KPL.[829434121]")
|
||||
(setq NEV (strcat NEV "+" "SMC"))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun PNEUM_GEFAELLE ()
|
||||
(if (= m_PNEUM "PNEUM_1")
|
||||
(progn
|
||||
(setq E_ARTINR "829434100")
|
||||
(setq E_BEZEICHNUNG "BOSCH-PNEUM.F.DOPPEL-HUB KPL.[829434100]")
|
||||
(setq NEV (strcat NEV "+" "BOSCH"))
|
||||
)
|
||||
)
|
||||
(if (= m_PNEUM "PNEUM_2")
|
||||
(progn
|
||||
(setq E_ARTINR "829434120")
|
||||
(setq E_BEZEICHNUNG "SMC-PNEU.F.DOPPEL-HUB KPL.[829434120]")
|
||||
(setq NEV (strcat NEV "+" "SMC"))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun ABHAENGER ()
|
||||
(if (= m_ABHANG "ABHANG_1") ; Abhängung an Monster-Profil LP
|
||||
(progn
|
||||
(EINZELTEIL "829434310" "ABHAENGUNG F.SEP.AN TRAEGERPROFIL" "1" "10")
|
||||
(setq NEV (strcat NEV "+" "ABH.MONSTER-LP"))
|
||||
)
|
||||
)
|
||||
(if (= m_ABHANG "ABHANG_2") ; Abhängung an Monster-Profil LP für PIN
|
||||
(progn
|
||||
(EINZELTEIL "829434310" "ABHAENGUNG F.SEP.AN TRAEGERPROFIL" "1" "10")
|
||||
(setq NEV (strcat NEV "+" "ABH.MONSTER-LP F.PIN"))
|
||||
)
|
||||
)
|
||||
(if (= m_ABHANG "ABHANG_3") ; Abhängung an LP
|
||||
(progn
|
||||
(EINZELTEIL "829434311" "ABHAENGUNG F.SEP.AN LP KPL." "1" "10")
|
||||
(setq NEV (strcat NEV "+" "ABH.AN LP"))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (E_ARTINR E_BEZEICHNUNG E_MENGE WINKEL)
|
||||
(command "_layer" "_m" "ILS-COMPONENTS" "_c" "7" "" "")
|
||||
(command "_insert" (strcat lw "/acadsst/ils2100/d_einzel") P0 "" "" WINKEL)
|
||||
(attribute-aendern "0" "0" "23" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:ILS_ANBAU_STR ( / 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 "**** ILS SEPARATOR/STOPPER *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Anfangssymbolname
|
||||
(if (null m_PNEUM) (setq m_PNEUM "PNEUM_2")) ; SMC Pneumatik
|
||||
(if (null m_ABHANG) (setq m_ABHANG "ABHANG_1")) ; Abhänger
|
||||
(if (null m_ANBAU) (setq m_ANBAU "ANBAU_1")) ; Anbaubaugruppe für Separator Doppelhub
|
||||
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,383 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; ILS 2100 ANGEBOT ;
|
||||
;------------------------------------------------------------------------;
|
||||
; AW 18.11.2007 ;
|
||||
; 23.01.2009 Bereinigung und Ergänzung ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/ils2100/ILS_ANGEBOT.DCL")))
|
||||
(if (not (new_dialog "ILS_ANGEBOT" Dat)) (exit))
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(set_tile "RICHT" m_RICHT)
|
||||
(mode_tile "anzeige" 0)
|
||||
(SetDia)
|
||||
|
||||
(ACTION_TILE "DWG_NAME" "(zeig_dia)")
|
||||
(ACTION_TILE "RICHT" "(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)
|
||||
|
||||
(if (= m_DWG_NAME "0") ; Antrieb 800
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000010)")
|
||||
)
|
||||
(if (= m_DWG_NAME "1") ; Spannstation 800
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000030)")
|
||||
)
|
||||
(if (= m_DWG_NAME "2") ; Umlenkstation 800
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000050)")
|
||||
)
|
||||
(if (= m_DWG_NAME "3") ; Antrieb 300
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000020)")
|
||||
)
|
||||
(if (= m_DWG_NAME "4") ; Spannstation 300
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000040)")
|
||||
)
|
||||
(if (= m_DWG_NAME "5") ; AS
|
||||
(progn
|
||||
(if (= m_RICHT "LINKS")
|
||||
(slide_image 0 0 breite hoehe "ils2100(B300020L)")
|
||||
(slide_image 0 0 breite hoehe "ils2100(B300020R)")
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "6") ; ES
|
||||
(progn
|
||||
(if (= m_RICHT "LINKS")
|
||||
(slide_image 0 0 breite hoehe "ils2100(B300021L)")
|
||||
(slide_image 0 0 breite hoehe "ils2100(B300021R)")
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "7") ; Separator
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000150)")
|
||||
)
|
||||
(if (= m_DWG_NAME "8") ; Gefälle
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000160)")
|
||||
)
|
||||
(if (= m_DWG_NAME "9") ; Scanner für BM
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000170)")
|
||||
)
|
||||
(if (= m_DWG_NAME "10") ; Scanner manuell für Bekleidung
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000171)")
|
||||
)
|
||||
(if (= m_DWG_NAME "11") ; Scanner automatisch
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000175)")
|
||||
)
|
||||
(if (= m_DWG_NAME "12") ; Beladung
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000320)")
|
||||
)
|
||||
(if (= m_DWG_NAME "13") ; Entladung
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000310)")
|
||||
)
|
||||
(if (= m_DWG_NAME "14") ; AE 30 GRAD rechts/links
|
||||
(progn
|
||||
(if (= m_RICHT "LINKS")
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000340)")
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000345)")
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "15") ; ETF Umlenkung rechts/links
|
||||
(progn
|
||||
(if (= m_RICHT "LINKS")
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000360)")
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000365)")
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "16") ; ETF Antrieb rechts/links
|
||||
(progn
|
||||
(if (= m_RICHT "LINKS")
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000350)")
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000355)")
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "17") ; EE 30 GRAD rechts/links
|
||||
(progn
|
||||
(if (= m_RICHT "LINKS")
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000330)")
|
||||
(slide_image 0 0 breite hoehe "ils2100(B3000335)")
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "18") ; ETF kompl. rechts/links
|
||||
(progn
|
||||
(if (= m_RICHT "LINKS")
|
||||
(slide_image 0 0 breite hoehe "ils2100(ETF_L)")
|
||||
(slide_image 0 0 breite hoehe "ils2100(ETF_R)")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_RICHT (get_tile "RICHT"))
|
||||
|
||||
(if (= m_DWG_NAME "0") ; Antrieb 800
|
||||
(mode_tile "RICHT" 1)
|
||||
)
|
||||
(if (= m_DWG_NAME "1") ; Spannstation 800
|
||||
(mode_tile "RICHT" 1)
|
||||
)
|
||||
(if (= m_DWG_NAME "2") ; Umlenkstation 800
|
||||
(mode_tile "RICHT" 1)
|
||||
)
|
||||
(if (= m_DWG_NAME "3") ; Antrieb 300
|
||||
(mode_tile "RICHT" 1)
|
||||
)
|
||||
(if (= m_DWG_NAME "4") ; Spannstation 300
|
||||
(mode_tile "RICHT" 1)
|
||||
)
|
||||
(if (= m_DWG_NAME "5") ; AS
|
||||
(mode_tile "RICHT" 0)
|
||||
)
|
||||
(if (= m_DWG_NAME "6") ; ES
|
||||
(mode_tile "RICHT" 0)
|
||||
)
|
||||
(if (= m_DWG_NAME "7") ; Separator
|
||||
(mode_tile "RICHT" 1)
|
||||
)
|
||||
(if (= m_DWG_NAME "8") ; Gefälle
|
||||
(mode_tile "RICHT" 1)
|
||||
)
|
||||
(if (= m_DWG_NAME "9") ; Scanner für BM
|
||||
(mode_tile "RICHT" 1)
|
||||
)
|
||||
(if (= m_DWG_NAME "10") ; Scanner manuell für Bekleidung
|
||||
(mode_tile "RICHT" 1)
|
||||
)
|
||||
(if (= m_DWG_NAME "11") ; Scanner automatisch
|
||||
(mode_tile "RICHT" 1)
|
||||
)
|
||||
(if (= m_DWG_NAME "12") ; Beladung
|
||||
(mode_tile "RICHT" 1)
|
||||
)
|
||||
(if (= m_DWG_NAME "13") ; Entladung
|
||||
(mode_tile "RICHT" 1)
|
||||
)
|
||||
(if (= m_DWG_NAME "14") ; AE 30 GRAD rechts/links
|
||||
(mode_tile "RICHT" 0)
|
||||
)
|
||||
(if (= m_DWG_NAME "15") ; ETF Umlenkung rechts/links
|
||||
(mode_tile "RICHT" 0)
|
||||
)
|
||||
(if (= m_DWG_NAME "16") ; ETF Antrieb rechts/links
|
||||
(mode_tile "RICHT" 0)
|
||||
)
|
||||
(if (= m_DWG_NAME "17") ; EE 30 GRAD rechts/links
|
||||
(mode_tile "RICHT" 0)
|
||||
)
|
||||
(if (= m_DWG_NAME "18") ; ETF kompl. rechts/links
|
||||
(mode_tile "RICHT" 0)
|
||||
)
|
||||
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_RICHT (get_tile "RICHT"))
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(setq NEV "")
|
||||
(setq E_ARTINR "")
|
||||
(setq E_BEZEICHNUNG "")
|
||||
|
||||
(if (= m_DWG_NAME "0") ; Antrieb 800
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-ANTRIEB" "_c" "1" "" "")
|
||||
(setq BL_NAME "0_B3000010")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "1") ; Spannstation 800
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-SPANNSTATION" "_c" "2" "" "")
|
||||
(setq BL_NAME "0_B3000030")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "2") ; Umlenkstation 800
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-UMLENKSTATION" "_c" "2" "" "")
|
||||
(setq BL_NAME "0_B3000050")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "3") ; Antrieb 300
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-ANTRIEB" "_c" "1" "" "")
|
||||
(setq BL_NAME "0_B3000020")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "4") ; Spannstation 300
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-SPANNSTATION" "_c" "2" "" "")
|
||||
(setq BL_NAME "0_B3000040")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "5") ; AS
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-AS" "_c" "1" "" "")
|
||||
(if (= m_RICHT "LINKS")
|
||||
(setq BL_NAME "0_B3000200_L")
|
||||
(setq BL_NAME "0_B3000200_R")
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "6") ; ES
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-ES" "_c" "7" "" "")
|
||||
(if (= m_RICHT "LINKS")
|
||||
(setq BL_NAME "0_B3000210_L")
|
||||
(setq BL_NAME "0_B3000210_R")
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "7") ; Separator
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-SP" "_c" "3" "" "")
|
||||
(setq BL_NAME "0_B3000150")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "8") ; Separator Gefälle
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-SP-G" "_c" "4" "" "")
|
||||
(setq BL_NAME "0_B3000160")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "9") ; Scanner für Betriebsmittel
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-SCANNER" "_c" "5" "" "")
|
||||
(setq BL_NAME "0_B3000170")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "10") ; Handscanner
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-SCANNER" "_c" "5" "" "")
|
||||
(setq BL_NAME "0_B3000171")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "11") ; Automatik Scanner für die Ware
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-SCANNER" "_c" "5" "" "")
|
||||
(setq BL_NAME "0_B3000175")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "12") ; Beladung
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-BELADUNG" "_c" "3" "" "")
|
||||
(setq BL_NAME "0_B3000320")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "13") ; Entladung
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-ENTLADUNG" "_c" "4" "" "")
|
||||
(setq BL_NAME "0_B3000310")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "14") ; AE 30 GRAD rechts/links
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-ETF" "_c" "6" "" "")
|
||||
(if (= m_RICHT "LINKS")
|
||||
(setq BL_NAME "0_B3000340")
|
||||
(setq BL_NAME "0_B3000345")
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "15") ; ETF Umlenkung rechts/links
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-ETF" "_c" "6" "" "")
|
||||
(if (= m_RICHT "LINKS")
|
||||
(setq BL_NAME "0_B3000360")
|
||||
(setq BL_NAME "0_B3000365")
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "16") ; ETF Antrieb rechts/links
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-ETF" "_c" "6" "" "")
|
||||
(if (= m_RICHT "LINKS")
|
||||
(setq BL_NAME "0_B3000350")
|
||||
(setq BL_NAME "0_B3000355")
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "17") ; EE 30 GRAD rechts/links
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-ETF" "_c" "6" "" "")
|
||||
(if (= m_RICHT "LINKS")
|
||||
(setq BL_NAME "0_B3000330")
|
||||
(setq BL_NAME "0_B3000335")
|
||||
)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "18") ; ETF kompl. rechts/links
|
||||
(progn
|
||||
(command "_layer" "_m" "ILS-ETF" "_c" "6" "" "")
|
||||
(if (= m_RICHT "LINKS")
|
||||
(setq BL_NAME "ETF_L")
|
||||
(setq BL_NAME "ETF_R")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
; (bl-name P0) ;--> Block-Name definieren -> R�ckgabe: element-name
|
||||
(setq BL_NAME (strcat lw "/acadsst/ils2100/" BL_NAME))
|
||||
(command "_insert" BL_NAME P0 "" "" pause)
|
||||
; (attribute-aendern "" "" "" "" "" block-kennung "" "" "" "")
|
||||
|
||||
;----------------------------------------------------------------------
|
||||
; (if (or (= m_DWG_NAME "0") (= m_DWG_NAME "1")) ; AS-Element
|
||||
; (progn
|
||||
; (setq AUSWAHL-SATZ (ssget "_L"))
|
||||
; (EINZELTEIL E_ARTINR E_BEZEICHNUNG "1")
|
||||
; (mach-block P0 "0" AUSWAHL-SATZ)
|
||||
; (attribute-aendern "0" "2" "3" "0" "0" block-kennung "333333333" (strcat NEV "MIT " E_BEZEICHNUNG) "1" "")
|
||||
; )
|
||||
; )
|
||||
;----------------------------------------------------------------------
|
||||
)
|
||||
|
||||
;(defun EINZELTEIL (E_ARTINR E_BEZEICHNUNG E_MENGE)
|
||||
; (command "_layer" "_m" "ILS-COMPONENTS" "_c" "7" "" "")
|
||||
; (command "_insert" (strcat lw "/acadsst/ils2100/d_einzel") P0 "" "" "0")
|
||||
; (attribute-aendern "0" "0" "23" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
; (ssadd (entlast) AUSWAHL-SATZ)
|
||||
;)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:ILS_ANGEBOT ( / 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 "**** ILS ANGEBOT MOULE *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME)(setq m_DWG_NAME "0")) ; Anfangssymbolname
|
||||
(if (null m_RICHT) (setq m_RICHT "LINKS")) ; Richtung
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,175 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; ILS 2100 - ANGEBOTSMODULE ;
|
||||
;------------------------------------------------------------------------;
|
||||
; AW 17.10.06 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/ils2100/ILS_ANGEBOT_MODULE.DCL")))
|
||||
(if (not (new_dialog "ILS_ANGEBOT_MODULE" Dat)) (exit))
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(set_tile "ART" m_ART)
|
||||
(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)
|
||||
(if (= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "ils2100(modul1)")
|
||||
)
|
||||
(if (= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "ils2100(modul2)")
|
||||
)
|
||||
(if (= m_DWG_NAME "2")
|
||||
(slide_image 0 0 breite hoehe "ils2100(modul3)")
|
||||
)
|
||||
(if (= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "ils2100(modul4)")
|
||||
)
|
||||
(if (= m_DWG_NAME "4")
|
||||
(slide_image 0 0 breite hoehe "ils2100(modul5)")
|
||||
)
|
||||
(if (= m_DWG_NAME "5")
|
||||
(slide_image 0 0 breite hoehe "ils2100(modul1_3)")
|
||||
)
|
||||
(if (= m_DWG_NAME "6")
|
||||
(slide_image 0 0 breite hoehe "ils2100(modul2_3)")
|
||||
)
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_ART (get_tile "ART"))
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(if (= m_DWG_NAME "0")
|
||||
(progn
|
||||
(setq NEV "SEPARATOR LINKS - RAD")
|
||||
(setq BL_NAME "829432001")
|
||||
(PNEUM_SEP)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "1")
|
||||
(progn
|
||||
(setq NEV "SEPARATOR RECHTS - RAD")
|
||||
(setq BL_NAME "829432002")
|
||||
(PNEUM_SEP)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "2")
|
||||
(progn
|
||||
(setq NEV "SEPARATOR LINKS - LP")
|
||||
(setq BL_NAME "829432003")
|
||||
(PNEUM_SEP)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "3")
|
||||
(progn
|
||||
(setq NEV "SEPARATOR RECHTS - LP")
|
||||
(setq BL_NAME "829432004")
|
||||
(PNEUM_SEP)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "4")
|
||||
(progn
|
||||
(setq NEV "SEPARATOR SP")
|
||||
(setq BL_NAME "829432005")
|
||||
(PNEUM_GEFAELLE)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "5")
|
||||
(progn
|
||||
(setq NEV "STOPPER - SP")
|
||||
(setq BL_NAME "829432006")
|
||||
(PNEUM_GEFAELLE)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
(command "_layer" "_m" "ILS-COMPONENTS" "_c" "8" "" "")
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(bl-name P0) ;--> Block-Name definieren -> R�ckgabe: element-name
|
||||
(setq BL_NAME (strcat lw "/acadsst/ils2100/" BL_NAME))
|
||||
(command "_insert" BL_NAME P0 "" "" pause)
|
||||
(attribute-aendern "" "" "" "" "" block-kennung "" "" "" "")
|
||||
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(EINZELTEIL E_ARTINR E_BEZEICHNUNG "1")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "3" "0" "0" block-kennung "333333333" (strcat NEV "MIT " E_BEZEICHNUNG) "1" "")
|
||||
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (E_ARTINR E_BEZEICHNUNG E_MENGE)
|
||||
(command "_layer" "_m" "ILS-COMPONENTS" "_c" "8" "" "")
|
||||
(command "_insert" (strcat lw "/acadsst/ils2100/d_einzel") P0 "" "" "0")
|
||||
(attribute-aendern "0" "0" "23" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
(defun PNEUM_SEP ()
|
||||
(if (= m_PNEUM "PNEUM_1")
|
||||
(progn
|
||||
(setq E_ARTINR "829 434 101")
|
||||
(setq E_BEZEICHNUNG "BOSCH-PNEUMATIK-SATZ")
|
||||
)
|
||||
)
|
||||
(if (= m_PNEUM "PNEUM_2")
|
||||
(progn
|
||||
(setq E_ARTINR "829 434 121")
|
||||
(setq E_BEZEICHNUNG "SMC-PNEUMATIK-SATZ")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun PNEUM_GEFAELLE ()
|
||||
(if (= m_PNEUM "PNEUM_1")
|
||||
(progn
|
||||
(setq E_ARTINR "829434100")
|
||||
(setq E_BEZEICHNUNG "BOSCH-PNEUMATIK-SATZ")
|
||||
)
|
||||
)
|
||||
(if (= m_PNEUM "PNEUM_2")
|
||||
(progn
|
||||
(setq E_ARTINR "829434120")
|
||||
(setq E_BEZEICHNUNG "SMC-PNEUMATIK-SATZ")
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:ILS_ANBAU_STR ( / 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 "**** ILS SEPARATORS/STOPPER *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME)(setq m_DWG_NAME "0")) ; Anfangssymbolname
|
||||
(if (null m_PNEUM) (setq m_PNEUM "PNEUM_1")) ; Pneumatik
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,94 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; ALU-KOMPONENTEN - ils_sensor.LSP ;
|
||||
;------------------------------------------------------------------------;
|
||||
; AW 14.06.97 / 15.8.98 / 20.9.06 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/ils2100/ils_sensor.DCL")))
|
||||
(if (not (new_dialog "ils_sensor" Dat)) (exit))
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(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)
|
||||
(if (= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "ils2100(27422001)")
|
||||
)
|
||||
(if (= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "ils2100(27422002)")
|
||||
)
|
||||
(if (= m_DWG_NAME "2")
|
||||
(slide_image 0 0 breite hoehe "ils2100(27422003)")
|
||||
)
|
||||
(if (= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "ils2100(27422004)")
|
||||
)
|
||||
(if (= m_DWG_NAME "4")
|
||||
(slide_image 0 0 breite hoehe "ils2100(29422039)")
|
||||
)
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(if (= m_DWG_NAME "0")
|
||||
(setq BL_NAME "827422001")
|
||||
)
|
||||
(if (= m_DWG_NAME "1")
|
||||
(setq BL_NAME "827422002")
|
||||
)
|
||||
(if (= m_DWG_NAME "2")
|
||||
(setq BL_NAME "827422003")
|
||||
)
|
||||
(if (= m_DWG_NAME "3")
|
||||
(setq BL_NAME "827422004")
|
||||
)
|
||||
(if (= m_DWG_NAME "4")
|
||||
(setq BL_NAME "829422039")
|
||||
)
|
||||
(command "_layer" "_m" "ILS-AUTOMATION" "_c" "1" "" "")
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(bl-name P0) ;--> Block-Name definieren -> R�ckgabe: element-name
|
||||
(setq BL_NAME (strcat lw "/acadsst/ils2100/" BL_NAME))
|
||||
(command "_insert" BL_NAME P0 "" "" pause)
|
||||
(attribute-aendern "" "" "" "" "" block-kennung "" "" "" "")
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:ils_sensor ( / 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 "**** ILS MODULS *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME)(setq m_DWG_NAME "0")); Anfangssymbolname
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,107 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; ALU-KOMPONENTEN - HFS_MOD.LSP ;
|
||||
;------------------------------------------------------------------------;
|
||||
; AW 14.06.97 / 15.8.98 / 20.9.06 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/ils2100/ils_verb_str.DCL")))
|
||||
(if (not (new_dialog "ils_verb_str" Dat)) (exit))
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(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)
|
||||
(if (= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "ils2100(29412013)")
|
||||
)
|
||||
(if (= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "ils2100(29412009)")
|
||||
)
|
||||
(if (= m_DWG_NAME "2")
|
||||
(slide_image 0 0 breite hoehe "ils2100(29414007)")
|
||||
)
|
||||
(if (= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "ils2100(29414008)")
|
||||
)
|
||||
(if (= m_DWG_NAME "4")
|
||||
(slide_image 0 0 breite hoehe "ils2100(29422035)")
|
||||
)
|
||||
(if (= m_DWG_NAME "5")
|
||||
(slide_image 0 0 breite hoehe "ils2100(29422029)")
|
||||
)
|
||||
(if (= m_DWG_NAME "6")
|
||||
(slide_image 0 0 breite hoehe "ils2100(29422028)")
|
||||
)
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(if (= m_DWG_NAME "0")
|
||||
(setq BL_NAME "829412013")
|
||||
)
|
||||
(if (= m_DWG_NAME "1")
|
||||
(setq BL_NAME "829412009")
|
||||
)
|
||||
(if (= m_DWG_NAME "2")
|
||||
(setq BL_NAME "829414007")
|
||||
)
|
||||
(if (= m_DWG_NAME "3")
|
||||
(setq BL_NAME "829414008")
|
||||
)
|
||||
(if (= m_DWG_NAME "4")
|
||||
(setq BL_NAME "829422035")
|
||||
)
|
||||
(if (= m_DWG_NAME "5")
|
||||
(setq BL_NAME "829422029")
|
||||
)
|
||||
(if (= m_DWG_NAME "6")
|
||||
(setq BL_NAME "829422028")
|
||||
)
|
||||
|
||||
(command "_layer" "_m" "ILS-COMPONENTS" "_c" "4" "" "")
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(bl-name P0) ;--> Block-Name definieren -> R�ckgabe: element-name
|
||||
(setq BL_NAME (strcat lw "/acadsst/ils2100/" BL_NAME))
|
||||
(command "_insert" BL_NAME P0 "" "" pause)
|
||||
(attribute-aendern "" "" "" "" "" "ZZZZZZZZZ" "" "" "" "")
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:ils_verb_str ( / 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 "**** ILS MODULS *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME)(setq m_DWG_NAME "0")); Anfangssymbolname
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
Reference in New Issue
Block a user