Erste Fassung der Skripte von Alexander Walz eingestellt
This commit is contained in:
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,66 @@
|
||||
|
||||
|
||||
GESAMT- FEHLER: General protection exception
|
||||
|
||||
9/14/1994 at 22:17:43.990 Drawing: C:\ACADSST\STEUERG\UNNAMED
|
||||
-------------
|
||||
|
||||
|
||||
GESAMT- FEHLER: General protection exception
|
||||
|
||||
9/14/1994 at 22:17:47.670 Drawing: C:\ACADSST\STEUERG\UNNAMED
|
||||
-------------
|
||||
|
||||
|
||||
GESAMT- FEHLER: General protection exception
|
||||
|
||||
9/14/1994 at 22:20:21.410 Drawing: C:\ACADSST\STEUERG\UNNAMED
|
||||
-------------
|
||||
|
||||
|
||||
GESAMT- FEHLER: General protection exception
|
||||
|
||||
9/14/1994 at 22:20:23.600 Drawing: C:\ACADSST\STEUERG\UNNAMED
|
||||
-------------
|
||||
|
||||
|
||||
GESAMT- FEHLER: General protection exception
|
||||
|
||||
9/14/1994 at 22:21:45.990 Drawing: C:\ACADSST\STEUERG\UNNAMED
|
||||
-------------
|
||||
|
||||
|
||||
GESAMT- FEHLER: Null pointer referenced
|
||||
|
||||
9/14/1994 at 22:21:48.680 Drawing: C:\ACADSST\STEUERG\UNNAMED
|
||||
-------------
|
||||
|
||||
|
||||
GESAMT- FEHLER: General protection exception
|
||||
|
||||
9/14/1994 at 22:22:30.480 Drawing: C:\ACADSST\STEUERG\UNNAMED
|
||||
-------------
|
||||
|
||||
|
||||
GESAMT- FEHLER: menu1 0
|
||||
|
||||
9/15/1994 at 8:40:09.540 Drawing: C:\ACADSST\STEUERG\DIS-KAB--SAVED
|
||||
-------------
|
||||
|
||||
|
||||
GESAMT- FEHLER: menu1 1
|
||||
|
||||
9/15/1994 at 15:57:57.050 Drawing: C:\ACADSST\STEUERG\DIS-KAB
|
||||
-------------
|
||||
|
||||
|
||||
GESAMT- FEHLER: menu1 1
|
||||
|
||||
9/15/1994 at 16:27:22.360 Drawing: C:\ACADSST\STEUERG\DIS-KAB
|
||||
-------------
|
||||
|
||||
|
||||
GESAMT- FEHLER: menu1 1
|
||||
|
||||
9/16/1994 at 7:52:00.070 Drawing: C:\ACADSST\STEUERG\DIS-KAB--SAVED
|
||||
-------------
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,31 @@
|
||||
/* Dialogbox fuer ILS2100 Komponaneten */
|
||||
/* Datum: 16.7.2008 AW */
|
||||
|
||||
ASI : dialog {
|
||||
label = "ASI-KOMPONENTEN";
|
||||
spacer;
|
||||
: row {
|
||||
: list_box {
|
||||
label = "ASI-Komponenten";
|
||||
key = "DWG_NAME";
|
||||
mnemonic = "H";
|
||||
list = "ASI-K60 4E-4A\nASI-F90(IP20)\nNOT-AUS\nTAB.2FACH\nTAB.1FACH\nLED LEUCHTE";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
: image {
|
||||
height = 10;
|
||||
width = 40;
|
||||
color = 7;
|
||||
key = "anzeige";
|
||||
}
|
||||
:edit_box {
|
||||
label="Skalierungsfaktor";
|
||||
key="FAKT";
|
||||
value = 1;
|
||||
mnemonic="F";
|
||||
}
|
||||
}
|
||||
spacer;
|
||||
ok_cancel;
|
||||
}
|
||||
+187
@@ -0,0 +1,187 @@
|
||||
;-----------------------------------------------------------------;
|
||||
; ASI ;
|
||||
;-----------------------------------------------------------------;
|
||||
; 16.7.2008 ;
|
||||
;-----------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/ASI.DCL")))
|
||||
(if (not (new_dialog "ASI" Dat)) (exit))
|
||||
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(set_tile "FAKT" m_FAKT)
|
||||
|
||||
(mode_tile "anzeige" 0)
|
||||
(SetDia)
|
||||
(ACTION_TILE "DWG_NAME" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "steuerg(90000001)")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "steuerg(90000002)")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(slide_image 0 0 breite hoehe "steuerg(90000003)")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "steuerg(90000004)")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(slide_image 0 0 breite hoehe "steuerg(90000005)")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(slide_image 0 0 breite hoehe "steuerg(90000006)") ; LED Leuchte
|
||||
)
|
||||
) ; end cond
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq WINKEL1 0)
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq FAKTO (atof m_FAKT))
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(setq BL_NAME "790000001") ;ASI KOMPAKT K60 4E/4A M12 KPL.
|
||||
(setq BEZEICHNUNG "ASI KOMPAKT K60 4E/4A M12 KPL.")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(setq BL_NAME "790000002") ;ASI KOMPAKT F90 4E/4A IP20 KPL.
|
||||
(setq BEZEICHNUNG "ASI KOMPAKT F90 4E/4A IP20 KPL.")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(setq BL_NAME "790000003") ;ASI NOT-AUS IN 1 FACH GEHÄUSE KPL.
|
||||
(setq BEZEICHNUNG "ASI NOT-AUS IN 1 FACH GEHÄUSE KPL.")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(setq BL_NAME "790000004") ;ASI-TABLEAU MIT 2 BEFEHLSSTELLEN KPL.
|
||||
(setq BEZEICHNUNG "ASI-TABLEAU MIT 2 BEFEHLSSTELLEN KPL.")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(setq BL_NAME "790000005") ;ASI-TABLEAU MIT 1 BEFEHLSSTELLEN KPL.
|
||||
(setq BEZEICHNUNG "ASI-TABLEAU MIT 1 BEFEHLSSTELLEN KPL.")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(setq BL_NAME "790000006")
|
||||
(setq BEZEICHNUNG "LED LEUCHTE <STÖRUNG-TROUBLE> KPL.")
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE nil) ; wird am Ende ROTATE
|
||||
(setq AUSWAHL-SATZ nil) ; Blockbildung
|
||||
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(setvar "osmode" 0)
|
||||
(bl-name P0) ;--> Block-Name definieren -> Rückgabe: element-name
|
||||
|
||||
;<<< Schalter einfügen
|
||||
(command "_layer" "_m" "ASI" "_c" "7" "" "")
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/" BL_NAME) P0 "1" "" "")
|
||||
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
|
||||
|
||||
(cond
|
||||
((= m_DWG_NAME "0") ;790000001-ASI KOMPAKT K60 4E/4A M12 KPL.
|
||||
)
|
||||
((= m_DWG_NAME "1") ;790000002-ASI KOMPAKT F90 4E/4A IP20 KPL.
|
||||
)
|
||||
((= m_DWG_NAME "2") ;790000003-ASI NOT-AUS IN 1 FACH GEHÄUSE KPL.
|
||||
(IO_ZEICHNEN P0 "EINGANG" "6" "S0000" "EMERGENCY STOP" "A1+Kx-Axxx" )
|
||||
(setq P0 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(IO_ZEICHNEN P0 "EINGANG" "6" "S0000" "EMERGENCY STOP" "A1+Kx-Axxx")
|
||||
)
|
||||
((= m_DWG_NAME "3") ;790000004-ASI-TABLEAU MIT 2 BEFEHLSSTELLEN KPL.
|
||||
(IO_ZEICHNEN P0 "EINGANG" "6" "S0000" "RESTART AFTER TROUBLE" "A1+Kx-Axxx")
|
||||
(setq P0 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(IO_ZEICHNEN P0 "OUTPUT" "3" "H0000" "RESTART AFTER TROUBLE" "A1+Kx-Axxx")
|
||||
(setq P0 (list (+ (car p0) (* FAKTO 1170)) (+ (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(IO_ZEICHNEN P0 "EINGANG" "6" "S0000" "TRAVELTIME ERROR" "A1+Kx-Axxx")
|
||||
(setq P0 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(IO_ZEICHNEN P0 "OUTPUT" "3" "H0000" "TRAVELTIME ERROR" "A1+Kx-Axxx")
|
||||
)
|
||||
((= m_DWG_NAME "4") ;790000005-ASI-TABLEAU MIT 1 BEFEHLSSTELLEN KPL.
|
||||
(IO_ZEICHNEN P0 "EINGANG" "6" "S0000" "TRAIN REQUEST" "A1+Kx-Axxx")
|
||||
(setq P0 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(IO_ZEICHNEN P0 "OUTPUT" "3" "H0000" "TRAIN REQUEST" "A1+Kx-Axxx")
|
||||
)
|
||||
((= m_DWG_NAME "5") ;790000006-LED LEUCHTE KPL.
|
||||
(IO_ZEICHNEN P0 "OUTPUT" "3" "H0000" "TROUBLE/WARNING" "A1+Kx-Axxx")
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
|
||||
|
||||
)
|
||||
|
||||
(defun IO_ZEICHNEN (P0 IO_EBENE IO_FARBE IO_ADRESSE IO_BEZEICHNUNG IO_VERWENDUNG)
|
||||
;<<< IO Einfügen
|
||||
|
||||
(setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(setq P12 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(setq P13 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P14 (list (+ (car p0) (* FAKTO 340)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(setq P15 (list (+ (car p12)(* FAKTO 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
|
||||
(command "_layer" "_m" IO_EBENE "_c" IO_FARBE "" "")
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/io") P15 FAKTO "" "")
|
||||
(ATTRIBUTE-AENDERN_IO IO_ADRESSE "9999" "NO-ID" IO_BEZEICHNUNG IO_VERWENDUNG)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
;<<< Korpus zeichnen ---------------------------------------
|
||||
(command "_layer" "_m" IO_EBENE "_c" IO_FARBE "" "")
|
||||
(command "_pline" P0 "_w" "0" "0" P10 P11 P12 P0 "")
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P13 P14 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
; (setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
|
||||
:<<<-------------------------------------------------------------------
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:ASI ( / DWG_NAME BL_NAME P0)
|
||||
(setvar "limcheck" 0)
|
||||
(setvar "CMDECHO" 0)
|
||||
(setvar "BLIPMODE" 0)
|
||||
(setq ALTFANG (getvar "osmode"))
|
||||
(setq EINZEL 0) ; fuer EINZEL=0 Baugruppen / EINZEL=1 fuer APB
|
||||
(prompt "**** ASI KOMPONENTEN *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl
|
||||
(if (null m_FAKT) (setq m_FAKT "0.5")) ; Skalierungsfaktor
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,124 @@
|
||||
/* Dialogbox fuer ILS2100 Komponaneten */
|
||||
/* Datum: 20.9.2006 AW */
|
||||
|
||||
AUSGAENGE : dialog {
|
||||
label = "STEUERUNG-AUSGÄNGE";
|
||||
spacer;
|
||||
: row {
|
||||
: list_box {
|
||||
label = "Ausgänge";
|
||||
key = "DWG_NAME";
|
||||
mnemonic = "H";
|
||||
list = "BLIND\nV-BI->AS o. RAD-RAD\nV-MONO->SEP.GEFÄLLE\nV-BI->KREISEL\nSC-BT LINKS\nSC-BT RECHTS\nM 0.18 UNI\nM 0.25-0.37 UNI\nM 0.55 UNI\nM 0.75-0.9 UNI\nM 1.1 UNI\nM 0.18 BI\nM 0.25-0.37 BI\nM 0.55 BI\nM 0.75-0.9 BI\nM 1.1 BI";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
: image {
|
||||
height = 10;
|
||||
width = 40;
|
||||
color = 7;
|
||||
key = "anzeige";
|
||||
}
|
||||
: list_box {
|
||||
label = "Verwendung";
|
||||
key = "COMPONENT";
|
||||
mnemonic = "H";
|
||||
list = "SEP1_2Y+1B\nSEP1_1Y+1B\nSEP2_2Y+1B\nSEP2_1Y+1B\nSCAN_1A\nSW_2Y\nSW_2Y+1B\nSW_2Y+3B\nMOT_1M+1B\nMOT_1M\nOUTPUT-1Y\nNO-ID";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
}
|
||||
: row {
|
||||
: column {
|
||||
: edit_box {
|
||||
label = "Output:";
|
||||
allow_accept = true;
|
||||
key = "OUTPUT";
|
||||
value = 1;
|
||||
}
|
||||
: edit_box {
|
||||
label = "ID:";
|
||||
allow_accept = true;
|
||||
key = "IDENT";
|
||||
value = 3000;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Bezeichnung:";
|
||||
allow_accept = true;
|
||||
key = "BEZEICHNUNG";
|
||||
value = xxxxxxxxx;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Kennzeichnung:";
|
||||
allow_accept = true;
|
||||
key = "KENNZEICHNUNG";
|
||||
}
|
||||
: edit_box {
|
||||
label="Skalierungsfaktor";
|
||||
key="FAKT";
|
||||
value = 1;
|
||||
mnemonic="F";
|
||||
}
|
||||
: edit_box {
|
||||
label="ZUSATZTEXT";
|
||||
key="ZUSATZ";
|
||||
}
|
||||
: edit_box {
|
||||
label="SPS-Prefix";
|
||||
key="SPS-NR";
|
||||
}
|
||||
: toggle {
|
||||
label = "I/O-Bezeichnung=Artikel-Bezeichnung";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ";
|
||||
}
|
||||
: toggle {
|
||||
label = "I/O-Bezeichnung auch als Text RECHTS";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ-RECHTS";
|
||||
}
|
||||
}
|
||||
: boxed_radio_column {
|
||||
label = "PREFIX";
|
||||
key = "PREFIX";
|
||||
: radio_button {
|
||||
label = "M";
|
||||
key = "PREFIX_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Y";
|
||||
key = "PREFIX_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "A";
|
||||
key = "PREFIX_3";
|
||||
}
|
||||
: radio_button {
|
||||
label = "K";
|
||||
key = "PREFIX_4";
|
||||
}
|
||||
: radio_button {
|
||||
label = "H";
|
||||
key = "PREFIX_5";
|
||||
}
|
||||
: radio_button {
|
||||
label = "LT";
|
||||
key = "PREFIX_6";
|
||||
}
|
||||
: radio_button {
|
||||
label = "SOL";
|
||||
key = "PREFIX_7";
|
||||
}
|
||||
: radio_button {
|
||||
label = "MTR";
|
||||
key = "PREFIX_8";
|
||||
}
|
||||
: radio_button {
|
||||
label = "O";
|
||||
key = "PREFIX_9";
|
||||
}
|
||||
}
|
||||
}
|
||||
spacer;
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,531 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; AUSGAENGE ;
|
||||
;------------------------------------------------------------------------;
|
||||
; 02.02.2007 18.06.2011 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/AUSGAENGE.DCL")))
|
||||
(if (not (new_dialog "AUSGAENGE" Dat)) (exit))
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
|
||||
(set_tile "OUTPUT" m_OUTPUT)
|
||||
(set_tile "IDENT" m_IDENT)
|
||||
(set_tile "COMPONENT" m_COMPONENT)
|
||||
(set_tile "BEZEICHNUNG" m_BEZEICHNUNG)
|
||||
(set_tile "KENNZEICHNUNG" m_KENNZEICHNUNG)
|
||||
(set_tile "FAKT" m_FAKT)
|
||||
(set_tile "ZUSATZ" m_ZUSATZ)
|
||||
(set_tile "SPS-NR" m_SPS-NR)
|
||||
(set_tile "PREFIX" m_PREFIX) ; B,S oder E
|
||||
(set_tile "IO-BEZ" m_IO-BEZ)
|
||||
(set_tile "IO-BEZ-RECHTS" m_IO-BEZ-RECHTS)
|
||||
|
||||
; (mode_tile "anzeige" 0)
|
||||
; (SetDia)
|
||||
(ACTION_TILE "DWG_NAME" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq WINKEL1 0)
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_SPS-NR (get_tile "SPS-NR"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
; (SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_OUTPUT (get_tile "OUTPUT"))
|
||||
(setq m_IDENT (get_tile "IDENT"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_BEZEICHNUNG (get_tile "BEZEICHNUNG"))
|
||||
(setq m_KENNZEICHNUNG (get_tile "KENNZEICHNUNG"))
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_SPS-NR (get_tile "SPS-NR"))
|
||||
(setq FAKTO (atof m_FAKT))
|
||||
(InputStringAnalyse)
|
||||
)
|
||||
|
||||
(defun InputStringAnalyse()
|
||||
(setq DisplayString "")
|
||||
(setq InputLaenge (strlen m_OUTPUT))
|
||||
; (alert (itoa InputLaenge))
|
||||
(if (or (> InputLaenge 4) (= InputLaenge 0))
|
||||
(progn
|
||||
(alert "Mehr als 4 Stellen nicht bzw. LEERE Eingabe nicht erlaubt")
|
||||
(exit)
|
||||
)
|
||||
)
|
||||
(cond
|
||||
((= InputLaenge 1)
|
||||
(setq DisplayString (strcat "000" m_OUTPUT))
|
||||
)
|
||||
((= InputLaenge 2)
|
||||
(setq DisplayString (strcat "00" m_OUTPUT))
|
||||
)
|
||||
((= InputLaenge 3)
|
||||
(setq DisplayString (strcat "0" m_OUTPUT))
|
||||
)
|
||||
((= InputLaenge 4)
|
||||
(setq DisplayString m_OUTPUT)
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_COMPONENT "0")
|
||||
(setq VERWENDUNG "SEP1_2Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "1")
|
||||
(setq VERWENDUNG "SEP1_1Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "2")
|
||||
(setq VERWENDUNG "SEP2_2Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "3")
|
||||
(setq VERWENDUNG "SEP2_1Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "4")
|
||||
(setq VERWENDUNG "SCAN_1A")
|
||||
)
|
||||
((= m_COMPONENT "5")
|
||||
(setq VERWENDUNG "SW_2Y")
|
||||
)
|
||||
((= m_COMPONENT "6")
|
||||
(setq VERWENDUNG "SW_2Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "7")
|
||||
(setq VERWENDUNG "SW_2Y+3B")
|
||||
)
|
||||
((= m_COMPONENT "8")
|
||||
(setq VERWENDUNG "MOT_1M+1B")
|
||||
)
|
||||
((= m_COMPONENT "9")
|
||||
(setq VERWENDUNG "MOT_1M")
|
||||
)
|
||||
((= m_COMPONENT "10")
|
||||
(setq VERWENDUNG "OUTPUT-1Y")
|
||||
)
|
||||
((= m_COMPONENT "11")
|
||||
(setq VERWENDUNG m_ZUSATZ)
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
) ; end cond
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(setq BEZ1 "")
|
||||
(setq BEZ2 "")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq EBENE "AUSGANG")
|
||||
(setq FARBE "3")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(setq BEZEICHNUNG_BG "VENTIL BISTABIL- AS O. RAD-RAD")
|
||||
(setq BEZ1 "VENT")
|
||||
(setq BEZ2 "BI-2Y")
|
||||
(setq EBENE "AUSGANG")
|
||||
(setq FARBE "3")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(setq BEZEICHNUNG_BG "VENTIL MONOSTABIL- SEP.GEFÄLLE")
|
||||
(setq BEZ1 "VENT")
|
||||
(setq BEZ2 "MO-1Y")
|
||||
(setq EBENE "AUSGANG")
|
||||
(setq FARBE "3")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(setq BEZEICHNUNG_BG "VENTIL-BISTABIL- SEP.KREISEL")
|
||||
(setq BEZ1 "VENT")
|
||||
(setq BEZ2 "BI-2Y")
|
||||
(setq EBENE "AUSGANG")
|
||||
(setq FARBE "3")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(setq BEZEICHNUNG_BG "SCANNER BT SEP.LINKS")
|
||||
(setq BEZ1 "SC")
|
||||
(setq BEZ2 "S-LI")
|
||||
(setq EBENE "SCANNER")
|
||||
(setq FARBE "1")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(setq BEZEICHNUNG_BG "SCANNER BT SEP.RECHTS")
|
||||
(setq BEZ1 "SC")
|
||||
(setq BEZ2 "S-RE")
|
||||
(setq EBENE "SCANNER")
|
||||
(setq FARBE "1")
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 0.18 KW UNIDIREKTIONAL")
|
||||
(setq BEZ1 "M-UNI")
|
||||
(setq BEZ2 "0.18")
|
||||
(setq EBENE "MOTOR")
|
||||
(setq FARBE "4")
|
||||
)
|
||||
((= m_DWG_NAME "7")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 0.25-0.37 KW UNIDIREKTIONAL")
|
||||
(setq BEZ1 "M-UNI")
|
||||
(setq BEZ2 "0.37")
|
||||
(setq EBENE "MOTOR")
|
||||
(setq FARBE "4")
|
||||
)
|
||||
((= m_DWG_NAME "8")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 0.55 KW UNIDIREKTIONAL")
|
||||
(setq BEZ1 "M-UNI")
|
||||
(setq BEZ2 "0.55")
|
||||
(setq EBENE "MOTOR")
|
||||
(setq FARBE "4")
|
||||
)
|
||||
((= m_DWG_NAME "9")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 0.75-0.9 KW UNIDIREKTIONAL")
|
||||
(setq BEZ1 "M-UNI")
|
||||
(setq BEZ2 "0.9")
|
||||
(setq EBENE "MOTOR")
|
||||
(setq FARBE "4")
|
||||
)
|
||||
((= m_DWG_NAME "10")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 1.1 KW UNIDIREKTIONAL")
|
||||
(setq BEZ1 "M-UNI")
|
||||
(setq BEZ2 "1.1")
|
||||
(setq EBENE "MOTOR")
|
||||
(setq FARBE "4")
|
||||
)
|
||||
((= m_DWG_NAME "11")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 0.18 KW BIDIREKTIONAL")
|
||||
(setq BEZ1 "M-BI")
|
||||
(setq BEZ2 "0.18")
|
||||
(setq EBENE "MOTOR")
|
||||
(setq FARBE "4")
|
||||
)
|
||||
((= m_DWG_NAME "12")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 0.25-0.37 KW BIDIREKTIONAL")
|
||||
(setq BEZ1 "M-BI")
|
||||
(setq BEZ2 "0.37")
|
||||
(setq EBENE "MOTOR")
|
||||
(setq FARBE "4")
|
||||
)
|
||||
((= m_DWG_NAME "13")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 0.55 KW BIDIREKTIONAL")
|
||||
(setq BEZ1 "M-BI")
|
||||
(setq BEZ2 "0.55")
|
||||
(setq EBENE "MOTOR")
|
||||
(setq FARBE "4")
|
||||
)
|
||||
((= m_DWG_NAME "14")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 0.75-0.9 KW BIDIREKTIONAL")
|
||||
(setq BEZ1 "M-BI")
|
||||
(setq BEZ2 "0.9")
|
||||
(setq EBENE "MOTOR")
|
||||
(setq FARBE "4")
|
||||
)
|
||||
((= m_DWG_NAME "15")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 1.1 KW BIDIREKTIONAL")
|
||||
(setq BEZ1 "M-BI")
|
||||
(setq BEZ2 "1.1")
|
||||
(setq EBENE "MOTOR")
|
||||
(setq FARBE "4")
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_PREFIX "PREFIX_1")
|
||||
(setq _PREFIX "M")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_2")
|
||||
(setq _PREFIX "Y")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_3")
|
||||
(setq _PREFIX "A")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_4")
|
||||
(setq _PREFIX "K")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_5")
|
||||
(setq _PREFIX "H")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_6")
|
||||
(setq _PREFIX "LT")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_7")
|
||||
(setq _PREFIX "SOL")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_8")
|
||||
(setq _PREFIX "MTR")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_9")
|
||||
(setq _PREFIX "O")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE nil) ; wird am Ende ROTATE
|
||||
(setq AUSWAHL-SATZ nil) ; Blockbildung
|
||||
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(setvar "osmode" 0)
|
||||
(bl-name P0) ;--> Block-Name definieren -> R�ckgabe: element-name
|
||||
|
||||
;jh (setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P10 (list (+ (car p0) (+ (* FAKTO 830)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
;(setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
(setq P11 (list (+ (car p0) (+ (* FAKTO 830)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
(setq P12 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
;jh (setq P13 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P13 (list (+ (car p0) (* FAKTO 0)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P14 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
;jh (setq P14 (list (+ (car p0) (* FAKTO 340)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
|
||||
;<<<Text>>>
|
||||
(setq P1 (list (+ (car p12) (* FAKTO 380)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P2 (list (+ (car p12) (* FAKTO 550)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P3 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 220)) (caddr p12)))
|
||||
(setq P4 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 120)) (caddr p12)))
|
||||
(setq P5 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 10)) (caddr p12)))
|
||||
(setq P6 (list (- (car p12) (* FAKTO 320)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
;jh (setq P6 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
(setq P7 (list (+ (car p0) (+ (* FAKTO 1200)) (* 150 ANZ_CHARACT)) (+ (cadr p12) (* FAKTO 100)) (caddr p12)))
|
||||
|
||||
(command "_layer" "_m" EBENE "_c" FARBE "" "")
|
||||
|
||||
;<<< IO Einfügen
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "")
|
||||
|
||||
(if (= m_IO-BEZ "1") ; IO-Bezeichnung = Artikelbezeichnung
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG BEZEICHNUNG_BG m_KENNZEICHNUNG m_SPS-NR)
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
|
||||
|
||||
;>>> Byteweise arbeiten. Wenn die letzte Zahl "7" dann auf "10" aufrunden
|
||||
(setq LAENGE_m_OUTPUT (strlen m_OUTPUT))
|
||||
(if (= (substr m_OUTPUT LAENGE_m_OUTPUT 1) "7")
|
||||
(setq m_OUTPUT (itoa (+ 3 (atoi m_OUTPUT))))
|
||||
(setq m_OUTPUT (itoa (+ 1 (atoi m_OUTPUT))))
|
||||
)
|
||||
|
||||
;<<< Korpus zeichnen ---------------------------------------
|
||||
(command "_layer" "_m" "AUSGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P13 P10 P11 P14 P13 "")
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "11"))
|
||||
(progn
|
||||
(setq x_length (+ 1170 (* (strlen m_Zusatz) 160)))
|
||||
(setq P15 (list (+ (car p0) (* FAKTO x_length)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
;(setq P16 (list (+ (car p0) (* FAKTO x_length)) (- (cadr p0) (* FAKTO 330)) (caddr p0))) ;Zusatztext
|
||||
(setq P16 (list (+ (car p0) (* FAKTO x_length)) (- (cadr p11) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
|
||||
(command "_text" P7 (rtos (* FAKTO 150)) "0" m_ZUSATZ)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P10 P15 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P15 P16 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P16 P11 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
(progn
|
||||
(setq P15 (list (car p10) (cadr p10) (caddr p10)))
|
||||
(setq P16 (list (car p11) (cadr p11) (caddr p11)))
|
||||
)
|
||||
)
|
||||
;<<<<<<<<< IO-Bezeichnung auch als TEXT rechts einfügen
|
||||
(if (= m_IO-BEZ-RECHTS "1")
|
||||
(progn
|
||||
(setq P8 (list (+ (car p16) (* FAKTO 100)) (+ (cadr p16) (* FAKTO 100)) (caddr p16)))
|
||||
(command "_text" P8 (rtos (* FAKTO 150)) "0" m_BEZEICHNUNG)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
;<<<< SPS-NR checken - wenn eingetragen dann einrahmen >>>>>>>
|
||||
(if (> (strlen m_SPS-NR) 0 )
|
||||
(progn
|
||||
(setq left_length (* (strlen m_SPS-NR) 160))
|
||||
(setq P17 (list (- (car p13) (* FAKTO left_length)) (+ (cadr p13) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P18 (list (- (car p13) (* FAKTO left_length)) (- (cadr p13) (* FAKTO 360)) (caddr p0)))
|
||||
|
||||
(command "_layer" "_m" "AUSGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P13 P14 P18 P17 P13 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
(mach-block-ohne-prop P0 "0" AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
(setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
|
||||
:<<<-------------------------------------------------------------------
|
||||
|
||||
;<<<< BAUGRUPPEN >>>
|
||||
(if (= m_DWG_NAME "1") ; VENTIL BISTABIL AS UND RAD-RAD
|
||||
(progn
|
||||
(EINZELTEIL P0 "722001120" "MQ12ST. GEW.->M8 BU. GEW.1,5M" "2")
|
||||
(EINZELTEIL P0 "712000013" "DICHTUNGSNIPPEL M 25" "1")
|
||||
(EINZELTEIL P0 "712000112" "VERSCHLUSSSCHRAUBE M16 KUNSTST" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "2") ; VENTIL MONOSTABIL SEPARATOR GEFÄLLE
|
||||
(progn
|
||||
(EINZELTEIL P0 "722001120" "MQ12ST. GEW.->M8 BU. GEW.1,5M" "1")
|
||||
(EINZELTEIL P0 "712000013" "DICHTUNGSNIPPEL M 25" "0.5")
|
||||
(EINZELTEIL P0 "712000112" "VERSCHLUSSSCHRAUBE M16 KUNSTST" "0.5")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "3") ; VENTIL BISTABIL SEPARATOR KREISEL
|
||||
(progn
|
||||
(EINZELTEIL P0 "722001122" "MQ12ST. GEW.->M8 BU. GEW.1,5M" "2")
|
||||
(EINZELTEIL P0 "712000013" "DICHTUNGSNIPPEL M 25" "0.5")
|
||||
(EINZELTEIL P0 "712000112" "VERSCHLUSSSCHRAUBE M16 KUNSTST" "0.5")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "4") ; SCANNER FÜR BT SEP LINKS.
|
||||
(progn
|
||||
(EINZELTEIL P0 "829434003" "SCANNER M. ZUBEHÖR FÜR SEP LINKS KPL." "1")
|
||||
(EINZELTEIL P0 "711000045" "ANSCHLUSSMODUL CDB420-001 DC24" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "5") ; SCANNER FÜR BT SEP RECHTS
|
||||
(progn
|
||||
(EINZELTEIL P0 "829434003" "SCANNER M. ZUBEHÖR FÜR SEP RECHTS KPL." "1")
|
||||
(EINZELTEIL P0 "711000045" "ANSCHLUSSMODUL CDB420-001 DC24" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "6") ; ANTRIEB 0.18 UNIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001050" "DIREKTSTARTER 0,18KW 24V MS 3RV1011 0,55-0,8A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "7") ; ANTRIEB 0.25-0.37 UNIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001051" "DIREKTSTARTER 0,37KW 24V MS 3RV1011 0,9-1,25A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "8") ; ANTRIEB 0.55 UNIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001052" "DIREKTSTARTER 0,55 KW 24V MS 3RV1011 1,1-1,6A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "9") ; ANTRIEB 0.75-0.9 UNIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001053" "DIREKTSTARTER 0,75 KW 24V MS 3RV1011 1,4-2A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "10") ; ANTRIEB 1.1 UNIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001054" "DIREKTSTARTER 1,1 KW 24V MS 3RV1011 2,2-3,2A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "11") ; ANTRIEB 0.18 BIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001060" "WENDESTARTER 0,18 KW 24V MS 3RV1011 0,55-0,8A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "12") ; ANTRIEB 0.25-0.37 BIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001061" "WENDESTARTER 0,37 KW 24V MS 3RV1011 0,9-1,25A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "13") ; ANTRIEB 0.55 BIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001062" "WENDESTARTER 0,55 KW 24V MS 3RV1011 1,1-1,6A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "14") ; ANTRIEB 0.75-0.9 BIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001063" "WENDESTARTER 0,75 KW 24V MS 3RV1011 1,4-2A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "15") ; ANTRIEB 1.1 BIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001064" "WENDESTARTER 1,1 KW 24V MS 3RV1011 2,2-3,2A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
|
||||
;<<< Oberblock bilden
|
||||
(if (/= m_DWG_NAME "0")
|
||||
(progn
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
(command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (P1 E_ARTINR E_BEZEICHNUNG E_MENGE)
|
||||
(setq WINKEL1 (+ WINKEL1 10))
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/d_einzel") P13 "" "" (rtos WINKEL1))
|
||||
(attribute-aendern "0" "0" "29" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:AUSGAENGE ( / DWG_NAME P0)
|
||||
(setvar "limcheck" 0)
|
||||
(setvar "CMDECHO" 0)
|
||||
(setvar "BLIPMODE" 0)
|
||||
(setq ALTFANG (getvar "osmode"))
|
||||
(setq EINZEL 0) ; fuer EINZEL=0 Baugruppen / EINZEL=1 fuer APB
|
||||
(prompt "**** EINGÄNGE B *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl
|
||||
(if (null m_OUTPUT) (setq m_OUTPUT "1")) ; OUTPUT Bit
|
||||
(if (null m_IDENT) (setq m_IDENT "1")) ; IDENT Bit
|
||||
(if (null m_COMPONENT) (setq m_COMPONENT "1")) ; COMPONENT
|
||||
(if (null m_BEZEICHNUNG) (setq m_BEZEICHNUNG "xxxxxxxxxxxxxxx")) ; BEZEICHNUNG
|
||||
(if (null m_KENNZEICHNUNG) (setq m_KENNZEICHNUNG "=Axx+Exxx-Axxx")) ; KENNZEICHNUNG
|
||||
(if (null m_FAKT) (setq m_FAKT "1")) ; Skalierungsfaktor
|
||||
(if (null m_ZUSATZ) (setq m_ZUSATZ "")) ; Zusatztext
|
||||
(if (null m_SPS-NR) (setq m_SPS-NR "")) ; SPS Prefix
|
||||
(if (null m_PREFIX) (setq m_PREFIX "PREFIX_1")) ; Prefix (B,E oder S)
|
||||
(if (null m_IO-BEZ) (setq m_IO-BEZ "0")) ; Bezeicnung nicht der Artikelbezeichnung gleichsetzen
|
||||
(if (null m_IO-BEZ-RECHTS) (setq m_IO-BEZ-RECHTS "0")) ; Bezeicnung als Text rechts andrucken
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,517 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; AUSGAENGE ;
|
||||
;------------------------------------------------------------------------;
|
||||
; 02.02.2007 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/AUSGAENGE.DCL")))
|
||||
(if (not (new_dialog "AUSGAENGE" Dat)) (exit))
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
|
||||
(set_tile "OUTPUT" m_OUTPUT)
|
||||
(set_tile "IDENT" m_IDENT)
|
||||
(set_tile "COMPONENT" m_COMPONENT)
|
||||
(set_tile "BEZEICHNUNG" m_BEZEICHNUNG)
|
||||
(set_tile "KENNZEICHNUNG" m_KENNZEICHNUNG)
|
||||
(set_tile "FAKT" m_FAKT)
|
||||
(set_tile "ZUSATZ" m_ZUSATZ)
|
||||
(set_tile "PREFIX" m_PREFIX) ; B,S oder E
|
||||
(set_tile "IO-BEZ" m_IO-BEZ)
|
||||
(set_tile "IO-BEZ-RECHTS" m_IO-BEZ-RECHTS)
|
||||
|
||||
; (mode_tile "anzeige" 0)
|
||||
; (SetDia)
|
||||
(ACTION_TILE "DWG_NAME" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
;(defun SetDia()
|
||||
; (setq breite (dimx_tile "anzeige"))
|
||||
; (setq hoehe (dimy_tile "anzeige"))
|
||||
; (start_image "anzeige")
|
||||
; (FILL_IMAGE 0 0 breite hoehe -18)
|
||||
|
||||
; (cond
|
||||
; ((= m_DWG_NAME "1") ; Induktiv 8 mm
|
||||
; (slide_image 0 0 breite hoehe "steuerg(20002002)")
|
||||
; )
|
||||
; ((= m_DWG_NAME "2") ; Induktiv 12 mm
|
||||
; (slide_image 0 0 breite hoehe "steuerg(20002003)")
|
||||
; )
|
||||
; ((= m_DWG_NAME "3") ; Induktiv 16 mm
|
||||
; (slide_image 0 0 breite hoehe "steuerg(20002006)")
|
||||
; )
|
||||
; ((= m_DWG_NAME "4") ;Sensor Kapazitiv AP60
|
||||
; (slide_image 0 0 breite hoehe "steuerg(26904025)")
|
||||
; )
|
||||
; ((= m_DWG_NAME "5") ;Sensor Kapazitiv AP110
|
||||
; (slide_image 0 0 breite hoehe "steuerg(26904024)")
|
||||
; )
|
||||
; ((= m_DWG_NAME "6") ;Sensor Kapazitiv
|
||||
; (slide_image 0 0 breite hoehe "steuerg(21000011)")
|
||||
; )
|
||||
; ) ; end cond
|
||||
; (end_image)
|
||||
;)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq WINKEL1 0)
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
; (SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_OUTPUT (get_tile "OUTPUT"))
|
||||
(setq m_IDENT (get_tile "IDENT"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_BEZEICHNUNG (get_tile "BEZEICHNUNG"))
|
||||
(setq m_KENNZEICHNUNG (get_tile "KENNZEICHNUNG"))
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq FAKTO (atof m_FAKT))
|
||||
(InputStringAnalyse)
|
||||
)
|
||||
|
||||
(defun InputStringAnalyse()
|
||||
(setq DisplayString "")
|
||||
(setq InputLaenge (strlen m_OUTPUT))
|
||||
; (alert (itoa InputLaenge))
|
||||
(if (or (> InputLaenge 4) (= InputLaenge 0))
|
||||
(progn
|
||||
(alert "Mehr als 4 Stellen nicht bzw. LEERE Eingabe nicht erlaubt")
|
||||
(exit)
|
||||
)
|
||||
)
|
||||
(cond
|
||||
((= InputLaenge 1)
|
||||
(setq DisplayString (strcat "000" m_OUTPUT))
|
||||
)
|
||||
((= InputLaenge 2)
|
||||
(setq DisplayString (strcat "00" m_OUTPUT))
|
||||
)
|
||||
((= InputLaenge 3)
|
||||
(setq DisplayString (strcat "0" m_OUTPUT))
|
||||
)
|
||||
((= InputLaenge 4)
|
||||
(setq DisplayString m_OUTPUT)
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_COMPONENT "0")
|
||||
(setq VERWENDUNG "SEP1_2Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "1")
|
||||
(setq VERWENDUNG "SEP1_1Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "2")
|
||||
(setq VERWENDUNG "SEP2_2Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "3")
|
||||
(setq VERWENDUNG "SEP2_1Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "4")
|
||||
(setq VERWENDUNG "SCAN_1A")
|
||||
)
|
||||
((= m_COMPONENT "5")
|
||||
(setq VERWENDUNG "SW_2Y")
|
||||
)
|
||||
((= m_COMPONENT "6")
|
||||
(setq VERWENDUNG "SW_2Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "7")
|
||||
(setq VERWENDUNG "SW_2Y+3B")
|
||||
)
|
||||
((= m_COMPONENT "8")
|
||||
(setq VERWENDUNG "MOT_1M+1B")
|
||||
)
|
||||
((= m_COMPONENT "9")
|
||||
(setq VERWENDUNG "MOT_1M")
|
||||
)
|
||||
((= m_COMPONENT "10")
|
||||
(setq VERWENDUNG "OUTPUT-1Y")
|
||||
)
|
||||
((= m_COMPONENT "11")
|
||||
(setq VERWENDUNG m_ZUSATZ)
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
) ; end cond
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(setq BEZ1 "")
|
||||
(setq BEZ2 "")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(setq BEZEICHNUNG_BG "VENTIL BISTABIL- AS O. RAD-RAD")
|
||||
(setq BEZ1 "VENT")
|
||||
(setq BEZ2 "BI-2Y")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(setq BEZEICHNUNG_BG "VENTIL MONOSTABIL- SEP.GEFÄLLE")
|
||||
(setq BEZ1 "VENT")
|
||||
(setq BEZ2 "MO-1Y")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(setq BEZEICHNUNG_BG "VENTIL-BISTABIL- SEP.KREISEL")
|
||||
(setq BEZ1 "VENT")
|
||||
(setq BEZ2 "BI-2Y")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(setq BEZEICHNUNG_BG "SCANNER BT SEP.LINKS")
|
||||
(setq BEZ1 "SC")
|
||||
(setq BEZ2 "S-LI")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(setq BEZEICHNUNG_BG "SCANNER BT SEP.RECHTS")
|
||||
(setq BEZ1 "SC")
|
||||
(setq BEZ2 "S-RE")
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 0.18 KW UNIDIREKTIONAL")
|
||||
(setq BEZ1 "M-UNI")
|
||||
(setq BEZ2 "0.18")
|
||||
)
|
||||
((= m_DWG_NAME "7")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 0.25-0.37 KW UNIDIREKTIONAL")
|
||||
(setq BEZ1 "M-UNI")
|
||||
(setq BEZ2 "0.37")
|
||||
)
|
||||
((= m_DWG_NAME "8")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 0.55 KW UNIDIREKTIONAL")
|
||||
(setq BEZ1 "M-UNI")
|
||||
(setq BEZ2 "0.55")
|
||||
)
|
||||
((= m_DWG_NAME "9")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 0.75-0.9 KW UNIDIREKTIONAL")
|
||||
(setq BEZ1 "M-UNI")
|
||||
(setq BEZ2 "0.9")
|
||||
)
|
||||
((= m_DWG_NAME "10")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 1.1 KW UNIDIREKTIONAL")
|
||||
(setq BEZ1 "M-UNI")
|
||||
(setq BEZ2 "1.1")
|
||||
)
|
||||
((= m_DWG_NAME "11")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 0.18 KW BIDIREKTIONAL")
|
||||
(setq BEZ1 "M-BI")
|
||||
(setq BEZ2 "0.18")
|
||||
)
|
||||
((= m_DWG_NAME "12")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 0.25-0.37 KW BIDIREKTIONAL")
|
||||
(setq BEZ1 "M-BI")
|
||||
(setq BEZ2 "0.37")
|
||||
)
|
||||
((= m_DWG_NAME "13")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 0.55 KW BIDIREKTIONAL")
|
||||
(setq BEZ1 "M-BI")
|
||||
(setq BEZ2 "0.55")
|
||||
)
|
||||
((= m_DWG_NAME "14")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 0.75-0.9 KW BIDIREKTIONAL")
|
||||
(setq BEZ1 "M-BI")
|
||||
(setq BEZ2 "0.9")
|
||||
)
|
||||
((= m_DWG_NAME "15")
|
||||
(setq BEZEICHNUNG_BG "MOTOR 1.1 KW BIDIREKTIONAL")
|
||||
(setq BEZ1 "M-BI")
|
||||
(setq BEZ2 "1.1")
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_PREFIX "PREFIX_1")
|
||||
(setq _PREFIX "M")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_2")
|
||||
(setq _PREFIX "Y")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_3")
|
||||
(setq _PREFIX "A")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_4")
|
||||
(setq _PREFIX "K")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_5")
|
||||
(setq _PREFIX "H")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_6")
|
||||
(setq _PREFIX "LT")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_7")
|
||||
(setq _PREFIX "SOL")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_8")
|
||||
(setq _PREFIX "MTR")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_9")
|
||||
(setq _PREFIX "O")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE nil) ; wird am Ende ROTATE
|
||||
(setq AUSWAHL-SATZ nil) ; Blockbildung
|
||||
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(setvar "osmode" 0)
|
||||
(bl-name P0) ;--> Block-Name definieren -> R�ckgabe: element-name
|
||||
|
||||
(setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(setq P12 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(setq P13 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P14 (list (+ (car p0) (* FAKTO 340)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
|
||||
;<<<Text>>>
|
||||
(setq P1 (list (+ (car p12) (* FAKTO 380)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P2 (list (+ (car p12) (* FAKTO 550)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P3 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 220)) (caddr p12)))
|
||||
(setq P4 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 120)) (caddr p12)))
|
||||
(setq P5 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 10)) (caddr p12)))
|
||||
(setq P6 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
(setq P7 (list (+ (car p12) (* FAKTO 1200)) (+ (cadr p12) (* FAKTO 100)) (caddr p12)))
|
||||
|
||||
(command "_layer" "_m" "AUSGANG" "_c" "3" "" "")
|
||||
|
||||
;<<< IO Einfügen
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "")
|
||||
|
||||
(if (= m_IO-BEZ "1") ; IO-Bezeichnung = Artikelbezeichnung
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG BEZEICHNUNG_BG m_KENNZEICHNUNG)
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
|
||||
|
||||
;>>> Byteweise arbeiten. Wenn die letzte Zahl "7" dann auf "10" aufrunden
|
||||
(setq LAENGE_m_OUTPUT (strlen m_OUTPUT))
|
||||
(if (= (substr m_OUTPUT LAENGE_m_OUTPUT 1) "7")
|
||||
(setq m_OUTPUT (itoa (+ 3 (atoi m_OUTPUT))))
|
||||
(setq m_OUTPUT (itoa (+ 1 (atoi m_OUTPUT))))
|
||||
)
|
||||
|
||||
;<<< Korpus zeichnen ---------------------------------------
|
||||
(command "_layer" "_m" "AUSGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P0 P10 P11 P12 P0 "")
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P13 P14 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;<<< Beschreibung als Text hinzufügen
|
||||
(command "_text" P3 (rtos (* FAKTO 70)) "0" BEZ1)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_text" P4 (rtos (* FAKTO 70)) "0" BEZ2)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
;<<<< Zusatztext >>>>>>>
|
||||
; (if (> (strlen m_ZUSATZ) 0 )
|
||||
(if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "11"))
|
||||
(progn
|
||||
(setq x_length (+ 1170 (* (strlen m_Zusatz) 160)))
|
||||
(setq P15 (list (+ (car p0) (* FAKTO x_length)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
(setq P16 (list (+ (car p0) (* FAKTO x_length)) (- (cadr p0) (* FAKTO 330)) (caddr p0))) ;Zusatztext
|
||||
|
||||
(command "_text" P7 (rtos (* FAKTO 150)) "0" m_ZUSATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P10 P15 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P15 P16 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P16 P11 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
(progn
|
||||
(setq P15 (list (car p10) (cadr p10) (caddr p10)))
|
||||
(setq P16 (list (car p11) (cadr p11) (caddr p11)))
|
||||
)
|
||||
)
|
||||
;<<<<<<<<< IO-Bezeichnung auch als TEXT rechts einfügen
|
||||
(if (= m_IO-BEZ-RECHTS "1")
|
||||
(progn
|
||||
(setq P8 (list (+ (car p16) (* FAKTO 100)) (+ (cadr p16) (* FAKTO 100)) (caddr p16)))
|
||||
(command "_text" P8 (rtos (* FAKTO 150)) "0" m_BEZEICHNUNG)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
|
||||
(mach-block-ohne-prop P0 "0" AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
(setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
|
||||
:<<<-------------------------------------------------------------------
|
||||
|
||||
;<<<< BAUGRUPPEN >>>
|
||||
(if (= m_DWG_NAME "1") ; VENTIL BISTABIL AS UND RAD-RAD
|
||||
(progn
|
||||
(EINZELTEIL P0 "722001120" "MQ12ST. GEW.->M8 BU. GEW.1,5M" "2")
|
||||
(EINZELTEIL P0 "712000013" "DICHTUNGSNIPPEL M 25" "1")
|
||||
(EINZELTEIL P0 "712000112" "VERSCHLUSSSCHRAUBE M16 KUNSTST" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "2") ; VENTIL MONOSTABIL SEPARATOR GEFÄLLE
|
||||
(progn
|
||||
(EINZELTEIL P0 "722001120" "MQ12ST. GEW.->M8 BU. GEW.1,5M" "1")
|
||||
(EINZELTEIL P0 "712000013" "DICHTUNGSNIPPEL M 25" "0.5")
|
||||
(EINZELTEIL P0 "712000112" "VERSCHLUSSSCHRAUBE M16 KUNSTST" "0.5")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "3") ; VENTIL BISTABIL SEPARATOR KREISEL
|
||||
(progn
|
||||
(EINZELTEIL P0 "722001122" "MQ12ST. GEW.->M8 BU. GEW.1,5M" "2")
|
||||
(EINZELTEIL P0 "712000013" "DICHTUNGSNIPPEL M 25" "0.5")
|
||||
(EINZELTEIL P0 "712000112" "VERSCHLUSSSCHRAUBE M16 KUNSTST" "0.5")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "4") ; SCANNER FÜR BT SEP LINKS.
|
||||
(progn
|
||||
(EINZELTEIL P0 "829434003" "SCANNER M. ZUBEHÖR FÜR SEP LINKS KPL." "1")
|
||||
(EINZELTEIL P0 "711000045" "ANSCHLUSSMODUL CDB420-001 DC24" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "5") ; SCANNER FÜR BT SEP RECHTS
|
||||
(progn
|
||||
(EINZELTEIL P0 "829434003" "SCANNER M. ZUBEHÖR FÜR SEP RECHTS KPL." "1")
|
||||
(EINZELTEIL P0 "711000045" "ANSCHLUSSMODUL CDB420-001 DC24" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "6") ; ANTRIEB 0.18 UNIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001050" "DIREKTSTARTER 0,18KW 24V MS 3RV1011 0,55-0,8A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "7") ; ANTRIEB 0.25-0.37 UNIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001051" "DIREKTSTARTER 0,37KW 24V MS 3RV1011 0,9-1,25A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "8") ; ANTRIEB 0.55 UNIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001052" "DIREKTSTARTER 0,55 KW 24V MS 3RV1011 1,1-1,6A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "9") ; ANTRIEB 0.75-0.9 UNIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001053" "DIREKTSTARTER 0,75 KW 24V MS 3RV1011 1,4-2A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "10") ; ANTRIEB 1.1 UNIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001054" "DIREKTSTARTER 1,1 KW 24V MS 3RV1011 2,2-3,2A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "11") ; ANTRIEB 0.18 BIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001060" "WENDESTARTER 0,18 KW 24V MS 3RV1011 0,55-0,8A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "12") ; ANTRIEB 0.25-0.37 BIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001061" "WENDESTARTER 0,37 KW 24V MS 3RV1011 0,9-1,25A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "13") ; ANTRIEB 0.55 BIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001062" "WENDESTARTER 0,55 KW 24V MS 3RV1011 1,1-1,6A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "14") ; ANTRIEB 0.75-0.9 BIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001063" "WENDESTARTER 0,75 KW 24V MS 3RV1011 1,4-2A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "15") ; ANTRIEB 1.1 BIDIREKTIONAL
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001064" "WENDESTARTER 1,1 KW 24V MS 3RV1011 2,2-3,2A" "1")
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1")
|
||||
)
|
||||
)
|
||||
|
||||
;<<< Oberblock bilden
|
||||
(if (/= m_DWG_NAME "0")
|
||||
(progn
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
(command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (P1 E_ARTINR E_BEZEICHNUNG E_MENGE)
|
||||
(setq WINKEL1 (+ WINKEL1 10))
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/d_einzel") P0 "" "" (rtos WINKEL1))
|
||||
(attribute-aendern "0" "0" "29" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:AUSGAENGE ( / DWG_NAME P0)
|
||||
(setvar "limcheck" 0)
|
||||
(setvar "CMDECHO" 0)
|
||||
(setvar "BLIPMODE" 0)
|
||||
(setq ALTFANG (getvar "osmode"))
|
||||
(setq EINZEL 0) ; fuer EINZEL=0 Baugruppen / EINZEL=1 fuer APB
|
||||
(prompt "**** EINGÄNGE B *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl
|
||||
(if (null m_OUTPUT) (setq m_OUTPUT "1")) ; OUTPUT Bit
|
||||
(if (null m_IDENT) (setq m_IDENT "1")) ; IDENT Bit
|
||||
(if (null m_COMPONENT) (setq m_COMPONENT "1")) ; COMPONENT
|
||||
(if (null m_BEZEICHNUNG) (setq m_BEZEICHNUNG "xxxxxxxxxxxxxxx")) ; BEZEICHNUNG
|
||||
(if (null m_KENNZEICHNUNG) (setq m_KENNZEICHNUNG "=Axx+Exxx-Axxx")) ; KENNZEICHNUNG
|
||||
(if (null m_FAKT) (setq m_FAKT "1")) ; Skalierungsfaktor
|
||||
(if (null m_ZUSATZ) (setq m_ZUSATZ "")) ; Zusatztext
|
||||
(if (null m_PREFIX) (setq m_PREFIX "PREFIX_1")) ; Prefix (B,E oder S)
|
||||
(if (null m_IO-BEZ) (setq m_IO-BEZ "0")) ; Bezeicnung nicht der Artikelbezeichnung gleichsetzen
|
||||
(if (null m_IO-BEZ-RECHTS) (setq m_IO-BEZ-RECHTS "0")) ; Bezeicnung als Text rechts andrucken
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,158 @@
|
||||
/* Dialogbox fuer Ausgänge Spinnerei */
|
||||
/* Datum: 18.7.2008 AW 18.06.2011 */
|
||||
|
||||
AUSGAENGE_F : dialog {
|
||||
label = "ANSCHLÜSSE FÜR AUSGÄNGE SPINNEREI";
|
||||
spacer;
|
||||
: row {
|
||||
: list_box {
|
||||
label = "Anschlüsse für Ausgänge";
|
||||
key = "DWG_NAME";
|
||||
mnemonic = "H";
|
||||
list = "BLIND\nANSCHL. VENTIL FÜR WEICHE\nANSCHL. FÜR VENTIL RA1\nANSCHL. FÜR VENTIL RA2\nANSCHL. MOTOR FÜR RA1/RA2 UNI\nANSCHL. MOTOR FÜR RA1/RA2 BI\nANSCHL. FÜR VENTIL FLYER-STOPPER";
|
||||
width = 40;
|
||||
height = 10;
|
||||
}
|
||||
: image {
|
||||
height = 10;
|
||||
width = 40;
|
||||
color = 7;
|
||||
key = "anzeige";
|
||||
}
|
||||
: list_box {
|
||||
label = "Verwendung";
|
||||
key = "COMPONENT";
|
||||
mnemonic = "H";
|
||||
list = "NO-ID";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
}
|
||||
: row {
|
||||
: column {
|
||||
: edit_box {
|
||||
label = "Input:";
|
||||
allow_accept = true;
|
||||
key = "INPUT";
|
||||
value = 1;
|
||||
}
|
||||
: edit_box {
|
||||
label = "ID:";
|
||||
allow_accept = true;
|
||||
key = "IDENT";
|
||||
value = 1000;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Bezeichnung:";
|
||||
allow_accept = true;
|
||||
key = "BEZEICHNUNG";
|
||||
value = xxxxxxxxx;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Kennzeichnung:";
|
||||
allow_accept = true;
|
||||
key = "KENNZEICHNUNG";
|
||||
}
|
||||
: edit_box {
|
||||
label="Skalierungsfaktor";
|
||||
key="FAKT";
|
||||
value = 1;
|
||||
mnemonic="F";
|
||||
}
|
||||
: edit_box {
|
||||
label="ZUSATZTEXT";
|
||||
key="ZUSATZ";
|
||||
}
|
||||
: edit_box {
|
||||
label="SPS-Prefix";
|
||||
key="SPS-NR";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung=Artikel-Bezeichnung";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung auch als Text RECHTS";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ-RECHTS";
|
||||
}
|
||||
}
|
||||
: boxed_radio_column {
|
||||
label = "PREFIX";
|
||||
key = "PREFIX";
|
||||
: radio_button {
|
||||
label = "M";
|
||||
key = "PREFIX_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Y";
|
||||
key = "PREFIX_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "A";
|
||||
key = "PREFIX_3";
|
||||
}
|
||||
: radio_button {
|
||||
label = "K";
|
||||
key = "PREFIX_4";
|
||||
}
|
||||
: radio_button {
|
||||
label = "H";
|
||||
key = "PREFIX_5";
|
||||
}
|
||||
: radio_button {
|
||||
label = "LT";
|
||||
key = "PREFIX_6";
|
||||
}
|
||||
: radio_button {
|
||||
label = "SOL";
|
||||
key = "PREFIX_7";
|
||||
}
|
||||
: radio_button {
|
||||
label = "MTR";
|
||||
key = "PREFIX_8";
|
||||
}
|
||||
: radio_button {
|
||||
label = "O";
|
||||
key = "PREFIX_9";
|
||||
}
|
||||
}
|
||||
: column {
|
||||
: boxed_radio_column {
|
||||
label = "LÄNGE";
|
||||
key = "LAENGE";
|
||||
: radio_button {
|
||||
label = "2 m";
|
||||
key = "LAENGE_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "3 m";
|
||||
key = "LAENGE_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "5 m";
|
||||
key = "LAENGE_3";
|
||||
}
|
||||
: radio_button {
|
||||
label = "10 m";
|
||||
key = "LAENGE_4";
|
||||
}
|
||||
}
|
||||
: boxed_radio_column {
|
||||
label = "LEISTUNG";
|
||||
key = "LEISTUNG";
|
||||
: radio_button {
|
||||
label = "0.12 KW 400V/50Hz o. 60Hz";
|
||||
key = "LEISTUNG_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "0.18 KW 400V/50Hz o. 60Hz";
|
||||
key = "LEISTUNG_2";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
spacer;
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,569 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; AUSGAENGE_F
|
||||
; Spinnerei ;
|
||||
;------------------------------------------------------------------------;
|
||||
; 22.09.2007
|
||||
; 18.07.2008 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/AUSGAENGE_F.DCL")))
|
||||
(if (not (new_dialog "AUSGAENGE_F" Dat)) (exit))
|
||||
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(set_tile "INPUT" m_INPUT)
|
||||
(set_tile "IDENT" m_IDENT)
|
||||
(set_tile "COMPONENT" m_COMPONENT)
|
||||
(set_tile "BEZEICHNUNG" m_BEZEICHNUNG)
|
||||
(set_tile "KENNZEICHNUNG" m_KENNZEICHNUNG)
|
||||
(set_tile "FAKT" m_FAKT)
|
||||
(set_tile "ZUSATZ" m_ZUSATZ)
|
||||
(set_tile "SPS-NR" m_SPS-NR)
|
||||
(set_tile "PREFIX" m_PREFIX) ; B,S oder E
|
||||
(set_tile "IO-BEZ" m_IO-BEZ)
|
||||
(set_tile "IO-BEZ-RECHTS" m_IO-BEZ-RECHTS)
|
||||
(set_tile "LAENGE" m_LAENGE)
|
||||
(set_tile "LEISTUNG" m_LEISTUNG)
|
||||
|
||||
(mode_tile "anzeige" 0)
|
||||
(SetDia)
|
||||
(ACTION_TILE "DWG_NAME" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i00)")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_sw)")
|
||||
)
|
||||
((= m_DWG_NAME "2") ; VENTIL FÜR RA1 (Reibradsantrieb)
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_ra1)")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_ra2)") ; VENTIL FÜR RA2 (Doppelstreckenantrieb)
|
||||
)
|
||||
((= m_DWG_NAME "4") ; MOTOR FÜR RA1 (Reibradsantrieb)
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_m_ra1)")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_m_ra2)") ; MOTOR FÜR RA2 (Doppelstreckenantrieb)
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_stop)") ; Anschluss Ventil am Flyer-Stopper
|
||||
)
|
||||
) ; end cond
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq WINKEL1 0)
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_SPS-NR (get_tile "SPS-NR"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_LAENGE (get_tile "LAENGE"))
|
||||
(setq m_LEISTUNG (get_tile "LEISTUNG"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_INPUT (get_tile "INPUT"))
|
||||
(setq m_IDENT (get_tile "IDENT"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_BEZEICHNUNG (get_tile "BEZEICHNUNG"))
|
||||
(setq m_KENNZEICHNUNG (get_tile "KENNZEICHNUNG"))
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_LAENGE (get_tile "LAENGE"))
|
||||
(setq m_LEISTUNG (get_tile "LEISTUNG"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_SPS-NR (get_tile "SPS-NR"))
|
||||
(setq FAKTO (atof m_FAKT))
|
||||
(InputStringAnalyse)
|
||||
)
|
||||
|
||||
(defun InputStringAnalyse()
|
||||
(setq DisplayString "")
|
||||
(setq InputLaenge (strlen m_INPUT))
|
||||
; (alert (itoa InputLaenge))
|
||||
(if (or (> InputLaenge 4) (= InputLaenge 0))
|
||||
(progn
|
||||
(alert "Mehr als 4 Stellen nicht bzw. LEERE Eingabe nicht erlaubt")
|
||||
(exit)
|
||||
)
|
||||
)
|
||||
|
||||
(cond
|
||||
((= InputLaenge 1)
|
||||
(setq DisplayString (strcat "000" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 2)
|
||||
(setq DisplayString (strcat "00" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 3)
|
||||
(setq DisplayString (strcat "0" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 4)
|
||||
(setq DisplayString m_INPUT)
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_COMPONENT "0")
|
||||
(setq m_IDENT "9999")
|
||||
(setq VERWENDUNG "NO-ID")
|
||||
)
|
||||
) ; end cond
|
||||
; (alert verwendung)
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
(setq BEZ2 "ASI-2")
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
(setq BEZ2 "ASI-3")
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
(setq BEZ2 "ASI-5")
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
(setq BEZ2 "ASI10")
|
||||
)
|
||||
)
|
||||
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(setq BL_NAME "") ;Blinde Eintragung
|
||||
(setq BEZEICHNUNG "")
|
||||
(setq BEZ1 "")
|
||||
(setq BEZ2 "")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "3")
|
||||
(setq EBENE "AUSGANG")
|
||||
)
|
||||
;<<< ANSCHLUSS VENTIL FÜR WEICHE
|
||||
((and (= m_DWG_NAME "1") (= m_LAENGE "LAENGE_1")) ; 2m ASI Kabel für Weiche
|
||||
(setq BL_NAME "722001121")
|
||||
(setq BEZEICHNUNG "ANSCHLUSSKABEL WEICHE - MQ12ST. GEW.->M8 BU. GEW.2m 3-POL.")
|
||||
(setq BEZEICHNUNG_BG "---")
|
||||
(setq BEZ1 "SW")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "3")
|
||||
(setq EBENE "AUSGANG")
|
||||
)
|
||||
((and (= m_DWG_NAME "1") (= m_LAENGE "LAENGE_2")) ; 3m ASI Kabel für Weiche
|
||||
(setq BL_NAME "722001122")
|
||||
(setq BEZEICHNUNG "ANSCHLUSSKABEL WEICHE - MQ12ST. GEW.->M8 BU. GEW.3m 3-POL.")
|
||||
(setq BEZEICHNUNG_BG "---")
|
||||
(setq BEZ1 "SW")
|
||||
(setq EBENE "AUSGANG")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "3")
|
||||
)
|
||||
((and (= m_DWG_NAME "1") (= m_LAENGE "LAENGE_3")) ; 5m ASI Kabel für Weiche
|
||||
(setq BL_NAME "722001123")
|
||||
(setq BEZEICHNUNG "ANSCHLUSSKABEL WEICHE - MQ12ST. GEW.->M8 BU. GEW.5m 3-POL.")
|
||||
(setq BEZEICHNUNG_BG "---")
|
||||
(setq BEZ1 "SW")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "3")
|
||||
(setq EBENE "AUSGANG")
|
||||
)
|
||||
((and (= m_DWG_NAME "1") (= m_LAENGE "LAENGE_4")) ; 10m ASI Kabel für Weiche
|
||||
(setq BL_NAME "722001124")
|
||||
(setq BEZEICHNUNG "ANSCHLUSSKABEL WEICHE - MQ12ST. GEW.->M8 BU. GEW.10m 3-POL.")
|
||||
(setq BEZEICHNUNG_BG "---")
|
||||
(setq BEZ1 "SW")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "3")
|
||||
(setq EBENE "AUSGANG")
|
||||
)
|
||||
;<<< ANSCHLUSS VENTIL FÜR RA1 (1 Stück)
|
||||
((= m_DWG_NAME "2") ; 1 x Ventilstecker für Reibradantrieb RA1
|
||||
(setq BL_NAME "722003052")
|
||||
(setq BEZEICHNUNG "VENTILSTECKER BAUFORM BI->M12")
|
||||
(setq BEZEICHNUNG_BG "RA VENTILSTECKER")
|
||||
(setq BEZ1 "RR")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "3")
|
||||
(setq EBENE "AUSGANG")
|
||||
)
|
||||
;<<< ANSCHLUSS VENTIL FÜR RA2 (2 Stück)
|
||||
((= m_DWG_NAME "3") ; 2 x Ventilstecker für Doppelstreckenantrieb RA2
|
||||
(setq BL_NAME "722003052")
|
||||
(setq BEZEICHNUNG "VENTILSTECKER BAUFORM BI->M12")
|
||||
(setq BEZEICHNUNG_BG "RA VENTILSTECKER")
|
||||
(setq BEZ1 "DSA")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "3")
|
||||
(setq EBENE "AUSGANG")
|
||||
)
|
||||
;<<< ANSCHLUSS MOTOR UNI -> LEISTUNG 0.12 KW
|
||||
((and (= m_DWG_NAME "4") (= m_LEISTUNG "LEISTUNG_1")) ; Motor mit 0.12 KW UNI
|
||||
(setq BL_NAME "703001049")
|
||||
(setq BEZEICHNUNG "DIREKTSTARTER 0,12KW 24V MS 3RV1011 0,45-0,63A M-UNI")
|
||||
(setq BEZEICHNUNG_BG "DIREKTSTARTER 0,12KW 24V ")
|
||||
(setq BEZ1 "DSA")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "4")
|
||||
(setq EBENE "MOTOR")
|
||||
)
|
||||
;<<< ANSCHLUSS MOTOR UNI -> LEISTUNG 0.18 KW
|
||||
((and (= m_DWG_NAME "4") (= m_LEISTUNG "LEISTUNG_2")) ; Motor mit 0.12 KW BI
|
||||
(setq BL_NAME "703001050")
|
||||
(setq BEZEICHNUNG "DIREKTSTARTER 0,18KW 24V MS 3RV1011 0,55-0,8A M-UNI")
|
||||
(setq BEZEICHNUNG_BG "DIREKTSTARTER 0,18KW 24V")
|
||||
(setq BEZ1 "DSA")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "4")
|
||||
(setq EBENE "MOTOR")
|
||||
)
|
||||
;<<< ANSCHLUSS MOTOR BI -> LEISTUNG 0.12 KW
|
||||
((and (= m_DWG_NAME "5") (= m_LEISTUNG "LEISTUNG_1")) ; Motor mit 0.12 KW UNI
|
||||
(setq BL_NAME "703001059")
|
||||
(setq BEZEICHNUNG "WENDESTARTER 0,12 KW 24V MS 3RV1011 0,45-0,63A M-BI")
|
||||
(setq BEZEICHNUNG_BG "WENDESTARTER 0,12 KW 24V ")
|
||||
(setq BEZ1 "DSA")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "4")
|
||||
(setq EBENE "MOTOR")
|
||||
)
|
||||
;<<< ANSCHLUSS MOTOR BI -> LEISTUNG 0.18 KW
|
||||
((and (= m_DWG_NAME "5") (= m_LEISTUNG "LEISTUNG_2")) ; Motor mit 0.18 KW BI
|
||||
(setq BL_NAME "703001060")
|
||||
(setq BEZEICHNUNG "WENDESTARTER 0,18 KW 24V MS 3RV1011 0,55-0,8A M-BI")
|
||||
(setq BEZEICHNUNG_BG "WENDESTARTER 0,18 KW 24V ")
|
||||
(setq BEZ1 "DSA")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "4")
|
||||
(setq EBENE "MOTOR")
|
||||
)
|
||||
;<<< ANSCHLUSS FÜR VENTIL FÜR FLYER-STOPPER
|
||||
((= m_DWG_NAME "6") ; 5m ASI Kabel für Flyer-Stopper
|
||||
(setq BL_NAME "722001153")
|
||||
(setq BEZEICHNUNG "MQ12ST.GEW.3POL.->VEN.BFC/8 5M")
|
||||
(setq BEZEICHNUNG_BG "---")
|
||||
(setq BEZ1 "STOP")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "3")
|
||||
(setq EBENE "AUSGANG")
|
||||
(setq BEZ2 "ASI-5")
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_PREFIX "PREFIX_1")
|
||||
(setq _PREFIX "M")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_2")
|
||||
(setq _PREFIX "Y")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_3")
|
||||
(setq _PREFIX "A")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_4")
|
||||
(setq _PREFIX "K")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_5")
|
||||
(setq _PREFIX "H")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_6")
|
||||
(setq _PREFIX "LT")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_7")
|
||||
(setq _PREFIX "SOL")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_8")
|
||||
(setq _PREFIX "MTR")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_8")
|
||||
(setq _PREFIX "O")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE nil) ; wird am Ende ROTATE
|
||||
(setq AUSWAHL-SATZ nil) ; Blockbildung
|
||||
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(setvar "osmode" 0)
|
||||
(bl-name P0) ;--> Block-Name definieren -> Rückgabe: element-name
|
||||
|
||||
(IO_ZEICHNEN "0" P0 _PREFIX EBENE FARBE)
|
||||
|
||||
(if (= m_DWG_NAME "0")
|
||||
(progn
|
||||
(mach-block-ohne-prop P0 "0" AUSWAHL-SATZ)
|
||||
)
|
||||
(progn
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "0" "9" "0" (strcat _PREFIX DisplayString) block-kennung BL_NAME BEZEICHNUNG ANZAHL "")
|
||||
)
|
||||
)
|
||||
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
(setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
|
||||
:<<<-------------------------------------------------------------------
|
||||
|
||||
;<<<< BAUGRUPPEN >>>
|
||||
(cond
|
||||
((= m_DWG_NAME "2") ; Anschluss für Ventil für RA1
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P10 "722001101" "MQ12ST. GEW.->MQ12BU. GER.2m 4-POL." "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 2M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P10 "722001102" "MQ12ST. GEW.->MQ12BU. GER.3m 4-POL." "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 3M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
(EINZELTEIL P10 "722001103" "MQ12ST. GEW.->MQ12BU. GER.5m 4-POL." "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 5M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
(EINZELTEIL P10 "722001104" "MQ12ST. GEW.->MQ12BU. GER.10m 4-POL." "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 10M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
)
|
||||
((= m_DWG_NAME "3") ; 2 x Ventilstecker für RA2
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P10 "722001101" "MQ12ST. GEW.->MQ12BU. GER.2m 4-POL." "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 2M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;<<< .... und jetzt kopieren
|
||||
(command "_copy" AUSWAHL-SATZ-ROTATE "" P0 P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P10 "722001102" "MQ12ST. GEW.->MQ12BU. GER.3m 4-POL." "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 3M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;<<< .... und jetzt kopieren
|
||||
(command "_copy" AUSWAHL-SATZ-ROTATE "" P0 P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
(EINZELTEIL P10 "722001103" "MQ12ST. GEW.->MQ12BU. GER.5m 4-POL." "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 5M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;<<< .... und jetzt kopieren
|
||||
(command "_copy" AUSWAHL-SATZ-ROTATE "" P0 P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
(EINZELTEIL P10 "722001104" "MQ12ST. GEW.->MQ12BU. GER.10m 4-POL." "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 10M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;<<< .... und jetzt kopieren
|
||||
(command "_copy" AUSWAHL-SATZ-ROTATE "" P0 P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
)
|
||||
((= m_DWG_NAME "4") ; ANSCHLUSS MOTOR
|
||||
(TEILE_ANSCHLUSS_MOTOR)
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(TEILE_ANSCHLUSS_MOTOR)
|
||||
(IO_ZEICHNEN "1" P12 "K" "MOTOR" "4")
|
||||
; (mach-block P0 "0" AUSWAHL-SATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (P1 E_ARTINR E_BEZEICHNUNG E_MENGE E_LAENGE)
|
||||
(setq WINKEL1 (+ WINKEL1 10))
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/d_einzel") P10 "" "" (rtos WINKEL1))
|
||||
(attribute-aendern "0" "0" "29" E_LAENGE "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
(defun IO_ZEICHNEN (LOS P0 IO_PREFIX IO_EBENE IO_FARBE)
|
||||
;jh (setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P10 (list (+ (car p0) (+ (* FAKTO 830)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
;(setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
(setq P11 (list (+ (car p0) (+ (* FAKTO 830)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
(setq P12 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
;jh (setq P13 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P13 (list (+ (car p0) (* FAKTO 0)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P14 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
;jh (setq P14 (list (+ (car p0) (* FAKTO 340)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
|
||||
;<<<Text>>>
|
||||
(setq P1 (list (+ (car p12) (* FAKTO 380)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P2 (list (+ (car p12) (* FAKTO 550)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P3 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 220)) (caddr p12)))
|
||||
(setq P4 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 120)) (caddr p12)))
|
||||
(setq P5 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 10)) (caddr p12)))
|
||||
(setq P6 (list (- (car p12) (* FAKTO 320)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
;jh (setq P6 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
(setq P7 (list (+ (car p0) (+ (* FAKTO 1200)) (* 150 ANZ_CHARACT)) (+ (cadr p12) (* FAKTO 100)) (caddr p12)))
|
||||
|
||||
(command "_layer" "_m" IO_EBENE "_c" IO_FARBE "" "")
|
||||
;<<< IO Einfügen
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "")
|
||||
|
||||
;<<< LOS=0 beim ersten Durchlauf
|
||||
(if (= LOS "0")
|
||||
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
|
||||
|
||||
(if (= m_IO-BEZ "1") ; IO-Bezeichnung = Artikelbezeichnung
|
||||
(ATTRIBUTE-AENDERN_IO (strcat IO_PREFIX DisplayString) m_IDENT VERWENDUNG BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
|
||||
(ATTRIBUTE-AENDERN_IO (strcat IO_PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
|
||||
)
|
||||
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;>>> Byteweise arbeiten. Wenn die letzte Zahl "7" dann auf "10" aufrunden
|
||||
(setq LAENGE_m_INPUT (strlen m_INPUT))
|
||||
(if (= (substr m_INPUT LAENGE_m_INPUT 1) "7")
|
||||
(setq m_INPUT (itoa (+ 3 (atoi m_INPUT))))
|
||||
(setq m_INPUT (itoa (+ 1 (atoi m_INPUT))))
|
||||
)
|
||||
|
||||
;<<< Korpus zeichnen ---------------------------------------
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(command "_pline" P10 "_w" "0" "0" P11 P14 P13 P10 "")
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(setq P15 (list (car p10) (cadr p10) (caddr p10)))
|
||||
(setq P16 (list (car p11) (cadr p11) (caddr p11)))
|
||||
;<<<<<<<<< IO-Bezeichnung auch als TEXT rechts einfügen
|
||||
(if (= m_IO-BEZ-RECHTS "1")
|
||||
(progn
|
||||
(setq P8 (list (+ (car p16) (* FAKTO 100)) (+ (cadr p16) (* FAKTO 100)) (caddr p16)))
|
||||
(command "_text" P8 (rtos (* FAKTO 150)) "0" m_BEZEICHNUNG)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
;<<<< SPS-NR checken - wenn eingetragen dann einrahmen >>>>>>>
|
||||
(if (> (strlen m_SPS-NR) 0 )
|
||||
(progn
|
||||
(setq left_length (* (strlen m_SPS-NR) 160))
|
||||
(setq P17 (list (- (car p13) (* FAKTO left_length)) (+ (cadr p13) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P18 (list (- (car p13) (* FAKTO left_length)) (- (cadr p13) (* FAKTO 360)) (caddr p0)))
|
||||
|
||||
(command "_layer" "_m" "AUSGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P13 P14 P18 P17 P13 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun TEILE_ANSCHLUSS_MOTOR ()
|
||||
(EINZELTEIL P10 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HILFSCHALTER"))
|
||||
(EINZELTEIL P10 "700004200" "ZUGFEDER-DURCHGANGSKLEMME ST2,5" "3" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+KLEMME1"))
|
||||
(EINZELTEIL P10 "700004203" "ZUGFEDER-SCHUTZLEITERKLEMME ST2,5-PE" "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+KLEMME2"))
|
||||
(EINZELTEIL P10 "723000006" "ADERL. H07V-K 1,5 QMM SCHWARZ" "1" "3")
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P10 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:AUSGAENGE_F ( / DWG_NAME BL_NAME P0)
|
||||
(setvar "limcheck" 0)
|
||||
(setvar "CMDECHO" 0)
|
||||
(setvar "BLIPMODE" 0)
|
||||
(setq ALTFANG (getvar "osmode"))
|
||||
(setq EINZEL 0) ; fuer EINZEL=0 Baugruppen / EINZEL=1 fuer APB
|
||||
(prompt "**** AUSGÄNGE SPINNEREI *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl
|
||||
(if (null m_INPUT) (setq m_INPUT "1")) ; Input Bit
|
||||
(if (null m_IDENT) (setq m_IDENT "1000")) ; ID
|
||||
(if (null m_COMPONENT) (setq m_COMPONENT "0")) ; Verwendung
|
||||
(if (null m_BEZEICHNUNG) (setq m_BEZEICHNUNG "xxxxxxxxxxxxxxx")) ; BEZEICHNUNG
|
||||
(if (null m_KENNZEICHNUNG) (setq m_KENNZEICHNUNG "=Axx+Exxx-Axxx")) ; KENNZEICHNUNG
|
||||
(if (null m_FAKT) (setq m_FAKT "1")) ; Skalierungsfaktor
|
||||
(if (null m_ZUSATZ) (setq m_ZUSATZ "")) ; Zusatztext
|
||||
(if (null m_SPS-NR) (setq m_SPS-NR "")) ; SPS Prefix
|
||||
(if (null m_PREFIX) (setq m_PREFIX "PREFIX_1")) ; Prefix (B,E oder S)
|
||||
(if (null m_IO-BEZ) (setq m_IO-BEZ "0")) ; Bezeicnung nicht der Artikelbezeichnung gleichsetzen
|
||||
(if (null m_IO-BEZ-RECHTS) (setq m_IO-BEZ-RECHTS "0")) ; Bezeicnung als Text rechts andrucken
|
||||
(if (null m_LAENGE) (setq m_LAENGE "LAENGE_1")) ; Länge 2m/3m/5m/10m
|
||||
(if (null m_LEISTUNG) (setq m_LEISTUNG "LEISTUNG_1")) ; LEISTUNG 0.12/018
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,591 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; AUSGAENGE_F
|
||||
; Spinnerei ;
|
||||
;------------------------------------------------------------------------;
|
||||
; 22.09.2007
|
||||
; 18.07.2008 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/AUSGAENGE_F.DCL")))
|
||||
(if (not (new_dialog "AUSGAENGE_F" Dat)) (exit))
|
||||
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(set_tile "INPUT" m_INPUT)
|
||||
(set_tile "IDENT" m_IDENT)
|
||||
(set_tile "COMPONENT" m_COMPONENT)
|
||||
(set_tile "BEZEICHNUNG" m_BEZEICHNUNG)
|
||||
(set_tile "KENNZEICHNUNG" m_KENNZEICHNUNG)
|
||||
(set_tile "FAKT" m_FAKT)
|
||||
(set_tile "ZUSATZ" m_ZUSATZ)
|
||||
(set_tile "PREFIX" m_PREFIX) ; B,S oder E
|
||||
(set_tile "IO-BEZ" m_IO-BEZ)
|
||||
(set_tile "IO-BEZ-RECHTS" m_IO-BEZ-RECHTS)
|
||||
(set_tile "LAENGE" m_LAENGE)
|
||||
(set_tile "LEISTUNG" m_LEISTUNG)
|
||||
|
||||
(mode_tile "anzeige" 0)
|
||||
(SetDia)
|
||||
(ACTION_TILE "DWG_NAME" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i00)")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_sw)")
|
||||
)
|
||||
((= m_DWG_NAME "2") ; VENTIL FÜR RA1 (Reibradsantrieb)
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_ra1)")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_ra2)") ; VENTIL FÜR RA2 (Doppelstreckenantrieb)
|
||||
)
|
||||
((= m_DWG_NAME "4") ; MOTOR FÜR RA1 (Reibradsantrieb)
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_m_ra1)")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_m_ra2)") ; MOTOR FÜR RA2 (Doppelstreckenantrieb)
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_stop)") ; Anschluss Ventil am Flyer-Stopper
|
||||
)
|
||||
) ; end cond
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq WINKEL1 0)
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_LAENGE (get_tile "LAENGE"))
|
||||
(setq m_LEISTUNG (get_tile "LEISTUNG"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_INPUT (get_tile "INPUT"))
|
||||
(setq m_IDENT (get_tile "IDENT"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_BEZEICHNUNG (get_tile "BEZEICHNUNG"))
|
||||
(setq m_KENNZEICHNUNG (get_tile "KENNZEICHNUNG"))
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_LAENGE (get_tile "LAENGE"))
|
||||
(setq m_LEISTUNG (get_tile "LEISTUNG"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq FAKTO (atof m_FAKT))
|
||||
(InputStringAnalyse)
|
||||
)
|
||||
|
||||
(defun InputStringAnalyse()
|
||||
(setq DisplayString "")
|
||||
(setq InputLaenge (strlen m_INPUT))
|
||||
; (alert (itoa InputLaenge))
|
||||
(if (or (> InputLaenge 4) (= InputLaenge 0))
|
||||
(progn
|
||||
(alert "Mehr als 4 Stellen nicht bzw. LEERE Eingabe nicht erlaubt")
|
||||
(exit)
|
||||
)
|
||||
)
|
||||
|
||||
(cond
|
||||
((= InputLaenge 1)
|
||||
(setq DisplayString (strcat "000" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 2)
|
||||
(setq DisplayString (strcat "00" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 3)
|
||||
(setq DisplayString (strcat "0" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 4)
|
||||
(setq DisplayString m_INPUT)
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_COMPONENT "0")
|
||||
(if (> (strlen m_ZUSATZ) 0 )
|
||||
(progn
|
||||
(setq VERWENDUNG m_ZUSATZ)
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
(progn
|
||||
(setq VERWENDUNG "NO-ID")
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
)
|
||||
)
|
||||
) ; end cond
|
||||
; (alert verwendung)
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
(setq BEZ2 "ASI-2")
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
(setq BEZ2 "ASI-3")
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
(setq BEZ2 "ASI-5")
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
(setq BEZ2 "ASI10")
|
||||
)
|
||||
)
|
||||
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(setq BL_NAME "") ;Blinde Eintragung
|
||||
(setq BEZEICHNUNG "")
|
||||
(setq BEZ1 "")
|
||||
(setq BEZ2 "")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "3")
|
||||
(setq EBENE "AUSGANG")
|
||||
)
|
||||
;<<< ANSCHLUSS VENTIL FÜR WEICHE
|
||||
((and (= m_DWG_NAME "1") (= m_LAENGE "LAENGE_1")) ; 2m ASI Kabel für Weiche
|
||||
(setq BL_NAME "722001121")
|
||||
(setq BEZEICHNUNG "ANSCHLUSSKABEL WEICHE - MQ12ST. GEW.->M8 BU. GEW.2m 3-POL.")
|
||||
(setq BEZEICHNUNG_BG "---")
|
||||
(setq BEZ1 "SW")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "3")
|
||||
(setq EBENE "AUSGANG")
|
||||
)
|
||||
((and (= m_DWG_NAME "1") (= m_LAENGE "LAENGE_2")) ; 3m ASI Kabel für Weiche
|
||||
(setq BL_NAME "722001122")
|
||||
(setq BEZEICHNUNG "ANSCHLUSSKABEL WEICHE - MQ12ST. GEW.->M8 BU. GEW.3m 3-POL.")
|
||||
(setq BEZEICHNUNG_BG "---")
|
||||
(setq BEZ1 "SW")
|
||||
(setq EBENE "AUSGANG")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "3")
|
||||
)
|
||||
((and (= m_DWG_NAME "1") (= m_LAENGE "LAENGE_3")) ; 5m ASI Kabel für Weiche
|
||||
(setq BL_NAME "722001123")
|
||||
(setq BEZEICHNUNG "ANSCHLUSSKABEL WEICHE - MQ12ST. GEW.->M8 BU. GEW.5m 3-POL.")
|
||||
(setq BEZEICHNUNG_BG "---")
|
||||
(setq BEZ1 "SW")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "3")
|
||||
(setq EBENE "AUSGANG")
|
||||
)
|
||||
((and (= m_DWG_NAME "1") (= m_LAENGE "LAENGE_4")) ; 10m ASI Kabel für Weiche
|
||||
(setq BL_NAME "722001124")
|
||||
(setq BEZEICHNUNG "ANSCHLUSSKABEL WEICHE - MQ12ST. GEW.->M8 BU. GEW.10m 3-POL.")
|
||||
(setq BEZEICHNUNG_BG "---")
|
||||
(setq BEZ1 "SW")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "3")
|
||||
(setq EBENE "AUSGANG")
|
||||
)
|
||||
;<<< ANSCHLUSS VENTIL FÜR RA1 (1 Stück)
|
||||
((= m_DWG_NAME "2") ; 1 x Ventilstecker für Reibradantrieb RA1
|
||||
(setq BL_NAME "722003052")
|
||||
(setq BEZEICHNUNG "VENTILSTECKER BAUFORM BI->M12")
|
||||
(setq BEZEICHNUNG_BG "RA VENTILSTECKER")
|
||||
(setq BEZ1 "RR")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "3")
|
||||
(setq EBENE "AUSGANG")
|
||||
)
|
||||
;<<< ANSCHLUSS VENTIL FÜR RA2 (2 Stück)
|
||||
((= m_DWG_NAME "3") ; 2 x Ventilstecker für Doppelstreckenantrieb RA2
|
||||
(setq BL_NAME "722003052")
|
||||
(setq BEZEICHNUNG "VENTILSTECKER BAUFORM BI->M12")
|
||||
(setq BEZEICHNUNG_BG "RA VENTILSTECKER")
|
||||
(setq BEZ1 "DSA")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "3")
|
||||
(setq EBENE "AUSGANG")
|
||||
)
|
||||
;<<< ANSCHLUSS MOTOR UNI -> LEISTUNG 0.12 KW
|
||||
((and (= m_DWG_NAME "4") (= m_LEISTUNG "LEISTUNG_1")) ; Motor mit 0.12 KW UNI
|
||||
(setq BL_NAME "703001049")
|
||||
(setq BEZEICHNUNG "DIREKTSTARTER 0,12KW 24V MS 3RV1011 0,45-0,63A M-UNI")
|
||||
(setq BEZEICHNUNG_BG "DIREKTSTARTER 0,12KW 24V ")
|
||||
(setq BEZ1 "DSA")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "4")
|
||||
(setq EBENE "MOTOR")
|
||||
)
|
||||
;<<< ANSCHLUSS MOTOR UNI -> LEISTUNG 0.18 KW
|
||||
((and (= m_DWG_NAME "4") (= m_LEISTUNG "LEISTUNG_2")) ; Motor mit 0.12 KW BI
|
||||
(setq BL_NAME "703001050")
|
||||
(setq BEZEICHNUNG "DIREKTSTARTER 0,18KW 24V MS 3RV1011 0,55-0,8A M-UNI")
|
||||
(setq BEZEICHNUNG_BG "DIREKTSTARTER 0,18KW 24V")
|
||||
(setq BEZ1 "DSA")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "4")
|
||||
(setq EBENE "MOTOR")
|
||||
)
|
||||
;<<< ANSCHLUSS MOTOR BI -> LEISTUNG 0.12 KW
|
||||
((and (= m_DWG_NAME "5") (= m_LEISTUNG "LEISTUNG_1")) ; Motor mit 0.12 KW UNI
|
||||
(setq BL_NAME "703001059")
|
||||
(setq BEZEICHNUNG "WENDESTARTER 0,12 KW 24V MS 3RV1011 0,45-0,63A M-BI")
|
||||
(setq BEZEICHNUNG_BG "WENDESTARTER 0,12 KW 24V ")
|
||||
(setq BEZ1 "DSA")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "4")
|
||||
(setq EBENE "MOTOR")
|
||||
)
|
||||
;<<< ANSCHLUSS MOTOR BI -> LEISTUNG 0.18 KW
|
||||
((and (= m_DWG_NAME "5") (= m_LEISTUNG "LEISTUNG_2")) ; Motor mit 0.18 KW BI
|
||||
(setq BL_NAME "703001060")
|
||||
(setq BEZEICHNUNG "WENDESTARTER 0,18 KW 24V MS 3RV1011 0,55-0,8A M-BI")
|
||||
(setq BEZEICHNUNG_BG "WENDESTARTER 0,18 KW 24V ")
|
||||
(setq BEZ1 "DSA")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "4")
|
||||
(setq EBENE "MOTOR")
|
||||
)
|
||||
;<<< ANSCHLUSS FÜR VENTIL FÜR FLYER-STOPPER
|
||||
((= m_DWG_NAME "6") ; 5m ASI Kabel für Flyer-Stopper
|
||||
(setq BL_NAME "722001153")
|
||||
(setq BEZEICHNUNG "MQ12ST.GEW.3POL.->VEN.BFC/8 5M")
|
||||
(setq BEZEICHNUNG_BG "---")
|
||||
(setq BEZ1 "STOP")
|
||||
(setq ANZAHL "1")
|
||||
(setq FARBE "3")
|
||||
(setq EBENE "AUSGANG")
|
||||
(setq BEZ2 "ASI-5")
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
|
||||
(cond
|
||||
((= m_PREFIX "PREFIX_1")
|
||||
(setq _PREFIX "M")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_2")
|
||||
(setq _PREFIX "Y")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_3")
|
||||
(setq _PREFIX "A")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_4")
|
||||
(setq _PREFIX "K")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_5")
|
||||
(setq _PREFIX "H")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_6")
|
||||
(setq _PREFIX "LT")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_7")
|
||||
(setq _PREFIX "SOL")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_8")
|
||||
(setq _PREFIX "MTR")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_8")
|
||||
(setq _PREFIX "O")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE nil) ; wird am Ende ROTATE
|
||||
(setq AUSWAHL-SATZ nil) ; Blockbildung
|
||||
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(setvar "osmode" 0)
|
||||
(bl-name P0) ;--> Block-Name definieren -> Rückgabe: element-name
|
||||
|
||||
(IO_ZEICHNEN "0" P0 _PREFIX EBENE FARBE)
|
||||
|
||||
(if (= m_DWG_NAME "0")
|
||||
(progn
|
||||
(mach-block-ohne-prop P0 "0" AUSWAHL-SATZ)
|
||||
)
|
||||
(progn
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "0" "9" "0" (strcat _PREFIX DisplayString) block-kennung BL_NAME BEZEICHNUNG ANZAHL "")
|
||||
)
|
||||
)
|
||||
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
(setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
|
||||
:<<<-------------------------------------------------------------------
|
||||
|
||||
;<<<< BAUGRUPPEN >>>
|
||||
(cond
|
||||
((= m_DWG_NAME "2") ; Anschluss für Ventil für RA1
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001101" "MQ12ST. GEW.->MQ12BU. GER.2m 4-POL." "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 2M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001102" "MQ12ST. GEW.->MQ12BU. GER.3m 4-POL." "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 3M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
(EINZELTEIL P0 "722001103" "MQ12ST. GEW.->MQ12BU. GER.5m 4-POL." "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 5M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
(EINZELTEIL P0 "722001104" "MQ12ST. GEW.->MQ12BU. GER.10m 4-POL." "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 10M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
)
|
||||
((= m_DWG_NAME "3") ; 2 x Ventilstecker für RA2
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001101" "MQ12ST. GEW.->MQ12BU. GER.2m 4-POL." "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 2M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;<<< .... und jetzt kopieren
|
||||
(command "_copy" AUSWAHL-SATZ-ROTATE "" P0 P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001102" "MQ12ST. GEW.->MQ12BU. GER.3m 4-POL." "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 3M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;<<< .... und jetzt kopieren
|
||||
(command "_copy" AUSWAHL-SATZ-ROTATE "" P0 P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
(EINZELTEIL P0 "722001103" "MQ12ST. GEW.->MQ12BU. GER.5m 4-POL." "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 5M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;<<< .... und jetzt kopieren
|
||||
(command "_copy" AUSWAHL-SATZ-ROTATE "" P0 P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
(EINZELTEIL P0 "722001104" "MQ12ST. GEW.->MQ12BU. GER.10m 4-POL." "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 10M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;<<< .... und jetzt kopieren
|
||||
(command "_copy" AUSWAHL-SATZ-ROTATE "" P0 P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
)
|
||||
((= m_DWG_NAME "4") ; ANSCHLUSS MOTOR
|
||||
(TEILE_ANSCHLUSS_MOTOR)
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(TEILE_ANSCHLUSS_MOTOR)
|
||||
(IO_ZEICHNEN "1" P12 "K" "MOTOR" "4")
|
||||
; (mach-block P0 "0" AUSWAHL-SATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (P1 E_ARTINR E_BEZEICHNUNG E_MENGE E_LAENGE)
|
||||
(setq WINKEL1 (+ WINKEL1 10))
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/d_einzel") P0 "" "" (rtos WINKEL1))
|
||||
(attribute-aendern "0" "0" "29" E_LAENGE "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
(defun IO_ZEICHNEN (LOS P0 IO_PREFIX IO_EBENE IO_FARBE)
|
||||
|
||||
(setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(setq P12 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(setq P13 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P14 (list (+ (car p0) (* FAKTO 340)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
|
||||
;<<<Text>>>
|
||||
(setq P1 (list (+ (car p12) (* FAKTO 380)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P2 (list (+ (car p12) (* FAKTO 550)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P3 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 220)) (caddr p12)))
|
||||
(setq P4 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 120)) (caddr p12)))
|
||||
(setq P5 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 10)) (caddr p12)))
|
||||
(setq P6 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
(setq P7 (list (+ (car p12) (* FAKTO 1200)) (+ (cadr p12) (* FAKTO 100)) (caddr p12)))
|
||||
|
||||
(command "_layer" "_m" IO_EBENE "_c" IO_FARBE "" "")
|
||||
;<<< IO Einfügen
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "")
|
||||
|
||||
;<<< LOS=0 beim ersten Durchlauf
|
||||
(if (= LOS "0")
|
||||
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
|
||||
(if (= m_IO-BEZ "1") ; IO-Bezeichnung = Artikelbezeichnung
|
||||
(ATTRIBUTE-AENDERN_IO (strcat IO_PREFIX DisplayString) m_IDENT VERWENDUNG BEZEICHNUNG m_KENNZEICHNUNG)
|
||||
(ATTRIBUTE-AENDERN_IO (strcat IO_PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG)
|
||||
)
|
||||
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;>>> Byteweise arbeiten. Wenn die letzte Zahl "7" dann auf "10" aufrunden
|
||||
(setq LAENGE_m_INPUT (strlen m_INPUT))
|
||||
(if (= (substr m_INPUT LAENGE_m_INPUT 1) "7")
|
||||
(setq m_INPUT (itoa (+ 3 (atoi m_INPUT))))
|
||||
(setq m_INPUT (itoa (+ 1 (atoi m_INPUT))))
|
||||
)
|
||||
|
||||
;<<< Korpus zeichnen ---------------------------------------
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(command "_pline" P0 "_w" "0" "0" P10 P11 P12 P0 "")
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P13 P14 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;<<< Beschreibung als Text hinzufügen
|
||||
(command "_text" P3 (rtos (* FAKTO 70)) "0" BEZ1)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_text" P4 (rtos (* FAKTO 70)) "0" BEZ2)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
; ;<<<< Zusatztext >>>>>>>
|
||||
; (if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8"))
|
||||
; (progn
|
||||
; (setq x_length (+ 1170 (* (strlen m_Zusatz) 160)))
|
||||
; (setq P15 (list (+ (car p0) (* FAKTO x_length)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
; (setq P16 (list (+ (car p0) (* FAKTO x_length)) (- (cadr p0) (* FAKTO 330)) (caddr p0))) ;Zusatztext
|
||||
|
||||
; (command "_text" P7 (rtos (* FAKTO 150)) "0" m_ZUSATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
; (command "_pline" P10 P15 "")
|
||||
; (ssadd (entlast) AUSWAHL-SATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
; (command "_pline" P15 P16 "")
|
||||
; (ssadd (entlast) AUSWAHL-SATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
; (command "_pline" P16 P11 "")
|
||||
; (ssadd (entlast) AUSWAHL-SATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
; )
|
||||
; (progn
|
||||
(setq P15 (list (car p10) (cadr p10) (caddr p10)))
|
||||
(setq P16 (list (car p11) (cadr p11) (caddr p11)))
|
||||
; )
|
||||
; )
|
||||
;<<<<<<<<< IO-Bezeichnung auch als TEXT rechts einfügen
|
||||
(if (= m_IO-BEZ-RECHTS "1")
|
||||
(progn
|
||||
(setq P8 (list (+ (car p16) (* FAKTO 100)) (+ (cadr p16) (* FAKTO 100)) (caddr p16)))
|
||||
(command "_text" P8 (rtos (* FAKTO 150)) "0" m_BEZEICHNUNG)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun TEILE_ANSCHLUSS_MOTOR ()
|
||||
(EINZELTEIL P0 "703001017" "HILFSCHALTER F. 3RV1011- 1S+1O" "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HILFSCHALTER"))
|
||||
(EINZELTEIL P0 "700004200" "ZUGFEDER-DURCHGANGSKLEMME ST2,5" "3" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+KLEMME1"))
|
||||
(EINZELTEIL P0 "700004203" "ZUGFEDER-SCHUTZLEITERKLEMME ST2,5-PE" "1" "0")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+KLEMME2"))
|
||||
(EINZELTEIL P0 "723000006" "ADERL. H07V-K 1,5 QMM SCHWARZ" "1" "3")
|
||||
(EINZELTEIL P0 "723000005" "ADERL.H07V-K 1,5MM BLAU" "1" "3")
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:AUSGAENGE_F ( / DWG_NAME BL_NAME P0)
|
||||
(setvar "limcheck" 0)
|
||||
(setvar "CMDECHO" 0)
|
||||
(setvar "BLIPMODE" 0)
|
||||
(setq ALTFANG (getvar "osmode"))
|
||||
(setq EINZEL 0) ; fuer EINZEL=0 Baugruppen / EINZEL=1 fuer APB
|
||||
(prompt "**** AUSGÄNGE SPINNEREI *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl
|
||||
(if (null m_INPUT) (setq m_INPUT "1")) ; Input Bit
|
||||
(if (null m_IDENT) (setq m_IDENT "1000")) ; ID
|
||||
(if (null m_COMPONENT) (setq m_COMPONENT "0")) ; Verwendung
|
||||
(if (null m_BEZEICHNUNG) (setq m_BEZEICHNUNG "xxxxxxxxxxxxxxx")) ; BEZEICHNUNG
|
||||
(if (null m_KENNZEICHNUNG) (setq m_KENNZEICHNUNG "=Axx+Exxx-Axxx")) ; KENNZEICHNUNG
|
||||
(if (null m_FAKT) (setq m_FAKT "1")) ; Skalierungsfaktor
|
||||
(if (null m_ZUSATZ) (setq m_ZUSATZ "")) ; Zusatztext
|
||||
(if (null m_PREFIX) (setq m_PREFIX "PREFIX_1")) ; Prefix (B,E oder S)
|
||||
(if (null m_IO-BEZ) (setq m_IO-BEZ "0")) ; Bezeicnung nicht der Artikelbezeichnung gleichsetzen
|
||||
(if (null m_IO-BEZ-RECHTS) (setq m_IO-BEZ-RECHTS "0")) ; Bezeicnung als Text rechts andrucken
|
||||
(if (null m_LAENGE) (setq m_LAENGE "LAENGE_1")) ; Länge 2m/3m/5m/10m
|
||||
(if (null m_LEISTUNG) (setq m_LEISTUNG "LEISTUNG_1")) ; LEISTUNG 0.12/018
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,120 @@
|
||||
/* Dialogbox fuer Ausgänge Spinnerei */
|
||||
/* Datum: 30u.9.2007 AW */
|
||||
|
||||
AUSGAENGE_F : dialog {
|
||||
label = "STEUERUNG-AUSGÄNGE-SPINNEREI";
|
||||
spacer;
|
||||
: row {
|
||||
: list_box {
|
||||
label = "Ausgänge";
|
||||
key = "DWG_NAME";
|
||||
mnemonic = "H";
|
||||
list = "BLIND\nK-20M SMC\nASI-K-2M SMC\nASI-K-3M SMC\nASI-K-5M SMC\nASI-K-10M SMC\nPNEUM.REIBRAD\nPNEUM.REIBRAD+KABEL";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
: image {
|
||||
height = 10;
|
||||
width = 40;
|
||||
color = 7;
|
||||
key = "anzeige";
|
||||
}
|
||||
: list_box {
|
||||
label = "Verwendung";
|
||||
key = "COMPONENT";
|
||||
mnemonic = "H";
|
||||
list = "NO-ID";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
}
|
||||
: row {
|
||||
:column {
|
||||
: edit_box {
|
||||
label = "Input:";
|
||||
allow_accept = true;
|
||||
key = "INPUT";
|
||||
value = 1;
|
||||
}
|
||||
: edit_box {
|
||||
label = "ID:";
|
||||
allow_accept = true;
|
||||
key = "IDENT";
|
||||
value = 1000;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Bezeichnung:";
|
||||
allow_accept = true;
|
||||
key = "BEZEICHNUNG";
|
||||
value = xxxxxxxxx;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Kennzeichnung:";
|
||||
allow_accept = true;
|
||||
key = "KENNZEICHNUNG";
|
||||
}
|
||||
:edit_box {
|
||||
label="Skalierungsfaktor";
|
||||
key="FAKT";
|
||||
value = 1;
|
||||
mnemonic="F";
|
||||
}
|
||||
:edit_box {
|
||||
label="ZUSATZTEXT";
|
||||
key="ZUSATZ";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung=Artikel-Bezeichnung";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung auch als Text RECHTS";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ-RECHTS";
|
||||
}
|
||||
}
|
||||
: boxed_radio_column {
|
||||
label = "PREFIX";
|
||||
key = "PREFIX";
|
||||
: radio_button {
|
||||
label = "M";
|
||||
key = "PREFIX_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Y";
|
||||
key = "PREFIX_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "A";
|
||||
key = "PREFIX_3";
|
||||
}
|
||||
: radio_button {
|
||||
label = "K";
|
||||
key = "PREFIX_4";
|
||||
}
|
||||
: radio_button {
|
||||
label = "H";
|
||||
key = "PREFIX_5";
|
||||
}
|
||||
: radio_button {
|
||||
label = "LT";
|
||||
key = "PREFIX_6";
|
||||
}
|
||||
: radio_button {
|
||||
label = "SOL";
|
||||
key = "PREFIX_7";
|
||||
}
|
||||
: radio_button {
|
||||
label = "MTR";
|
||||
key = "PREFIX_8";
|
||||
}
|
||||
: radio_button {
|
||||
label = "O";
|
||||
key = "PREFIX_9";
|
||||
}
|
||||
}
|
||||
}
|
||||
spacer;
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,392 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; AUSGAENGE_F ;
|
||||
;------------------------------------------------------------------------;
|
||||
; 30.09.2007 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/AUSGAENGE_F.DCL")))
|
||||
(if (not (new_dialog "AUSGAENGE_F" Dat)) (exit))
|
||||
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(set_tile "INPUT" m_INPUT)
|
||||
(set_tile "IDENT" m_IDENT)
|
||||
(set_tile "COMPONENT" m_COMPONENT)
|
||||
(set_tile "BEZEICHNUNG" m_BEZEICHNUNG)
|
||||
(set_tile "KENNZEICHNUNG" m_KENNZEICHNUNG)
|
||||
(set_tile "FAKT" m_FAKT)
|
||||
(set_tile "ZUSATZ" m_ZUSATZ)
|
||||
(set_tile "PREFIX" m_PREFIX) ; B,S oder E
|
||||
(set_tile "IO-BEZ" m_IO-BEZ)
|
||||
(set_tile "IO-BEZ-RECHTS" m_IO-BEZ-RECHTS)
|
||||
|
||||
(mode_tile "anzeige" 0)
|
||||
(SetDia)
|
||||
(ACTION_TILE "DWG_NAME" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i00)")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "steuerg(kab20)")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(slide_image 0 0 breite hoehe "steuerg(kab02)")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "steuerg(kab03)")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(slide_image 0 0 breite hoehe "steuerg(kab05)")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(slide_image 0 0 breite hoehe "steuerg(kab10)")
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(slide_image 0 0 breite hoehe "steuerg(pn_reib)")
|
||||
)
|
||||
((= m_DWG_NAME "7")
|
||||
(slide_image 0 0 breite hoehe "steuerg(pn_reibs)")
|
||||
)
|
||||
) ; end cond
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq WINKEL1 0)
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_INPUT (get_tile "INPUT"))
|
||||
(setq m_IDENT (get_tile "IDENT"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_BEZEICHNUNG (get_tile "BEZEICHNUNG"))
|
||||
(setq m_KENNZEICHNUNG (get_tile "KENNZEICHNUNG"))
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq FAKTO (atof m_FAKT))
|
||||
(InputStringAnalyse)
|
||||
)
|
||||
|
||||
(defun InputStringAnalyse()
|
||||
(setq DisplayString "")
|
||||
(setq InputLaenge (strlen m_INPUT))
|
||||
; (alert (itoa InputLaenge))
|
||||
(if (or (> InputLaenge 4) (= InputLaenge 0))
|
||||
(progn
|
||||
(alert "Mehr als 4 Stellen nicht bzw. LEERE Eingabe nicht erlaubt")
|
||||
(exit)
|
||||
)
|
||||
)
|
||||
|
||||
(cond
|
||||
((= InputLaenge 1)
|
||||
(setq DisplayString (strcat "000" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 2)
|
||||
(setq DisplayString (strcat "00" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 3)
|
||||
(setq DisplayString (strcat "0" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 4)
|
||||
(setq DisplayString m_INPUT)
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_COMPONENT "0")
|
||||
(if (> (strlen m_ZUSATZ) 0 )
|
||||
(progn
|
||||
(setq VERWENDUNG m_ZUSATZ)
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
(progn
|
||||
(setq VERWENDUNG "NO-ID")
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
)
|
||||
)
|
||||
) ; end cond
|
||||
; (alert verwendung)
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(setq BL_NAME "") ;Blinde Eintragung
|
||||
(setq BEZEICHNUNG "")
|
||||
(setq BEZ1 "")
|
||||
(setq BEZ2 "")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(setq BL_NAME "720000002") ; ASI Kabel 20 M für SMC Pneumatik für Weiche
|
||||
(setq BEZEICHNUNG "ASI-KABEL 20M F.SMC F.WEICHE")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SW")
|
||||
(setq BEZ2 "20M")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(setq BL_NAME "722001121") ; ASI Kabel 2 M für SMC Pneumatik für Weiche
|
||||
(setq BEZEICHNUNG "ASI-KABEL 2M F.SMC F.WEICHE")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SW")
|
||||
(setq BEZ2 "2M")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(setq BL_NAME "722001122") ; ASI Kabel 3 M für SMC Pneumatik für Weiche
|
||||
(setq BEZEICHNUNG "ASI-KABEL 3M F.SMC F.WEICHE")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SW")
|
||||
(setq BEZ2 "3M")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(setq BL_NAME "722001123") ; ASI Kabel 5 M für SMC Pneumatik für Weiche
|
||||
(setq BEZEICHNUNG "ASI-KABEL 5M F.SMC F.WEICHE")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SW")
|
||||
(setq BEZ2 "5M")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(setq BL_NAME "722001124") ; ASI Kabel 10 M für SMC Pneumatik für Weiche
|
||||
(setq BEZEICHNUNG "ASI-KABEL 10M F.SMC F.WEICHE")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SW")
|
||||
(setq BEZ2 "10M")
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(setq BL_NAME "722000015") ; Ansteuerung Reibrad mit 30 M Kabel
|
||||
(setq BEZEICHNUNG "ANSTEUERUNG REIBRAD MIT KABEL")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "RR")
|
||||
(setq BEZ2 "NOKAB")
|
||||
)
|
||||
((= m_DWG_NAME "7")
|
||||
(setq BL_NAME "722000015") ; Ansteuerung Reibrad mit 30 M Kabel und ASI Stecker
|
||||
(setq BEZEICHNUNG "ANSTEUERUNG REIBRAD MIT KABEL")
|
||||
(setq BEZEICHNUNG_BG "ANSTEUERUNG REIBRAD MIT KABEL UND STECKER")
|
||||
(setq BEZ1 "RR")
|
||||
(setq BEZ2 "+KAB")
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_PREFIX "PREFIX_1")
|
||||
(setq _PREFIX "M")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_2")
|
||||
(setq _PREFIX "Y")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_3")
|
||||
(setq _PREFIX "A")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_4")
|
||||
(setq _PREFIX "K")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_5")
|
||||
(setq _PREFIX "H")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_6")
|
||||
(setq _PREFIX "LT")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_7")
|
||||
(setq _PREFIX "SOL")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_8")
|
||||
(setq _PREFIX "MTR")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_9")
|
||||
(setq _PREFIX "O")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE nil) ; wird am Ende ROTATE
|
||||
(setq AUSWAHL-SATZ nil) ; Blockbildung
|
||||
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(setvar "osmode" 0)
|
||||
(bl-name P0) ;--> Block-Name definieren -> Rückgabe: element-name
|
||||
|
||||
(setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(setq P12 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(setq P13 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P14 (list (+ (car p0) (* FAKTO 340)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
|
||||
;<<<Text>>>
|
||||
(setq P1 (list (+ (car p12) (* FAKTO 380)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P2 (list (+ (car p12) (* FAKTO 550)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P3 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 220)) (caddr p12)))
|
||||
(setq P4 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 120)) (caddr p12)))
|
||||
(setq P5 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 10)) (caddr p12)))
|
||||
(setq P6 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
(setq P7 (list (+ (car p12) (* FAKTO 1200)) (+ (cadr p12) (* FAKTO 100)) (caddr p12)))
|
||||
|
||||
(command "_layer" "_m" "AUSGANG" "_c" "3" "" "")
|
||||
|
||||
;<<< IO Einfügen
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "")
|
||||
|
||||
(if (= m_IO-BEZ "1") ; IO-Bezeichnung = Artikelbezeichnung
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG BEZEICHNUNG m_KENNZEICHNUNG)
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
|
||||
|
||||
;>>> Byteweise arbeiten. Wenn die letzte Zahl "7" dann auf "10" aufrunden
|
||||
(setq LAENGE_m_INPUT (strlen m_INPUT))
|
||||
(if (= (substr m_INPUT LAENGE_m_INPUT 1) "7")
|
||||
(setq m_INPUT (itoa (+ 3 (atoi m_INPUT))))
|
||||
(setq m_INPUT (itoa (+ 1 (atoi m_INPUT))))
|
||||
)
|
||||
|
||||
;<<< Korpus zeichnen ---------------------------------------
|
||||
(command "_layer" "_m" "EINGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P0 P10 P11 P12 P0 "")
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P13 P14 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;<<< Beschreibung als Text hinzufügen
|
||||
(command "_text" P3 (rtos (* FAKTO 70)) "0" BEZ1)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_text" P4 (rtos (* FAKTO 70)) "0" BEZ2)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
; ;<<<< Zusatztext >>>>>>>
|
||||
; (if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8"))
|
||||
; (progn
|
||||
; (setq x_length (+ 1170 (* (strlen m_Zusatz) 160)))
|
||||
; (setq P15 (list (+ (car p0) (* FAKTO x_length)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
; (setq P16 (list (+ (car p0) (* FAKTO x_length)) (- (cadr p0) (* FAKTO 330)) (caddr p0))) ;Zusatztext
|
||||
|
||||
; (command "_text" P7 (rtos (* FAKTO 150)) "0" m_ZUSATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
; (command "_pline" P10 P15 "")
|
||||
; (ssadd (entlast) AUSWAHL-SATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
; (command "_pline" P15 P16 "")
|
||||
; (ssadd (entlast) AUSWAHL-SATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
; (command "_pline" P16 P11 "")
|
||||
; (ssadd (entlast) AUSWAHL-SATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
; )
|
||||
; (progn
|
||||
(setq P15 (list (car p10) (cadr p10) (caddr p10)))
|
||||
(setq P16 (list (car p11) (cadr p11) (caddr p11)))
|
||||
; )
|
||||
; )
|
||||
;<<<<<<<<< IO-Bezeichnung auch als TEXT rechts einfügen
|
||||
(if (= m_IO-BEZ-RECHTS "1")
|
||||
(progn
|
||||
(setq P8 (list (+ (car p16) (* FAKTO 100)) (+ (cadr p16) (* FAKTO 100)) (caddr p16)))
|
||||
(command "_text" P8 (rtos (* FAKTO 150)) "0" m_BEZEICHNUNG)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
|
||||
(if (= m_DWG_NAME "0")
|
||||
(progn
|
||||
(mach-block-ohne-prop P0 "0" AUSWAHL-SATZ)
|
||||
)
|
||||
(progn
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "0" "9" "0" (strcat _PREFIX DisplayString) block-kennung BL_NAME BEZEICHNUNG "1" "")
|
||||
)
|
||||
)
|
||||
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
(setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
|
||||
:<<<-------------------------------------------------------------------
|
||||
|
||||
;<<<< BAUGRUPPEN >>>
|
||||
(if (= m_DWG_NAME "7")
|
||||
(progn
|
||||
(EINZELTEIL P0 "722003015" "VENTILSTECKER ASI-SEITE" "1")
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
|
||||
(command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (P1 E_ARTINR E_BEZEICHNUNG E_MENGE)
|
||||
(setq WINKEL1 (+ WINKEL1 10))
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/d_einzel") P0 "" "" (rtos WINKEL1))
|
||||
(attribute-aendern "0" "0" "29" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:AUSGAENGE_F ( / DWG_NAME BL_NAME P0)
|
||||
(setvar "limcheck" 0)
|
||||
(setvar "CMDECHO" 0)
|
||||
(setvar "BLIPMODE" 0)
|
||||
(setq ALTFANG (getvar "osmode"))
|
||||
(setq EINZEL 0) ; fuer EINZEL=0 Baugruppen / EINZEL=1 fuer APB
|
||||
(prompt "**** AUSGÄNGE SPINNEREI *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl
|
||||
(if (null m_INPUT) (setq m_INPUT "1")) ; Input Bit
|
||||
(if (null m_IDENT) (setq m_IDENT "1000")) ; ID
|
||||
(if (null m_COMPONENT) (setq m_COMPONENT "0")) ; Verwendung
|
||||
(if (null m_BEZEICHNUNG) (setq m_BEZEICHNUNG "xxxxxxxxxxxxxxx")) ; BEZEICHNUNG
|
||||
(if (null m_KENNZEICHNUNG) (setq m_KENNZEICHNUNG "=Axx+Exxx-Axxx")) ; KENNZEICHNUNG
|
||||
(if (null m_FAKT) (setq m_FAKT "1")) ; Skalierungsfaktor
|
||||
(if (null m_ZUSATZ) (setq m_ZUSATZ "")) ; Zusatztext
|
||||
(if (null m_PREFIX) (setq m_PREFIX "PREFIX_1")) ; Prefix (B,E oder S)
|
||||
(if (null m_IO-BEZ) (setq m_IO-BEZ "0")) ; Bezeicnung nicht der Artikelbezeichnung gleichsetzen
|
||||
(if (null m_IO-BEZ-RECHTS) (setq m_IO-BEZ-RECHTS "0")) ; Bezeicnung als Text rechts andrucken
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,128 @@
|
||||
/* Dialogbox fuer Ausgänge Sonstige */
|
||||
/* Datum: 22.9.2007 18.06.2011 W */
|
||||
|
||||
AUSGAENGE_S : dialog {
|
||||
label = "STEUERUNG-AUSGÄNGE";
|
||||
spacer;
|
||||
: row {
|
||||
: list_box {
|
||||
label = "Ausgänge";
|
||||
key = "DWG_NAME";
|
||||
mnemonic = "H";
|
||||
list = "BLIND\nWS 0.18\nWS 0.37\nWS 0.55\nWS 1.1\nDS 0.18\nDS 0.37\nDS 0.55\nDS 0.9\nDS 1.1";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
: image {
|
||||
height = 10;
|
||||
width = 40;
|
||||
color = 7;
|
||||
key = "anzeige";
|
||||
}
|
||||
: list_box {
|
||||
label = "Verwendung";
|
||||
key = "COMPONENT";
|
||||
mnemonic = "H";
|
||||
list = "NO-ID";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
}
|
||||
: row {
|
||||
:column {
|
||||
: edit_box {
|
||||
label = "Input:";
|
||||
allow_accept = true;
|
||||
key = "INPUT";
|
||||
value = 1;
|
||||
}
|
||||
: edit_box {
|
||||
label = "ID:";
|
||||
allow_accept = true;
|
||||
key = "IDENT";
|
||||
value = 1000;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Bezeichnung:";
|
||||
allow_accept = true;
|
||||
key = "BEZEICHNUNG";
|
||||
value = xxxxxxxxx;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Kennzeichnung:";
|
||||
allow_accept = true;
|
||||
key = "KENNZEICHNUNG";
|
||||
}
|
||||
: edit_box {
|
||||
label="Skalierungsfaktor";
|
||||
key="FAKT";
|
||||
value = 1;
|
||||
mnemonic="F";
|
||||
}
|
||||
: edit_box {
|
||||
label="ZUSATZTEXT";
|
||||
key="ZUSATZ";
|
||||
}
|
||||
: edit_box {
|
||||
label="SPS-Prefix";
|
||||
key="SPS-NR";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung=Artikel-Bezeichnung";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung auch als Text RECHTS";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ-RECHTS";
|
||||
}
|
||||
}
|
||||
: boxed_radio_column {
|
||||
label = "BMK";
|
||||
key = "PREFIX";
|
||||
: radio_button {
|
||||
label = "M";
|
||||
key = "PREFIX_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Y";
|
||||
key = "PREFIX_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "A";
|
||||
key = "PREFIX_3";
|
||||
}
|
||||
: radio_button {
|
||||
label = "K";
|
||||
key = "PREFIX_4";
|
||||
}
|
||||
: radio_button {
|
||||
label = "H";
|
||||
key = "PREFIX_5";
|
||||
}
|
||||
: radio_button {
|
||||
label = "LT";
|
||||
key = "PREFIX_6";
|
||||
}
|
||||
: radio_button {
|
||||
label = "SOL";
|
||||
key = "PREFIX_7";
|
||||
}
|
||||
: radio_button {
|
||||
label = "MTR";
|
||||
key = "PREFIX_8";
|
||||
}
|
||||
: radio_button {
|
||||
label = "O";
|
||||
key = "PREFIX_9";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Q";
|
||||
key = "PREFIX_10";
|
||||
}
|
||||
}
|
||||
}
|
||||
spacer;
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,429 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; AUSGAENGE_S ;
|
||||
;------------------------------------------------------------------------;
|
||||
; 22.09.2007 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/AUSGAENGE_S.DCL")))
|
||||
(if (not (new_dialog "AUSGAENGE_S" Dat)) (exit))
|
||||
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(set_tile "INPUT" m_INPUT)
|
||||
(set_tile "IDENT" m_IDENT)
|
||||
(set_tile "COMPONENT" m_COMPONENT)
|
||||
(set_tile "BEZEICHNUNG" m_BEZEICHNUNG)
|
||||
(set_tile "KENNZEICHNUNG" m_KENNZEICHNUNG)
|
||||
(set_tile "FAKT" m_FAKT)
|
||||
(set_tile "ZUSATZ" m_ZUSATZ)
|
||||
(set_tile "SPS-NR" m_SPS-NR)
|
||||
(set_tile "PREFIX" m_PREFIX) ; B,S oder E
|
||||
(set_tile "IO-BEZ" m_IO-BEZ)
|
||||
(set_tile "IO-BEZ-RECHTS" m_IO-BEZ-RECHTS)
|
||||
|
||||
(mode_tile "anzeige" 0)
|
||||
(SetDia)
|
||||
(ACTION_TILE "DWG_NAME" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i00)")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001060)")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001062)")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001063)")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001064)")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001050)")
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001051)")
|
||||
)
|
||||
((= m_DWG_NAME "7")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001053)")
|
||||
)
|
||||
((= m_DWG_NAME "8")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001055)")
|
||||
)
|
||||
((= m_DWG_NAME "9")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001054)")
|
||||
)
|
||||
) ; end cond
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq WINKEL1 0)
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_SPS-NR (get_tile "SPS-NR"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_INPUT (get_tile "INPUT"))
|
||||
(setq m_IDENT (get_tile "IDENT"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_BEZEICHNUNG (get_tile "BEZEICHNUNG"))
|
||||
(setq m_KENNZEICHNUNG (get_tile "KENNZEICHNUNG"))
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_SPS-NR (get_tile "SPS-NR"))
|
||||
(setq FAKTO (atof m_FAKT))
|
||||
(InputStringAnalyse)
|
||||
)
|
||||
|
||||
(defun InputStringAnalyse()
|
||||
(setq DisplayString "")
|
||||
(setq InputLaenge (strlen m_INPUT))
|
||||
; (alert (itoa InputLaenge))
|
||||
(if (or (> InputLaenge 4) (= InputLaenge 0))
|
||||
(progn
|
||||
(alert "Mehr als 4 Stellen nicht bzw. LEERE Eingabe nicht erlaubt")
|
||||
(exit)
|
||||
)
|
||||
)
|
||||
|
||||
(cond
|
||||
((= InputLaenge 1)
|
||||
(setq DisplayString (strcat "000" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 2)
|
||||
(setq DisplayString (strcat "00" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 3)
|
||||
(setq DisplayString (strcat "0" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 4)
|
||||
(setq DisplayString m_INPUT)
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_COMPONENT "0")
|
||||
(setq VERWENDUNG "NO-ID")
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
) ; end cond
|
||||
; (alert verwendung)
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(setq BL_NAME "") ;Blinde Eintragung
|
||||
(setq BEZEICHNUNG "")
|
||||
(setq BEZ1 "")
|
||||
(setq BEZ2 "")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(setq BL_NAME "703001060")
|
||||
(setq BEZEICHNUNG "WENDESTARTER 0.18 KW 0.55-0.8 A M-BI")
|
||||
(setq BEZEICHNUNG_BG "WENDESTARTER 0.18 KW 0.55-0.8 A M-BI KPL.")
|
||||
(setq BEZ1 "WS")
|
||||
(setq BEZ2 "0.18")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(setq BL_NAME "703001062")
|
||||
(setq BEZEICHNUNG "WENDESTARTER 0.37 KW 1.1-1.6 A M-BI")
|
||||
(setq BEZEICHNUNG_BG "WENDESTARTER 0.37 KW 1.1-1.6 A M-BI KPL.")
|
||||
(setq BEZ1 "WS")
|
||||
(setq BEZ2 "0.37")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(setq BL_NAME "703001063")
|
||||
(setq BEZEICHNUNG "WENDESTARTER 0.55 KW 1.4-2.0 A M-BI")
|
||||
(setq BEZEICHNUNG_BG "WENDESTARTER 0.55 KW 1.4-2.0 A M-BI KPL.")
|
||||
(setq BEZ1 "WS")
|
||||
(setq BEZ2 "0.55")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(setq BL_NAME "703001064")
|
||||
(setq BEZEICHNUNG "WENDESTARTER 1.1 KW 2.2-3.2 A M-BI")
|
||||
(setq BEZEICHNUNG_BG "WENDESTARTER 1.1 KW 2.2-3.2 A M-BI KPL.")
|
||||
(setq BEZ1 "WS")
|
||||
(setq BEZ2 "1.1")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(setq BL_NAME "703001050")
|
||||
(setq BEZEICHNUNG "DIREKTSTARTER 0.18 KW 0.55-0.8 A M-UNI")
|
||||
(setq BEZEICHNUNG_BG "DIREKTSTARTER 0.18 KW 0.55-0.8 A M-UNI KPL.")
|
||||
(setq BEZ1 "DS")
|
||||
(setq BEZ2 "0.18")
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(setq BL_NAME "703001051")
|
||||
(setq BEZEICHNUNG "DIREKTSTARTER 0.37 KW 0.9-1.25 A M-UNI")
|
||||
(setq BEZEICHNUNG_BG "DIREKTSTARTER 0.37 KW 0.9-1.25 A M-UNI KPL.")
|
||||
(setq BEZ1 "DS")
|
||||
(setq BEZ2 "0.37")
|
||||
)
|
||||
((= m_DWG_NAME "7")
|
||||
(setq BL_NAME "703001053")
|
||||
(setq BEZEICHNUNG "DIREKTSTARTER 0.55 KW 1.4-2.0 A M-UNI")
|
||||
(setq BEZEICHNUNG_BG "DIREKTSTARTER 0.55 KW 1.4-2.0 A M-UNI KPL.")
|
||||
(setq BEZ1 "DS")
|
||||
(setq BEZ2 "0.55")
|
||||
)
|
||||
((= m_DWG_NAME "8")
|
||||
(setq BL_NAME "703001055")
|
||||
(setq BEZEICHNUNG "DIREKTSTARTER 0.9 KW 1.8-2.5 A M-UNI")
|
||||
(setq BEZEICHNUNG_BG "DIREKTSTARTER 0.9 KW 1.8-2.5 A M-UNI KPL.")
|
||||
(setq BEZ1 "DS")
|
||||
(setq BEZ2 "0.9")
|
||||
)
|
||||
((= m_DWG_NAME "9")
|
||||
(setq BL_NAME "703001054")
|
||||
(setq BEZEICHNUNG "DIREKTSTARTER 1.1 KW 2.2-3.2 A M-UNI")
|
||||
(setq BEZEICHNUNG_BG "DIREKTSTARTER 1.1 KW 2.2-3.2 A M-UNI KPL.")
|
||||
(setq BEZ1 "DS")
|
||||
(setq BEZ2 "1.1")
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_PREFIX "PREFIX_1")
|
||||
(setq _PREFIX "M")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_2")
|
||||
(setq _PREFIX "Y")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_3")
|
||||
(setq _PREFIX "A")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_4")
|
||||
(setq _PREFIX "K")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_5")
|
||||
(setq _PREFIX "H")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_6")
|
||||
(setq _PREFIX "LT")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_7")
|
||||
(setq _PREFIX "SOL")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_8")
|
||||
(setq _PREFIX "MTR")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_9")
|
||||
(setq _PREFIX "O")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_10")
|
||||
(setq _PREFIX "Q")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
)
|
||||
|
||||
;----------------------------------------------------------------------------------------------------------------
|
||||
(setq AUSWAHL-SATZ-ROTATE nil) ; wird am Ende ROTATE
|
||||
(setq AUSWAHL-SATZ nil) ; Blockbildung
|
||||
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(setvar "osmode" 0)
|
||||
(bl-name P0) ;--> Block-Name definieren -> Rückgabe: element-name
|
||||
|
||||
;jh (setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P10 (list (+ (car p0) (+ (* FAKTO 830)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
;(setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
(setq P11 (list (+ (car p0) (+ (* FAKTO 830)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
(setq P12 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
;jh (setq P13 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P13 (list (+ (car p0) (* FAKTO 0)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P14 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
;jh (setq P14 (list (+ (car p0) (* FAKTO 340)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
|
||||
;<<<Text>>>
|
||||
(setq P1 (list (+ (car p12) (* FAKTO 380)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P2 (list (+ (car p12) (* FAKTO 550)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P3 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 220)) (caddr p12)))
|
||||
(setq P4 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 120)) (caddr p12)))
|
||||
(setq P5 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 10)) (caddr p12)))
|
||||
(setq P6 (list (- (car p12) (* FAKTO 320)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
;jh (setq P6 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
(setq P7 (list (+ (car p0) (+ (* FAKTO 1200)) (* 150 ANZ_CHARACT)) (+ (cadr p12) (* FAKTO 100)) (caddr p12)))
|
||||
|
||||
(command "_layer" "_m" "AUSGANG" "_c" "3" "" "")
|
||||
|
||||
;<<< IO Einfügen
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "")
|
||||
|
||||
(if (= m_IO-BEZ "1") ; IO-Bezeichnung = Artikelbezeichnung
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
|
||||
|
||||
;>>> Byteweise arbeiten. Wenn die letzte Zahl "7" dann auf "10" aufrunden
|
||||
(setq LAENGE_m_INPUT (strlen m_INPUT))
|
||||
(if (= (substr m_INPUT LAENGE_m_INPUT 1) "7")
|
||||
(setq m_INPUT (itoa (+ 3 (atoi m_INPUT))))
|
||||
(setq m_INPUT (itoa (+ 1 (atoi m_INPUT))))
|
||||
)
|
||||
|
||||
;<<< Korpus zeichnen ---------------------------------------
|
||||
(command "_layer" "_m" "AUSGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P13 P10 P11 P14 P13 "")
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
;<<<< Zusatztext >>>>>>>
|
||||
(if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8"))
|
||||
(progn
|
||||
(setq x_length (+ 1170 (* (strlen m_Zusatz) 160)))
|
||||
(setq P15 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
(setq P16 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (- (cadr p11) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
|
||||
(command "_text" P7 (rtos (* FAKTO 150)) "0" m_ZUSATZ)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P10 P15 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P15 P16 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P16 P11 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_point" P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
(progn
|
||||
(setq P15 (list (car p10) (cadr p10) (caddr p10)))
|
||||
(setq P16 (list (car p11) (cadr p11) (caddr p11)))
|
||||
(command "_point" P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
;<<<< SPS-NR checken - wenn eingetragen dann einrahmen >>>>>>>
|
||||
(if (> (strlen m_SPS-NR) 0 )
|
||||
(progn
|
||||
(setq left_length (* (strlen m_SPS-NR) 160))
|
||||
(setq P17 (list (- (car p13) (* FAKTO left_length)) (+ (cadr p13) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P18 (list (- (car p13) (* FAKTO left_length)) (- (cadr p13) (* FAKTO 360)) (caddr p0)))
|
||||
|
||||
(command "_layer" "_m" "AUSGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P13 P14 P18 P17 P13 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
;----------------------------------------------------------------------------------------------------------------
|
||||
|
||||
;<<<<<<<<< IO-Bezeichnung auch als TEXT rechts einfügen
|
||||
(if (= m_IO-BEZ-RECHTS "1")
|
||||
(progn
|
||||
(setq P8 (list (+ (car p16) (* FAKTO 100)) (+ (cadr p16) (* FAKTO 100)) (caddr p16)))
|
||||
(command "_text" P8 (rtos (* FAKTO 150)) "0" m_BEZEICHNUNG)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
|
||||
(if (= m_DWG_NAME "0")
|
||||
(progn
|
||||
(mach-block-ohne-prop P0 "0" AUSWAHL-SATZ)
|
||||
)
|
||||
(progn
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "0" "9" "0" (strcat _PREFIX DisplayString) block-kennung BL_NAME BEZEICHNUNG "1" "")
|
||||
)
|
||||
)
|
||||
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
(setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
|
||||
|
||||
;<<<< BAUGRUPPEN >>>
|
||||
(if (or (= m_DWG_NAME "1") (= m_DWG_NAME "2") (= m_DWG_NAME "3")
|
||||
(= m_DWG_NAME "4") (= m_DWG_NAME "5") (= m_DWG_NAME "6")
|
||||
(= m_DWG_NAME "7") (= m_DWG_NAME "8") (= m_DWG_NAME "9"))
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001017" "REFLEXIONSLICHTTASTER" "1")
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
(command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (P1 E_ARTINR E_BEZEICHNUNG E_MENGE)
|
||||
(setq WINKEL1 (+ WINKEL1 10))
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/d_einzel") P13 "" "" (rtos WINKEL1))
|
||||
(attribute-aendern "0" "0" "29" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:AUSGAENGE_S ( / DWG_NAME BL_NAME P0)
|
||||
(setvar "limcheck" 0)
|
||||
(setvar "CMDECHO" 0)
|
||||
(setvar "BLIPMODE" 0)
|
||||
(setq ALTFANG (getvar "osmode"))
|
||||
(setq EINZEL 0) ; fuer EINZEL=0 Baugruppen / EINZEL=1 fuer APB
|
||||
(prompt "**** AUSGÄNGE S *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl
|
||||
(if (null m_INPUT) (setq m_INPUT "1")) ; Input Bit
|
||||
(if (null m_IDENT) (setq m_IDENT "1000")) ; ID
|
||||
(if (null m_COMPONENT) (setq m_COMPONENT "0")) ; Verwendung
|
||||
(if (null m_BEZEICHNUNG) (setq m_BEZEICHNUNG "xxxxxxxxxxxxxxx")) ; BEZEICHNUNG
|
||||
(if (null m_KENNZEICHNUNG) (setq m_KENNZEICHNUNG "=Axx+Exxx-Axxx")) ; KENNZEICHNUNG
|
||||
(if (null m_FAKT) (setq m_FAKT "1")) ; Skalierungsfaktor
|
||||
(if (null m_ZUSATZ) (setq m_ZUSATZ "")) ; Zusatztext
|
||||
(if (null m_SPS-NR) (setq m_SPS-NR "")) ; Zusatztext
|
||||
(if (null m_PREFIX) (setq m_PREFIX "PREFIX_1")) ; Prefix (B,E oder S)
|
||||
(if (null m_IO-BEZ) (setq m_IO-BEZ "0")) ; Bezeicnung nicht der Artikelbezeichnung gleichsetzen
|
||||
(if (null m_IO-BEZ-RECHTS) (setq m_IO-BEZ-RECHTS "0")) ; Bezeicnung als Text rechts andrucken
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,128 @@
|
||||
/* Dialogbox fuer Ausgänge Spinnerei/Stockwerksautomatisierung */
|
||||
/* Datum: 22.9.2007 AW */
|
||||
|
||||
AUSGAENGE_S : dialog {
|
||||
label = "STEUERUNG-AUSGÄNGE";
|
||||
spacer;
|
||||
: row {
|
||||
: list_box {
|
||||
label = "Ausgänge";
|
||||
key = "DWG_NAME";
|
||||
mnemonic = "H";
|
||||
list = "BLIND\nWS 0.18\nWS 0.37\nWS 0.55\nWS 1.1\nDS 0.18\nDS 0.37\nDS 0.55\nDS 0.9\nDS 1.1";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
: image {
|
||||
height = 10;
|
||||
width = 40;
|
||||
color = 7;
|
||||
key = "anzeige";
|
||||
}
|
||||
: list_box {
|
||||
label = "Verwendung";
|
||||
key = "COMPONENT";
|
||||
mnemonic = "H";
|
||||
list = "NO-ID";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
}
|
||||
: row {
|
||||
:column {
|
||||
: edit_box {
|
||||
label = "Input:";
|
||||
allow_accept = true;
|
||||
key = "INPUT";
|
||||
value = 1;
|
||||
}
|
||||
: edit_box {
|
||||
label = "ID:";
|
||||
allow_accept = true;
|
||||
key = "IDENT";
|
||||
value = 1000;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Bezeichnung:";
|
||||
allow_accept = true;
|
||||
key = "BEZEICHNUNG";
|
||||
value = xxxxxxxxx;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Kennzeichnung:";
|
||||
allow_accept = true;
|
||||
key = "KENNZEICHNUNG";
|
||||
}
|
||||
:edit_box {
|
||||
label="Skalierungsfaktor";
|
||||
key="FAKT";
|
||||
value = 1;
|
||||
mnemonic="F";
|
||||
}
|
||||
:edit_box {
|
||||
label="ZUSATZTEXT";
|
||||
key="ZUSATZ";
|
||||
}
|
||||
: edit_box {
|
||||
label="SPS-Prefix";
|
||||
key="SPS-NR";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung=Artikel-Bezeichnung";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung auch als Text RECHTS";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ-RECHTS";
|
||||
}
|
||||
}
|
||||
: boxed_radio_column {
|
||||
label = "BMK";
|
||||
key = "PREFIX";
|
||||
: radio_button {
|
||||
label = "M";
|
||||
key = "PREFIX_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Y";
|
||||
key = "PREFIX_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "A";
|
||||
key = "PREFIX_3";
|
||||
}
|
||||
: radio_button {
|
||||
label = "K";
|
||||
key = "PREFIX_4";
|
||||
}
|
||||
: radio_button {
|
||||
label = "H";
|
||||
key = "PREFIX_5";
|
||||
}
|
||||
: radio_button {
|
||||
label = "LT";
|
||||
key = "PREFIX_6";
|
||||
}
|
||||
: radio_button {
|
||||
label = "SOL";
|
||||
key = "PREFIX_7";
|
||||
}
|
||||
: radio_button {
|
||||
label = "MTR";
|
||||
key = "PREFIX_8";
|
||||
}
|
||||
: radio_button {
|
||||
label = "O";
|
||||
key = "PREFIX_9";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Q";
|
||||
key = "PREFIX_10";
|
||||
}
|
||||
}
|
||||
}
|
||||
spacer;
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,424 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; AUSGAENGE_S ;
|
||||
;------------------------------------------------------------------------;
|
||||
; 22.09.2007 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/AUSGAENGE_S.DCL")))
|
||||
(if (not (new_dialog "AUSGAENGE_S" Dat)) (exit))
|
||||
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(set_tile "INPUT" m_INPUT)
|
||||
(set_tile "IDENT" m_IDENT)
|
||||
(set_tile "COMPONENT" m_COMPONENT)
|
||||
(set_tile "BEZEICHNUNG" m_BEZEICHNUNG)
|
||||
(set_tile "KENNZEICHNUNG" m_KENNZEICHNUNG)
|
||||
(set_tile "FAKT" m_FAKT)
|
||||
(set_tile "ZUSATZ" m_ZUSATZ)
|
||||
(set_tile "SPS-NR" m_SPS-NR)
|
||||
(set_tile "PREFIX" m_PREFIX) ; B,S oder E
|
||||
(set_tile "IO-BEZ" m_IO-BEZ)
|
||||
(set_tile "IO-BEZ-RECHTS" m_IO-BEZ-RECHTS)
|
||||
|
||||
(mode_tile "anzeige" 0)
|
||||
(SetDia)
|
||||
(ACTION_TILE "DWG_NAME" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i00)")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001060)")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001062)")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001063)")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001064)")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001050)")
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001051)")
|
||||
)
|
||||
((= m_DWG_NAME "7")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001053)")
|
||||
)
|
||||
((= m_DWG_NAME "8")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001055)")
|
||||
)
|
||||
((= m_DWG_NAME "9")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001054)")
|
||||
)
|
||||
) ; end cond
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq WINKEL1 0)
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_SPS-NR (get_tile "SPS-NR"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_INPUT (get_tile "INPUT"))
|
||||
(setq m_IDENT (get_tile "IDENT"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_BEZEICHNUNG (get_tile "BEZEICHNUNG"))
|
||||
(setq m_KENNZEICHNUNG (get_tile "KENNZEICHNUNG"))
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_SPS-NR (get_tile "SPS-NR"))
|
||||
(setq FAKTO (atof m_FAKT))
|
||||
(InputStringAnalyse)
|
||||
)
|
||||
|
||||
(defun InputStringAnalyse()
|
||||
(setq DisplayString "")
|
||||
(setq InputLaenge (strlen m_INPUT))
|
||||
; (alert (itoa InputLaenge))
|
||||
(if (or (> InputLaenge 4) (= InputLaenge 0))
|
||||
(progn
|
||||
(alert "Mehr als 4 Stellen nicht bzw. LEERE Eingabe nicht erlaubt")
|
||||
(exit)
|
||||
)
|
||||
)
|
||||
|
||||
(cond
|
||||
((= InputLaenge 1)
|
||||
(setq DisplayString (strcat "000" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 2)
|
||||
(setq DisplayString (strcat "00" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 3)
|
||||
(setq DisplayString (strcat "0" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 4)
|
||||
(setq DisplayString m_INPUT)
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_COMPONENT "0")
|
||||
(setq VERWENDUNG "NO-ID")
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
) ; end cond
|
||||
; (alert verwendung)
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(setq BL_NAME "") ;Blinde Eintragung
|
||||
(setq BEZEICHNUNG "")
|
||||
(setq BEZ1 "")
|
||||
(setq BEZ2 "")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(setq BL_NAME "703001060")
|
||||
(setq BEZEICHNUNG "WENDESTARTER 0.18 KW 0.55-0.8 A M-BI")
|
||||
(setq BEZEICHNUNG_BG "WENDESTARTER 0.18 KW 0.55-0.8 A M-BI KPL.")
|
||||
(setq BEZ1 "WS")
|
||||
(setq BEZ2 "0.18")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(setq BL_NAME "703001062")
|
||||
(setq BEZEICHNUNG "WENDESTARTER 0.37 KW 1.1-1.6 A M-BI")
|
||||
(setq BEZEICHNUNG_BG "WENDESTARTER 0.37 KW 1.1-1.6 A M-BI KPL.")
|
||||
(setq BEZ1 "WS")
|
||||
(setq BEZ2 "0.37")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(setq BL_NAME "703001063")
|
||||
(setq BEZEICHNUNG "WENDESTARTER 0.55 KW 1.4-2.0 A M-BI")
|
||||
(setq BEZEICHNUNG_BG "WENDESTARTER 0.55 KW 1.4-2.0 A M-BI KPL.")
|
||||
(setq BEZ1 "WS")
|
||||
(setq BEZ2 "0.55")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(setq BL_NAME "703001064")
|
||||
(setq BEZEICHNUNG "WENDESTARTER 1.1 KW 2.2-3.2 A M-BI")
|
||||
(setq BEZEICHNUNG_BG "WENDESTARTER 1.1 KW 2.2-3.2 A M-BI KPL.")
|
||||
(setq BEZ1 "WS")
|
||||
(setq BEZ2 "1.1")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(setq BL_NAME "703001050")
|
||||
(setq BEZEICHNUNG "DIREKTSTARTER 0.18 KW 0.55-0.8 A M-UNI")
|
||||
(setq BEZEICHNUNG_BG "DIREKTSTARTER 0.18 KW 0.55-0.8 A M-UNI KPL.")
|
||||
(setq BEZ1 "DS")
|
||||
(setq BEZ2 "0.18")
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(setq BL_NAME "703001051")
|
||||
(setq BEZEICHNUNG "DIREKTSTARTER 0.37 KW 0.9-1.25 A M-UNI")
|
||||
(setq BEZEICHNUNG_BG "DIREKTSTARTER 0.37 KW 0.9-1.25 A M-UNI KPL.")
|
||||
(setq BEZ1 "DS")
|
||||
(setq BEZ2 "0.37")
|
||||
)
|
||||
((= m_DWG_NAME "7")
|
||||
(setq BL_NAME "703001053")
|
||||
(setq BEZEICHNUNG "DIREKTSTARTER 0.55 KW 1.4-2.0 A M-UNI")
|
||||
(setq BEZEICHNUNG_BG "DIREKTSTARTER 0.55 KW 1.4-2.0 A M-UNI KPL.")
|
||||
(setq BEZ1 "DS")
|
||||
(setq BEZ2 "0.55")
|
||||
)
|
||||
((= m_DWG_NAME "8")
|
||||
(setq BL_NAME "703001055")
|
||||
(setq BEZEICHNUNG "DIREKTSTARTER 0.9 KW 1.8-2.5 A M-UNI")
|
||||
(setq BEZEICHNUNG_BG "DIREKTSTARTER 0.9 KW 1.8-2.5 A M-UNI KPL.")
|
||||
(setq BEZ1 "DS")
|
||||
(setq BEZ2 "0.9")
|
||||
)
|
||||
((= m_DWG_NAME "9")
|
||||
(setq BL_NAME "703001054")
|
||||
(setq BEZEICHNUNG "DIREKTSTARTER 1.1 KW 2.2-3.2 A M-UNI")
|
||||
(setq BEZEICHNUNG_BG "DIREKTSTARTER 1.1 KW 2.2-3.2 A M-UNI KPL.")
|
||||
(setq BEZ1 "DS")
|
||||
(setq BEZ2 "1.1")
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_PREFIX "PREFIX_1")
|
||||
(setq _PREFIX "M")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_2")
|
||||
(setq _PREFIX "Y")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_3")
|
||||
(setq _PREFIX "A")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_4")
|
||||
(setq _PREFIX "K")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_5")
|
||||
(setq _PREFIX "H")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_6")
|
||||
(setq _PREFIX "LT")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_7")
|
||||
(setq _PREFIX "SOL")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_8")
|
||||
(setq _PREFIX "MTR")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_9")
|
||||
(setq _PREFIX "O")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_10")
|
||||
(setq _PREFIX "Q")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
)
|
||||
|
||||
;----------------------------------------------------------------------------------------------------------------
|
||||
(setq AUSWAHL-SATZ-ROTATE nil) ; wird am Ende ROTATE
|
||||
(setq AUSWAHL-SATZ nil) ; Blockbildung
|
||||
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(setvar "osmode" 0)
|
||||
(bl-name P0) ;--> Block-Name definieren -> Rückgabe: element-name
|
||||
|
||||
(setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
(setq P12 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
(setq P13 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P14 (list (+ (car p0) (* FAKTO 340)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
|
||||
;<<<Text>>>
|
||||
(setq P1 (list (+ (car p12) (* FAKTO 380)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P2 (list (+ (car p12) (* FAKTO 550)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P3 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 220)) (caddr p12)))
|
||||
(setq P4 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 120)) (caddr p12)))
|
||||
(setq P5 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 10)) (caddr p12)))
|
||||
(setq P6 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
(setq P7 (list (+ (car p0) (+ (* FAKTO 1200)) (* 150 ANZ_CHARACT)) (+ (cadr p12) (* FAKTO 100)) (caddr p12)))
|
||||
|
||||
(command "_layer" "_m" "AUSGANG" "_c" "3" "" "")
|
||||
|
||||
;<<< IO Einfügen
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "")
|
||||
|
||||
(if (= m_IO-BEZ "1") ; IO-Bezeichnung = Artikelbezeichnung
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
|
||||
|
||||
;>>> Byteweise arbeiten. Wenn die letzte Zahl "7" dann auf "10" aufrunden
|
||||
(setq LAENGE_m_INPUT (strlen m_INPUT))
|
||||
(if (= (substr m_INPUT LAENGE_m_INPUT 1) "7")
|
||||
(setq m_INPUT (itoa (+ 3 (atoi m_INPUT))))
|
||||
(setq m_INPUT (itoa (+ 1 (atoi m_INPUT))))
|
||||
)
|
||||
|
||||
;<<< Korpus zeichnen ---------------------------------------
|
||||
(command "_layer" "_m" "AUSGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P13 P10 P11 P14 P13 "")
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
;<<<< Zusatztext >>>>>>>
|
||||
(if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8"))
|
||||
(progn
|
||||
(setq x_length (+ 1170 (* (strlen m_Zusatz) 160)))
|
||||
(setq P15 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
(setq P16 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (- (cadr p11) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
|
||||
(command "_text" P7 (rtos (* FAKTO 150)) "0" m_ZUSATZ)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P10 P15 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P15 P16 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P16 P11 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_point" P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
(progn
|
||||
(setq P15 (list (car p10) (cadr p10) (caddr p10)))
|
||||
(setq P16 (list (car p11) (cadr p11) (caddr p11)))
|
||||
(command "_point" P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
;<<<< SPS-NR checken - wenn eingetragen dann einrahmen >>>>>>>
|
||||
(if (> (strlen m_SPS-NR) 0 )
|
||||
(progn
|
||||
(setq left_length (* (strlen m_SPS-NR) 160))
|
||||
(setq P17 (list (- (car p13) (* FAKTO left_length)) (+ (cadr p13) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P18 (list (- (car p13) (* FAKTO left_length)) (- (cadr p13) (* FAKTO 360)) (caddr p0)))
|
||||
|
||||
(command "_layer" "_m" "AUSGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P13 P14 P18 P17 P13 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
;----------------------------------------------------------------------------------------------------------------
|
||||
|
||||
;<<<<<<<<< IO-Bezeichnung auch als TEXT rechts einfügen
|
||||
(if (= m_IO-BEZ-RECHTS "1")
|
||||
(progn
|
||||
(setq P8 (list (+ (car p16) (* FAKTO 100)) (+ (cadr p16) (* FAKTO 100)) (caddr p16)))
|
||||
(command "_text" P8 (rtos (* FAKTO 150)) "0" m_BEZEICHNUNG)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
|
||||
(if (= m_DWG_NAME "0")
|
||||
(progn
|
||||
(mach-block-ohne-prop P0 "0" AUSWAHL-SATZ)
|
||||
)
|
||||
(progn
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "0" "9" "0" (strcat _PREFIX DisplayString) block-kennung BL_NAME BEZEICHNUNG "1" "")
|
||||
)
|
||||
)
|
||||
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
(setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
|
||||
|
||||
;<<<< BAUGRUPPEN >>>
|
||||
(if (or (= m_DWG_NAME "1") (= m_DWG_NAME "2") (= m_DWG_NAME "3")
|
||||
(= m_DWG_NAME "4") (= m_DWG_NAME "5") (= m_DWG_NAME "6")
|
||||
(= m_DWG_NAME "7") (= m_DWG_NAME "8") (= m_DWG_NAME "9"))
|
||||
(progn
|
||||
(EINZELTEIL P0 "703001017" "REFLEXIONSLICHTTASTER" "1")
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
(command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (P1 E_ARTINR E_BEZEICHNUNG E_MENGE)
|
||||
(setq WINKEL1 (+ WINKEL1 10))
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/d_einzel") P13 "" "" (rtos WINKEL1))
|
||||
(attribute-aendern "0" "0" "29" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:AUSGAENGE_S ( / DWG_NAME BL_NAME P0)
|
||||
(setvar "limcheck" 0)
|
||||
(setvar "CMDECHO" 0)
|
||||
(setvar "BLIPMODE" 0)
|
||||
(setq ALTFANG (getvar "osmode"))
|
||||
(setq EINZEL 0) ; fuer EINZEL=0 Baugruppen / EINZEL=1 fuer APB
|
||||
(prompt "**** AUSGÄNGE S *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl
|
||||
(if (null m_INPUT) (setq m_INPUT "1")) ; Input Bit
|
||||
(if (null m_IDENT) (setq m_IDENT "1000")) ; ID
|
||||
(if (null m_COMPONENT) (setq m_COMPONENT "0")) ; Verwendung
|
||||
(if (null m_BEZEICHNUNG) (setq m_BEZEICHNUNG "xxxxxxxxxxxxxxx")) ; BEZEICHNUNG
|
||||
(if (null m_KENNZEICHNUNG) (setq m_KENNZEICHNUNG "=Axx+Exxx-Axxx")) ; KENNZEICHNUNG
|
||||
(if (null m_FAKT) (setq m_FAKT "1")) ; Skalierungsfaktor
|
||||
(if (null m_ZUSATZ) (setq m_ZUSATZ "")) ; Zusatztext
|
||||
(if (null m_SPS-NR) (setq m_SPS-NR "")) ; Zusatztext
|
||||
(if (null m_PREFIX) (setq m_PREFIX "PREFIX_1")) ; Prefix (B,E oder S)
|
||||
(if (null m_IO-BEZ) (setq m_IO-BEZ "0")) ; Bezeicnung nicht der Artikelbezeichnung gleichsetzen
|
||||
(if (null m_IO-BEZ-RECHTS) (setq m_IO-BEZ-RECHTS "0")) ; Bezeicnung als Text rechts andrucken
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,120 @@
|
||||
/* Dialogbox fuer ILS2100 Komponenten */
|
||||
/* Datum: 20.9.2006 18.06.2011 AW */
|
||||
|
||||
EINGAENGE_B : dialog {
|
||||
label = "STEUERUNG-EINGÄNGE";
|
||||
spacer;
|
||||
: row {
|
||||
: list_box {
|
||||
label = "Eingänge";
|
||||
key = "DWG_NAME";
|
||||
mnemonic = "H";
|
||||
list = "BLIND\nRAST3[SI]\nRAST8[SI]\nBT-SYNC 3[SI]\nBT-SYNC 8[SI]\nSTAUMELDER LP[LT]\nINKR.GEBER-3[WEG]\nINKR.GEBER-8[WEG]\nPIN-SYNC[LT]\nVERL.R8-R[SI]\nVERL.R8-L[SI]\nVERL.RG-8-R[SI]\nVERL.RG-8-L[SI]\nSENSOR F.LP[SI]\nBT-SCANN.\nIN-SEP.[SI]\nBT-BELADEN[SI]\nDOPP.B.ERK.+SPS\nLTINSP";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
: image {
|
||||
height = 10;
|
||||
width = 40;
|
||||
color = 7;
|
||||
key = "anzeige";
|
||||
}
|
||||
: list_box {
|
||||
label = "Verwendung";
|
||||
key = "COMPONENT";
|
||||
mnemonic = "H";
|
||||
list = "SEP1_2Y+1B\nSEP1_1Y+1B\nSEP2_2Y+1B\nSEP2_1Y+1B\nSW_2Y+1B\nSW_2Y+3B\nMOT_1M+1B\nINPUT-1B\nNO-ID";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
}
|
||||
: row {
|
||||
:column {
|
||||
: edit_box {
|
||||
label = "Input:";
|
||||
allow_accept = true;
|
||||
key = "INPUT";
|
||||
value = 1;
|
||||
}
|
||||
: edit_box {
|
||||
label = "ID:";
|
||||
allow_accept = true;
|
||||
key = "IDENT";
|
||||
value = 1000;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Bezeichnung:";
|
||||
allow_accept = true;
|
||||
key = "BEZEICHNUNG";
|
||||
value = xxxxxxxxx;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Kennzeichnung:";
|
||||
allow_accept = true;
|
||||
key = "KENNZEICHNUNG";
|
||||
}
|
||||
: edit_box {
|
||||
label="Skalierungsfaktor";
|
||||
key="FAKT";
|
||||
value = 1;
|
||||
mnemonic="F";
|
||||
}
|
||||
: edit_box {
|
||||
label="ZUSATZTEXT";
|
||||
key="ZUSATZ";
|
||||
}
|
||||
: edit_box {
|
||||
label="SPS-Prefix";
|
||||
key="SPS-NR";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung=Artikel-Bezeichnung";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung auch als Text RECHTS";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ-RECHTS";
|
||||
}
|
||||
}
|
||||
: boxed_radio_column {
|
||||
label = "PREFIX";
|
||||
key = "PREFIX";
|
||||
: radio_button {
|
||||
label = "B";
|
||||
key = "PREFIX_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "E";
|
||||
key = "PREFIX_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "S";
|
||||
key = "PREFIX_3";
|
||||
}
|
||||
: radio_button {
|
||||
label = "IPB";
|
||||
key = "PREFIX_4";
|
||||
}
|
||||
: radio_button {
|
||||
label = "PB";
|
||||
key = "PREFIX_5";
|
||||
}
|
||||
: radio_button {
|
||||
label = "PRS";
|
||||
key = "PREFIX_6";
|
||||
}
|
||||
: radio_button {
|
||||
label = "CB";
|
||||
key = "PREFIX_7";
|
||||
}
|
||||
: radio_button {
|
||||
label = "I";
|
||||
key = "PREFIX_8";
|
||||
}
|
||||
}
|
||||
}
|
||||
spacer;
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,530 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; EINGAENGE_B ;
|
||||
;------------------------------------------------------------------------;
|
||||
; 02.02.2007 / 22.09.2007 / 18.06.2011 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/EINGAENGE_B.DCL")))
|
||||
(if (not (new_dialog "EINGAENGE_B" Dat)) (exit))
|
||||
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(set_tile "INPUT" m_INPUT)
|
||||
(set_tile "IDENT" m_IDENT)
|
||||
(set_tile "COMPONENT" m_COMPONENT)
|
||||
(set_tile "BEZEICHNUNG" m_BEZEICHNUNG)
|
||||
(set_tile "KENNZEICHNUNG" m_KENNZEICHNUNG)
|
||||
(set_tile "FAKT" m_FAKT)
|
||||
(set_tile "ZUSATZ" m_ZUSATZ)
|
||||
(set_tile "SPS-NR" m_SPS-NR)
|
||||
(set_tile "PREFIX" m_PREFIX)
|
||||
(set_tile "IO-BEZ" m_IO-BEZ)
|
||||
(set_tile "IO-BEZ-RECHTS" m_IO-BEZ-RECHTS)
|
||||
|
||||
(mode_tile "anzeige" 0)
|
||||
(SetDia)
|
||||
(ACTION_TILE "DWG_NAME" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i00)")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i01)")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i02)")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i03)")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i04)")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i05)")
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i06)")
|
||||
)
|
||||
((= m_DWG_NAME "7")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i07)")
|
||||
)
|
||||
((= m_DWG_NAME "8")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i08)")
|
||||
)
|
||||
((= m_DWG_NAME "9")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i09)")
|
||||
)
|
||||
((= m_DWG_NAME "10")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i10)")
|
||||
)
|
||||
((= m_DWG_NAME "11")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i11)")
|
||||
)
|
||||
((= m_DWG_NAME "12")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i12)")
|
||||
)
|
||||
((= m_DWG_NAME "13")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i13)")
|
||||
)
|
||||
((= m_DWG_NAME "14")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i14)")
|
||||
)
|
||||
((= m_DWG_NAME "15")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i15)")
|
||||
)
|
||||
((= m_DWG_NAME "16")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i16)")
|
||||
)
|
||||
((= m_DWG_NAME "17")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i17)")
|
||||
)
|
||||
((= m_DWG_NAME "18")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i18)")
|
||||
)
|
||||
) ; end cond
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq WINKEL1 0)
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_SPS-NR (get_tile "SPS-NR"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_INPUT (get_tile "INPUT"))
|
||||
(setq m_IDENT (get_tile "IDENT"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_BEZEICHNUNG (get_tile "BEZEICHNUNG"))
|
||||
(setq m_KENNZEICHNUNG (get_tile "KENNZEICHNUNG"))
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_SPS-NR (get_tile "SPS-NR"))
|
||||
(setq FAKTO (atof m_FAKT))
|
||||
(InputStringAnalyse)
|
||||
)
|
||||
|
||||
(defun InputStringAnalyse()
|
||||
(setq DisplayString "")
|
||||
(setq InputLaenge (strlen m_INPUT))
|
||||
; (alert (itoa InputLaenge))
|
||||
(if (or (> InputLaenge 4) (= InputLaenge 0))
|
||||
(progn
|
||||
(alert "Mehr als 4 Stellen nicht bzw. LEERE Eingabe nicht erlaubt")
|
||||
(exit)
|
||||
)
|
||||
)
|
||||
(cond
|
||||
((= InputLaenge 1)
|
||||
(setq DisplayString (strcat "000" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 2)
|
||||
(setq DisplayString (strcat "00" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 3)
|
||||
(setq DisplayString (strcat "0" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 4)
|
||||
(setq DisplayString m_INPUT)
|
||||
)
|
||||
) ; end cond
|
||||
(cond
|
||||
((= m_COMPONENT "0")
|
||||
(setq VERWENDUNG "SEP1_2Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "1")
|
||||
(setq VERWENDUNG "SEP1_1Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "2")
|
||||
(setq VERWENDUNG "SEP2_2Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "3")
|
||||
(setq VERWENDUNG "SEP2_1Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "4")
|
||||
(setq VERWENDUNG "SW_2Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "5")
|
||||
(setq VERWENDUNG "SW_2Y+3B")
|
||||
)
|
||||
((= m_COMPONENT "6")
|
||||
(setq VERWENDUNG "MOT_1M+1B")
|
||||
)
|
||||
((= m_COMPONENT "7")
|
||||
(setq VERWENDUNG "INPUT-1B")
|
||||
)
|
||||
((= m_COMPONENT "8")
|
||||
(setq VERWENDUNG m_ZUSATZ)
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
) ; end cond
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(setq BL_NAME "") ;Blinde Eintragung
|
||||
(setq BEZEICHNUNG "")
|
||||
(setq BEZ1 "")
|
||||
(setq BEZ2 "")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(setq BL_NAME "829426303") ;SENSOR INDUKTIV M18/12 KPL.-RASTERSENSOR FÜR KREISEL 300
|
||||
(setq BEZEICHNUNG "RASTER 300[SI] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "RS")
|
||||
(setq BEZ2 "300")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(setq BL_NAME "720002003") ;SENSOR INDUKTIV M18/12 ET-RASTERSENSOR FÜR KREISEL 800 -> Bohrung bereits vorhanden
|
||||
(setq BEZEICHNUNG "RASTER 800[SI] ET")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "RS")
|
||||
(setq BEZ2 "800")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(setq BL_NAME "829422025") ;SENSOR INDUKTIV M18/12 KPL.-BT SYNC 300 (BT Sync im Rad)
|
||||
(setq BEZEICHNUNG "BT-SYNC 300[SI] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SI")
|
||||
(setq BEZ2 "SYNC")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(setq BL_NAME "829434304") ;SENSOR INDUKTIV M18/12 KPL.-BT SYNC 800 (BT Sync im Rad)
|
||||
(setq BEZEICHNUNG "BT-SYNC 800[SI] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SI")
|
||||
(setq BEZ2 "SYNC")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(setq BL_NAME "829434300") ; LICHTTASTER WT 14 KPL.-STAUABFRAGE (setq BEZEICHNUNG "STAUABFRAGE[LT]")
|
||||
(setq BEZEICHNUNG "STAUABFRAGE[LT] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "LT")
|
||||
(setq BEZ2 "STAU")
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(setq BL_NAME "829434308") ; INKREMENTALGEBER KPL. 300-ER KREISEL
|
||||
(setq BEZEICHNUNG "DREHGEBER-300 KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "DG")
|
||||
(setq BEZ2 "300")
|
||||
)
|
||||
((= m_DWG_NAME "7")
|
||||
(setq BL_NAME "829434307") ; INKREMENTALGEBER KPL. 800-ER KREISEL
|
||||
(setq BEZEICHNUNG "DREHGEBER-800 KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "DG")
|
||||
(setq BEZ2 "800")
|
||||
)
|
||||
((= m_DWG_NAME "8")
|
||||
(setq BL_NAME "829434301") ; LASERLICHTTASTER WT12-PIN SYNCHRONISATION
|
||||
(setq BEZEICHNUNG "PIN SYNC[LT] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "LT")
|
||||
(setq BEZ2 "PIN")
|
||||
)
|
||||
((= m_DWG_NAME "9")
|
||||
(setq BL_NAME "827422001")
|
||||
(setq BEZEICHNUNG "WEICHE VERL.R800 RECHTS[SI] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SI")
|
||||
(setq BEZ2 "VERL")
|
||||
)
|
||||
((= m_DWG_NAME "10")
|
||||
(setq BL_NAME "827422002")
|
||||
(setq BEZEICHNUNG "WEICHE VERL.R800 LINKS[SI] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SI")
|
||||
(setq BEZ2 "VERL")
|
||||
)
|
||||
((= m_DWG_NAME "11")
|
||||
(setq BL_NAME "827422003")
|
||||
(setq BEZEICHNUNG "WEICHE VERL.RG-800 RECHTS[SI] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SI")
|
||||
(setq BEZ2 "VERL")
|
||||
)
|
||||
((= m_DWG_NAME "12")
|
||||
(setq BL_NAME "827422004")
|
||||
(setq BEZEICHNUNG "WEICHE VERL.RG-800 LINKS[SI] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SI")
|
||||
(setq BEZ2 "VERL")
|
||||
)
|
||||
((= m_DWG_NAME "13")
|
||||
(setq BL_NAME "827422026")
|
||||
(setq BEZEICHNUNG "BT SENSOR F.LP[SI] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SI")
|
||||
(setq BEZ2 "VERL")
|
||||
)
|
||||
((= m_DWG_NAME "14")
|
||||
(setq BL_NAME "829434003")
|
||||
(setq BEZEICHNUNG "BT SCANNER IM SEPARATOR KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "BT")
|
||||
(setq BEZ2 "SCAN")
|
||||
)
|
||||
((= m_DWG_NAME "15")
|
||||
(setq BL_NAME "720002003")
|
||||
(setq BEZEICHNUNG "IN-SENSOR SEPARATOR[SI] ET")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SI")
|
||||
(setq BEZ2 "INSP")
|
||||
)
|
||||
((= m_DWG_NAME "16")
|
||||
(setq BL_NAME "720002004")
|
||||
(setq BEZEICHNUNG "BT BELADEN M30[SI] ET")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "BT")
|
||||
(setq BEZ2 "BELA")
|
||||
)
|
||||
((= m_DWG_NAME "17")
|
||||
(setq BL_NAME "829434302")
|
||||
(setq BEZEICHNUNG "SPS F.DOPPEL BUEGEL ERKENNUNG")
|
||||
(setq BEZEICHNUNG_BG "LICHTSCHRANKE F. DOPPEL-B ERKENNUNG KPL.")
|
||||
(setq BEZ1 "DB")
|
||||
(setq BEZ2 "DETC")
|
||||
)
|
||||
((= m_DWG_NAME "18")
|
||||
(setq BL_NAME "721000020")
|
||||
(setq BEZEICHNUNG "LICHTTASTER IN SEPARATOR")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "LT")
|
||||
(setq BEZ2 "INSP")
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_PREFIX "PREFIX_1")
|
||||
(setq _PREFIX "B")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_2")
|
||||
(setq _PREFIX "E")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_3")
|
||||
(setq _PREFIX "S")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_4")
|
||||
(setq _PREFIX "IPB")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_5")
|
||||
(setq _PREFIX "PB")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_6")
|
||||
(setq _PREFIX "PRS")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_7")
|
||||
(setq _PREFIX "CB")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_8")
|
||||
(setq _PREFIX "I")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
)
|
||||
|
||||
;----------------------------------------------------------------------------------------------------------------
|
||||
(setq AUSWAHL-SATZ-ROTATE nil) ; wird am Ende ROTATE
|
||||
(setq AUSWAHL-SATZ nil) ; Blockbildung
|
||||
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(setvar "osmode" 0)
|
||||
(bl-name P0) ;--> Block-Name definieren -> Rückgabe: element-name
|
||||
|
||||
;jh (setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P10 (list (+ (car p0) (+ (* FAKTO 830)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
;(setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
(setq P11 (list (+ (car p0) (+ (* FAKTO 830)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
(setq P12 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
;jh (setq P13 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P13 (list (+ (car p0) (* FAKTO 0)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P14 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
;jh (setq P14 (list (+ (car p0) (* FAKTO 340)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
|
||||
;<<<Text>>>
|
||||
(setq P1 (list (+ (car p12) (* FAKTO 380)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P2 (list (+ (car p12) (* FAKTO 550)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P3 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 220)) (caddr p12)))
|
||||
(setq P4 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 120)) (caddr p12)))
|
||||
(setq P5 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 10)) (caddr p12)))
|
||||
(setq P6 (list (- (car p12) (* FAKTO 320)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
;jh (setq P6 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
(setq P7 (list (+ (car p0) (+ (* FAKTO 1200)) (* 150 ANZ_CHARACT)) (+ (cadr p12) (* FAKTO 100)) (caddr p12)))
|
||||
|
||||
(command "_layer" "_m" "EINGANG" "_c" "6" "" "")
|
||||
|
||||
;<<< IO Einfügen
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "")
|
||||
|
||||
(if (= m_IO-BEZ "1") ; IO-Bezeichnung = Artikelbezeichnung
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
|
||||
|
||||
;>>> Byteweise arbeiten. Wenn die letzte Zahl "7" dann auf "10" aufrunden
|
||||
(setq LAENGE_m_INPUT (strlen m_INPUT))
|
||||
(if (= (substr m_INPUT LAENGE_m_INPUT 1) "7")
|
||||
(setq m_INPUT (itoa (+ 3 (atoi m_INPUT))))
|
||||
(setq m_INPUT (itoa (+ 1 (atoi m_INPUT))))
|
||||
)
|
||||
|
||||
;<<< Korpus zeichnen ---------------------------------------
|
||||
(command "_layer" "_m" "EINGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P13 P10 P11 P14 P13 "")
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
;<<<< Zusatztext >>>>>>>
|
||||
(if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8"))
|
||||
(progn
|
||||
(setq x_length (+ 1170 (* (strlen m_Zusatz) 160)))
|
||||
(setq P15 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
(setq P16 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (- (cadr p11) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
|
||||
(command "_text" P7 (rtos (* FAKTO 150)) "0" m_ZUSATZ)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P10 P15 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P15 P16 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P16 P11 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_point" P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
(progn
|
||||
(setq P15 (list (car p10) (cadr p10) (caddr p10)))
|
||||
(setq P16 (list (car p11) (cadr p11) (caddr p11)))
|
||||
(command "_point" P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
;<<<< SPS-NR checken - wenn eingetragen dann einrahmen >>>>>>>
|
||||
(if (> (strlen m_SPS-NR) 0 )
|
||||
(progn
|
||||
(setq left_length (* (strlen m_SPS-NR) 160))
|
||||
(setq P17 (list (- (car p13) (* FAKTO left_length)) (+ (cadr p13) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P18 (list (- (car p13) (* FAKTO left_length)) (- (cadr p13) (* FAKTO 360)) (caddr p0)))
|
||||
|
||||
(command "_layer" "_m" "EINGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P13 P14 P18 P17 P13 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
;----------------------------------------------------------------------------------------------------------------
|
||||
|
||||
(if (= m_IO-BEZ-RECHTS "1")
|
||||
(progn
|
||||
(setq P8 (list (+ (car p16) (* FAKTO 100)) (+ (cadr p16) (* FAKTO 100)) (caddr p16)))
|
||||
(command "_text" P8 (rtos (* FAKTO 150)) "0" m_BEZEICHNUNG)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
|
||||
(if (= m_DWG_NAME "0")
|
||||
(progn
|
||||
(mach-block-ohne-prop P0 "0" AUSWAHL-SATZ)
|
||||
)
|
||||
(progn
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "0" "9" "0" (strcat _PREFIX DisplayString) block-kennung BL_NAME BEZEICHNUNG "1" "")
|
||||
)
|
||||
)
|
||||
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
(setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
|
||||
:<<<-------------------------------------------------------------------
|
||||
|
||||
;<<<< BAUGRUPPEN >>>
|
||||
(if (= m_DWG_NAME "16")
|
||||
(progn
|
||||
(EINZELTEIL P0 "827334016" "HALTER F. LT DOPPEL-B ERKENNUNG KPL." "1") ;BG-> Sensor Induktiv 12mm Schaltabstand 720002003=1St.+ 826906133=1St.
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
(command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (P1 E_ARTINR E_BEZEICHNUNG E_MENGE)
|
||||
(setq WINKEL1 (+ WINKEL1 10))
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/d_einzel") P13 "" "" (rtos WINKEL1))
|
||||
(attribute-aendern "0" "0" "29" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:EINGAENGE_B ( / DWG_NAME BL_NAME P0)
|
||||
(setvar "limcheck" 0)
|
||||
(setvar "CMDECHO" 0)
|
||||
(setvar "BLIPMODE" 0)
|
||||
(setq ALTFANG (getvar "osmode"))
|
||||
(setq EINZEL 0) ; fuer EINZEL=0 Baugruppen / EINZEL=1 fuer APB
|
||||
(prompt "**** EINGÄNGE B *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl
|
||||
(if (null m_INPUT) (setq m_INPUT "1")) ; Input Bit
|
||||
(if (null m_IDENT) (setq m_IDENT "1000")) ; ID
|
||||
(if (null m_COMPONENT) (setq m_COMPONENT "1")) ; Verwendung
|
||||
(if (null m_BEZEICHNUNG) (setq m_BEZEICHNUNG "xxxxxxxxxxxxxxx")) ; BEZEICHNUNG
|
||||
(if (null m_KENNZEICHNUNG) (setq m_KENNZEICHNUNG "=Axx+Exxx-Axxx")) ; KENNZEICHNUNG
|
||||
(if (null m_FAKT) (setq m_FAKT "1")) ; Skalierungsfaktor
|
||||
(if (null m_ZUSATZ) (setq m_ZUSATZ "")) ; Zusatztext
|
||||
(if (null m_SPS-NR) (setq m_SPS-NR "")) ; SPS Prefix
|
||||
(if (null m_PREFIX) (setq m_PREFIX "PREFIX_1")) ; Prefix (B,E oder S)
|
||||
(if (null m_IO-BEZ) (setq m_IO-BEZ "0")) ; Bezeicnung nicht der Artikelbezeichnung gleichsetzen
|
||||
(if (null m_IO-BEZ-RECHTS) (setq m_IO-BEZ-RECHTS "0")) ; Bezeicnung als Text rechts andrucken
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,116 @@
|
||||
/* Dialogbox fuer ILS2100 Komponaneten */
|
||||
/* Datum: 20.9.2006 AW */
|
||||
|
||||
EINGAENGE_B : dialog {
|
||||
label = "STEUERUNG-EINGÄNGE";
|
||||
spacer;
|
||||
: row {
|
||||
: list_box {
|
||||
label = "Eingänge";
|
||||
key = "DWG_NAME";
|
||||
mnemonic = "H";
|
||||
list = "BLIND\nRASTER 3[SI]\nRASTER 8[SI]\nBT-SYNC 3[SI]\nBT-SYNC 8[SI]\nSTAUMELDER LP[LT]\nINKR.GEBER-3[WEG]\nINKR.GEBER-8[WEG]\nPIN-SYNC[LT]\nVERL.R8-R[SI]\nVERL.R8-L[SI]\nVERL.RG-8-R[SI]\nVERL.RG-8-L[SI]\nSENSOR F.LP[SI]\nBT-SCANN.\nIN-SEP.[SI]\nBT-BELADEN[SI]\nDOPP.B.ERK.+SPS";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
: image {
|
||||
height = 10;
|
||||
width = 40;
|
||||
color = 7;
|
||||
key = "anzeige";
|
||||
}
|
||||
: list_box {
|
||||
label = "Verwendung";
|
||||
key = "COMPONENT";
|
||||
mnemonic = "H";
|
||||
list = "SEP1_2Y+1B\nSEP1_1Y+1B\nSEP2_2Y+1B\nSEP2_1Y+1B\nSW_2Y+1B\nSW_2Y+3B\nMOT_1M+1B\nINPUT-1B\nNO-ID";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
}
|
||||
: row {
|
||||
:column {
|
||||
: edit_box {
|
||||
label = "Input:";
|
||||
allow_accept = true;
|
||||
key = "INPUT";
|
||||
value = 1;
|
||||
}
|
||||
: edit_box {
|
||||
label = "ID:";
|
||||
allow_accept = true;
|
||||
key = "IDENT";
|
||||
value = 1000;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Bezeichnung:";
|
||||
allow_accept = true;
|
||||
key = "BEZEICHNUNG";
|
||||
value = xxxxxxxxx;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Kennzeichnung:";
|
||||
allow_accept = true;
|
||||
key = "KENNZEICHNUNG";
|
||||
}
|
||||
:edit_box {
|
||||
label="Skalierungsfaktor";
|
||||
key="FAKT";
|
||||
value = 1;
|
||||
mnemonic="F";
|
||||
}
|
||||
:edit_box {
|
||||
label="ZUSATZTEXT";
|
||||
key="ZUSATZ";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung=Artikel-Bezeichnung";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung auch als Text RECHTS";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ-RECHTS";
|
||||
}
|
||||
}
|
||||
: boxed_radio_column {
|
||||
label = "PREFIX";
|
||||
key = "PREFIX";
|
||||
: radio_button {
|
||||
label = "B";
|
||||
key = "PREFIX_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "E";
|
||||
key = "PREFIX_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "S";
|
||||
key = "PREFIX_3";
|
||||
}
|
||||
: radio_button {
|
||||
label = "IPB";
|
||||
key = "PREFIX_4";
|
||||
}
|
||||
: radio_button {
|
||||
label = "PB";
|
||||
key = "PREFIX_5";
|
||||
}
|
||||
: radio_button {
|
||||
label = "PRS";
|
||||
key = "PREFIX_6";
|
||||
}
|
||||
: radio_button {
|
||||
label = "CB";
|
||||
key = "PREFIX_7";
|
||||
}
|
||||
: radio_button {
|
||||
label = "I";
|
||||
key = "PREFIX_8";
|
||||
}
|
||||
}
|
||||
}
|
||||
spacer;
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,510 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; EINGAENGE_B ;
|
||||
;------------------------------------------------------------------------;
|
||||
; 02.02.2007 / 22.09.2007 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/EINGAENGE_B.DCL")))
|
||||
(if (not (new_dialog "EINGAENGE_B" Dat)) (exit))
|
||||
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(set_tile "INPUT" m_INPUT)
|
||||
(set_tile "IDENT" m_IDENT)
|
||||
(set_tile "COMPONENT" m_COMPONENT)
|
||||
(set_tile "BEZEICHNUNG" m_BEZEICHNUNG)
|
||||
(set_tile "KENNZEICHNUNG" m_KENNZEICHNUNG)
|
||||
(set_tile "FAKT" m_FAKT)
|
||||
(set_tile "ZUSATZ" m_ZUSATZ)
|
||||
(set_tile "PREFIX" m_PREFIX) ; B,S oder E
|
||||
(set_tile "IO-BEZ" m_IO-BEZ)
|
||||
(set_tile "IO-BEZ-RECHTS" m_IO-BEZ-RECHTS)
|
||||
|
||||
(mode_tile "anzeige" 0)
|
||||
(SetDia)
|
||||
(ACTION_TILE "DWG_NAME" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i00)")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i01)")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i02)")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i03)")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i04)")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i05)")
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i06)")
|
||||
)
|
||||
((= m_DWG_NAME "7")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i07)")
|
||||
)
|
||||
((= m_DWG_NAME "8")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i08)")
|
||||
)
|
||||
((= m_DWG_NAME "9")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i09)")
|
||||
)
|
||||
((= m_DWG_NAME "10")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i10)")
|
||||
)
|
||||
((= m_DWG_NAME "11")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i11)")
|
||||
)
|
||||
((= m_DWG_NAME "12")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i12)")
|
||||
)
|
||||
((= m_DWG_NAME "13")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i13)")
|
||||
)
|
||||
((= m_DWG_NAME "14")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i14)")
|
||||
)
|
||||
((= m_DWG_NAME "15")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i15)")
|
||||
)
|
||||
((= m_DWG_NAME "16")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i16)")
|
||||
)
|
||||
((= m_DWG_NAME "17")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i17)")
|
||||
)
|
||||
((= m_DWG_NAME "18")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i18)")
|
||||
)
|
||||
) ; end cond
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq WINKEL1 0)
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_INPUT (get_tile "INPUT"))
|
||||
(setq m_IDENT (get_tile "IDENT"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_BEZEICHNUNG (get_tile "BEZEICHNUNG"))
|
||||
(setq m_KENNZEICHNUNG (get_tile "KENNZEICHNUNG"))
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq FAKTO (atof m_FAKT))
|
||||
(InputStringAnalyse)
|
||||
)
|
||||
|
||||
(defun InputStringAnalyse()
|
||||
(setq DisplayString "")
|
||||
(setq InputLaenge (strlen m_INPUT))
|
||||
; (alert (itoa InputLaenge))
|
||||
(if (or (> InputLaenge 4) (= InputLaenge 0))
|
||||
(progn
|
||||
(alert "Mehr als 4 Stellen nicht bzw. LEERE Eingabe nicht erlaubt")
|
||||
(exit)
|
||||
)
|
||||
)
|
||||
(cond
|
||||
((= InputLaenge 1)
|
||||
(setq DisplayString (strcat "000" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 2)
|
||||
(setq DisplayString (strcat "00" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 3)
|
||||
(setq DisplayString (strcat "0" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 4)
|
||||
(setq DisplayString m_INPUT)
|
||||
)
|
||||
) ; end cond
|
||||
(cond
|
||||
((= m_COMPONENT "0")
|
||||
(setq VERWENDUNG "SEP1_2Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "1")
|
||||
(setq VERWENDUNG "SEP1_1Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "2")
|
||||
(setq VERWENDUNG "SEP2_2Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "3")
|
||||
(setq VERWENDUNG "SEP2_1Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "4")
|
||||
(setq VERWENDUNG "SW_2Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "5")
|
||||
(setq VERWENDUNG "SW_2Y+3B")
|
||||
)
|
||||
((= m_COMPONENT "6")
|
||||
(setq VERWENDUNG "MOT_1M+1B")
|
||||
)
|
||||
((= m_COMPONENT "7")
|
||||
(setq VERWENDUNG "INPUT-1B")
|
||||
)
|
||||
((= m_COMPONENT "8")
|
||||
(setq VERWENDUNG m_ZUSATZ)
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
) ; end cond
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(setq BL_NAME "") ;Blinde Eintragung
|
||||
(setq BEZEICHNUNG "")
|
||||
(setq BEZ1 "")
|
||||
(setq BEZ2 "")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(setq BL_NAME "829426303") ;SENSOR INDUKTIV M18/12 KPL.-RASTERSENSOR FÜR KREISEL 300
|
||||
(setq BEZEICHNUNG "RASTER 300[SI] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "RS")
|
||||
(setq BEZ2 "300")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(setq BL_NAME "720002003") ;SENSOR INDUKTIV M18/12 ET-RASTERSENSOR FÜR KREISEL 800 -> Bohrung bereits vorhanden
|
||||
(setq BEZEICHNUNG "RASTER 800[SI] ET")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "RS")
|
||||
(setq BEZ2 "800")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(setq BL_NAME "829422025") ;SENSOR INDUKTIV M18/12 KPL.-BT SYNC 300 (BT Sync im Rad)
|
||||
(setq BEZEICHNUNG "BT-SYNC 300[SI] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SI")
|
||||
(setq BEZ2 "SYNC")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(setq BL_NAME "829434304") ;SENSOR INDUKTIV M18/12 KPL.-BT SYNC 800 (BT Sync im Rad)
|
||||
(setq BEZEICHNUNG "BT-SYNC 800[SI] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SI")
|
||||
(setq BEZ2 "SYNC")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(setq BL_NAME "829434300") ; LICHTTASTER WT 14 KPL.-STAUABFRAGE (setq BEZEICHNUNG "STAUABFRAGE[LT]")
|
||||
(setq BEZEICHNUNG "STAUABFRAGE[LT] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "LT")
|
||||
(setq BEZ2 "STAU")
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(setq BL_NAME "829434308") ; INKREMENTALGEBER KPL. 300-ER KREISEL
|
||||
(setq BEZEICHNUNG "DREHGEBER-300 KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "DG")
|
||||
(setq BEZ2 "300")
|
||||
)
|
||||
((= m_DWG_NAME "7")
|
||||
(setq BL_NAME "829434307") ; INKREMENTALGEBER KPL. 800-ER KREISEL
|
||||
(setq BEZEICHNUNG "DREHGEBER-800 KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "DG")
|
||||
(setq BEZ2 "800")
|
||||
)
|
||||
((= m_DWG_NAME "8")
|
||||
(setq BL_NAME "829434301") ; LASERLICHTTASTER WT12-PIN SYNCHRONISATION
|
||||
(setq BEZEICHNUNG "PIN SYNC[LT] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "LT")
|
||||
(setq BEZ2 "PIN")
|
||||
)
|
||||
((= m_DWG_NAME "9")
|
||||
(setq BL_NAME "827422001")
|
||||
(setq BEZEICHNUNG "WEICHE VERL.R800 RECHTS[SI] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SI")
|
||||
(setq BEZ2 "VERL")
|
||||
)
|
||||
((= m_DWG_NAME "10")
|
||||
(setq BL_NAME "827422002")
|
||||
(setq BEZEICHNUNG "WEICHE VERL.R800 LINKS[SI] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SI")
|
||||
(setq BEZ2 "VERL")
|
||||
)
|
||||
((= m_DWG_NAME "11")
|
||||
(setq BL_NAME "827422003")
|
||||
(setq BEZEICHNUNG "WEICHE VERL.RG-800 RECHTS[SI] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SI")
|
||||
(setq BEZ2 "VERL")
|
||||
)
|
||||
((= m_DWG_NAME "12")
|
||||
(setq BL_NAME "827422004")
|
||||
(setq BEZEICHNUNG "WEICHE VERL.RG-800 LINKS[SI] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SI")
|
||||
(setq BEZ2 "VERL")
|
||||
)
|
||||
((= m_DWG_NAME "13")
|
||||
(setq BL_NAME "827422026")
|
||||
(setq BEZEICHNUNG "BT SENSOR F.LP[SI] KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SI")
|
||||
(setq BEZ2 "VERL")
|
||||
)
|
||||
((= m_DWG_NAME "14")
|
||||
(setq BL_NAME "829434003")
|
||||
(setq BEZEICHNUNG "BT SCANNER IM SEPARATOR KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "BT")
|
||||
(setq BEZ2 "SCAN")
|
||||
)
|
||||
((= m_DWG_NAME "15")
|
||||
(setq BL_NAME "720002003")
|
||||
(setq BEZEICHNUNG "IN-SENSOR SEPARATOR[SI] ET")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SI")
|
||||
(setq BEZ2 "INSP")
|
||||
)
|
||||
((= m_DWG_NAME "16")
|
||||
(setq BL_NAME "720002004")
|
||||
(setq BEZEICHNUNG "BT BELADEN M30[SI] ET")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "BT")
|
||||
(setq BEZ2 "BELA")
|
||||
)
|
||||
((= m_DWG_NAME "17")
|
||||
(setq BL_NAME "829434302")
|
||||
(setq BEZEICHNUNG "SPS F.DOPPEL BUEGEL ERKENNUNG")
|
||||
(setq BEZEICHNUNG_BG "LICHTSCHRANKE F. DOPPEL-B ERKENNUNG KPL.")
|
||||
(setq BEZ1 "DB")
|
||||
(setq BEZ2 "DETC")
|
||||
)
|
||||
((= m_DWG_NAME "18")
|
||||
(setq BL_NAME "721000020")
|
||||
(setq BEZEICHNUNG "LICHTTASTER IN SEPARATOR")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "LT")
|
||||
(setq BEZ2 "INSP")
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_PREFIX "PREFIX_1")
|
||||
(setq _PREFIX "B")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_2")
|
||||
(setq _PREFIX "E")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_3")
|
||||
(setq _PREFIX "S")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_4")
|
||||
(setq _PREFIX "IPB")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_5")
|
||||
(setq _PREFIX "PB")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_6")
|
||||
(setq _PREFIX "PRS")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_7")
|
||||
(setq _PREFIX "CB")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_8")
|
||||
(setq _PREFIX "I")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE nil) ; wird am Ende ROTATE
|
||||
(setq AUSWAHL-SATZ nil) ; Blockbildung
|
||||
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(setvar "osmode" 0)
|
||||
(bl-name P0) ;--> Block-Name definieren -> Rückgabe: element-name
|
||||
|
||||
(setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(setq P12 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(setq P13 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P14 (list (+ (car p0) (* FAKTO 340)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
|
||||
;<<<Text>>>
|
||||
(setq P1 (list (+ (car p12) (* FAKTO 380)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P2 (list (+ (car p12) (* FAKTO 550)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P3 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 220)) (caddr p12)))
|
||||
(setq P4 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 120)) (caddr p12)))
|
||||
(setq P5 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 10)) (caddr p12)))
|
||||
(setq P6 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
(setq P7 (list (+ (car p12) (* FAKTO 1200)) (+ (cadr p12) (* FAKTO 100)) (caddr p12)))
|
||||
|
||||
(command "_layer" "_m" "EINGANG" "_c" "6" "" "")
|
||||
|
||||
;<<< IO Einfügen
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "")
|
||||
|
||||
(if (= m_IO-BEZ "1") ; IO-Bezeichnung = Artikelbezeichnung
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG BEZEICHNUNG m_KENNZEICHNUNG)
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
|
||||
|
||||
;>>> Byteweise arbeiten. Wenn die letzte Zahl "7" dann auf "10" aufrunden
|
||||
(setq LAENGE_m_INPUT (strlen m_INPUT))
|
||||
(if (= (substr m_INPUT LAENGE_m_INPUT 1) "7")
|
||||
(setq m_INPUT (itoa (+ 3 (atoi m_INPUT))))
|
||||
(setq m_INPUT (itoa (+ 1 (atoi m_INPUT))))
|
||||
)
|
||||
|
||||
;<<< Korpus zeichnen ---------------------------------------
|
||||
(command "_layer" "_m" "EINGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P0 P10 P11 P12 P0 "")
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P13 P14 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;<<< Beschreibung als Text hinzufügen
|
||||
(command "_text" P3 (rtos (* FAKTO 70)) "0" BEZ1)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_text" P4 (rtos (* FAKTO 70)) "0" BEZ2)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
;<<<< Zusatztext >>>>>>>
|
||||
(if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8"))
|
||||
(progn
|
||||
(setq x_length (+ 1170 (* (strlen m_Zusatz) 160)))
|
||||
(setq P15 (list (+ (car p0) (* FAKTO x_length)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
(setq P16 (list (+ (car p0) (* FAKTO x_length)) (- (cadr p0) (* FAKTO 330)) (caddr p0))) ;Zusatztext
|
||||
|
||||
(command "_text" P7 (rtos (* FAKTO 150)) "0" m_ZUSATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P10 P15 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P15 P16 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P16 P11 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
(progn
|
||||
(setq P15 (list (car p10) (cadr p10) (caddr p10)))
|
||||
(setq P16 (list (car p11) (cadr p11) (caddr p11)))
|
||||
)
|
||||
)
|
||||
;<<<<<<<<< IO-Bezeichnung auch als TEXT rechts einfügen
|
||||
(if (= m_IO-BEZ-RECHTS "1")
|
||||
(progn
|
||||
(setq P8 (list (+ (car p16) (* FAKTO 100)) (+ (cadr p16) (* FAKTO 100)) (caddr p16)))
|
||||
(command "_text" P8 (rtos (* FAKTO 150)) "0" m_BEZEICHNUNG)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
|
||||
(if (= m_DWG_NAME "0")
|
||||
(progn
|
||||
(mach-block-ohne-prop P0 "0" AUSWAHL-SATZ)
|
||||
)
|
||||
(progn
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "0" "9" "0" (strcat _PREFIX DisplayString) block-kennung BL_NAME BEZEICHNUNG "1" "")
|
||||
)
|
||||
)
|
||||
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
(setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
|
||||
:<<<-------------------------------------------------------------------
|
||||
|
||||
;<<<< BAUGRUPPEN >>>
|
||||
(if (= m_DWG_NAME "16")
|
||||
(progn
|
||||
(EINZELTEIL P0 "827334016" "HALTER F. LT DOPPEL-B ERKENNUNG KPL." "1") ;BG-> Sensor Induktiv 12mm Schaltabstand 720002003=1St.+ 826906133=1St.
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
(command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (P1 E_ARTINR E_BEZEICHNUNG E_MENGE)
|
||||
(setq WINKEL1 (+ WINKEL1 10))
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/d_einzel") P0 "" "" (rtos WINKEL1))
|
||||
(attribute-aendern "0" "0" "29" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:EINGAENGE_B ( / DWG_NAME BL_NAME P0)
|
||||
(setvar "limcheck" 0)
|
||||
(setvar "CMDECHO" 0)
|
||||
(setvar "BLIPMODE" 0)
|
||||
(setq ALTFANG (getvar "osmode"))
|
||||
(setq EINZEL 0) ; fuer EINZEL=0 Baugruppen / EINZEL=1 fuer APB
|
||||
(prompt "**** EINGÄNGE B *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl
|
||||
(if (null m_INPUT) (setq m_INPUT "1")) ; Input Bit
|
||||
(if (null m_IDENT) (setq m_IDENT "1000")) ; ID
|
||||
(if (null m_COMPONENT) (setq m_COMPONENT "1")) ; Verwendung
|
||||
(if (null m_BEZEICHNUNG) (setq m_BEZEICHNUNG "xxxxxxxxxxxxxxx")) ; BEZEICHNUNG
|
||||
(if (null m_KENNZEICHNUNG) (setq m_KENNZEICHNUNG "=Axx+Exxx-Axxx")) ; KENNZEICHNUNG
|
||||
(if (null m_FAKT) (setq m_FAKT "1")) ; Skalierungsfaktor
|
||||
(if (null m_ZUSATZ) (setq m_ZUSATZ "")) ; Zusatztext
|
||||
(if (null m_PREFIX) (setq m_PREFIX "PREFIX_1")) ; Prefix (B,E oder S)
|
||||
(if (null m_IO-BEZ) (setq m_IO-BEZ "0")) ; Bezeicnung nicht der Artikelbezeichnung gleichsetzen
|
||||
(if (null m_IO-BEZ-RECHTS) (setq m_IO-BEZ-RECHTS "0")) ; Bezeicnung als Text rechts andrucken
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,81 @@
|
||||
/* Dialogbox fuer ILS2100 Komponaneten */
|
||||
/* Datum: 20.9.2006 AW */
|
||||
|
||||
EINGAENGE_B : dialog {
|
||||
label = "STEUERUNG-EINGÄNGE";
|
||||
spacer;
|
||||
: row {
|
||||
: list_box {
|
||||
label = "Eingänge";
|
||||
key = "DWG_NAME";
|
||||
mnemonic = "H";
|
||||
list = "BLIND\nIND.8mm\nIND.12mm\nIND.16mm\nKAP.AP60\nKAP.AP110\nKAPAZITIV\nSK-KURZ\nSK-LANG\nROLLENSCHALTER\nFEDESCHALTER\nENCODER\nLICHTASTER\nLICHTTASTER ROLLENFRAGE\nLICHTTASTER TRAVERSENABFRAGE\nREFLEXIONS-LICHTSCHRANKE\nEINWEG-LICHTSCHRANKE\nSICHERHEITSLEISTE";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
: image {
|
||||
height = 10;
|
||||
width = 40;
|
||||
color = 7;
|
||||
key = "anzeige";
|
||||
}
|
||||
}
|
||||
: row {
|
||||
:column {
|
||||
: edit_box {
|
||||
label = "Input:";
|
||||
allow_accept = true;
|
||||
key = "INPUT";
|
||||
value = 1;
|
||||
}
|
||||
: edit_box {
|
||||
label = "ID:";
|
||||
allow_accept = true;
|
||||
key = "IDENT";
|
||||
value = 1000;
|
||||
}
|
||||
: list_box {
|
||||
label = "Verwendung";
|
||||
key = "COMPONENT";
|
||||
mnemonic = "H";
|
||||
list = "SEP1_2Y+1B\nSEP1_1Y+1B\nSEP2_2Y+1B\nSEP2_1Y+1B\nSCAN_1A\nSW_2Y\nSW_2Y+1B\nSW_2Y+3B\nMOT_1M+1B\nMOT_1M\nINPUT-1B\nOUTPUT-1Y\nNO-ID";
|
||||
width = 30;
|
||||
height = 15;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Bezeichnung:";
|
||||
allow_accept = true;
|
||||
key = "BEZEICHNUNG";
|
||||
value = xxxxxxxxx;
|
||||
}
|
||||
:edit_box {
|
||||
label="Skalierungsfaktor";
|
||||
key="FAKT";
|
||||
value = 1;
|
||||
mnemonic="F";
|
||||
}
|
||||
}
|
||||
:edit_box {
|
||||
label="ZUSATZTEXT";
|
||||
key="ZUSATZ";
|
||||
}
|
||||
: boxed_radio_column {
|
||||
label = "PREFIX";
|
||||
key = "PREFIX";
|
||||
: radio_button {
|
||||
label = "B";
|
||||
key = "PREFIX_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "E";
|
||||
key = "PREFIX_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "S";
|
||||
key = "PREFIX_3";
|
||||
}
|
||||
}
|
||||
}
|
||||
spacer;
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,338 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; EINGAENGE_B ;
|
||||
;------------------------------------------------------------------------;
|
||||
; 02.02.2007 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/EINGAENGE_B.DCL")))
|
||||
(if (not (new_dialog "EINGAENGE_B" Dat)) (exit))
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
|
||||
(set_tile "INPUT" m_INPUT)
|
||||
(set_tile "IDENT" m_IDENT)
|
||||
(set_tile "COMPONENT" m_COMPONENT)
|
||||
(set_tile "BEZEICHNUNG" m_BEZEICHNUNG)
|
||||
(set_tile "FAKT" m_FAKT)
|
||||
(set_tile "ZUSATZ" m_ZUSATZ)
|
||||
(set_tile "PREFIX" m_PREFIX) ; B,S oder E
|
||||
|
||||
(mode_tile "anzeige" 0)
|
||||
(SetDia)
|
||||
(ACTION_TILE "DWG_NAME" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
|
||||
(cond
|
||||
((= m_DWG_NAME "1") ; Induktiv 8 mm
|
||||
(slide_image 0 0 breite hoehe "steuerg(20002002)")
|
||||
)
|
||||
((= m_DWG_NAME "2") ; Induktiv 12 mm
|
||||
(slide_image 0 0 breite hoehe "steuerg(20002003)")
|
||||
)
|
||||
((= m_DWG_NAME "3") ; Induktiv 16 mm
|
||||
(slide_image 0 0 breite hoehe "steuerg(20002006)")
|
||||
)
|
||||
((= m_DWG_NAME "4") ;Sensor Kapazitiv AP60
|
||||
(slide_image 0 0 breite hoehe "steuerg(26904025)")
|
||||
)
|
||||
((= m_DWG_NAME "5") ;Sensor Kapazitiv AP110
|
||||
(slide_image 0 0 breite hoehe "steuerg(26904024)")
|
||||
)
|
||||
((= m_DWG_NAME "6") ;Sensor Kapazitiv
|
||||
(slide_image 0 0 breite hoehe "steuerg(21000011)")
|
||||
)
|
||||
) ; end cond
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq WINKEL1 0)
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_INPUT (get_tile "INPUT"))
|
||||
(setq m_IDENT (get_tile "IDENT"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_BEZEICHNUNG (get_tile "BEZEICHNUNG"))
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq FAKTO (atof m_FAKT))
|
||||
(InputStringAnalyse)
|
||||
)
|
||||
|
||||
(defun InputStringAnalyse()
|
||||
(setq DisplayString "")
|
||||
(setq InputLaenge (strlen m_INPUT))
|
||||
; (alert (itoa InputLaenge))
|
||||
(if (or (> InputLaenge 4) (= InputLaenge 0))
|
||||
(progn
|
||||
(alert "Mehr als 4 Stellen nicht bzw. LEERE Eingabe nicht erlaubt")
|
||||
(exit)
|
||||
)
|
||||
)
|
||||
(cond
|
||||
((= InputLaenge 1)
|
||||
(setq DisplayString (strcat "000" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 2)
|
||||
(setq DisplayString (strcat "00" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 3)
|
||||
(setq DisplayString (strcat "0" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 4)
|
||||
(setq DisplayString m_INPUT)
|
||||
)
|
||||
) ; end cond
|
||||
(cond
|
||||
((= m_COMPONENT "0")
|
||||
(setq VERWENDUNG "SEP1_2Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "1")
|
||||
(setq VERWENDUNG "SEP1_1Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "2")
|
||||
(setq VERWENDUNG "SEP2_2Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "3")
|
||||
(setq VERWENDUNG "SEP2_1Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "4")
|
||||
(setq VERWENDUNG "SCAN_1A")
|
||||
)
|
||||
((= m_COMPONENT "5")
|
||||
(setq VERWENDUNG "SW_2Y")
|
||||
)
|
||||
((= m_COMPONENT "6")
|
||||
(setq VERWENDUNG "SW_2Y+1B")
|
||||
)
|
||||
((= m_COMPONENT "7")
|
||||
(setq VERWENDUNG "SW_2Y+3B")
|
||||
)
|
||||
((= m_COMPONENT "8")
|
||||
(setq VERWENDUNG "MOT_1M+1B")
|
||||
)
|
||||
((= m_COMPONENT "9")
|
||||
(setq VERWENDUNG "MOT_1M")
|
||||
)
|
||||
((= m_COMPONENT "10")
|
||||
(setq VERWENDUNG "INPUT-1B")
|
||||
)
|
||||
((= m_COMPONENT "11")
|
||||
(setq VERWENDUNG "OUTPUT-1Y")
|
||||
)
|
||||
((= m_COMPONENT "12")
|
||||
(setq VERWENDUNG "NO-ID")
|
||||
)
|
||||
) ; end cond
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(setq BL_NAME "") ;Blinde Eintragung
|
||||
(setq BEZEICHNUNG "")
|
||||
(setq BEZ1 "")
|
||||
(setq BEZ2 "")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(setq BL_NAME "720002002") ;Sensor Induktiv 8mm Schaltabstand
|
||||
(setq BEZEICHNUNG "SENSOR INDUKTIV 8MM SCHALTABSTAND")
|
||||
(setq BEZ1 "IND")
|
||||
(setq BEZ2 "8mm")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(setq BL_NAME "720002003") ;BG-> Sensor Induktiv 12mm Schaltabstand 720002003=1St.+ 826906133=1St.
|
||||
(setq BEZEICHNUNG "SENSOR INDUKTIV 12MM SCHALTABSTAND") ;BG->720002003=1St.+ 826906133=1St.
|
||||
(setq BEZEICHNUNG_BG "SENSOR INDUKTIV 12 MM MIT HALTER KPL.") ;BG->720002003=1St.+ 826906133=1St.
|
||||
(setq BEZ1 "IND")
|
||||
(setq BEZ2 "12mm")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(setq BL_NAME "720002006") ;Sensor Induktiv 16mm Schaltabstand
|
||||
(setq BEZEICHNUNG "SENSOR INDUKTIV 16MM SCHALTABSTAND")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "IND")
|
||||
(setq BEZ2 "16mm")
|
||||
)
|
||||
((= m_DWG_NAME "4") ;Sensor Kapazitiv AP60
|
||||
(setq BL_NAME "826904025")
|
||||
(setq BEZEICHNUNG "SENSOR KAPAZITIV AP60")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "KAP")
|
||||
(setq BEZ2 "AP60")
|
||||
)
|
||||
((= m_DWG_NAME "5") ;Sensor Kapazitiv AP110
|
||||
(setq BL_NAME "826904025")
|
||||
(setq BEZEICHNUNG "SENSOR KAPAZITIV AP110")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "KAP")
|
||||
(setq BEZ2 "AP110")
|
||||
)
|
||||
((= m_DWG_NAME "6") ;Sensor Kapazitiv
|
||||
(setq BL_NAME "721000011")
|
||||
(setq BEZEICHNUNG "SENSOR KAPAZITIV")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "KAP")
|
||||
(setq BEZ2 "")
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_PREFIX "PREFIX_1")
|
||||
(setq _PREFIX "B")
|
||||
)
|
||||
((= m_PREFIX "PREFIX_2")
|
||||
(setq _PREFIX "E")
|
||||
)
|
||||
((= m_PREFIX "PREFIX_3")
|
||||
(setq _PREFIX "S")
|
||||
)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE nil) ; wird am Ende ROTATE
|
||||
(setq AUSWAHL-SATZ nil) ; Blockbildung
|
||||
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(setvar "osmode" 0)
|
||||
(bl-name P0) ;--> Block-Name definieren -> R�ckgabe: element-name
|
||||
|
||||
(setq P10 (list (+ (car p0) (* FAKTO 1170)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P11 (list (+ (car p0) (* FAKTO 1170)) (+ (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(setq P12 (list (+ (car p0) (* FAKTO 0)) (+ (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(setq P13 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P14 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(setq P15 (list (+ (car p0) (* FAKTO 1370)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P16 (list (+ (car p0) (* FAKTO 1370)) (+ (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
|
||||
;<<<Text>>>
|
||||
(setq P1 (list (+ (car p0) (* FAKTO 380)) (+ (cadr p0) (* FAKTO 90)) (caddr p0)))
|
||||
(setq P2 (list (+ (car p0) (* FAKTO 550)) (+ (cadr p0) (* FAKTO 90)) (caddr p0)))
|
||||
(setq P3 (list (+ (car p0) (* FAKTO 20)) (+ (cadr p0) (* FAKTO 220)) (caddr p0)))
|
||||
(setq P4 (list (+ (car p0) (* FAKTO 20)) (+ (cadr p0) (* FAKTO 120)) (caddr p0)))
|
||||
(setq P5 (list (+ (car p0) (* FAKTO 20)) (+ (cadr p0) (* FAKTO 10)) (caddr p0)))
|
||||
(setq P6 (list (+ (car p0) (* FAKTO 20)) (+ (cadr p0) (* FAKTO 20)) (caddr p0)))
|
||||
(setq P7 (list (+ (car p0) (* FAKTO 1200)) (+ (cadr p0) (* FAKTO 100)) (caddr p0)))
|
||||
|
||||
(command "_layer" "_m" "EINGANG" "_c" "6" "" "")
|
||||
|
||||
;<<< IO Einfügen
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "")
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG)
|
||||
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
|
||||
|
||||
;>>> Byteweise arbeiten. Wenn die letzte Zahl "7" dann auf "10" aufrunden
|
||||
(setq LAENGE_m_INPUT (strlen m_INPUT))
|
||||
(if (= (substr m_INPUT LAENGE_m_INPUT 1) "7")
|
||||
(setq m_INPUT (itoa (+ 3 (atoi m_INPUT))))
|
||||
(setq m_INPUT (itoa (+ 1 (atoi m_INPUT))))
|
||||
)
|
||||
|
||||
;<<< Korpus zeichnen ---------------------------------------
|
||||
(command "_layer" "_m" "EINGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P0 P10 P11 P12 P0 "")
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P13 P14 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;<<< Beschreibung als Text hinzufügen
|
||||
(command "_text" P3 (rtos (* FAKTO 70)) "0" BEZ1)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_text" P4 (rtos (* FAKTO 70)) "0" BEZ2)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
|
||||
;<<<< Zusatztext >>>>>>>
|
||||
(if (> (strlen m_ZUSATZ) 0 )
|
||||
(progn
|
||||
(command "_text" P7 (rtos (* FAKTO 150)) "0" m_ZUSATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P10 P15 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P15 P16 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P16 P11 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "0" "9" "0" (strcat _PREFIX DisplayString) block-kennung BL_NAME BEZEICHNUNG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
(setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
|
||||
:<<<-------------------------------------------------------------------
|
||||
|
||||
;<<<< BAUGRUPPEN >>>
|
||||
(if (= m_DWG_NAME "1")
|
||||
(progn
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜFUNG AP110" "1") ;BG-> Sensor Induktiv 12mm Schaltabstand 720002003=1St.+ 826906133=1St.
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
(command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (P1 E_ARTINR E_BEZEICHNUNG E_MENGE)
|
||||
(setq WINKEL1 (+ WINKEL1 10))
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/d_einzel") P0 "" "" (rtos WINKEL1))
|
||||
(attribute-aendern "0" "0" "29" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:EINGAENGE_B ( / DWG_NAME BL_NAME P0)
|
||||
(setvar "limcheck" 0)
|
||||
(setvar "CMDECHO" 0)
|
||||
(setvar "BLIPMODE" 0)
|
||||
(setq ALTFANG (getvar "osmode"))
|
||||
(setq EINZEL 0) ; fuer EINZEL=0 Baugruppen / EINZEL=1 fuer APB
|
||||
(prompt "**** EINGÄNGE B *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl
|
||||
(if (null m_INPUT) (setq m_INPUT "1")) ; Input Bit
|
||||
(if (null m_IDENT) (setq m_IDENT "1000")) ; ID
|
||||
(if (null m_COMPONENT) (setq m_COMPONENT "1")) ; Verwendung
|
||||
(if (null m_BEZEICHNUNG) (setq m_BEZEICHNUNG "xxxxxxxxxxxxxxx")) ; BEZEICHNUNG
|
||||
(if (null m_FAKT) (setq m_FAKT "1")) ; Skalierungsfaktor
|
||||
(if (null m_ZUSATZ) (setq m_ZUSATZ "")) ; Zusatztext
|
||||
(if (null m_PREFIX) (setq m_PREFIX "PREFIX_1")) ; Prefix (B,E oder S)
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,140 @@
|
||||
/* Dialogbox fuer Eingänge Spinnerei */
|
||||
/* Datum: 30.9.2007 18.06.2011 AW */
|
||||
|
||||
EINGAENGE_F : dialog {
|
||||
label = "STEUERUNG-EINGÄNGE-SPINNEREI";
|
||||
spacer;
|
||||
: row {
|
||||
: list_box {
|
||||
label = "Eingänge";
|
||||
key = "DWG_NAME";
|
||||
mnemonic = "H";
|
||||
list = "BLIND\nSENSOR-KAPAZITIV an AP110\nSENSOR-KAPAZITIV an AP60\nABF.SPULENPOSITION\nABF.SPULE VOLL-LEER\nABF.SPULENFARBE";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
: image {
|
||||
height = 10;
|
||||
width = 40;
|
||||
color = 7;
|
||||
key = "anzeige";
|
||||
}
|
||||
: list_box {
|
||||
label = "Verwendung";
|
||||
key = "COMPONENT";
|
||||
mnemonic = "H";
|
||||
list = "NO-ID";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
}
|
||||
: row {
|
||||
:column {
|
||||
: edit_box {
|
||||
label = "Input:";
|
||||
allow_accept = true;
|
||||
key = "INPUT";
|
||||
value = 1;
|
||||
}
|
||||
: edit_box {
|
||||
label = "ID:";
|
||||
allow_accept = true;
|
||||
key = "IDENT";
|
||||
value = 1000;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Bezeichnung:";
|
||||
allow_accept = true;
|
||||
key = "BEZEICHNUNG";
|
||||
value = xxxxxxxxx;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Kennzeichnung:";
|
||||
allow_accept = true;
|
||||
key = "KENNZEICHNUNG";
|
||||
}
|
||||
: edit_box {
|
||||
label="Skalierungsfaktor";
|
||||
key="FAKT";
|
||||
value = 1;
|
||||
mnemonic="F";
|
||||
}
|
||||
: edit_box {
|
||||
label="ZUSATZTEXT";
|
||||
key="ZUSATZ";
|
||||
}
|
||||
: edit_box {
|
||||
label="SPS-Prefix";
|
||||
key="SPS-NR";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung=Artikel-Bezeichnung";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung auch als Text RECHTS";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ-RECHTS";
|
||||
}
|
||||
}
|
||||
: boxed_radio_column {
|
||||
label = "PREFIX";
|
||||
key = "PREFIX";
|
||||
: radio_button {
|
||||
label = "B";
|
||||
key = "PREFIX_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "E";
|
||||
key = "PREFIX_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "S";
|
||||
key = "PREFIX_3";
|
||||
}
|
||||
: radio_button {
|
||||
label = "IPB";
|
||||
key = "PREFIX_4";
|
||||
}
|
||||
: radio_button {
|
||||
label = "PB";
|
||||
key = "PREFIX_5";
|
||||
}
|
||||
: radio_button {
|
||||
label = "PRS";
|
||||
key = "PREFIX_6";
|
||||
}
|
||||
: radio_button {
|
||||
label = "CB";
|
||||
key = "PREFIX_7";
|
||||
}
|
||||
: radio_button {
|
||||
label = "I";
|
||||
key = "PREFIX_8";
|
||||
}
|
||||
}
|
||||
: boxed_radio_column {
|
||||
label = "LÄNGE";
|
||||
key = "LAENGE";
|
||||
: radio_button {
|
||||
label = "2 m";
|
||||
key = "LAENGE_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "3 m";
|
||||
key = "LAENGE_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "5 m";
|
||||
key = "LAENGE_3";
|
||||
}
|
||||
: radio_button {
|
||||
label = "10 m";
|
||||
key = "LAENGE_4";
|
||||
}
|
||||
}
|
||||
}
|
||||
spacer;
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,641 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; EINGAENGE_S ;
|
||||
;------------------------------------------------------------------------;
|
||||
; 22.09.2007 18.06.2011 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/EINGAENGE_F.DCL")))
|
||||
(if (not (new_dialog "EINGAENGE_F" Dat)) (exit))
|
||||
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(set_tile "INPUT" m_INPUT)
|
||||
(set_tile "IDENT" m_IDENT)
|
||||
(set_tile "COMPONENT" m_COMPONENT)
|
||||
(set_tile "BEZEICHNUNG" m_BEZEICHNUNG)
|
||||
(set_tile "KENNZEICHNUNG" m_KENNZEICHNUNG)
|
||||
(set_tile "FAKT" m_FAKT)
|
||||
(set_tile "ZUSATZ" m_ZUSATZ)
|
||||
(set_tile "SPS-NR" m_SPS-NR)
|
||||
(set_tile "PREFIX" m_PREFIX) ; B,S oder E
|
||||
(set_tile "IO-BEZ" m_IO-BEZ)
|
||||
(set_tile "IO-BEZ-RECHTS" m_IO-BEZ-RECHTS)
|
||||
(set_tile "LAENGE" m_LAENGE)
|
||||
|
||||
(mode_tile "anzeige" 0)
|
||||
(SetDia)
|
||||
(ACTION_TILE "DWG_NAME" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i00)")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sk110_k)")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sk60_k)")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_pos)")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_vl)")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_farbe)")
|
||||
)
|
||||
) ; end cond
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq WINKEL1 0)
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_SPS-NR (get_tile "SPS-NR"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_LAENGE (get_tile "LAENGE"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_INPUT (get_tile "INPUT"))
|
||||
(setq m_IDENT (get_tile "IDENT"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_BEZEICHNUNG (get_tile "BEZEICHNUNG"))
|
||||
(setq m_KENNZEICHNUNG (get_tile "KENNZEICHNUNG"))
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_LAENGE (get_tile "LAENGE"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_SPS-NR (get_tile "SPS-NR"))
|
||||
(setq FAKTO (atof m_FAKT))
|
||||
(InputStringAnalyse)
|
||||
)
|
||||
|
||||
(defun InputStringAnalyse()
|
||||
(setq DisplayString "")
|
||||
(setq InputLaenge (strlen m_INPUT))
|
||||
; (alert (itoa InputLaenge))
|
||||
(if (or (> InputLaenge 4) (= InputLaenge 0))
|
||||
(progn
|
||||
(alert "Mehr als 4 Stellen nicht bzw. LEERE Eingabe nicht erlaubt")
|
||||
(exit)
|
||||
)
|
||||
)
|
||||
|
||||
(cond
|
||||
((= InputLaenge 1)
|
||||
(setq DisplayString (strcat "000" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 2)
|
||||
(setq DisplayString (strcat "00" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 3)
|
||||
(setq DisplayString (strcat "0" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 4)
|
||||
(setq DisplayString m_INPUT)
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_COMPONENT "0")
|
||||
(if (> (strlen m_ZUSATZ) 0 )
|
||||
(progn
|
||||
(setq VERWENDUNG m_ZUSATZ)
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
(progn
|
||||
(setq VERWENDUNG "NO-ID")
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
)
|
||||
)
|
||||
) ; end cond
|
||||
; (alert verwendung)
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(setq BL_NAME "") ;Blinde Eintragung
|
||||
(setq BEZEICHNUNG "")
|
||||
(setq BEZ1 "")
|
||||
(setq BEZ2 "")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
)
|
||||
((= m_DWG_NAME "1") ; Sensor Kapazitiv mit Halter für AP110 + Sensor
|
||||
(setq BL_NAME "826904049")
|
||||
(setq BEZEICHNUNG "SENSOR KAP.MIT HALTER F.AP110")
|
||||
(setq BEZEICHNUNG_BG "SENSOR KAP.MIT HALTER F.AP110")
|
||||
(setq BEZ1 "SK110")
|
||||
)
|
||||
((= m_DWG_NAME "2") ; Sensor Kapazitiv mit Halter für AP60 + Sensor
|
||||
(setq BL_NAME "826904050")
|
||||
(setq BEZEICHNUNG "SENSOR KAP.MIT HALTER F.AP60")
|
||||
(setq BEZEICHNUNG_BG "SENSOR KAP.MIT HALTER F.AP60")
|
||||
(setq BEZ1 "SK60")
|
||||
)
|
||||
((= m_DWG_NAME "3") ; Abfrage Spulenposition
|
||||
(setq BL_NAME "720002003")
|
||||
(setq BEZEICHNUNG "SENSOR INDU. M18/12MM 150MM KABEL MIT STECKER M12")
|
||||
(setq BEZEICHNUNG_BG "ABFRAGE SPULENPOSITION")
|
||||
(setq BEZ1 "POSI")
|
||||
)
|
||||
((= m_DWG_NAME "4") ; Abfrage Spule VOLL/LEER
|
||||
(setq BL_NAME "721001034")
|
||||
(setq BEZEICHNUNG "LICHTTASTER STECKBAR VTE18-3F2740; TASTW:200 MM")
|
||||
(setq BEZEICHNUNG_BG "ABFRAGE SPULE VOLL/LEER")
|
||||
(setq BEZ1 "V-L")
|
||||
)
|
||||
((= m_DWG_NAME "5") ; Abfrage SpulenFARBE
|
||||
(setq BL_NAME "721002003")
|
||||
(setq BEZEICHNUNG "KEYENCE- FARBSENSOR (FASEROPTIK)")
|
||||
(setq BEZEICHNUNG_BG "ABFRAGE SPULENFARBE")
|
||||
(setq BEZ1 "FARBE")
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
(setq BEZ2 "ASI-2")
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
(setq BEZ2 "ASI-3")
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
(setq BEZ2 "ASI-5")
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
(setq BEZ2 "ASI10")
|
||||
)
|
||||
)
|
||||
|
||||
(cond
|
||||
((= m_PREFIX "PREFIX_1")
|
||||
(setq _PREFIX "B")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_2")
|
||||
(setq _PREFIX "E")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_3")
|
||||
(setq _PREFIX "S")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_4")
|
||||
(setq _PREFIX "IPB")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_5")
|
||||
(setq _PREFIX "PB")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_6")
|
||||
(setq _PREFIX "PRS")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_7")
|
||||
(setq _PREFIX "CB")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_8")
|
||||
(setq _PREFIX "I")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
)
|
||||
|
||||
;----------------------------------------------------------------------------------------------------------------
|
||||
(setq AUSWAHL-SATZ-ROTATE nil) ; wird am Ende ROTATE
|
||||
(setq AUSWAHL-SATZ nil) ; Blockbildung
|
||||
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(setvar "osmode" 0)
|
||||
(bl-name P0) ;--> Block-Name definieren -> Rückgabe: element-name
|
||||
|
||||
;jh (setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P10 (list (+ (car p0) (+ (* FAKTO 830)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
;(setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
(setq P11 (list (+ (car p0) (+ (* FAKTO 830)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
(setq P12 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
;jh (setq P13 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P13 (list (+ (car p0) (* FAKTO 0)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P14 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
;jh (setq P14 (list (+ (car p0) (* FAKTO 340)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
|
||||
;<<<Text>>>
|
||||
(setq P1 (list (+ (car p12) (* FAKTO 380)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P2 (list (+ (car p12) (* FAKTO 550)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P3 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 220)) (caddr p12)))
|
||||
(setq P4 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 120)) (caddr p12)))
|
||||
(setq P5 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 10)) (caddr p12)))
|
||||
(setq P6 (list (- (car p12) (* FAKTO 320)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
;jh (setq P6 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
(setq P7 (list (+ (car p0) (+ (* FAKTO 1200)) (* 150 ANZ_CHARACT)) (+ (cadr p12) (* FAKTO 100)) (caddr p12)))
|
||||
|
||||
(command "_layer" "_m" "EINGANG" "_c" "6" "" "")
|
||||
|
||||
;<<< IO Einfügen
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "")
|
||||
|
||||
(if (= m_IO-BEZ "1") ; IO-Bezeichnung = Artikelbezeichnung
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
|
||||
|
||||
;>>> Byteweise arbeiten. Wenn die letzte Zahl "7" dann auf "10" aufrunden
|
||||
(setq LAENGE_m_INPUT (strlen m_INPUT))
|
||||
(if (= (substr m_INPUT LAENGE_m_INPUT 1) "7")
|
||||
(setq m_INPUT (itoa (+ 3 (atoi m_INPUT))))
|
||||
(setq m_INPUT (itoa (+ 1 (atoi m_INPUT))))
|
||||
)
|
||||
|
||||
;<<< Korpus zeichnen ---------------------------------------
|
||||
(command "_layer" "_m" "EINGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P13 P10 P11 P14 P13 "")
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
;<<<< Zusatztext >>>>>>>
|
||||
(if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8"))
|
||||
(progn
|
||||
(setq x_length (+ 1170 (* (strlen m_Zusatz) 160)))
|
||||
(setq P15 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
(setq P16 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (- (cadr p11) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
|
||||
(command "_text" P7 (rtos (* FAKTO 150)) "0" m_ZUSATZ)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P10 P15 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P15 P16 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P16 P11 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_point" P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
(progn
|
||||
(setq P15 (list (car p10) (cadr p10) (caddr p10)))
|
||||
(setq P16 (list (car p11) (cadr p11) (caddr p11)))
|
||||
(command "_point" P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
;<<<< SPS-NR checken - wenn eingetragen dann einrahmen >>>>>>>
|
||||
(if (> (strlen m_SPS-NR) 0 )
|
||||
(progn
|
||||
(setq left_length (* (strlen m_SPS-NR) 160))
|
||||
(setq P17 (list (- (car p13) (* FAKTO left_length)) (+ (cadr p13) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P18 (list (- (car p13) (* FAKTO left_length)) (- (cadr p13) (* FAKTO 360)) (caddr p0)))
|
||||
|
||||
(command "_layer" "_m" "EINGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P13 P14 P18 P17 P13 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
;----------------------------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
;<<<<<<<<< IO-Bezeichnung auch als TEXT rechts einfügen
|
||||
(if (= m_IO-BEZ-RECHTS "1")
|
||||
(progn
|
||||
(setq P8 (list (+ (car p16) (* FAKTO 100)) (+ (cadr p16) (* FAKTO 100)) (caddr p16)))
|
||||
(command "_text" P8 (rtos (* FAKTO 150)) "0" m_BEZEICHNUNG)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
|
||||
(if (= m_DWG_NAME "0")
|
||||
(progn
|
||||
(mach-block-ohne-prop P0 "0" AUSWAHL-SATZ)
|
||||
)
|
||||
(progn
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "0" "9" "0" (strcat _PREFIX DisplayString) block-kennung BL_NAME BEZEICHNUNG "1" "")
|
||||
)
|
||||
)
|
||||
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
(setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
|
||||
:<<<-------------------------------------------------------------------
|
||||
|
||||
;<<<< BAUGRUPPEN >>>
|
||||
(cond
|
||||
((= m_DWG_NAME "1") ; Sensor Kapazitiv mit Halter für AP110 + Sensor + ASI-Kabel ...
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 2M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 3M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
(EINZELTEIL P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 5M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
(EINZELTEIL P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 10M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
)
|
||||
((= m_DWG_NAME "2") ; Sensor Kapazitiv mit Halter für AP110 + Sensor + ASI-Kabel ...
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 2M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 3M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
(EINZELTEIL P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 5M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
(EINZELTEIL P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 10M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
)
|
||||
((= m_DWG_NAME "3") ; Abfrage Spulenposition
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 2M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 3M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 5M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 10M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
)
|
||||
((= m_DWG_NAME "4") ; Abfrage Spule VOLL/LEER mit ASI Kabel
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 2M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 3M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 5M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 10M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
)
|
||||
((= m_DWG_NAME "5") ; Abfrage Spulenfarbe
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< Sensorkopf
|
||||
(EINZELTEIL P0 "721002004" "KEYENCE- RGB-SENSORKOPF" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+SENSORKOPF"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 2M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< Sensorkopf
|
||||
(EINZELTEIL P0 "721002004" "KEYENCE- RGB-SENSORKOPF" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+SENSORKOPF"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 3M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< Sensorkopf
|
||||
(EINZELTEIL P0 "721002004" "KEYENCE- RGB-SENSORKOPF" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+SENSORKOPF"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 5M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< Sensorkopf
|
||||
(EINZELTEIL P0 "721002004" "KEYENCE- RGB-SENSORKOPF" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+SENSORKOPF"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 10M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (P1 E_ARTINR E_BEZEICHNUNG E_MENGE)
|
||||
(setq WINKEL1 (+ WINKEL1 10))
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/d_einzel") P13 "" "" (rtos WINKEL1))
|
||||
(attribute-aendern "0" "0" "29" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:EINGAENGE_F ( / DWG_NAME BL_NAME P0)
|
||||
(setvar "limcheck" 0)
|
||||
(setvar "CMDECHO" 0)
|
||||
(setvar "BLIPMODE" 0)
|
||||
(setq ALTFANG (getvar "osmode"))
|
||||
(setq EINZEL 0) ; fuer EINZEL=0 Baugruppen / EINZEL=1 fuer APB
|
||||
(prompt "**** EINGÄNGE SPINNEREI *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl
|
||||
(if (null m_INPUT) (setq m_INPUT "1")) ; Input Bit
|
||||
(if (null m_IDENT) (setq m_IDENT "1000")) ; ID
|
||||
(if (null m_COMPONENT) (setq m_COMPONENT "0")) ; Verwendung
|
||||
(if (null m_BEZEICHNUNG) (setq m_BEZEICHNUNG "xxxxxxxxxxxxxxx")) ; BEZEICHNUNG
|
||||
(if (null m_KENNZEICHNUNG) (setq m_KENNZEICHNUNG "=Axx+Exxx-Axxx")) ; KENNZEICHNUNG
|
||||
(if (null m_FAKT) (setq m_FAKT "1")) ; Skalierungsfaktor
|
||||
(if (null m_ZUSATZ) (setq m_ZUSATZ "")) ; Zusatztext
|
||||
(if (null m_SPS-NR) (setq m_SPS-NR "")) ;SPS Prefix
|
||||
(if (null m_PREFIX) (setq m_PREFIX "PREFIX_1")) ; Prefix (B,E oder S)
|
||||
(if (null m_IO-BEZ) (setq m_IO-BEZ "0")) ; Bezeicnung nicht der Artikelbezeichnung gleichsetzen
|
||||
(if (null m_IO-BEZ-RECHTS) (setq m_IO-BEZ-RECHTS "0")) ; Bezeicnung als Text rechts andrucken
|
||||
(if (null m_LAENGE) (setq m_LAENGE "LAENGE_1")) ; Länge 2m/3m/5m/10m
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,619 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; EINGAENGE_S ;
|
||||
;------------------------------------------------------------------------;
|
||||
; 22.09.2007 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/EINGAENGE_F.DCL")))
|
||||
(if (not (new_dialog "EINGAENGE_F" Dat)) (exit))
|
||||
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(set_tile "INPUT" m_INPUT)
|
||||
(set_tile "IDENT" m_IDENT)
|
||||
(set_tile "COMPONENT" m_COMPONENT)
|
||||
(set_tile "BEZEICHNUNG" m_BEZEICHNUNG)
|
||||
(set_tile "KENNZEICHNUNG" m_KENNZEICHNUNG)
|
||||
(set_tile "FAKT" m_FAKT)
|
||||
(set_tile "ZUSATZ" m_ZUSATZ)
|
||||
(set_tile "PREFIX" m_PREFIX) ; B,S oder E
|
||||
(set_tile "IO-BEZ" m_IO-BEZ)
|
||||
(set_tile "IO-BEZ-RECHTS" m_IO-BEZ-RECHTS)
|
||||
(set_tile "LAENGE" m_LAENGE)
|
||||
|
||||
(mode_tile "anzeige" 0)
|
||||
(SetDia)
|
||||
(ACTION_TILE "DWG_NAME" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i00)")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sk110_k)")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sk60_k)")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_pos)")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_vl)")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(slide_image 0 0 breite hoehe "steuerg(sp_farbe)")
|
||||
)
|
||||
) ; end cond
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq WINKEL1 0)
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_LAENGE (get_tile "LAENGE"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_INPUT (get_tile "INPUT"))
|
||||
(setq m_IDENT (get_tile "IDENT"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_BEZEICHNUNG (get_tile "BEZEICHNUNG"))
|
||||
(setq m_KENNZEICHNUNG (get_tile "KENNZEICHNUNG"))
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_LAENGE (get_tile "LAENGE"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq FAKTO (atof m_FAKT))
|
||||
(InputStringAnalyse)
|
||||
)
|
||||
|
||||
(defun InputStringAnalyse()
|
||||
(setq DisplayString "")
|
||||
(setq InputLaenge (strlen m_INPUT))
|
||||
; (alert (itoa InputLaenge))
|
||||
(if (or (> InputLaenge 4) (= InputLaenge 0))
|
||||
(progn
|
||||
(alert "Mehr als 4 Stellen nicht bzw. LEERE Eingabe nicht erlaubt")
|
||||
(exit)
|
||||
)
|
||||
)
|
||||
|
||||
(cond
|
||||
((= InputLaenge 1)
|
||||
(setq DisplayString (strcat "000" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 2)
|
||||
(setq DisplayString (strcat "00" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 3)
|
||||
(setq DisplayString (strcat "0" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 4)
|
||||
(setq DisplayString m_INPUT)
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_COMPONENT "0")
|
||||
(if (> (strlen m_ZUSATZ) 0 )
|
||||
(progn
|
||||
(setq VERWENDUNG m_ZUSATZ)
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
(progn
|
||||
(setq VERWENDUNG "NO-ID")
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
)
|
||||
)
|
||||
) ; end cond
|
||||
; (alert verwendung)
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(setq BL_NAME "") ;Blinde Eintragung
|
||||
(setq BEZEICHNUNG "")
|
||||
(setq BEZ1 "")
|
||||
(setq BEZ2 "")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
)
|
||||
((= m_DWG_NAME "1") ; Sensor Kapazitiv mit Halter für AP110 + Sensor
|
||||
(setq BL_NAME "826904049")
|
||||
(setq BEZEICHNUNG "SENSOR KAP.MIT HALTER F.AP110")
|
||||
(setq BEZEICHNUNG_BG "SENSOR KAP.MIT HALTER F.AP110")
|
||||
(setq BEZ1 "SK110")
|
||||
)
|
||||
((= m_DWG_NAME "2") ; Sensor Kapazitiv mit Halter für AP60 + Sensor
|
||||
(setq BL_NAME "826904050")
|
||||
(setq BEZEICHNUNG "SENSOR KAP.MIT HALTER F.AP60")
|
||||
(setq BEZEICHNUNG_BG "SENSOR KAP.MIT HALTER F.AP60")
|
||||
(setq BEZ1 "SK60")
|
||||
)
|
||||
((= m_DWG_NAME "3") ; Abfrage Spulenposition
|
||||
(setq BL_NAME "720002003")
|
||||
(setq BEZEICHNUNG "SENSOR INDU. M18/12MM 150MM KABEL MIT STECKER M12")
|
||||
(setq BEZEICHNUNG_BG "ABFRAGE SPULENPOSITION")
|
||||
(setq BEZ1 "POSI")
|
||||
)
|
||||
((= m_DWG_NAME "4") ; Abfrage Spule VOLL/LEER
|
||||
(setq BL_NAME "721001034")
|
||||
(setq BEZEICHNUNG "LICHTTASTER STECKBAR VTE18-3F2740; TASTW:200 MM")
|
||||
(setq BEZEICHNUNG_BG "ABFRAGE SPULE VOLL/LEER")
|
||||
(setq BEZ1 "V-L")
|
||||
)
|
||||
((= m_DWG_NAME "5") ; Abfrage SpulenFARBE
|
||||
(setq BL_NAME "721002003")
|
||||
(setq BEZEICHNUNG "KEYENCE- FARBSENSOR (FASEROPTIK)")
|
||||
(setq BEZEICHNUNG_BG "ABFRAGE SPULENFARBE")
|
||||
(setq BEZ1 "FARBE")
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
(setq BEZ2 "ASI-2")
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
(setq BEZ2 "ASI-3")
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
(setq BEZ2 "ASI-5")
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
(setq BEZ2 "ASI10")
|
||||
)
|
||||
)
|
||||
|
||||
(cond
|
||||
((= m_PREFIX "PREFIX_1")
|
||||
(setq _PREFIX "B")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_2")
|
||||
(setq _PREFIX "E")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_3")
|
||||
(setq _PREFIX "S")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_4")
|
||||
(setq _PREFIX "IPB")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_5")
|
||||
(setq _PREFIX "PB")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_6")
|
||||
(setq _PREFIX "PRS")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_7")
|
||||
(setq _PREFIX "CB")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_8")
|
||||
(setq _PREFIX "I")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE nil) ; wird am Ende ROTATE
|
||||
(setq AUSWAHL-SATZ nil) ; Blockbildung
|
||||
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(setvar "osmode" 0)
|
||||
(bl-name P0) ;--> Block-Name definieren -> Rückgabe: element-name
|
||||
|
||||
(setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(setq P12 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
(setq P13 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P14 (list (+ (car p0) (* FAKTO 340)) (- (cadr p0) (* FAKTO 330)) (caddr p0)))
|
||||
|
||||
;<<<Text>>>
|
||||
(setq P1 (list (+ (car p12) (* FAKTO 380)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P2 (list (+ (car p12) (* FAKTO 550)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P3 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 220)) (caddr p12)))
|
||||
(setq P4 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 120)) (caddr p12)))
|
||||
(setq P5 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 10)) (caddr p12)))
|
||||
(setq P6 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
(setq P7 (list (+ (car p12) (* FAKTO 1200)) (+ (cadr p12) (* FAKTO 100)) (caddr p12)))
|
||||
|
||||
(command "_layer" "_m" "EINGANG" "_c" "6" "" "")
|
||||
|
||||
;<<< IO Einfügen
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "")
|
||||
|
||||
(if (= m_IO-BEZ "1") ; IO-Bezeichnung = Artikelbezeichnung
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG BEZEICHNUNG m_KENNZEICHNUNG)
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
|
||||
|
||||
;>>> Byteweise arbeiten. Wenn die letzte Zahl "7" dann auf "10" aufrunden
|
||||
(setq LAENGE_m_INPUT (strlen m_INPUT))
|
||||
(if (= (substr m_INPUT LAENGE_m_INPUT 1) "7")
|
||||
(setq m_INPUT (itoa (+ 3 (atoi m_INPUT))))
|
||||
(setq m_INPUT (itoa (+ 1 (atoi m_INPUT))))
|
||||
)
|
||||
|
||||
;<<< Korpus zeichnen ---------------------------------------
|
||||
(command "_layer" "_m" "EINGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P0 "_w" "0" "0" P10 P11 P12 P0 "")
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P13 P14 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;<<< Beschreibung als Text hinzufügen
|
||||
(command "_text" P3 (rtos (* FAKTO 70)) "0" BEZ1)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_text" P4 (rtos (* FAKTO 70)) "0" BEZ2)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
; ;<<<< Zusatztext >>>>>>>
|
||||
; (if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8"))
|
||||
; (progn
|
||||
; (setq x_length (+ 1170 (* (strlen m_Zusatz) 160)))
|
||||
; (setq P15 (list (+ (car p0) (* FAKTO x_length)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
; (setq P16 (list (+ (car p0) (* FAKTO x_length)) (- (cadr p0) (* FAKTO 330)) (caddr p0))) ;Zusatztext
|
||||
|
||||
; (command "_text" P7 (rtos (* FAKTO 150)) "0" m_ZUSATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
; (command "_pline" P10 P15 "")
|
||||
; (ssadd (entlast) AUSWAHL-SATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
; (command "_pline" P15 P16 "")
|
||||
; (ssadd (entlast) AUSWAHL-SATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
; (command "_pline" P16 P11 "")
|
||||
; (ssadd (entlast) AUSWAHL-SATZ)
|
||||
; (ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
; )
|
||||
; (progn
|
||||
(setq P15 (list (car p10) (cadr p10) (caddr p10)))
|
||||
(setq P16 (list (car p11) (cadr p11) (caddr p11)))
|
||||
; )
|
||||
; )
|
||||
;<<<<<<<<< IO-Bezeichnung auch als TEXT rechts einfügen
|
||||
(if (= m_IO-BEZ-RECHTS "1")
|
||||
(progn
|
||||
(setq P8 (list (+ (car p16) (* FAKTO 100)) (+ (cadr p16) (* FAKTO 100)) (caddr p16)))
|
||||
(command "_text" P8 (rtos (* FAKTO 150)) "0" m_BEZEICHNUNG)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
|
||||
(if (= m_DWG_NAME "0")
|
||||
(progn
|
||||
(mach-block-ohne-prop P0 "0" AUSWAHL-SATZ)
|
||||
)
|
||||
(progn
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "0" "9" "0" (strcat _PREFIX DisplayString) block-kennung BL_NAME BEZEICHNUNG "1" "")
|
||||
)
|
||||
)
|
||||
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
(setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
|
||||
:<<<-------------------------------------------------------------------
|
||||
|
||||
;<<<< BAUGRUPPEN >>>
|
||||
(cond
|
||||
((= m_DWG_NAME "1") ; Sensor Kapazitiv mit Halter für AP110 + Sensor + ASI-Kabel ...
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 2M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 3M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
(EINZELTEIL P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 5M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
(EINZELTEIL P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 10M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
)
|
||||
((= m_DWG_NAME "2") ; Sensor Kapazitiv mit Halter für AP110 + Sensor + ASI-Kabel ...
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 2M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 3M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
(EINZELTEIL P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 5M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
(EINZELTEIL P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 10M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
)
|
||||
((= m_DWG_NAME "3") ; Abfrage Spulenposition
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 2M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 3M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 5M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 10M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
)
|
||||
((= m_DWG_NAME "4") ; Abfrage Spule VOLL/LEER mit ASI Kabel
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 2M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 3M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 5M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 10M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
)
|
||||
((= m_DWG_NAME "5") ; Abfrage Spulenfarbe
|
||||
(cond
|
||||
((= m_LAENGE "LAENGE_1")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< Sensorkopf
|
||||
(EINZELTEIL P0 "721002004" "KEYENCE- RGB-SENSORKOPF" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+SENSORKOPF"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001131" "MQ12ST. GEW.->MQ12BU. GEW.2m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 2M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_2")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< Sensorkopf
|
||||
(EINZELTEIL P0 "721002004" "KEYENCE- RGB-SENSORKOPF" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+SENSORKOPF"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001132" "MQ12ST. GEW.->MQ12BU. GEW.3m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 3M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_3")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< Sensorkopf
|
||||
(EINZELTEIL P0 "721002004" "KEYENCE- RGB-SENSORKOPF" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+SENSORKOPF"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001133" "MQ12ST. GEW.->MQ12BU. GEW.5m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 5M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
((= m_LAENGE "LAENGE_4")
|
||||
;<<< Halter
|
||||
(EINZELTEIL P0 "826906133" "SENSORHALTER SPULENPRÜF. AP110 FARB- U.VOLLSPULENPRÜFUNG" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+HALTER"))
|
||||
;<<< Sensorkopf
|
||||
(EINZELTEIL P0 "721002004" "KEYENCE- RGB-SENSORKOPF" "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+SENSORKOPF"))
|
||||
;<<< 2m ASI Kabel
|
||||
(EINZELTEIL P0 "722001134" "MQ12ST. GEW.->MQ12BU. GEW.10m 3-POL." "1")
|
||||
(setq BEZEICHNUNG_BG (strcat BEZEICHNUNG_BG "+ASI-KABEL 10M"))
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (P1 E_ARTINR E_BEZEICHNUNG E_MENGE)
|
||||
(setq WINKEL1 (+ WINKEL1 10))
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/d_einzel") P0 "" "" (rtos WINKEL1))
|
||||
(attribute-aendern "0" "0" "29" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:EINGAENGE_F ( / DWG_NAME BL_NAME P0)
|
||||
(setvar "limcheck" 0)
|
||||
(setvar "CMDECHO" 0)
|
||||
(setvar "BLIPMODE" 0)
|
||||
(setq ALTFANG (getvar "osmode"))
|
||||
(setq EINZEL 0) ; fuer EINZEL=0 Baugruppen / EINZEL=1 fuer APB
|
||||
(prompt "**** EINGÄNGE SPINNEREI *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl
|
||||
(if (null m_INPUT) (setq m_INPUT "1")) ; Input Bit
|
||||
(if (null m_IDENT) (setq m_IDENT "1000")) ; ID
|
||||
(if (null m_COMPONENT) (setq m_COMPONENT "0")) ; Verwendung
|
||||
(if (null m_BEZEICHNUNG) (setq m_BEZEICHNUNG "xxxxxxxxxxxxxxx")) ; BEZEICHNUNG
|
||||
(if (null m_KENNZEICHNUNG) (setq m_KENNZEICHNUNG "=Axx+Exxx-Axxx")) ; KENNZEICHNUNG
|
||||
(if (null m_FAKT) (setq m_FAKT "1")) ; Skalierungsfaktor
|
||||
(if (null m_ZUSATZ) (setq m_ZUSATZ "")) ; Zusatztext
|
||||
(if (null m_PREFIX) (setq m_PREFIX "PREFIX_1")) ; Prefix (B,E oder S)
|
||||
(if (null m_IO-BEZ) (setq m_IO-BEZ "0")) ; Bezeicnung nicht der Artikelbezeichnung gleichsetzen
|
||||
(if (null m_IO-BEZ-RECHTS) (setq m_IO-BEZ-RECHTS "0")) ; Bezeicnung als Text rechts andrucken
|
||||
(if (null m_LAENGE) (setq m_LAENGE "LAENGE_1")) ; Länge 2m/3m/5m/10m
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,129 @@
|
||||
/* Dialogbox fuer Eingänge Sonstige */
|
||||
/* Datum: 22.9.2007 17.06.2011 AW */
|
||||
|
||||
EINGAENGE_S : dialog {
|
||||
label = "STEUERUNG-EINGÄNGE";
|
||||
spacer;
|
||||
: row {
|
||||
: list_box {
|
||||
label = "Eingänge";
|
||||
key = "DWG_NAME";
|
||||
mnemonic = "H";
|
||||
list = "BLIND\nSK700 AP\nSK700 ST\nSK200 AP\nSK200 ST\nSK200 KF\nUH F.ST\nUH F.AP\nRS KF\nRS AFS/ST\nRS AP\nSS-L 450\nSS-R 450\nHS WS+DS";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
: image {
|
||||
height = 10;
|
||||
width = 40;
|
||||
color = 7;
|
||||
key = "anzeige";
|
||||
}
|
||||
: list_box {
|
||||
label = "Verwendung";
|
||||
key = "COMPONENT";
|
||||
mnemonic = "H";
|
||||
list = "NO-ID";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
}
|
||||
|
||||
: row {
|
||||
:column {
|
||||
: edit_box {
|
||||
label = "Input:";
|
||||
allow_accept = true;
|
||||
key = "INPUT";
|
||||
value = 1;
|
||||
}
|
||||
: edit_box {
|
||||
label = "ID:";
|
||||
allow_accept = true;
|
||||
key = "IDENT";
|
||||
value = 1000;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Bezeichnung:";
|
||||
allow_accept = true;
|
||||
key = "BEZEICHNUNG";
|
||||
value = xxxxxxxxx;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Kennzeichnung:";
|
||||
allow_accept = true;
|
||||
key = "KENNZEICHNUNG";
|
||||
}
|
||||
: edit_box {
|
||||
label="Skalierungsfaktor";
|
||||
key="FAKT";
|
||||
value = 1;
|
||||
mnemonic="F";
|
||||
}
|
||||
: edit_box {
|
||||
label="Zusatztext";
|
||||
key="ZUSATZ";
|
||||
}
|
||||
: edit_box {
|
||||
label="SPS-Prefix";
|
||||
key="SPS-NR";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung=Artikel-Bezeichnung";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung auch als Text RECHTS";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ-RECHTS";
|
||||
}
|
||||
}
|
||||
: boxed_radio_column {
|
||||
label = "BMK";
|
||||
key = "PREFIX";
|
||||
: radio_button {
|
||||
label = "B";
|
||||
key = "PREFIX_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "E";
|
||||
key = "PREFIX_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "S";
|
||||
key = "PREFIX_3";
|
||||
}
|
||||
: radio_button {
|
||||
label = "IPB";
|
||||
key = "PREFIX_4";
|
||||
}
|
||||
: radio_button {
|
||||
label = "PB";
|
||||
key = "PREFIX_5";
|
||||
}
|
||||
: radio_button {
|
||||
label = "PRS";
|
||||
key = "PREFIX_6";
|
||||
}
|
||||
: radio_button {
|
||||
label = "CB";
|
||||
key = "PREFIX_7";
|
||||
}
|
||||
: radio_button {
|
||||
label = "I";
|
||||
key = "PREFIX_8";
|
||||
}
|
||||
: radio_button {
|
||||
label = "C";
|
||||
key = "PREFIX_9";
|
||||
}
|
||||
: radio_button {
|
||||
label = "P";
|
||||
key = "PREFIX_10";
|
||||
}
|
||||
}
|
||||
}
|
||||
spacer;
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,483 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; EINGAENGE_S ;
|
||||
;------------------------------------------------------------------------;
|
||||
; 22.09.2007 16.06.2011 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/EINGAENGE_S.DCL")))
|
||||
(if (not (new_dialog "EINGAENGE_S" Dat)) (exit))
|
||||
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(set_tile "INPUT" m_INPUT)
|
||||
(set_tile "IDENT" m_IDENT)
|
||||
(set_tile "COMPONENT" m_COMPONENT)
|
||||
(set_tile "BEZEICHNUNG" m_BEZEICHNUNG)
|
||||
(set_tile "KENNZEICHNUNG" m_KENNZEICHNUNG)
|
||||
(set_tile "FAKT" m_FAKT)
|
||||
(set_tile "ZUSATZ" m_ZUSATZ)
|
||||
(set_tile "SPS-NR" m_SPS-NR)
|
||||
(set_tile "PREFIX" m_PREFIX) ; B,S,E,PB,PRS,CB,I
|
||||
(set_tile "IO-BEZ" m_IO-BEZ)
|
||||
(set_tile "IO-BEZ-RECHTS" m_IO-BEZ-RECHTS)
|
||||
|
||||
(mode_tile "anzeige" 0)
|
||||
(SetDia)
|
||||
(ACTION_TILE "DWG_NAME" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i00)")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "steuerg(27072013)")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(slide_image 0 0 breite hoehe "steuerg(27072014)")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "steuerg(27072015)")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(slide_image 0 0 breite hoehe "steuerg(27072016)")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(slide_image 0 0 breite hoehe "steuerg(27074011)")
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(slide_image 0 0 breite hoehe "steuerg(27074007)")
|
||||
)
|
||||
((= m_DWG_NAME "7")
|
||||
(slide_image 0 0 breite hoehe "steuerg(27074008)")
|
||||
)
|
||||
((= m_DWG_NAME "8")
|
||||
(slide_image 0 0 breite hoehe "steuerg(22035037)")
|
||||
)
|
||||
((= m_DWG_NAME "9")
|
||||
(slide_image 0 0 breite hoehe "steuerg(22035100)")
|
||||
)
|
||||
((= m_DWG_NAME "10")
|
||||
(slide_image 0 0 breite hoehe "steuerg(22035102)")
|
||||
)
|
||||
((= m_DWG_NAME "11")
|
||||
(slide_image 0 0 breite hoehe "steuerg(24604011)")
|
||||
)
|
||||
((= m_DWG_NAME "12")
|
||||
(slide_image 0 0 breite hoehe "steuerg(24604012)")
|
||||
)
|
||||
((= m_DWG_NAME "13")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001017)")
|
||||
)
|
||||
) ; end cond
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq WINKEL1 0)
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_SPS-NR (get_tile "SPS-NR"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_INPUT (get_tile "INPUT"))
|
||||
(setq m_IDENT (get_tile "IDENT"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_BEZEICHNUNG (get_tile "BEZEICHNUNG"))
|
||||
(setq m_KENNZEICHNUNG (get_tile "KENNZEICHNUNG"))
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_SPS-NR (get_tile "SPS-NR"))
|
||||
(setq FAKTO (atof m_FAKT))
|
||||
(InputStringAnalyse)
|
||||
)
|
||||
|
||||
(defun InputStringAnalyse()
|
||||
(setq DisplayString "")
|
||||
(setq InputLaenge (strlen m_INPUT))
|
||||
; (alert (itoa InputLaenge))
|
||||
(if (or (> InputLaenge 4) (= InputLaenge 0))
|
||||
(progn
|
||||
(alert "Mehr als 4 Stellen nicht bzw. LEERE Eingabe nicht erlaubt")
|
||||
(exit)
|
||||
)
|
||||
)
|
||||
|
||||
(cond
|
||||
((= InputLaenge 1)
|
||||
(setq DisplayString (strcat "000" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 2)
|
||||
(setq DisplayString (strcat "00" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 3)
|
||||
(setq DisplayString (strcat "0" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 4)
|
||||
(setq DisplayString m_INPUT)
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_COMPONENT "0")
|
||||
(setq VERWENDUNG "NO-ID")
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
) ; end cond
|
||||
; (alert verwendung)
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(setq BL_NAME "") ;Blinde Eintragung
|
||||
(setq BEZEICHNUNG "")
|
||||
(setq BEZ1 "")
|
||||
(setq BEZ2 "")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(setq BL_NAME "827072013")
|
||||
(setq BEZEICHNUNG "STAUKLAPPE 700 AP KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SK")
|
||||
(setq BEZ2 "700")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(setq BL_NAME "827072014")
|
||||
(setq BEZEICHNUNG "STAUKLAPPE 700 ST KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SK")
|
||||
(setq BEZ2 "700")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(setq BL_NAME "827072015")
|
||||
(setq BEZEICHNUNG "STAUKLAPPE 200 AP KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SK")
|
||||
(setq BEZ2 "200")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(setq BL_NAME "827072016")
|
||||
(setq BEZEICHNUNG "STAUKLAPPE 200 ST KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SK")
|
||||
(setq BEZ2 "200")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(setq BL_NAME "827074011")
|
||||
(setq BEZEICHNUNG "STAUKLAPPE 200 KF KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SK")
|
||||
(setq BEZ2 "200")
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(setq BL_NAME "827074007")
|
||||
(setq BEZEICHNUNG "HALTER TRAVERSENABFRAGE ST OHNE SENSOR")
|
||||
(setq BEZEICHNUNG_BG "HALTER TRAVERSENABFRAGE ST KPL.")
|
||||
(setq BEZ1 "UH")
|
||||
(setq BEZ2 "ST")
|
||||
)
|
||||
((= m_DWG_NAME "7")
|
||||
(setq BL_NAME "827074008")
|
||||
(setq BEZEICHNUNG "HALTER TRAVERSENABFRAGE AP OHNE SENSOR")
|
||||
(setq BEZEICHNUNG_BG "HALTER TRAVERSENABFRAGE AP KPL.")
|
||||
(setq BEZ1 "UH")
|
||||
(setq BEZ2 "AP")
|
||||
)
|
||||
((= m_DWG_NAME "8")
|
||||
(setq BL_NAME "822035037")
|
||||
(setq BEZEICHNUNG "ROLLENSCHALTER KF KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "RS")
|
||||
(setq BEZ2 "KF")
|
||||
)
|
||||
((= m_DWG_NAME "9")
|
||||
(setq BL_NAME "822035100")
|
||||
(setq BEZEICHNUNG "ROLLENSCHALTER AFS/ST KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "RF/ST")
|
||||
(setq BEZ2 "AFS")
|
||||
)
|
||||
((= m_DWG_NAME "10")
|
||||
(setq BL_NAME "822035102")
|
||||
(setq BEZEICHNUNG "ROLLENSCHLATER AP KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "RS")
|
||||
(setq BEZ2 "AP")
|
||||
)
|
||||
((= m_DWG_NAME "11")
|
||||
(setq BL_NAME "824604011")
|
||||
(setq BEZEICHNUNG "SCHWENKSCHIENE 450 LINKS KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SS")
|
||||
(setq BEZ2 "LINK")
|
||||
)
|
||||
((= m_DWG_NAME "12")
|
||||
(setq BL_NAME "824604012")
|
||||
(setq BEZEICHNUNG "SCHWENKSCHIENE 450 LINKS KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SS")
|
||||
(setq BEZ2 "RECH")
|
||||
)
|
||||
((= m_DWG_NAME "13")
|
||||
(setq BL_NAME "701004005")
|
||||
(setq BEZEICHNUNG "HILFSCHALTER WS/DS")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "HS")
|
||||
(setq BEZ2 "WSDS")
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_PREFIX "PREFIX_1")
|
||||
(setq _PREFIX "B")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_2")
|
||||
(setq _PREFIX "E")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_3")
|
||||
(setq _PREFIX "S")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_4")
|
||||
(setq _PREFIX "IPB")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_5")
|
||||
(setq _PREFIX "PB")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_6")
|
||||
(setq _PREFIX "PRS")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_7")
|
||||
(setq _PREFIX "CB")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_8")
|
||||
(setq _PREFIX "I")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_9")
|
||||
(setq _PREFIX "C")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_10")
|
||||
(setq _PREFIX "P")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
)
|
||||
|
||||
;----------------------------------------------------------------------------------------------------------------
|
||||
(setq AUSWAHL-SATZ-ROTATE nil) ; wird am Ende ROTATE
|
||||
(setq AUSWAHL-SATZ nil) ; Blockbildung
|
||||
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(setvar "osmode" 0)
|
||||
(bl-name P0) ;--> Block-Name definieren -> Rückgabe: element-name
|
||||
|
||||
;jh (setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P10 (list (+ (car p0) (+ (* FAKTO 830)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
;(setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
(setq P11 (list (+ (car p0) (+ (* FAKTO 830)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
(setq P12 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
;jh (setq P13 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P13 (list (+ (car p0) (* FAKTO 0)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P14 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
;jh (setq P14 (list (+ (car p0) (* FAKTO 340)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
|
||||
;<<<Text>>>
|
||||
(setq P1 (list (+ (car p12) (* FAKTO 380)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P2 (list (+ (car p12) (* FAKTO 550)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P3 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 220)) (caddr p12)))
|
||||
(setq P4 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 120)) (caddr p12)))
|
||||
(setq P5 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 10)) (caddr p12)))
|
||||
(setq P6 (list (- (car p12) (* FAKTO 320)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
;jh (setq P6 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
(setq P7 (list (+ (car p0) (+ (* FAKTO 1200)) (* 150 ANZ_CHARACT)) (+ (cadr p12) (* FAKTO 100)) (caddr p12)))
|
||||
|
||||
(command "_layer" "_m" "EINGANG" "_c" "6" "" "")
|
||||
|
||||
;<<< IO Einfügen
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "")
|
||||
|
||||
(if (= m_IO-BEZ "1") ; IO-Bezeichnung = Artikelbezeichnung
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
|
||||
|
||||
;>>> Byteweise arbeiten. Wenn die letzte Zahl "7" dann auf "10" aufrunden
|
||||
(setq LAENGE_m_INPUT (strlen m_INPUT))
|
||||
(if (= (substr m_INPUT LAENGE_m_INPUT 1) "7")
|
||||
(setq m_INPUT (itoa (+ 3 (atoi m_INPUT))))
|
||||
(setq m_INPUT (itoa (+ 1 (atoi m_INPUT))))
|
||||
)
|
||||
|
||||
;<<< Korpus zeichnen ---------------------------------------
|
||||
(command "_layer" "_m" "EINGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P13 P10 P11 P14 P13 "")
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
;<<<< Zusatztext >>>>>>>
|
||||
(if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8"))
|
||||
(progn
|
||||
(setq x_length (+ 1170 (* (strlen m_Zusatz) 160)))
|
||||
(setq P15 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
(setq P16 (list (+ (car p0) (* FAKTO x_length) (* 150 ANZ_CHARACT)) (- (cadr p11) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
|
||||
(command "_text" P7 (rtos (* FAKTO 150)) "0" m_ZUSATZ)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P10 P15 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P15 P16 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P16 P11 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_point" P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
(progn
|
||||
(setq P15 (list (car p10) (cadr p10) (caddr p10)))
|
||||
(setq P16 (list (car p11) (cadr p11) (caddr p11)))
|
||||
(command "_point" P12)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
;<<<< SPS-NR checken - wenn eingetragen dann einrahmen >>>>>>>
|
||||
(if (> (strlen m_SPS-NR) 0 )
|
||||
(progn
|
||||
(setq left_length (* (strlen m_SPS-NR) 160))
|
||||
(setq P17 (list (- (car p13) (* FAKTO left_length)) (+ (cadr p13) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P18 (list (- (car p13) (* FAKTO left_length)) (- (cadr p13) (* FAKTO 360)) (caddr p0)))
|
||||
|
||||
(command "_layer" "_m" "EINGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P13 P14 P18 P17 P13 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
;----------------------------------------------------------------------------------------------------------------
|
||||
|
||||
|
||||
;<<<<<<<<< IO-Bezeichnung auch als TEXT rechts einfügen
|
||||
(if (= m_IO-BEZ-RECHTS "1")
|
||||
(progn
|
||||
(setq P8 (list (+ (car p16) (* FAKTO 100)) (+ (cadr p16) (* FAKTO 100)) (caddr p16)))
|
||||
(command "_text" P8 (rtos (* FAKTO 150)) "0" m_BEZEICHNUNG)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
|
||||
(if (= m_DWG_NAME "0")
|
||||
(progn
|
||||
(if (> (strlen m_SPS-NR) 0 )
|
||||
(mach-block-ohne-prop P17 "0" AUSWAHL-SATZ)
|
||||
(mach-block-ohne-prop P13 "0" AUSWAHL-SATZ)
|
||||
)
|
||||
)
|
||||
(progn
|
||||
(if (> (strlen m_SPS-NR) 0 )
|
||||
(mach-block P17 "0" AUSWAHL-SATZ)
|
||||
(mach-block P13 "0" AUSWAHL-SATZ)
|
||||
)
|
||||
(attribute-aendern "0" "0" "9" "0" (strcat _PREFIX DisplayString) block-kennung BL_NAME BEZEICHNUNG "1" "")
|
||||
)
|
||||
)
|
||||
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
|
||||
;<<<-------------------------------------------------------------------
|
||||
|
||||
;<<<< BAUGRUPPEN >>>
|
||||
(if (= m_DWG_NAME "6")
|
||||
(progn
|
||||
(EINZELTEIL P0 "721000009" "REFLEXIONSLICHTTASTER" "1")
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "7")
|
||||
(progn
|
||||
(EINZELTEIL P0 "721000009" "REFLEXIONSLICHTTASTER" "1")
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
(command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (P1 E_ARTINR E_BEZEICHNUNG E_MENGE)
|
||||
(setq WINKEL1 (+ WINKEL1 10))
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/d_einzel") P13 "" "" (rtos WINKEL1))
|
||||
(attribute-aendern "0" "0" "29" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:EINGAENGE_S ( / DWG_NAME BL_NAME P0)
|
||||
(setvar "limcheck" 0)
|
||||
(setvar "CMDECHO" 0)
|
||||
(setvar "BLIPMODE" 0)
|
||||
(setq ALTFANG (getvar "osmode"))
|
||||
(setq EINZEL 0) ; fuer EINZEL=0 Baugruppen / EINZEL=1 fuer APB
|
||||
(prompt "**** EINGÄNGE B *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl
|
||||
(if (null m_INPUT) (setq m_INPUT "1")) ; Input Bit
|
||||
(if (null m_IDENT) (setq m_IDENT "1000")) ; ID
|
||||
(if (null m_COMPONENT) (setq m_COMPONENT "0")) ; Verwendung
|
||||
(if (null m_BEZEICHNUNG) (setq m_BEZEICHNUNG "xxxxxxxxxxxxxxx")) ; BEZEICHNUNG
|
||||
(if (null m_KENNZEICHNUNG) (setq m_KENNZEICHNUNG "=Axx+Exxx-Axxx")) ; KENNZEICHNUNG
|
||||
(if (null m_FAKT) (setq m_FAKT "1")) ; Skalierungsfaktor
|
||||
(if (null m_ZUSATZ) (setq m_ZUSATZ "")) ; Zusatztext
|
||||
(if (null m_SPS-NR) (setq m_SPS-NR "")) ; Zusatztext
|
||||
(if (null m_PREFIX) (setq m_PREFIX "PREFIX_1")) ; Prefix (B,E oder S)
|
||||
(if (null m_IO-BEZ) (setq m_IO-BEZ "0")) ; Bezeicnung nicht der Artikelbezeichnung gleichsetzen
|
||||
(if (null m_IO-BEZ-RECHTS) (setq m_IO-BEZ-RECHTS "0")) ; Bezeicnung als Text rechts andrucken
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,129 @@
|
||||
/* Dialogbox fuer Eingänge Spinnerei/Stockwerksautomatisierung */
|
||||
/* Datum: 22.9.2007 AW */
|
||||
|
||||
EINGAENGE_S : dialog {
|
||||
label = "STEUERUNG-EINGÄNGE";
|
||||
spacer;
|
||||
: row {
|
||||
: list_box {
|
||||
label = "Eingänge";
|
||||
key = "DWG_NAME";
|
||||
mnemonic = "H";
|
||||
list = "BLIND\nSK700 AP\nSK700 ST\nSK200 AP\nSK200 ST\nSK200 KF\nUH F.ST\nUH F.AP\nRS KF\nRS AFS/ST\nRS AP\nSS-L 450\nSS-R 450\nHS WS+DS";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
: image {
|
||||
height = 10;
|
||||
width = 40;
|
||||
color = 7;
|
||||
key = "anzeige";
|
||||
}
|
||||
: list_box {
|
||||
label = "Verwendung";
|
||||
key = "COMPONENT";
|
||||
mnemonic = "H";
|
||||
list = "NO-ID";
|
||||
width = 30;
|
||||
height = 10;
|
||||
}
|
||||
}
|
||||
|
||||
: row {
|
||||
:column {
|
||||
: edit_box {
|
||||
label = "Input:";
|
||||
allow_accept = true;
|
||||
key = "INPUT";
|
||||
value = 1;
|
||||
}
|
||||
: edit_box {
|
||||
label = "ID:";
|
||||
allow_accept = true;
|
||||
key = "IDENT";
|
||||
value = 1000;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Bezeichnung:";
|
||||
allow_accept = true;
|
||||
key = "BEZEICHNUNG";
|
||||
value = xxxxxxxxx;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Kennzeichnung:";
|
||||
allow_accept = true;
|
||||
key = "KENNZEICHNUNG";
|
||||
}
|
||||
: edit_box {
|
||||
label="Skalierungsfaktor";
|
||||
key="FAKT";
|
||||
value = 1;
|
||||
mnemonic="F";
|
||||
}
|
||||
: edit_box {
|
||||
label="Zusatztext";
|
||||
key="ZUSATZ";
|
||||
}
|
||||
: edit_box {
|
||||
label="SPS-Prefix";
|
||||
key="SPS-NR";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung=Artikel-Bezeichnung";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ";
|
||||
}
|
||||
: toggle {
|
||||
label = "Bezeichnung auch als Text RECHTS";
|
||||
mnemonic = "I";
|
||||
key = "IO-BEZ-RECHTS";
|
||||
}
|
||||
}
|
||||
: boxed_radio_column {
|
||||
label = "BMK";
|
||||
key = "PREFIX";
|
||||
: radio_button {
|
||||
label = "B";
|
||||
key = "PREFIX_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "E";
|
||||
key = "PREFIX_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "S";
|
||||
key = "PREFIX_3";
|
||||
}
|
||||
: radio_button {
|
||||
label = "IPB";
|
||||
key = "PREFIX_4";
|
||||
}
|
||||
: radio_button {
|
||||
label = "PB";
|
||||
key = "PREFIX_5";
|
||||
}
|
||||
: radio_button {
|
||||
label = "PRS";
|
||||
key = "PREFIX_6";
|
||||
}
|
||||
: radio_button {
|
||||
label = "CB";
|
||||
key = "PREFIX_7";
|
||||
}
|
||||
: radio_button {
|
||||
label = "I";
|
||||
key = "PREFIX_8";
|
||||
}
|
||||
: radio_button {
|
||||
label = "C";
|
||||
key = "PREFIX_9";
|
||||
}
|
||||
: radio_button {
|
||||
label = "P";
|
||||
key = "PREFIX_10";
|
||||
}
|
||||
}
|
||||
}
|
||||
spacer;
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,472 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; EINGAENGE_S ;
|
||||
;------------------------------------------------------------------------;
|
||||
; 22.09.2007 16.06.2011 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/steuerg/EINGAENGE_S.DCL")))
|
||||
(if (not (new_dialog "EINGAENGE_S" Dat)) (exit))
|
||||
|
||||
(set_tile "DWG_NAME" m_DWG_NAME); Blockname
|
||||
(set_tile "INPUT" m_INPUT)
|
||||
(set_tile "IDENT" m_IDENT)
|
||||
(set_tile "COMPONENT" m_COMPONENT)
|
||||
(set_tile "BEZEICHNUNG" m_BEZEICHNUNG)
|
||||
(set_tile "KENNZEICHNUNG" m_KENNZEICHNUNG)
|
||||
(set_tile "FAKT" m_FAKT)
|
||||
(set_tile "ZUSATZ" m_ZUSATZ)
|
||||
(set_tile "SPS-NR" m_SPS-NR)
|
||||
(set_tile "PREFIX" m_PREFIX) ; B,S,E,PB,PRS,CB,I
|
||||
(set_tile "IO-BEZ" m_IO-BEZ)
|
||||
(set_tile "IO-BEZ-RECHTS" m_IO-BEZ-RECHTS)
|
||||
|
||||
(mode_tile "anzeige" 0)
|
||||
(SetDia)
|
||||
(ACTION_TILE "DWG_NAME" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(slide_image 0 0 breite hoehe "ils2100(i00)")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(slide_image 0 0 breite hoehe "steuerg(27072013)")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(slide_image 0 0 breite hoehe "steuerg(27072014)")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(slide_image 0 0 breite hoehe "steuerg(27072015)")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(slide_image 0 0 breite hoehe "steuerg(27072016)")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(slide_image 0 0 breite hoehe "steuerg(27074011)")
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(slide_image 0 0 breite hoehe "steuerg(27074007)")
|
||||
)
|
||||
((= m_DWG_NAME "7")
|
||||
(slide_image 0 0 breite hoehe "steuerg(27074008)")
|
||||
)
|
||||
((= m_DWG_NAME "8")
|
||||
(slide_image 0 0 breite hoehe "steuerg(22035037)")
|
||||
)
|
||||
((= m_DWG_NAME "9")
|
||||
(slide_image 0 0 breite hoehe "steuerg(22035100)")
|
||||
)
|
||||
((= m_DWG_NAME "10")
|
||||
(slide_image 0 0 breite hoehe "steuerg(22035102)")
|
||||
)
|
||||
((= m_DWG_NAME "11")
|
||||
(slide_image 0 0 breite hoehe "steuerg(24604011)")
|
||||
)
|
||||
((= m_DWG_NAME "12")
|
||||
(slide_image 0 0 breite hoehe "steuerg(24604012)")
|
||||
)
|
||||
((= m_DWG_NAME "13")
|
||||
(slide_image 0 0 breite hoehe "steuerg(03001017)")
|
||||
)
|
||||
) ; end cond
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq WINKEL1 0)
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_SPS-NR (get_tile "SPS-NR"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun setpara()
|
||||
(setq m_PREFIX (get_tile "PREFIX"))
|
||||
(setq m_INPUT (get_tile "INPUT"))
|
||||
(setq m_IDENT (get_tile "IDENT"))
|
||||
(setq m_COMPONENT (get_tile "COMPONENT"))
|
||||
(setq m_BEZEICHNUNG (get_tile "BEZEICHNUNG"))
|
||||
(setq m_KENNZEICHNUNG (get_tile "KENNZEICHNUNG"))
|
||||
(setq m_DWG_NAME (get_tile "DWG_NAME"))
|
||||
(setq m_FAKT (get_tile "FAKT"))
|
||||
(setq m_IO-BEZ (get_tile "IO-BEZ"))
|
||||
(setq m_IO-BEZ-RECHTS (get_tile "IO-BEZ-RECHTS"))
|
||||
(setq m_ZUSATZ (get_tile "ZUSATZ"))
|
||||
(setq m_SPS-NR (get_tile "SPS-NR"))
|
||||
(setq FAKTO (atof m_FAKT))
|
||||
(InputStringAnalyse)
|
||||
)
|
||||
|
||||
(defun InputStringAnalyse()
|
||||
(setq DisplayString "")
|
||||
(setq InputLaenge (strlen m_INPUT))
|
||||
; (alert (itoa InputLaenge))
|
||||
(if (or (> InputLaenge 4) (= InputLaenge 0))
|
||||
(progn
|
||||
(alert "Mehr als 4 Stellen nicht bzw. LEERE Eingabe nicht erlaubt")
|
||||
(exit)
|
||||
)
|
||||
)
|
||||
|
||||
(cond
|
||||
((= InputLaenge 1)
|
||||
(setq DisplayString (strcat "000" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 2)
|
||||
(setq DisplayString (strcat "00" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 3)
|
||||
(setq DisplayString (strcat "0" m_INPUT))
|
||||
)
|
||||
((= InputLaenge 4)
|
||||
(setq DisplayString m_INPUT)
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_COMPONENT "0")
|
||||
(if (> (strlen m_ZUSATZ) 0 )
|
||||
(progn
|
||||
(setq VERWENDUNG m_ZUSATZ)
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
(progn
|
||||
(setq VERWENDUNG "NO-ID")
|
||||
(setq m_IDENT "9999")
|
||||
)
|
||||
)
|
||||
)
|
||||
) ; end cond
|
||||
; (alert verwendung)
|
||||
)
|
||||
|
||||
(defun datain ()
|
||||
(setq dummy nil)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
(cond
|
||||
((= m_DWG_NAME "0")
|
||||
(setq BL_NAME "") ;Blinde Eintragung
|
||||
(setq BEZEICHNUNG "")
|
||||
(setq BEZ1 "")
|
||||
(setq BEZ2 "")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
)
|
||||
((= m_DWG_NAME "1")
|
||||
(setq BL_NAME "827072013")
|
||||
(setq BEZEICHNUNG "STAUKLAPPE 700 AP KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SK")
|
||||
(setq BEZ2 "700")
|
||||
)
|
||||
((= m_DWG_NAME "2")
|
||||
(setq BL_NAME "827072014")
|
||||
(setq BEZEICHNUNG "STAUKLAPPE 700 ST KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SK")
|
||||
(setq BEZ2 "700")
|
||||
)
|
||||
((= m_DWG_NAME "3")
|
||||
(setq BL_NAME "827072015")
|
||||
(setq BEZEICHNUNG "STAUKLAPPE 200 AP KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SK")
|
||||
(setq BEZ2 "200")
|
||||
)
|
||||
((= m_DWG_NAME "4")
|
||||
(setq BL_NAME "827072016")
|
||||
(setq BEZEICHNUNG "STAUKLAPPE 200 ST KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SK")
|
||||
(setq BEZ2 "200")
|
||||
)
|
||||
((= m_DWG_NAME "5")
|
||||
(setq BL_NAME "827074011")
|
||||
(setq BEZEICHNUNG "STAUKLAPPE 200 KF KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SK")
|
||||
(setq BEZ2 "200")
|
||||
)
|
||||
((= m_DWG_NAME "6")
|
||||
(setq BL_NAME "827074007")
|
||||
(setq BEZEICHNUNG "HALTER TRAVERSENABFRAGE ST OHNE SENSOR")
|
||||
(setq BEZEICHNUNG_BG "HALTER TRAVERSENABFRAGE ST KPL.")
|
||||
(setq BEZ1 "UH")
|
||||
(setq BEZ2 "ST")
|
||||
)
|
||||
((= m_DWG_NAME "7")
|
||||
(setq BL_NAME "827074008")
|
||||
(setq BEZEICHNUNG "HALTER TRAVERSENABFRAGE AP OHNE SENSOR")
|
||||
(setq BEZEICHNUNG_BG "HALTER TRAVERSENABFRAGE AP KPL.")
|
||||
(setq BEZ1 "UH")
|
||||
(setq BEZ2 "AP")
|
||||
)
|
||||
((= m_DWG_NAME "8")
|
||||
(setq BL_NAME "822035037")
|
||||
(setq BEZEICHNUNG "ROLLENSCHALTER KF KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "RS")
|
||||
(setq BEZ2 "KF")
|
||||
)
|
||||
((= m_DWG_NAME "9")
|
||||
(setq BL_NAME "822035100")
|
||||
(setq BEZEICHNUNG "ROLLENSCHALTER AFS/ST KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "RF/ST")
|
||||
(setq BEZ2 "AFS")
|
||||
)
|
||||
((= m_DWG_NAME "10")
|
||||
(setq BL_NAME "822035102")
|
||||
(setq BEZEICHNUNG "ROLLENSCHLATER AP KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "RS")
|
||||
(setq BEZ2 "AP")
|
||||
)
|
||||
((= m_DWG_NAME "11")
|
||||
(setq BL_NAME "824604011")
|
||||
(setq BEZEICHNUNG "SCHWENKSCHIENE 450 LINKS KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SS")
|
||||
(setq BEZ2 "LINK")
|
||||
)
|
||||
((= m_DWG_NAME "12")
|
||||
(setq BL_NAME "824604012")
|
||||
(setq BEZEICHNUNG "SCHWENKSCHIENE 450 LINKS KPL.")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "SS")
|
||||
(setq BEZ2 "RECH")
|
||||
)
|
||||
((= m_DWG_NAME "13")
|
||||
(setq BL_NAME "701004005")
|
||||
(setq BEZEICHNUNG "HILFSCHALTER WS/DS")
|
||||
(setq BEZEICHNUNG_BG "")
|
||||
(setq BEZ1 "HS")
|
||||
(setq BEZ2 "WSDS")
|
||||
)
|
||||
) ; end cond
|
||||
|
||||
(cond
|
||||
((= m_PREFIX "PREFIX_1")
|
||||
(setq _PREFIX "B")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_2")
|
||||
(setq _PREFIX "E")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_3")
|
||||
(setq _PREFIX "S")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_4")
|
||||
(setq _PREFIX "IPB")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_5")
|
||||
(setq _PREFIX "PB")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_6")
|
||||
(setq _PREFIX "PRS")
|
||||
(setq ANZ_CHARACT 2)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_7")
|
||||
(setq _PREFIX "CB")
|
||||
(setq ANZ_CHARACT 1)
|
||||
)
|
||||
((= m_PREFIX "PREFIX_8")
|
||||
(setq _PREFIX "I")
|
||||
(setq ANZ_CHARACT 0)
|
||||
)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE nil) ; wird am Ende ROTATE
|
||||
(setq AUSWAHL-SATZ nil) ; Blockbildung
|
||||
|
||||
(setq P0 (getpoint "\nPick insert point: "))
|
||||
(setvar "osmode" 0)
|
||||
(bl-name P0) ;--> Block-Name definieren -> Rückgabe: element-name
|
||||
|
||||
(setq P10 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P11 (list (+ (car p0) (+ (* FAKTO 1170)) (* 150 ANZ_CHARACT)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
(setq P12 (list (+ (car p0) (* FAKTO 0)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
(setq P13 (list (+ (car p0) (* FAKTO 340)) (+ (cadr p0) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P14 (list (+ (car p0) (* FAKTO 340)) (- (cadr p0) (* FAKTO 360)) (caddr p0)))
|
||||
|
||||
;<<<Text>>>
|
||||
(setq P1 (list (+ (car p12) (* FAKTO 380)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P2 (list (+ (car p12) (* FAKTO 550)) (+ (cadr p12) (* FAKTO 90)) (caddr p12)))
|
||||
(setq P3 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 220)) (caddr p12)))
|
||||
(setq P4 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 120)) (caddr p12)))
|
||||
(setq P5 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 10)) (caddr p12)))
|
||||
(setq P6 (list (+ (car p12) (* FAKTO 20)) (+ (cadr p12) (* FAKTO 20)) (caddr p12)))
|
||||
(setq P7 (list (+ (car p12) (* FAKTO 1200)) (+ (cadr p12) (* FAKTO 100)) (caddr p12)))
|
||||
|
||||
(command "_layer" "_m" "EINGANG" "_c" "6" "" "")
|
||||
|
||||
;<<< IO Einfügen
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/io") P6 FAKTO "" "")
|
||||
|
||||
(if (= m_IO-BEZ "1") ; IO-Bezeichnung = Artikelbezeichnung
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
|
||||
(ATTRIBUTE-AENDERN_IO (strcat _PREFIX DisplayString) m_IDENT VERWENDUNG m_BEZEICHNUNG m_KENNZEICHNUNG m_SPS-NR)
|
||||
)
|
||||
|
||||
(setq AUSWAHL-SATZ-ROTATE (ssget "_L"))
|
||||
|
||||
;>>> Byteweise arbeiten. Wenn die letzte Zahl "7" dann auf "10" aufrunden
|
||||
(setq LAENGE_m_INPUT (strlen m_INPUT))
|
||||
(if (= (substr m_INPUT LAENGE_m_INPUT 1) "7")
|
||||
(setq m_INPUT (itoa (+ 3 (atoi m_INPUT))))
|
||||
(setq m_INPUT (itoa (+ 1 (atoi m_INPUT))))
|
||||
)
|
||||
|
||||
;<<< Korpus zeichnen ---------------------------------------
|
||||
(command "_layer" "_m" "EINGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P13 P10 P11 P14 P13 "")
|
||||
(setq AUSWAHL-SATZ (ssget "_L"))
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;(command "_pline" P13 P14 "")
|
||||
;(ssadd (entlast) AUSWAHL-SATZ)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;<<< Beschreibung als Text hinzufügen
|
||||
;(command "_text" P3 (rtos (* FAKTO 70)) "0" BEZ1)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
;(command "_text" P4 (rtos (* FAKTO 70)) "0" BEZ2)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ)
|
||||
;(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
|
||||
;<<<< Zusatztext >>>>>>>
|
||||
(if (and (> (strlen m_ZUSATZ) 0 ) (/= m_COMPONENT "8"))
|
||||
(progn
|
||||
(setq x_length (+ 1170 (* (strlen m_Zusatz) 160)))
|
||||
(setq P15 (list (+ (car p0) (* FAKTO x_length)) (+ (cadr p0) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
(setq P16 (list (+ (car p0) (* FAKTO x_length)) (- (cadr p11) (* FAKTO 0)) (caddr p0))) ;Zusatztext
|
||||
|
||||
(command "_text" P7 (rtos (* FAKTO 150)) "0" m_ZUSATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P10 P15 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P15 P16 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(command "_pline" P16 P11 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
(progn
|
||||
(setq P15 (list (car p10) (cadr p10) (caddr p10)))
|
||||
(setq P16 (list (car p11) (cadr p11) (caddr p11)))
|
||||
)
|
||||
)
|
||||
;<<<< SPS-NR checken - wenn eingetragen dann einrahmen >>>>>>>
|
||||
(if (> (strlen m_SPS-NR) 0 )
|
||||
(progn
|
||||
(setq left_length (* (strlen m_SPS-NR) 160))
|
||||
(setq P17 (list (- (car p13) (* FAKTO left_length)) (+ (cadr p13) (* FAKTO 0)) (caddr p0)))
|
||||
(setq P18 (list (- (car p13) (* FAKTO left_length)) (- (cadr p13) (* FAKTO 360)) (caddr p0)))
|
||||
|
||||
(command "_layer" "_m" "EINGANG-HW" "_c" "7" "" "")
|
||||
(command "_pline" P13 P14 P18 P17 P13 "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
;<<<<<<<<< IO-Bezeichnung auch als TEXT rechts einfügen
|
||||
(if (= m_IO-BEZ-RECHTS "1")
|
||||
(progn
|
||||
(setq P8 (list (+ (car p16) (* FAKTO 100)) (+ (cadr p16) (* FAKTO 100)) (caddr p16)))
|
||||
(command "_text" P8 (rtos (* FAKTO 150)) "0" m_BEZEICHNUNG)
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
|
||||
(if (= m_DWG_NAME "0")
|
||||
(progn
|
||||
(mach-block-ohne-prop P0 "0" AUSWAHL-SATZ)
|
||||
)
|
||||
(progn
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "0" "9" "0" (strcat _PREFIX DisplayString) block-kennung BL_NAME BEZEICHNUNG "1" "")
|
||||
)
|
||||
)
|
||||
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
(setq AUSWAHL-SATZ (ssget "_L")) ; Auswahlsatz reinitialieren
|
||||
;<<<-------------------------------------------------------------------
|
||||
|
||||
;<<<< BAUGRUPPEN >>>
|
||||
(if (= m_DWG_NAME "6")
|
||||
(progn
|
||||
(EINZELTEIL P0 "721000009" "REFLEXIONSLICHTTASTER" "1")
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
(if (= m_DWG_NAME "7")
|
||||
(progn
|
||||
(EINZELTEIL P0 "721000009" "REFLEXIONSLICHTTASTER" "1")
|
||||
(command "_layer" "_m" "A-GRUPPE" "_c" "7" "" "")
|
||||
(mach-block P0 "0" AUSWAHL-SATZ)
|
||||
(attribute-aendern "0" "2" "9" "0" (strcat _PREFIX DisplayString) block-kennung "333333333" BEZEICHNUNG_BG "1" "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ-ROTATE)
|
||||
)
|
||||
)
|
||||
(command "_rotate" AUSWAHL-SATZ-ROTATE "" P0 pause)
|
||||
)
|
||||
|
||||
(defun EINZELTEIL (P1 E_ARTINR E_BEZEICHNUNG E_MENGE)
|
||||
(setq WINKEL1 (+ WINKEL1 10))
|
||||
(command "_insert" (strcat lw "/acadsst/steuerg/d_einzel") P13 "" "" (rtos WINKEL1))
|
||||
(attribute-aendern "0" "0" "29" "" "" block-kennung E_ARTINR E_BEZEICHNUNG E_MENGE "")
|
||||
(ssadd (entlast) AUSWAHL-SATZ)
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
(defun c:EINGAENGE_S ( / DWG_NAME BL_NAME P0)
|
||||
(setvar "limcheck" 0)
|
||||
(setvar "CMDECHO" 0)
|
||||
(setvar "BLIPMODE" 0)
|
||||
(setq ALTFANG (getvar "osmode"))
|
||||
(setq EINZEL 0) ; fuer EINZEL=0 Baugruppen / EINZEL=1 fuer APB
|
||||
(prompt "**** EINGÄNGE B *******")
|
||||
(prompt "")
|
||||
(if (null m_DWG_NAME) (setq m_DWG_NAME "0")) ; Auswahl
|
||||
(if (null m_INPUT) (setq m_INPUT "1")) ; Input Bit
|
||||
(if (null m_IDENT) (setq m_IDENT "1000")) ; ID
|
||||
(if (null m_COMPONENT) (setq m_COMPONENT "0")) ; Verwendung
|
||||
(if (null m_BEZEICHNUNG) (setq m_BEZEICHNUNG "xxxxxxxxxxxxxxx")) ; BEZEICHNUNG
|
||||
(if (null m_KENNZEICHNUNG) (setq m_KENNZEICHNUNG "=Axx+Exxx-Axxx")) ; KENNZEICHNUNG
|
||||
(if (null m_FAKT) (setq m_FAKT "1")) ; Skalierungsfaktor
|
||||
(if (null m_ZUSATZ) (setq m_ZUSATZ "")) ; Zusatztext
|
||||
(if (null m_SPS-NR) (setq m_SPS-NR "")) ; Zusatztext
|
||||
(if (null m_PREFIX) (setq m_PREFIX "PREFIX_1")) ; Prefix (B,E oder S)
|
||||
(if (null m_IO-BEZ) (setq m_IO-BEZ "0")) ; Bezeicnung nicht der Artikelbezeichnung gleichsetzen
|
||||
(if (null m_IO-BEZ-RECHTS) (setq m_IO-BEZ-RECHTS "0")) ; Bezeicnung als Text rechts andrucken
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(geometrie)
|
||||
(setvar "osmode" ALTFANG)
|
||||
)
|
||||
@@ -0,0 +1,191 @@
|
||||
elektro : dialog {
|
||||
label = "SCHÖNENBERGER Systeme GmbH";
|
||||
initial_focus = "KOMP";
|
||||
: text {
|
||||
label = "HFS 2100 - ELEKTRO-LAYOUT";
|
||||
}
|
||||
: row {
|
||||
: list_box {
|
||||
label = "Sensorik/Aktorik";
|
||||
key = "KOMP";
|
||||
mnemonic = "S";
|
||||
list = "Sensor\nMagnetventil\nAntrieb\nSeparator\nWeiche\nScanner\nRollenhebelschalter\nDrucktaster\nAnzeigeleuchte";
|
||||
width = 20;
|
||||
height = 6;
|
||||
}
|
||||
: image {
|
||||
height = 7;
|
||||
width = 10;
|
||||
color = 0;
|
||||
key = "anzeige";
|
||||
}
|
||||
}
|
||||
: row {
|
||||
: column {
|
||||
: boxed_radio_column {
|
||||
label = "SEPARATOR";
|
||||
key = "NULLTR";
|
||||
: radio_button {
|
||||
label = "Mit NULL-Trolley Erkennung";
|
||||
key = "NULLTR_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "OHNE NULL-Trolley Erkennung";
|
||||
key = "NULLTR_2";
|
||||
}
|
||||
}
|
||||
}
|
||||
: column {
|
||||
: boxed_radio_column {
|
||||
label = "SCANNER";
|
||||
key = "SCAN";
|
||||
: radio_button {
|
||||
label = "SC - BT Scanner";
|
||||
key = "SCAN_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "SCC - Kleidungsscanner-automatisch";
|
||||
key = "SCAN_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "SCM - Kleidungsscanner-manuell";
|
||||
key = "SCAN_3";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
: row {
|
||||
: column {
|
||||
: boxed_radio_column {
|
||||
/* Antrieb reversibel oder nicht */
|
||||
label = "ANTRIEB";
|
||||
key = "REVERS";
|
||||
: radio_button {
|
||||
label = "NICHT Reversibel";
|
||||
key = "REVERS_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Reversibel";
|
||||
key = "REVERS_2";
|
||||
}
|
||||
}
|
||||
: boxed_radio_column {
|
||||
label = "NORM";
|
||||
key = "NORM";
|
||||
: radio_button {
|
||||
label = "Deutsch";
|
||||
key = "NORM_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "US";
|
||||
key = "NORM_2";
|
||||
}
|
||||
}
|
||||
}
|
||||
:column {
|
||||
: list_box {
|
||||
label = "1.Weichenausgang";
|
||||
key = "W1";
|
||||
list = "Leereintrag\nGerade-G/S\nLinks-L/L\nRechts-R/R\nAuf-A/O\nZu-Z/C\nGem.Ruecksetzung-GR/GI";
|
||||
width = 20;
|
||||
height = 3;
|
||||
}
|
||||
: list_box {
|
||||
label = "2.Weichenausgang";
|
||||
key = "W2";
|
||||
list = "Leereintrag\nGerade-G/S\nLinks-L/L\nRechts-R/R\nAuf-A/O\nZu-Z/C\nGem.Ruecksetzung-GR/GI";
|
||||
width = 20;
|
||||
height = 3;
|
||||
}
|
||||
}
|
||||
:column {
|
||||
: list_box {
|
||||
label = "1.Lage";
|
||||
key = "LAGE1";
|
||||
list = "Leereintrag\nVON\nNACH";
|
||||
width = 20;
|
||||
height = 3;
|
||||
}
|
||||
}
|
||||
}
|
||||
: row {
|
||||
: column {
|
||||
: edit_box {
|
||||
label = "Anlagenebene :";
|
||||
allow_accept = true;
|
||||
key = "A_EBENE";
|
||||
value = 0;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Ort(5-6/5.01):";
|
||||
allow_accept = true;
|
||||
key = "A_ORT";
|
||||
value = 0;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Klemmkasten :";
|
||||
allow_accept = true;
|
||||
key = "A_KLKAST";
|
||||
value = 0;
|
||||
}
|
||||
: edit_box {
|
||||
label = "IBS-Verteiler:";
|
||||
allow_accept = true;
|
||||
key = "A_IBS-UV";
|
||||
value = 0;
|
||||
}
|
||||
|
||||
}
|
||||
: column {
|
||||
: edit_box {
|
||||
label = "Skalierung:";
|
||||
allow_accept = true;
|
||||
key = "VAR_F";
|
||||
value = 1;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Präfix :";
|
||||
allow_accept = true;
|
||||
key = "EBEN";
|
||||
value = 1;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Sufix :";
|
||||
allow_accept = true;
|
||||
key = "ZUSATZ";
|
||||
value = 1;
|
||||
}
|
||||
}
|
||||
: column {
|
||||
: edit_box {
|
||||
label = "Eingang:";
|
||||
allow_accept = true;
|
||||
key = "ZB";
|
||||
value = 0;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Ausgang:";
|
||||
allow_accept = true;
|
||||
key = "ZY";
|
||||
value = 0;
|
||||
}
|
||||
: edit_box {
|
||||
label = "Motor :";
|
||||
allow_accept = true;
|
||||
key = "ZM";
|
||||
value = 0;
|
||||
}
|
||||
}
|
||||
}
|
||||
: row {
|
||||
: edit_box {
|
||||
label = "Kommentar :";
|
||||
allow_accept = true;
|
||||
key = "A_KOMMENT";
|
||||
value = 0;
|
||||
}
|
||||
}
|
||||
: row {
|
||||
ok_cancel_help;
|
||||
}
|
||||
}
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user