neue Folder LAYOUT MENU und MODULE dazu
This commit is contained in:
Binary file not shown.
Binary file not shown.
@@ -0,0 +1 @@
|
||||
A:\B_TYP9.LSP
|
||||
@@ -0,0 +1,94 @@
|
||||
x
|
||||
b_typ1
|
||||
b_typ2
|
||||
b_typ3
|
||||
b_typ4
|
||||
b_typ5
|
||||
b_typ6
|
||||
b_typ7
|
||||
b_typ8
|
||||
b_typ9
|
||||
btyp01_1
|
||||
btyp01_2
|
||||
btyp01_3
|
||||
btyp02_1
|
||||
btyp02_2
|
||||
btyp02_3
|
||||
btyp03_1
|
||||
btyp03_2
|
||||
btyp03_3
|
||||
btyp04_1
|
||||
btyp04_2
|
||||
btyp04_3
|
||||
btyp05_1
|
||||
btyp05_2
|
||||
btyp05_3
|
||||
btyp06_1
|
||||
btyp06_2
|
||||
btyp06_3
|
||||
btyp07_1
|
||||
btyp07_2
|
||||
btyp07_3
|
||||
btyp08_1
|
||||
btyp08_2
|
||||
btyp08_3
|
||||
btyp09_1
|
||||
btyp09_2
|
||||
btyp09_3
|
||||
zusch1
|
||||
zusch2
|
||||
zusch3
|
||||
zusch4
|
||||
zusch5
|
||||
zusch6
|
||||
zusch7
|
||||
zusch7
|
||||
zusch8
|
||||
zusch9
|
||||
fix01
|
||||
fix02
|
||||
fix03
|
||||
vorf01
|
||||
vorf02
|
||||
vorf03
|
||||
vorf04
|
||||
vorf05
|
||||
vorf06
|
||||
vorf07
|
||||
mont01
|
||||
mont02
|
||||
mont03
|
||||
mont04
|
||||
mont05
|
||||
mont06
|
||||
endf01
|
||||
endf02
|
||||
endf03
|
||||
endf04
|
||||
endf05
|
||||
endf06
|
||||
endf07
|
||||
endf08
|
||||
endf09
|
||||
endf10
|
||||
EA_00001
|
||||
EA_00002
|
||||
AK_00001
|
||||
KP_00001
|
||||
KP_00002
|
||||
KP_00003
|
||||
KP_00004
|
||||
SR_00001
|
||||
SR_00002
|
||||
SR_00003
|
||||
PP_00001
|
||||
PP_00002
|
||||
FS_00001
|
||||
FS_00002
|
||||
FS_00003
|
||||
LT_00001
|
||||
SO_00001
|
||||
DL_00001
|
||||
EIN_0001
|
||||
EIN_0002
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,260 @@
|
||||
;-----------------------------------------------------------------------;
|
||||
; Bügelplätze zeichnen - TYP 1 - ;
|
||||
; 3 Arten von Bügelplätzen: ;
|
||||
; --------------------------------------------------------------------- ;
|
||||
; a) für REINIGUNG - Abnahme von RECHTS geschlossener Bügelhaken LINKS ;
|
||||
; ( für ca. 30% der Anwendungsfälle ) ;
|
||||
; b) für REINIGUNG - Abnahme von RECHTS geschlossener Bügelhaken RECHTS ;
|
||||
; ( für ca. 70% der Anwendungsfälle ) ;
|
||||
; c) für FERTIGUNG und PRODUKTION - Abnahme von LINKS ;
|
||||
; --------------------------------------------------------------------- ;
|
||||
; 21.06.93 / 12.06.1998 ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/module/b_typ1.dcl")))
|
||||
(if (not (new_dialog "b_typ1" Dat)) (exit))
|
||||
(set_tile "L1" m_L1)
|
||||
(set_tile "L2" m_L2)
|
||||
(set_tile "K0" m_K0)
|
||||
(set_tile "ART" m_ART)
|
||||
(SetDia)
|
||||
(ACTION_TILE "ART" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
(if (= m_ART "ART_1") ; Nr 1
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp01_1)")
|
||||
)
|
||||
(if (= m_ART "ART_2") ; Nr 2
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp01_2)")
|
||||
)
|
||||
(if (= m_ART "ART_3") ; Nr 3
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp01_3)")
|
||||
)
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq m_ART (get_tile "ART"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun SetPara ()
|
||||
(setq m_L1 (get_tile "L1") ; Breite
|
||||
m_L2 (get_tile "L2") ; Tiefe
|
||||
m_K0 (get_tile "K0") ; Anzahl Plätze
|
||||
m_ART (get_tile "ART") ; Art
|
||||
)
|
||||
)
|
||||
|
||||
(defun datain()
|
||||
(setq L1 (atof m_L1)) ; Breite
|
||||
(setq L2 (atof m_L2)) ; Tiefe
|
||||
(setq K0 (atof m_K0)) ; Anzahl Plätze
|
||||
(setq ART (atoi (substr m_ART 5 1))) ; Art
|
||||
|
||||
;---------------------------------------------------------------------;
|
||||
; >>>>>> EINGABETEIL <<<<<< ;
|
||||
;---------------------------------------------------------------------;
|
||||
(setq P0 (getpoint "\nUntere linke Ecke definieren: "))
|
||||
(initget (+ 2 4))
|
||||
;---------------------------------------------------------------------;
|
||||
; >>>>>> Prüfung ob die Grenzwerte eingehalten sind <<<<<< ;
|
||||
;---------------------------------------------------------------------;
|
||||
(while (or (< L1 4600) (> L1 8000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq l1 (getreal "\nBreite eingeben [4600-8000]: "))
|
||||
)
|
||||
(while (or (< L2 2200) (> L2 6000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq l2 (getreal "\nTiefe eingeben [2200-6000]: "))
|
||||
)
|
||||
)
|
||||
|
||||
(defun punkte()
|
||||
;---------------------------------------------------------------------;
|
||||
; >>>>>> Konstruktionspunkte definieren <<<<<< ;
|
||||
;---------------------------------------------------------------------;
|
||||
(setq P1 (list (car P0) (+ (cadr P0) 800)))
|
||||
(setq P2 (list (+ (car P0) 800) (cadr P1)))
|
||||
(setq P3 (list (+ (car P1) (/ (- L1 1850) 2)) (cadr P1)))
|
||||
(setq P4 (list (+ (car P3) 425) (cadr P1)))
|
||||
(setq P5 (list (+ (car P3) 825) (- (cadr P1) 400)))
|
||||
(setq P6 (list (+ (car P3) 1025) (- (cadr P1) 600)))
|
||||
(setq P7 (list (+ (car P3) 1425) (- (cadr P1) 1000)))
|
||||
(setq P8 (list (+ (car P3) 1850) (cadr P7)))
|
||||
(setq P9 (list (+ (car P0) (- L1 800)) (cadr P7)))
|
||||
(setq P10 (list (+ (car P0) L1) (cadr P7)))
|
||||
(setq P11 (list (car P10) (+ (cadr P7) 800)))
|
||||
(setq P12 (list (car P10) (+ (cadr P7) L2)))
|
||||
(setq P13 (list (car P0) (+ (cadr P0) L2)))
|
||||
(setq P14 (list (- (car P0) 400) (- (cadr P0) 400)))
|
||||
(setq P15 (list (+ (car P12) 400) (+ (cadr P12) 400)))
|
||||
(cond
|
||||
((= ART 1)
|
||||
(setq P16 (list (- (car P4) 1400) (- (cadr P4) 1090)))
|
||||
(setq P17 (list (- (car P4) 700) (- (cadr P16) 560)))
|
||||
(setq P18 (list (+ (car P4) 200) (- (cadr P4) 1350)))
|
||||
(setq P19 (list (+ (car p18) 750) (+ (cadr P18) 350)))
|
||||
(setq P20 (list (car P1) (+ (cadr P1) (/ (- L2 800) 2))))
|
||||
(setq P21 (list (car P10) (+ (+ (cadr P10) 800) (/ (- L2 800) 2))))
|
||||
(setq P22 (list (- (car P4) 650) (cadr P4)))
|
||||
)
|
||||
((= ART 2)
|
||||
(setq P16 (list (+ (car P7) 1400) (+ (cadr P7) 1090)))
|
||||
(setq P17 (list (+ (car P7) 700) (+ (cadr P16) 560)))
|
||||
(setq P18 (list (- (car P7) 200) (+ (cadr P7) 1350)))
|
||||
(setq P19 (list (- (car p18) 750) (- (cadr P18) 350)))
|
||||
(setq P20 (list (car P1) (+ (cadr P1) (/ (- L2 800) 2))))
|
||||
(setq P21 (list (car P10) (+ (+ (cadr P10) 800) (/ (- L2 800) 2))))
|
||||
(setq P22 (list (- (car P4) 400) (cadr P4)))
|
||||
(setq P23 (list (+ (car P8) 250) (cadr P8)))
|
||||
)
|
||||
((= ART 3)
|
||||
(setq P16 (list (- (car P7) 300) (- (cadr P4) 1750)))
|
||||
(setq P17 (list (- (car P7) 1200) (+ (cadr P16) 850)))
|
||||
(setq P18 (list (+ (car P4) 200) (- (cadr P4) 1350)))
|
||||
(setq P19 (list (+ (car p18) 750) (+ (cadr P18) 350)))
|
||||
(setq P20 (list (car P1) (+ (cadr P1) (/ (- L2 800) 2))))
|
||||
(setq P21 (list (car P10) (+ (+ (cadr P10) 800) (/ (- L2 800) 2))))
|
||||
(setq P22 (list (- (car P4) 400) (cadr P4)))
|
||||
(setq P23 (list (+ (car P8) 250) (cadr P8)))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
;---------------------------------------------------------------------;
|
||||
; >>>>>> Blöcke einfügen <<<<<< ;
|
||||
;---------------------------------------------------------------------;
|
||||
(command "_layer" "_m" "L-2" "_c" "2" "" "")
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w90650R8") P1 "" "" "90")
|
||||
(setq auswahl-satz (ssget "_L"))
|
||||
(command "_insert" (strcat lw "/acadsst/layout/s45650R4") P4 "" "" "0")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/s45650R4") P7 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w90650R8") P10 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" P2 P3 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" P5 P6 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" P8 P9 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" P11 P12 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" P1 P13 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
;---------------------------------------------------------------------;
|
||||
; >>>>>> Pfeile + Maschinen setzen <<<<<< ;
|
||||
;---------------------------------------------------------------------;
|
||||
(command "_layer" "_m" "Z-1" "_c" "1" "" "")
|
||||
(cond
|
||||
((= ART 1)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") P20 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") P21 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") P2 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") P5 "" "" "-135")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") P9 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") P16 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") P17 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") P18 "" "" "45")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") P19 "" "" "-135")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") P8 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") P22 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 2)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") P20 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") P21 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") P2 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") P5 "" "" "-135")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") P9 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") P16 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") P17 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") P18 "" "" "-135")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") P19 "" "" "45")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") P23 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") P22 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 3)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") P20 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") P21 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") P2 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") P5 "" "" "45")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") P9 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/dobli-fw") P16 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") P17 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") P18 "" "" "45")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") P19 "" "" "-135")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") P23 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") P22 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
)
|
||||
(If (> K0 1)
|
||||
;(command "_array" "_c" P14 P15 "" "_r" m_K0 "1" m_L2)
|
||||
(command "_array" auswahl-satz "" "_r" m_K0 "1" m_L2)
|
||||
)
|
||||
)
|
||||
|
||||
;---------------------------------------------------------------------;
|
||||
; >>>>>> Programm <<<<<< ;
|
||||
;---------------------------------------------------------------------;
|
||||
(defun c:b_typ1 ( / L1 L2 K0 ART P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 P17 P18 P19 P20 P21 P22 P23)
|
||||
(setvar "limcheck" 0)
|
||||
(prompt "*** Bügelplatz TYP 1 ***")
|
||||
(if (null m_L1) (setq m_L1 "4600" )) ; Breite
|
||||
(if (null m_L2) (setq m_L2 "2400" )) ; Tiefe
|
||||
(if (null m_K0) (setq m_K0 "1" )) ; Anzahl der Plätze
|
||||
(if (null m_ART) (setq m_ART "ART_1" )) ; Art
|
||||
(setq auswahl-satz nil)
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(punkte)
|
||||
(geometrie)
|
||||
)
|
||||
;---------------------------------------------------------------------;
|
||||
; >>>>>> Ende <<<<<< ;
|
||||
;---------------------------------------------------------------------;
|
||||
Binary file not shown.
@@ -0,0 +1,266 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; Bügelplätze zeichnen - TYP 2 - ;
|
||||
; -----------------------------------------------------------------------;
|
||||
; -----------------------------------------------------------------------;
|
||||
; 22.3.93 / 12.06.1998 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/module/b_typ2.dcl")))
|
||||
(if (not (new_dialog "b_typ2" Dat)) (exit))
|
||||
(set_tile "L1" m_L1)
|
||||
(set_tile "L2" m_L2)
|
||||
(set_tile "L3" m_L3)
|
||||
(set_tile "K0" m_K0)
|
||||
(set_tile "ART" m_ART)
|
||||
(SetDia)
|
||||
(ACTION_TILE "ART" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
(if (= m_ART "ART_1") ; Nr 1
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp02_1)")
|
||||
)
|
||||
(if (= m_ART "ART_2") ; Nr 2
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp02_2)")
|
||||
)
|
||||
(if (= m_ART "ART_3") ; Nr 3
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp02_3)")
|
||||
)
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq m_ART (get_tile "ART"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun SetPara ()
|
||||
(setq m_L1 (get_tile "L1") ; Breite
|
||||
m_L3 (get_tile "L3") ; Tiefe
|
||||
m_K0 (get_tile "K0") ; Anzahl Plätze
|
||||
m_ART (get_tile "ART") ; Art
|
||||
m_L2 (get_tile "L2") ; Streckenabstand
|
||||
)
|
||||
)
|
||||
|
||||
(defun datain()
|
||||
(setq L1 (atoi m_L1)) ; Breite
|
||||
(setq L3 (atoi m_L3)) ; Tiefe
|
||||
(setq K0 (atoi m_K0)) ; Anzahl Plätze
|
||||
(setq ART (atoi (substr m_ART 5 1))) ; Art
|
||||
(setq L2 (atoi m_L2)) ; Streckenabstand
|
||||
;-------------------------------------------------------
|
||||
;>>>> Eingabeteil <<<<<<<
|
||||
;-------------------------------------------------------
|
||||
(setq P0 (getpoint "\nUntere linke Ecke definieren: "))
|
||||
(initget (+ 2 4))
|
||||
;-------------------Prüfung ob die Grenzwerte eingehalten ---
|
||||
(while (or (< L1 1600) (> L1 5000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L1 (getreal "\nBreite eingeben [1600-5000]: "))
|
||||
)
|
||||
(while (or (< L3 1600) (> L3 10000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L1 (getreal "\nTiefe eingeben [1600-10000]: "))
|
||||
)
|
||||
(while (or (< L2 700) (> L2 2000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L2 (getint "\nBreite eingeben [700-2000]: "))
|
||||
)
|
||||
)
|
||||
|
||||
(defun punkte()
|
||||
;--------------------------------------------------------
|
||||
;<<<<< Konstruktionspunkte definieren >>>>>>>
|
||||
;--------------------------------------------------------
|
||||
(setq P1 (list (+ (car p0) L1 400) (+ (cadr p0) L2)))
|
||||
(setq P2 (list (car p0) (+ (cadr p0) L2)))
|
||||
(setq P3 (list (car p0) (+ (cadr p0) L2 L3)))
|
||||
(setq P4 (list (+ (car p0) L1) (cadr p3)))
|
||||
(setq P5 (list (car p4) (cadr p2)))
|
||||
(setq P6 (list (car p5) (+ (cadr p5) 400)))
|
||||
(setq P7 (list (car p0) (cadr p6)))
|
||||
(setq P8 (list (- (car p1) L2) (cadr p0)))
|
||||
(setq P9 (list (+ (car p1) L2) (cadr p0)))
|
||||
(setq P10 (list (car p3) (- (cadr p3) 800)))
|
||||
(setq P11 (list (car p2) (+ (cadr p2) 670)))
|
||||
(setq P12 (list (car p4) (- (cadr p4) 800)))
|
||||
(setq P13 (list (car p5) (+ (cadr p5) 670)))
|
||||
(setq P14 (list (+ (car p3) 800) (cadr p3)))
|
||||
(setq P15 (list (- (car p4) 800) (cadr p4)))
|
||||
(setq P16 (list (- (car p1) 283) (- (cadr p1) 283)))
|
||||
(setq P17 (list (+ (car p8) 400) (+ (cadr p8) 400)))
|
||||
(setq P18 (list (+ (car p1) 283) (- (cadr p1) 283)))
|
||||
(setq P19 (list (- (car p9) 400) (+ (cadr p9) 400)))
|
||||
(setq P20 (list (+ (car p8) 375) (cadr p8)))
|
||||
(setq P21 (list (- (car p9) 375) (cadr p9)))
|
||||
(setq P22 (list (- (car p8) 425) (cadr p8)))
|
||||
(setq P23 (list (+ (- (car p0) 400) L2 425) (cadr p0)))
|
||||
(setq P24 (list (- (car p3) 400) (+ (cadr p3) 400)))
|
||||
(setq P25 (list (+ (car p9) 400) (- (cadr p9) 400)))
|
||||
(cond
|
||||
((= ART 1)
|
||||
(setq P26 (list (+ (car p11) (/ L1 2)) (cadr p11)))
|
||||
(setq P27 (list (- (car p26) 700) (+ (cadr p26) 450)))
|
||||
(setq P28 (list (- (car p26) 1000) (- (cadr p26) 400)))
|
||||
(setq P29 (list (+ (car p26) 500) (+ (cadr p26) 200)))
|
||||
)
|
||||
((= ART 2)
|
||||
(setq P26 (list (+ (car p11) (/ L1 2)) (- (cadr p10) 200)))
|
||||
(setq P27 (list (- (car p12) 450) (+ (cadr p13) 500)))
|
||||
(setq P28 (list (- (car p26) 750) (- (cadr p26) 350)))
|
||||
(setq P29 (list (+ (car p26) 1100) (+ (cadr p26) 100)))
|
||||
)
|
||||
((= ART 3)
|
||||
(setq P26 (list (+ (car p11) (/ L1 2)) (cadr p10)))
|
||||
(setq P27 (list (- (car p13) 300) (cadr p13)))
|
||||
(setq P28 (list (- (car p26) 1200) (- (cadr p26) 200)))
|
||||
(setq P29 (list (- (car p5) 500) (+ (cadr p5) 700)))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
;----------------------------------------------------------
|
||||
;<<<<<< Blöcke einf�gen >>>>>>
|
||||
;----------------------------------------------------------
|
||||
(command "_layer" "_m" "L-2" "_c" "2" "" "")
|
||||
(command "_insert" (strcat lw "/acadsst/layout/kw800_8x") P1 "" "" "0")
|
||||
(setq auswahl-satz (ssget "_L"))
|
||||
(command "_insert" (strcat lw "/acadsst/layout/s90650l8") P3 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/s90650l8") P4 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/s45400r4") P7 "" "" "270")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/s45400l4") P6 "" "" "270")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w45650l4") P8 "" "" "0")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w45650r4") P9 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p2 p5 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p10 p11 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p12 p13 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p14 p15 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p16 p17 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p18 p19 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p20 p21 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p22 p23 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
|
||||
;----------------- Pfeile setzen ---------------------------------------
|
||||
(command "_layer" "_m" "Z-1" "_c" "1" "" "")
|
||||
(cond
|
||||
((= ART 1)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p10 "" "" "270")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p13 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p19 "" "" "135")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p16 "" "" "225")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p26 "" "" "0")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") p27 "" "" "270")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p22 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p12 "" "" "0")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p11 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p28 "" "" "45")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p29 "" "" "315")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 2)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p10 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p13 "" "" "270")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p19 "" "" "315")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p17 "" "" "45")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p26 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") p27 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p22 "" "" "270")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p12 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p11 "" "" "0")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p28 "" "" "225")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p29 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 3)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p10 "" "" "270")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p13 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p19 "" "" "135")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p5 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p26 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/dobli-fw") p27 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p22 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p12 "" "" "0")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p11 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p28 "" "" "0")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p29 "" "" "315")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
)
|
||||
|
||||
(IF (> K0 1)
|
||||
(command "_array" auswahl-satz "" "_r" "1" m_K0 (itoa (+ L1 800)))
|
||||
)
|
||||
)
|
||||
|
||||
;-----------------------------------------------------------------
|
||||
(defun c:b_typ2 (/ L1 L2 L3 K0 ART P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11
|
||||
P12 P13 P14 P15 P16 P17 P18 P19 P20 P21 P22 P23 P24 P25 P26 P27 P28 P29)
|
||||
(setvar "limcheck" 0)
|
||||
(prompt "**** Bügelplatz TYP 2 *******")
|
||||
(if (null m_L1) (setq m_L1 "4600" )) ; Breite
|
||||
(if (null m_L3) (setq m_L3 "2400" )) ; Tiefe
|
||||
(if (null m_K0) (setq m_K0 "1" )) ; Anzahl der Plätze
|
||||
(if (null m_ART) (setq m_ART "ART_1" )) ; Art
|
||||
(if (null m_L2) (setq m_L2 "800" )) ; Streckenabstand
|
||||
(setq auswahl-satz nil)
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(punkte)
|
||||
(geometrie)
|
||||
)
|
||||
;------------------------------------------------------------------
|
||||
Binary file not shown.
@@ -0,0 +1,248 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; Bügelplätze zeichnen - TYP 3 - ;
|
||||
; -----------------------------------------------------------------------;
|
||||
; -----------------------------------------------------------------------;
|
||||
; 27.09.93 / 12.6.98 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/module/b_typ3.dcl")))
|
||||
(if (not (new_dialog "b_typ3" Dat)) (exit))
|
||||
(set_tile "L1" m_L1)
|
||||
(set_tile "L2" m_L2)
|
||||
(set_tile "K0" m_K0)
|
||||
(set_tile "ART" m_ART)
|
||||
(SetDia)
|
||||
(ACTION_TILE "ART" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
(if (= m_ART "ART_1") ; Nr 1
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp03_1)")
|
||||
)
|
||||
(if (= m_ART "ART_2") ; Nr 2
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp03_2)")
|
||||
)
|
||||
(if (= m_ART "ART_3") ; Nr 3
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp03_3)")
|
||||
)
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq m_ART (get_tile "ART"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun SetPara ()
|
||||
(setq m_L1 (get_tile "L1") ; Breite
|
||||
m_K0 (get_tile "K0") ; Anzahl Plätze
|
||||
m_ART (get_tile "ART") ; Art
|
||||
m_L2 (get_tile "L2") ; Streckenabstand
|
||||
)
|
||||
)
|
||||
|
||||
(defun datain()
|
||||
(setq L1 (atoi m_L1)) ; Breite
|
||||
(setq K0 (atoi m_K0)) ; Anzahl Plätze
|
||||
(setq ART (atoi (substr m_ART 5 1))) ; Art
|
||||
(setq L2 (atoi m_L2)) ; Streckenabstand
|
||||
;----------------------------------------------------------------------;
|
||||
; >>>>>> Eingabeteil <<<<<< ;
|
||||
;----------------------------------------------------------------------;
|
||||
(setq P0 (getpoint "\nObere linke Ecke definieren: "))
|
||||
(initget (+ 2 4))
|
||||
;----------------------------------------------------------------------;
|
||||
; >>>>>> PrÜfung ob die Grenzwerte eingehalten sind <<<<<< ;
|
||||
;----------------------------------------------------------------------;
|
||||
(while (or (< L1 2000) (> L1 6000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L1 (getreal "\nBreite eingeben [2000-6000]: "))
|
||||
)
|
||||
|
||||
(while (or (< L2 800) (> L2 2000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L2 (getint "\nStreckenabstand eingeben [800-2000]: "))
|
||||
)
|
||||
)
|
||||
|
||||
(defun punkte()
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Konstruktionspunkte definieren <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(setq P1 (list (car p0) (- (cadr p0) 800)))
|
||||
(setq P2 (list (car p0) (- (cadr p1) L2)))
|
||||
(setq P3 (list (car p0) (+ (cadr p2) 800)))
|
||||
(setq P4 (list (car p0) (- (cadr p3) L2)))
|
||||
(setq P5 (list (+ (car p1) 800) (cadr p1)))
|
||||
(setq P6 (list (+ (car p2) 800) (cadr p2)))
|
||||
(setq P7 (list (+ (car p1) L1) (cadr p1)))
|
||||
(setq P8 (list (+ (car p2) L1) (cadr p2)))
|
||||
(setq P9 (list (- (car p4) 300) (- (cadr p4) 300)))
|
||||
(setq P10 (list (+ (car p7) 2500) (+ (cadr p7) 1000)))
|
||||
(cond
|
||||
((= ART 1)
|
||||
(setq P11 (list (- (car p8) 400) (cadr p8)))
|
||||
(setq P12 (list (- (car p7) 400) (cadr p7)))
|
||||
(setq P13 (list (+ (car p1) 1175) (cadr p1)))
|
||||
(setq P14 (list (+ (car p2) 800) (cadr p2)))
|
||||
(setq P15 (list (car p1) (+ (cadr p1) 400)))
|
||||
(setq P16 (list (car p2) (+ (cadr p2) 700)))
|
||||
(setq P17 (list (+ (car p8) 1800) (+ (cadr p8) 250)))
|
||||
(setq P18 (list (- (car p17) 700) (+ (cadr p17) 560)))
|
||||
(setq P19 (list (+ (car p7) 150) (- (cadr p7) 200)))
|
||||
(setq P20 (list (+ (car p8) 300) (+ (cadr p8) 300)))
|
||||
)
|
||||
((= ART 2)
|
||||
(setq P11 (list (- (car p8) 400) (cadr p8)))
|
||||
(setq P12 (list (- (car p7) 400) (cadr p7)))
|
||||
(setq P13 (list (+ (car p1) 800) (cadr p1)))
|
||||
(setq P14 (list (+ (car p2) 1175) (cadr p2)))
|
||||
(setq P15 (list (car p1) (+ (cadr p1) 700)))
|
||||
(setq P16 (list (car p2) (+ (cadr p2) 400)))
|
||||
(setq P17 (list (+ (car p8) 1800) (+ (cadr p8) 250)))
|
||||
(setq P18 (list (- (car p17) 700) (+ (cadr p17) 560)))
|
||||
(setq P19 (list (+ (car p7) 300) (- (cadr p7) 300)))
|
||||
(setq P20 (list (+ (car p8) 150) (+ (cadr p8) 200)))
|
||||
)
|
||||
((= ART 3)
|
||||
(setq P11 (list (- (car p8) 400) (cadr p8)))
|
||||
(setq P12 (list (- (car p7) 400) (cadr p7)))
|
||||
(setq P13 (list (+ (car p1) 1175) (cadr p1)))
|
||||
(setq P14 (list (+ (car p2) 800) (cadr p2)))
|
||||
(setq P15 (list (car p1) (+ (cadr p1) 400)))
|
||||
(setq P16 (list (car p2) (+ (cadr p2) 700)))
|
||||
(setq P17 (list (+ (car p7) 200) (+ (cadr p7) 100)))
|
||||
(setq P18 (list (+ (car p17) 1000) (- (cadr p17) 1100)))
|
||||
(setq P19 (list (+ (car p7) 150) (- (cadr p7) 200)))
|
||||
(setq P20 (list (+ (car p8) 300) (+ (cadr p8) 300)))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Bl”cke einf�gen <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(command "_layer" "_m" "L-2" "_c" "2" "" "")
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w90650l8") P1 "" "" "-90")
|
||||
(setq auswahl-satz (ssget "_L"))
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w90650l8") P2 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/endp") P7 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/endp") P8 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p1 p3 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p5 p7 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p6 p8 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p2 p4 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Pfeile + Maschinen setzen <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(command "_layer" "_m" "Z-1" "_c" "1" "" "")
|
||||
(cond
|
||||
((= ART 1)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p13 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p14 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p15 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p16 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p18 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") p17 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p11 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p12 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p19 "0.5" "0.5" "-45")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p20 "0.5" "0.5" "225")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 2)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p13 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p14 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p15 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p16 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p18 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") p17 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p11 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p12 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p19 "0.5" "0.5" "135")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p20 "0.5" "0.5" "45")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 3)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p13 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p14 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p15 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p16 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p18 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/dobli-fw") p17 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p11 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p12 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p19 "0.5" "0.5" "-45")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p20 "0.5" "0.5" "225")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
)
|
||||
(If (> K0 1)
|
||||
(command "_array" auswahl-satz "" "_r" m_K0 "1" (itoa (* 2 L2)))
|
||||
)
|
||||
)
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
; >>>>>> Programm <<<<<< ;
|
||||
;-------------------------------------------------------------------------;
|
||||
(defun c:b_typ3 (/ L1 L2 L3 KO ART P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12
|
||||
P13 P14 P15 P16 P17 P18 P19 P20)
|
||||
(setvar "limcheck" 0)
|
||||
(prompt "**** Bügelplatz TYP 3 *******")
|
||||
(if (null m_L1) (setq m_L1 "2000" )) ; Breite
|
||||
(if (null m_L2) (setq m_L2 "800" )) ; Streckenabstand
|
||||
(if (null m_K0) (setq m_K0 "1" )) ; Anzahl der Plätze
|
||||
(if (null m_ART) (setq m_ART "ART_1" )) ; Art
|
||||
(setq auswahl-satz nil)
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(punkte)
|
||||
(geometrie)
|
||||
)
|
||||
;-------------------------------------------------------------------------;
|
||||
; >>>>>> Ende <<<<<< ;
|
||||
;-------------------------------------------------------------------------;
|
||||
Binary file not shown.
@@ -0,0 +1,300 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; Bügelplätze zeichnen - TYP 4 - ;
|
||||
; -----------------------------------------------------------------------;
|
||||
; 27.09.93 / 13.6.98 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/module/b_typ4.dcl")))
|
||||
(if (not (new_dialog "b_typ4" Dat)) (exit))
|
||||
(set_tile "L1" m_L1)
|
||||
(set_tile "L2" m_L2)
|
||||
(set_tile "L3" m_L3)
|
||||
(set_tile "K0" m_K0)
|
||||
(set_tile "ART" m_ART)
|
||||
(SetDia)
|
||||
(ACTION_TILE "ART" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
(if (= m_ART "ART_1") ; Nr 1
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp04_1)")
|
||||
)
|
||||
(if (= m_ART "ART_2") ; Nr 2
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp04_2)")
|
||||
)
|
||||
(if (= m_ART "ART_3") ; Nr 3
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp04_3)")
|
||||
)
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq m_ART (get_tile "ART"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun SetPara ()
|
||||
(setq m_L1 (get_tile "L1") ; Streckenabstand
|
||||
m_K0 (get_tile "K0") ; Anzahl Plätze
|
||||
m_ART (get_tile "ART") ; Art
|
||||
m_L2 (get_tile "L2") ; Tiefe
|
||||
m_L3 (get_tile "L3") ; lichte Weite
|
||||
)
|
||||
)
|
||||
(defun datain()
|
||||
(setq L1 (atoi m_L1)) ; Streckenabstand
|
||||
(setq K0 (atoi m_K0)) ; Anzahl Plätze
|
||||
(setq ART (atoi (substr m_ART 5 1))) ; Art
|
||||
(setq L2 (atoi m_L2)) ; Tiefe
|
||||
(setq L3 (atoi m_L3)) ; lichte Weite
|
||||
|
||||
;----------------------------------------------------------------------;
|
||||
; >>>>>> Eingabeteil <<<<<< ;
|
||||
;----------------------------------------------------------------------;
|
||||
(setq P0 (getpoint "\nUntere linke Ecke definieren: "))
|
||||
(initget (+ 2 4))
|
||||
;----------------------------------------------------------------------;
|
||||
; >>>>>> Pr�fung ob die Grenzwerte eingehalten sind <<<<<< ;
|
||||
;----------------------------------------------------------------------;
|
||||
(while (or (< L1 800) (> L1 2000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L1 (getreal "\nStreckenabstand eingeben [800-2000]: "))
|
||||
)
|
||||
(while (or (< L2 1500) (> L2 6000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L2 (getint "\nTiefe eingeben [1500-6000]: "))
|
||||
)
|
||||
(while (or (< L3 1000) (> L3 3000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L3 (getint "\nlichte Weite zw. den Pl„tzen eingeben [1000-3000]: "))
|
||||
)
|
||||
;----------------------------------------------------------------------;
|
||||
; >>>>>> Prüfung welche Radien verwendet werden <<<<<< ;
|
||||
;----------------------------------------------------------------------;
|
||||
(if
|
||||
(and (>= L3 1000) (< L3 1400))
|
||||
(setq R 400)
|
||||
)
|
||||
(if
|
||||
(and (>= L3 1400) (<= L3 3000))
|
||||
(setq R 650)
|
||||
)
|
||||
)
|
||||
|
||||
(defun punkte()
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Konstruktionspunkte definieren <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(setq P1 (list (car p0) (+ (cadr p0) L2)))
|
||||
(setq P2 (list (+ (car p1) L1) (cadr p1)))
|
||||
(setq P3 (list (+ (car p0) L1) (cadr p0)))
|
||||
(cond
|
||||
((= R 400)
|
||||
(setq P4 (list (car p0) (+ (cadr p0) 500)))
|
||||
(setq P5 (list (car p3) (+ (cadr p3) 500)))
|
||||
(setq P6 (list (car p1) (- (cadr p1) 500)))
|
||||
(setq P7 (list (car P2) (- (cadr p2) 500)))
|
||||
(setq P8 (list (+ (car p1) 500) (cadr p1)))
|
||||
(setq P9 (list (- (car p2) 500) (cadr p2)))
|
||||
(setq P10 (list (+ (car p3) 500) (cadr p3)))
|
||||
(setq P11 (list (+ (car p3) (- L3 500))(cadr p3)))
|
||||
(setq P12 (list (- (car p0) 1100) (- (cadr p0) 300)))
|
||||
(setq P13 (list (+ (car p11) 300) (+ (cadr p2) 2500)))
|
||||
)
|
||||
((= R 650)
|
||||
(setq P4 (list (car p0) (+ (cadr p0) 800)))
|
||||
(setq P5 (list (car p3) (+ (cadr p3) 800)))
|
||||
(setq P6 (list (car p1) (- (cadr p1) 500)))
|
||||
(setq P7 (list (car P2) (- (cadr p2) 500)))
|
||||
(setq P8 (list (+ (car p1) 500) (cadr p1)))
|
||||
(setq P9 (list (- (car p2) 500) (cadr p2)))
|
||||
(setq P10 (list (+ (car p3) 800) (cadr p3)))
|
||||
(setq P11 (list (+ (car p3) (- L3 800))(cadr p3)))
|
||||
(setq P12 (list (- (car p0) 1100) (- (cadr p0) 300)))
|
||||
(setq P13 (list (+ (car p11) 300) (+ (cadr p2) 2500)))
|
||||
)
|
||||
)
|
||||
(cond
|
||||
((= ART 1)
|
||||
(setq P14 (list (- (car p0) 700) (cadr p0)))
|
||||
(setq P15 (list (- (car p3) (+ (/ l1 2) 187.5)) (cadr p3)))
|
||||
(setq P16 (list (car p0) (+ (cadr p0) (- (/ L2 2) 187.5))))
|
||||
(setq P17 (list (car p3) (+ (cadr p3) (+ (/ l2 2) 187.5))))
|
||||
(setq P18 (list (+ (car p1) (/ l1 2)) (cadr p1)))
|
||||
(setq P19 (list (car p2) (+ (cadr p2) 2000)))
|
||||
(setq P20 (list (- (car p19) 560) (- (cadr p19) 700)))
|
||||
(setq p21 (list (+ (car p1) 530) (+ (cadr p1) 700)))
|
||||
(setq p22 (list (car p2) (- (cadr p2) 100)))
|
||||
)
|
||||
((= ART 2)
|
||||
(setq P14 (list (- (car p0) 350) (cadr p0)))
|
||||
(setq P15 (list (- (car p3) (- (/ l1 2) 187.5)) (cadr p3)))
|
||||
(setq P16 (list (car p0) (+ (cadr p0) (+ (/ L2 2) 187.5))))
|
||||
(setq P17 (list (car p3) (+ (cadr p3) (- (/ l2 2) 187.5))))
|
||||
(setq P18 (list (+ (car p1) (/ l1 2)) (cadr p1)))
|
||||
(setq P19 (list (car p2) (+ (cadr p2) 2000)))
|
||||
(setq P20 (list (- (car p19) 560) (- (cadr p19) 700)))
|
||||
(setq p21 (list (+ (car p1) 200) (+ (cadr p1) 150)))
|
||||
(setq p22 (list (- (car p2) 200) (+ (cadr p2) 820)))
|
||||
)
|
||||
((= ART 3)
|
||||
(setq P14 (list (- (car p0) 700) (cadr p0)))
|
||||
(setq P15 (list (- (car p3) (+ (/ l1 2) 187.5)) (cadr p3)))
|
||||
(setq P16 (list (car p0) (+ (cadr p0) (- (/ L2 2) 187.5))))
|
||||
(setq P17 (list (car p3) (+ (cadr p3) (+ (/ l2 2) 187.5))))
|
||||
(setq P18 (list (+ (car p1) (/ l1 2)) (cadr p1)))
|
||||
(setq P19 (list (- (car p1) 350) (+ (cadr p1) 400)))
|
||||
(setq P20 (list (+ (car p19) 1000) (+ (cadr p19) 700)))
|
||||
(setq p21 (list (+ (car p1) 530) (+ (cadr p1) 700)))
|
||||
(setq p22 (list (car p2) (- (cadr p2) 100)))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Blöcke einfügen <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(command "_layer" "_m" "L-2" "_c" "2" "" "")
|
||||
(cond
|
||||
((= R 400)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w90400l5") P0 "" "" "")
|
||||
(setq auswahl-satz (ssget "_L"))
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w90400r5") P3 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/s90400l5") P1 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/s90400l5") P2 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p4 p6 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p5 p7 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p8 p9 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p10 p11 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p0 p3 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= R 650)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w90650l8") P0 "" "" "")
|
||||
(setq auswahl-satz (ssget "_L"))
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w90650r8") P3 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/s90400l5") P1 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/s90400l5") P2 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p4 p6 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p5 p7 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p8 p9 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p10 p11 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p0 p3 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
)
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Pfeile + Maschinen setzen <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(command "_layer" "_m" "Z-1" "_c" "1" "" "")
|
||||
(cond
|
||||
((= ART 1)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p14 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p15 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p16 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p17 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p20 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") p19 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p18 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p21 "" "" "-120")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p22 "" "" "100")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 2)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p14 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p15 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p16 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p17 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p20 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") p19 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p18 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p21 "" "" "70")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p22 "" "" "-80")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 3)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p14 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p15 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p16 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p17 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p20 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/dobli-fw") p19 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p18 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p21 "" "" "-120")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p22 "" "" "100")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
)
|
||||
(If (> K0 1)
|
||||
(command "_array" auswahl-satz "" "_r" "1" m_K0 (itoa (+ L1 L3)))
|
||||
)
|
||||
)
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
; >>>>>> Programm <<<<<< ;
|
||||
;-------------------------------------------------------------------------;
|
||||
(defun c:b_typ4 (/ L1 L2 L3 KO ART R P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 P17 P18 P19 P20)
|
||||
(setvar "limcheck" 0)
|
||||
(prompt "**** Bügelplatz TYP 4 *****")
|
||||
(if (null m_L1) (setq m_L1 "800" )) ; Streckenabstand
|
||||
(if (null m_L2) (setq m_L2 "1500" )) ; Tiefe
|
||||
(if (null m_L3) (setq m_L3 "1400" )) ; Lichte Weite zum nächsten Platz
|
||||
(if (null m_K0) (setq m_K0 "1" )) ; Anzahl der Plätze
|
||||
(if (null m_ART) (setq m_ART "ART_1" )) ; Art
|
||||
(setq auswahl-satz nil)
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(punkte)
|
||||
(geometrie)
|
||||
)
|
||||
;-------------------------------------------------------------------------;
|
||||
; >>>>>> Ende <<<<<< ;
|
||||
;-------------------------------------------------------------------------;
|
||||
Binary file not shown.
@@ -0,0 +1,242 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; Bügelplätze zeichnen - TYP 5 - ;
|
||||
; -----------------------------------------------------------------------;
|
||||
; 28.09.93 / 13.6.98 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/module/b_typ5.dcl")))
|
||||
(if (not (new_dialog "b_typ5" Dat)) (exit))
|
||||
(set_tile "L1" m_L1)
|
||||
(set_tile "L2" m_L2)
|
||||
(set_tile "K0" m_K0)
|
||||
(set_tile "ART" m_ART)
|
||||
(SetDia)
|
||||
(ACTION_TILE "ART" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
(if (= m_ART "ART_1") ; Nr 1
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp05_1)")
|
||||
)
|
||||
(if (= m_ART "ART_2") ; Nr 2
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp05_2)")
|
||||
)
|
||||
(if (= m_ART "ART_3") ; Nr 3
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp05_3)")
|
||||
)
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq m_ART (get_tile "ART"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun SetPara ()
|
||||
(setq m_L1 (get_tile "L1") ; Breite
|
||||
m_K0 (get_tile "K0") ; Anzahl Plätze
|
||||
m_ART (get_tile "ART") ; Art
|
||||
m_L2 (get_tile "L2") ; Streckenabstand
|
||||
)
|
||||
)
|
||||
|
||||
(defun datain()
|
||||
(setq L1 (atoi m_L1)) ; Streckenabstand
|
||||
(setq K0 (atoi m_K0)) ; Anzahl Plätze
|
||||
(setq ART (atoi (substr m_ART 5 1))) ; Art
|
||||
(setq L2 (atoi m_L2)) ; Tiefe
|
||||
;----------------------------------------------------------------------;
|
||||
; >>>>>> Eingabeteil <<<<<< ;
|
||||
;----------------------------------------------------------------------;
|
||||
(setq P0 (getpoint "\nUntere linke Ecke definieren: "))
|
||||
(initget (+ 2 4))
|
||||
;----------------------------------------------------------------------;
|
||||
; >>>>>> Prüfung ob die Grenzwerte eingehalten sind <<<<<< ;
|
||||
;----------------------------------------------------------------------;
|
||||
(while (or (< L1 2250) (> L1 6000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L1 (getreal "\nBreite eingeben [2250-6000]: "))
|
||||
)
|
||||
(while (or (< L2 700) (> L2 2000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L2 (getint "\nStreckenabstand eingeben [700-2000]: "))
|
||||
)
|
||||
)
|
||||
|
||||
(defun punkte()
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Konstruktionspunkte definieren <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(setq P1 (list (+ (car p0) 425 ) (cadr p0)))
|
||||
(setq P2 (list (+ (car p1) L2 ) (+ (cadr p1) L2)))
|
||||
(setq P3 (list (+ (car p1) (* L2 2) ) (cadr p1)))
|
||||
(setq P4 (list (+ (car p0) 800 ) (cadr p0)))
|
||||
(setq P5 (list (+ (car p0) 825 ) (+ (cadr p0) 400)))
|
||||
(setq P6 (list (- (car p2) 283 ) (- (cadr p2) 283)))
|
||||
(setq P7 (list (+ (car p2) 400 ) (cadr p2)))
|
||||
(setq P8 (list (+ (car p2) 283 ) (- (cadr p2) 283)))
|
||||
(setq P9 (list (- (car p3) 400 ) (+ (cadr p3) 400)))
|
||||
(setq P10 (list (- (car p3) 375 ) (cadr p3)))
|
||||
(setq P11 (list (+ (car p3) 425 ) (cadr p3)))
|
||||
(setq P12 (list (+ (car p0) L1 ) (cadr p0)))
|
||||
(setq P13 (list (+ (car p2) (- L1 400)) (cadr p2)))
|
||||
(setq P14 (list (- (car p0) 200 ) (- (cadr p0) 400 )))
|
||||
(setq P15 (list (+ (car p13) 200 ) (+ (cadr p2) 2000)))
|
||||
(cond
|
||||
((= ART 1)
|
||||
(setq P16 (list (+ (car p0) 100) (cadr p0)))
|
||||
(setq P17 (list (+ (car p2) (- (/ L2 2) 187.5)) (- (cadr p2) (- (/ L2 2) 187.5))))
|
||||
(setq P18 (list (+ (car p2) (/ L1 2)) (cadr p2)))
|
||||
(setq P19 (list (car p2) (- (cadr p18) L2)))
|
||||
(setq P20 (list (+ (car p1) 250) (+ (cadr p1) 250)))
|
||||
(setq P21 (list (+ (car p2) (- (/ L1 2) 300)) (+ (cadr p2) 2000)))
|
||||
(setq P22 (list (- (car p21) 700) (- (cadr p21) 700)))
|
||||
(setq P23 (list (+ (car p22) 200) (+ (cadr p2) 850)))
|
||||
(setq P24 (list (+ (car p23) 550) (+ (cadr p2) 100)))
|
||||
)
|
||||
((= ART 2)
|
||||
(setq P16 (list (- (car p11) 100) (cadr p0)))
|
||||
(setq P17 (list (- (car p2) (- (/ L2 2) 187.5)) (- (cadr p2) (- (/ L2 2) 187.5))))
|
||||
(setq P18 (list (+ (car p2) (/ L1 2)) (cadr p2)))
|
||||
(setq P19 (list (car p2) (- (cadr p18) L2)))
|
||||
(setq P20 (list (- (car p3) 250) (+ (cadr p3) 250)))
|
||||
(setq P21 (list (+ (car p2) (- (/ L1 2) 300)) (+ (cadr p2) 2000)))
|
||||
(setq P22 (list (- (car p21) 700) (- (cadr p21) 700)))
|
||||
(setq P23 (list (+ (car p7) 200) (+ (cadr p2) 100)))
|
||||
(setq P24 (list (+ (car p7) 350) (+ (cadr p2) 850)))
|
||||
)
|
||||
((= ART 3)
|
||||
(setq P16 (list (+ (car p0) 100) (cadr p0)))
|
||||
(setq P17 (list (+ (car p2) (- (/ L2 2) 187.5)) (- (cadr p2) (- (/ L2 2) 187.5))))
|
||||
(setq P18 (list (+ (car p2) (/ L1 2)) (cadr p2)))
|
||||
(setq P19 (list (car p2) (- (cadr p18) L2 )))
|
||||
(setq P20 (list (+ (car p1) 250) (+ (cadr p1) 250)))
|
||||
(setq P21 (list (car p7) (+ (cadr p7) 400)))
|
||||
(setq P22 (list (+ (car p21) 1000) (+ (cadr p21) 700)))
|
||||
(setq P23 (list (+ (car p22) 200) (+ (cadr p2) 850)))
|
||||
(setq P24 (list (+ (car p23) 550) (+ (cadr p2) 100)))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Blöcke einfügen <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(command "_layer" "_m" "L-2" "_c" "2" "" "")
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w45650l4") P1 "" "" "")
|
||||
(setq auswahl-satz (ssget "_L"))
|
||||
(command "_insert" (strcat lw "/acadsst/layout/kw800_8x") P2 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w45650r4") P3 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p5 p6 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p7 p13 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p8 p9 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p4 p10 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p11 p12 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Pfeile + Maschinen setzen <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(command "_layer" "_m" "Z-1" "_c" "1" "" "")
|
||||
(cond
|
||||
((= ART 1)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p16 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p17 "" "" "-45")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p18 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p19 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p22 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") p21 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p20 "" "" "-45")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p23 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p24 "" "" "120")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 2)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p16 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p17 "" "" "-135")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p18 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p19 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p22 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") p21 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p20 "" "" "45")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p23 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p24 "" "" "-60")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 3)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p16 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p17 "" "" "-45")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p18 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p19 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p22 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/dobli-fw") p21 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p20 "" "" "-45")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p23 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p24 "" "" "120")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
)
|
||||
(If (> K0 1)
|
||||
(command "_array" auswahl-satz "" "_r" "1" m_K0 (itoa L1))
|
||||
)
|
||||
)
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
; >>>>>> Programm <<<<<< ;
|
||||
;-------------------------------------------------------------------------;
|
||||
(defun c:b_typ5 (/ L1 L2 L3 KO ART P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 P17 P18 P19 P20 P21 P22 P23 P24)
|
||||
(setvar "limcheck" 0)
|
||||
(prompt "**** Bügelplatz TYP 5 ****")
|
||||
(if (null m_L1) (setq m_L1 "2800" )) ; Breite
|
||||
(if (null m_L2) (setq m_L2 "800" )) ; Streckenabstand
|
||||
(if (null m_K0) (setq m_K0 "1" )) ; Anzahl der Plätze
|
||||
(if (null m_ART) (setq m_ART "ART_1" )) ; Art
|
||||
(setq auswahl-satz nil)
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(punkte)
|
||||
(geometrie)
|
||||
)
|
||||
;-------------------------------------------------------------------------;
|
||||
; >>>>>> Ende <<<<<< ;
|
||||
;-------------------------------------------------------------------------;
|
||||
Binary file not shown.
@@ -0,0 +1,275 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; Bügelplätze zeichnen - TYP 6 - ;
|
||||
; -----------------------------------------------------------------------;
|
||||
; 29.09.93 / 13.6.98 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/module/b_typ6.dcl")))
|
||||
(if (not (new_dialog "b_typ6" Dat)) (exit))
|
||||
(set_tile "L1" m_L1)
|
||||
(set_tile "L2" m_L2)
|
||||
(set_tile "K0" m_K0)
|
||||
(set_tile "ART" m_ART)
|
||||
(SetDia)
|
||||
(ACTION_TILE "ART" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
(if (= m_ART "ART_1") ; Nr 1
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp06_1)")
|
||||
)
|
||||
(if (= m_ART "ART_2") ; Nr 2
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp06_2)")
|
||||
)
|
||||
(if (= m_ART "ART_3") ; Nr 3
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp06_3)")
|
||||
)
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq m_ART (get_tile "ART"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun SetPara ()
|
||||
(setq m_L1 (get_tile "L1") ; Breite
|
||||
m_K0 (get_tile "K0") ; Anzahl Plätze
|
||||
m_ART (get_tile "ART") ; Art
|
||||
m_L2 (get_tile "L2") ; Streckenabstand
|
||||
)
|
||||
)
|
||||
|
||||
(defun datain()
|
||||
(setq L1 (atoi m_L1)) ; Streckenabstand
|
||||
(setq K0 (atoi m_K0)) ; Anzahl Plätze
|
||||
(setq ART (atoi (substr m_ART 5 1))) ; Art
|
||||
(setq L2 (atoi m_L2)) ; Tiefe
|
||||
;----------------------------------------------------------------------;
|
||||
; >>>>>> Eingabeteil <<<<<< ;
|
||||
;----------------------------------------------------------------------;
|
||||
(setq P0 (getpoint "\nuntere linke Ecke definieren: "))
|
||||
(initget (+ 2 4))
|
||||
;----------------------------------------------------------------------;
|
||||
; >>>>>> Prüfung ob die Grenzwerte eingehalten sind <<<<<< ;
|
||||
;----------------------------------------------------------------------;
|
||||
(while (or (< L1 2800) (> L1 5000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L1 (getreal "\nBreite eingeben [2800-5000]: "))
|
||||
)
|
||||
(while (or (< L2 700) (> L2 1200))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L2 (getint "\nStreckenabstand eingeben [700-1200]: "))
|
||||
)
|
||||
)
|
||||
|
||||
(defun punkte()
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Konstruktionspunkte definieren <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(cond
|
||||
((= ART 1)
|
||||
(setq P1 (list (+ (car p0) 425) (cadr p0)))
|
||||
(setq P2 (list (+ (car p1) L2) (+ (cadr p1) L2)))
|
||||
(setq P3 (list (+ (car p0) L1) (cadr p2)))
|
||||
(setq P4 (list (+ (car p1) 400) (+ (cadr p1) 400)))
|
||||
(setq P5 (list (- (car p2) 400) (- (cadr p2) 400)))
|
||||
(setq P6 (list (+ (car p2) 425) (cadr p2)))
|
||||
(setq P7 (list (+ (car p0) 800) (cadr p0)))
|
||||
(setq P8 (list (+ (car p0) L1) (cadr p0)))
|
||||
(setq P9 (list (- (car p0) 300) (- (cadr p0) 300)))
|
||||
(setq P10 (list (+ (car p3) 300) (+ (cadr p3) 2500)))
|
||||
(setq P11 (list (+ (car p1) (- (/ L2 2) 187.5)) (+ (cadr p1) (- (/ L2 2) 187.5))))
|
||||
(setq P12 (list (- (car p3) 200) (cadr p3)))
|
||||
(setq P13 (list (+ (car p0) (/ L1 2)) (cadr p0)))
|
||||
(setq P14 (list (+ (car p2) 650) (cadr p2)))
|
||||
(setq P15 (list (+ (car p2) 900) (+ (cadr p2) 2000)))
|
||||
(setq P16 (list (- (car p15) 560) (- (cadr p15) 700)))
|
||||
(setq P17 (list (+ (car p2) 300) (+ (cadr p2) 100)))
|
||||
(setq P18 (list (+ (car p2) 550) (+ (cadr p2) 850)))
|
||||
)
|
||||
((= ART 2)
|
||||
(setq P1 (list (+ (car p0) (- L1 425)) (cadr p0)))
|
||||
(setq P2 (list (- (car p1) L2) (+ (cadr p1) L2)))
|
||||
(setq P3 (list (car p0) (+ (cadr p0) L2)))
|
||||
(setq P4 (list (- (car p1) 400) (+ (cadr p1) 400)))
|
||||
(setq P5 (list (+ (car p2) 400) (- (cadr p2) 400)))
|
||||
(setq P6 (list (- (car p2) 425) (cadr p2)))
|
||||
(setq P7 (list (+ (car p0) (- L1 800)) (cadr p0)))
|
||||
(setq P8 (list (+ (car p0) L1) (cadr p0)))
|
||||
(setq P9 (list (- (car p0) 300) (- (cadr p0) 300)))
|
||||
(setq P10 (list (+ (car p8) 300) (+ (cadr p8) (+ L2 2500))))
|
||||
(setq P11 (list (- (car p1) (- (/ L2 2) 187.5)) (+ (cadr p1) (- (/ L2 2) 187.5))))
|
||||
(setq P12 (list (+ (car p3) 400) (cadr p3)))
|
||||
(setq P13 (list (+ (car p0) (/ L1 2)) (cadr p0)))
|
||||
(setq P14 (list (- (car p2) 300) (cadr p2)))
|
||||
(setq P15 (list (- (car p2) 900) (+ (cadr p2) 2000)))
|
||||
(setq P16 (list (- (car p15) 560) (- (cadr p15) 700)))
|
||||
(setq P17 (list (- (car p2) 1500) (+ (cadr p2) 100)))
|
||||
(setq P18 (list (- (car p2) 1250) (+ (cadr p2) 850)))
|
||||
)
|
||||
((= ART 3)
|
||||
(setq P1 (list (+ (car p0) 425) (cadr p0)))
|
||||
(setq P2 (list (+ (car p1) L2) (+ (cadr p1) L2)))
|
||||
(setq P3 (list (+ (car p0) L1) (cadr p2)))
|
||||
(setq P4 (list (+ (car p1) 400) (+ (cadr p1) 400)))
|
||||
(setq P5 (list (- (car p2) 400) (- (cadr p2) 400)))
|
||||
(setq P6 (list (+ (car p2) 425) (cadr p2)))
|
||||
(setq P7 (list (+ (car p0) 800) (cadr p0)))
|
||||
(setq P8 (list (+ (car p0) L1) (cadr p0)))
|
||||
(setq P9 (list (- (car p0) 300) (- (cadr p0) 300)))
|
||||
(setq P10 (list (+ (car p3) 300) (+ (cadr p3) 2500)))
|
||||
(setq P11 (list (+ (car p1) (- (/ L2 2) 187.5)) (+ (cadr p1) (- (/ L2 2) 187.5))))
|
||||
(setq P12 (list (- (car p3) 400) (cadr p3)))
|
||||
(setq P13 (list (+ (car p0) (/ L1 2)) (cadr p0)))
|
||||
(setq P14 (list (+ (car p2) 300) (cadr p2)))
|
||||
(setq P15 (list (+ (car p2) 300) (+ (cadr p2) 400)))
|
||||
(setq P16 (list (+ (car p15) 1000) (+ (cadr p15) 750)))
|
||||
(setq P17 (list (+ (car p2) 500) (+ (cadr p2) 100)))
|
||||
(setq P18 (list (+ (car p2) 1300) (+ (cadr p2) 850)))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Bl”cke einf�gen <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(command "_layer" "_m" "L-2" "_c" "2" "" "")
|
||||
(cond
|
||||
((= ART 1)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w45650l4") P1 "" "" "")
|
||||
(setq auswahl-satz (ssget "_L"))
|
||||
(command "_insert" (strcat lw "/acadsst/layout/s45650l4") P2 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/endp") P3 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p4 p5 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p6 p3 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p7 p8 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 2)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w45650r4") P1 "" "" "180")
|
||||
(setq auswahl-satz (ssget "_L"))
|
||||
(command "_insert" (strcat lw "/acadsst/layout/s45650r4") P2 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/endp") P3 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p4 p5 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p6 p3 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p0 p7 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 3)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w45650l4") P1 "" "" "")
|
||||
(setq auswahl-satz (ssget "_L"))
|
||||
(command "_insert" (strcat lw "/acadsst/layout/s45650l4") P2 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/endp") P3 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p4 p5 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p6 p3 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p7 p8 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
)
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Pfeile + Maschinen setzen <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(command "_layer" "_m" "Z-1" "_c" "1" "" "")
|
||||
(cond
|
||||
((= ART 1)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p11 "" "" "45")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p12 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p13 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p16 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") p15 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p14 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p17 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p18 "" "" "-60")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 2)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p11 "" "" "135")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p12 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p13 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p16 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") p15 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p14 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p17 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p18 "" "" "-60")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 3)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p11 "" "" "45")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p12 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p13 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p16 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/dobli-fw") p15 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p14 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p17 "" "" "30")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p18 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
)
|
||||
(If (> K0 1)
|
||||
(command "_array" auswahl-satz "" "_r" "1" m_K0 (itoa L1))
|
||||
)
|
||||
)
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
; >>>>>> Programm <<<<<< ;
|
||||
;-------------------------------------------------------------------------;
|
||||
(defun c:b_typ6 (/ L1 L2 L3 KO ART P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 P17 P18)
|
||||
(setvar "limcheck" 0)
|
||||
(prompt "**** Bügelplatz TYP 6 ****")
|
||||
(if (null m_L1) (setq m_L1 "2800" )) ; Breite
|
||||
(if (null m_L2) (setq m_L2 "800" )) ; Streckenabstand
|
||||
(if (null m_K0) (setq m_K0 "1" )) ; Anzahl der Plätze
|
||||
(if (null m_ART) (setq m_ART "ART_1" )) ; Art
|
||||
(setq auswahl-satz nil)
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(punkte)
|
||||
(geometrie)
|
||||
)
|
||||
;-------------------------------------------------------------------------;
|
||||
; >>>>>> Ende <<<<<< ;
|
||||
;-------------------------------------------------------------------------;
|
||||
Binary file not shown.
@@ -0,0 +1,262 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; Bugelplätze zeichnen - TYP 7 - ;
|
||||
; -----------------------------------------------------------------------;
|
||||
; 13.10.93 / 13.6.98 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/module/b_typ7.dcl")))
|
||||
(if (not (new_dialog "b_typ7" Dat)) (exit))
|
||||
(set_tile "L1" m_L1)
|
||||
(set_tile "L2" m_L2)
|
||||
(set_tile "K0" m_K0)
|
||||
(set_tile "ART" m_ART)
|
||||
(SetDia)
|
||||
(ACTION_TILE "ART" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
(if (= m_ART "ART_1") ; Nr 1
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp07_1)")
|
||||
)
|
||||
(if (= m_ART "ART_2") ; Nr 2
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp07_2)")
|
||||
)
|
||||
(if (= m_ART "ART_3") ; Nr 3
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp07_3)")
|
||||
)
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq m_ART (get_tile "ART"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun SetPara ()
|
||||
(setq m_L1 (get_tile "L1") ; Breite
|
||||
m_K0 (get_tile "K0") ; Tiefe
|
||||
m_ART (get_tile "ART") ; Art
|
||||
m_L2 (get_tile "L2") ; Streckenabstand
|
||||
)
|
||||
)
|
||||
|
||||
(defun datain()
|
||||
(setq L1 (atoi m_L1)) ; Breite
|
||||
(setq K0 (atoi m_K0)) ; Anzahl Plätze
|
||||
(setq ART (atoi (substr m_ART 5 1))) ; Art
|
||||
(setq L2 (atoi m_L2)) ; Tiefe
|
||||
;----------------------------------------------------------------------;
|
||||
; >>>>>> Eingabeteil <<<<<< ;
|
||||
;----------------------------------------------------------------------;
|
||||
(setq P0 (getpoint "\nUntere linke Ecke definieren: "))
|
||||
(initget (+ 2 4))
|
||||
;----------------------------------------------------------------------;
|
||||
; >>>>>> Prüfung ob die Grenzwerte eingehalten sind <<<<<< ;
|
||||
; >>>>>> in Abhängigkeit von der Bügelplatzart <<<<<< ;
|
||||
;----------------------------------------------------------------------;
|
||||
(If
|
||||
(or (= ART 1) (= ART 2))
|
||||
(while (or (< L1 2500) (> L1 4000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L1 (getreal "\nBreite eingeben [2500-6000]: "))
|
||||
)
|
||||
)
|
||||
(If
|
||||
(= Art 3)
|
||||
(while (or (< L1 2800) (> L1 4000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L1 (getreal "\nBreite eingeben [2800-4000]: "))
|
||||
)
|
||||
)
|
||||
(while (or (< L2 2000) (> L2 4000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L2 (getint "\nTiefe eingeben [2000-4000]: "))
|
||||
)
|
||||
)
|
||||
|
||||
(defun punkte()
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Konstruktionspunkte definieren <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(cond
|
||||
((= ART 1)
|
||||
(setq P1 (list (+ (car p0) L1) (cadr p0)))
|
||||
(setq P2 (list (car p1) (+ (cadr p1) L2)))
|
||||
(setq P3 (list (- (car p1) 800) (cadr p1)))
|
||||
(setq P4 (list (car p1) (+ (cadr p1) 800)))
|
||||
(setq P5 (list (- (car p0) 300) (- (cadr p0) 300)))
|
||||
(setq P6 (list (+ (car p2) 300) (+ (cadr p2) 300)))
|
||||
(setq P7 (list (+ (car p0) (- (/ L1 3) 187.5)) (cadr p0)))
|
||||
(setq P8 (list (car p1) (+ (cadr p1) 700)))
|
||||
(setq P9 (list (car p1) (- (cadr p2) 250)))
|
||||
(setq P10 (list (- (car p1) 1000) (cadr p1)))
|
||||
(setq P11 (list (+ (car p0) 400) (+ (cadr p0) 1000)))
|
||||
(setq P12 (list (+ (car p11) 700) (- (cadr p11) 560)))
|
||||
(setq P13 (list (- (car p1) 850) (+ (cadr p1) 680)))
|
||||
(setq P14 (list (- (car p1) 150) (+ (cadr p1) 1050)))
|
||||
)
|
||||
((= ART 2)
|
||||
(setq P1 (list (+ (car p0) L1) (cadr p0)))
|
||||
(setq P2 (list (car p0) (+ (cadr p0) L2)))
|
||||
(setq P3 (list (- (car p1) 800) (cadr p1)))
|
||||
(setq P4 (list (car p0) (+ (cadr p0) 800)))
|
||||
(setq P5 (list (- (car p0) 300) (- (cadr p0) 300)))
|
||||
(setq P6 (list (+ (car p2) (+ L1 300)) (+ (cadr p2) 300)))
|
||||
(setq P7 (list (+ (car p0) (- (/ L1 3) 187.5)) (cadr p0)))
|
||||
(setq P8 (list (car p0) (+ (cadr p1) 700)))
|
||||
(setq P9 (list (car p0) (- (cadr p2) 250)))
|
||||
(setq P10 (list (- (car p1) 1000) (cadr p1)))
|
||||
(setq P11 (list (- (car p1) 400) (+ (cadr p0) 1000)))
|
||||
(setq P12 (list (- (car p11) 700) (+ (cadr p11) 560)))
|
||||
(setq P13 (list (+ (car p0) 870) (+ (cadr p0) 1200)))
|
||||
(setq P14 (list (+ (car p0) 150) (+ (cadr p0) 1400)))
|
||||
)
|
||||
((= ART 3)
|
||||
(setq P1 (list (+ (car p0) L1) (cadr p0)))
|
||||
(setq P2 (list (car p1) (+ (cadr p1) L2)))
|
||||
(setq P3 (list (- (car p1) 800) (cadr p1)))
|
||||
(setq P4 (list (car p1) (+ (cadr p1) 800)))
|
||||
(setq P5 (list (- (car p0) 300) (- (cadr p0) 300)))
|
||||
(setq P6 (list (+ (car p2) 300) (+ (cadr p2) 300)))
|
||||
(setq P7 (list (+ (car p0) (- (/ L1 3) 187.5)) (cadr p0)))
|
||||
(setq P8 (list (car p1) (+ (cadr p1) 700)))
|
||||
(setq P9 (list (car p1) (- (cadr p2) 250)))
|
||||
(setq P10 (list (- (car p1) 1000) (cadr p1)))
|
||||
(setq P11 (list (- (car p1) 400) (+ (cadr p1) 660)))
|
||||
(setq P12 (list (- (car p11) 800) (+ (cadr p11) 1000)))
|
||||
(setq P13 (list (- (car p1) 850) (+ (cadr p1) 1400)))
|
||||
(setq P14 (list (- (car p1) 150) (+ (cadr p1) 1770)))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Blöcke einfügen <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(command "_layer" "_m" "L-2" "_c" "2" "" "")
|
||||
(cond
|
||||
((= ART 1)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w90650l8") P1 "" "" "")
|
||||
(setq auswahl-satz (ssget "_L"))
|
||||
(command "_insert" (strcat lw "/acadsst/layout/endp") P2 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p0 p3 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p4 p2 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 2)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w90650l8") P0 "" "" "")
|
||||
(setq auswahl-satz (ssget "_L"))
|
||||
(command "_insert" (strcat lw "/acadsst/layout/endp") P2 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p0 p3 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p4 p2 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 3)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w90650l8") P1 "" "" "")
|
||||
(setq auswahl-satz (ssget "_L"))
|
||||
(command "_insert" (strcat lw "/acadsst/layout/endp") P2 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p0 p3 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p4 p2 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
)
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Pfeile + Maschinen setzen <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(command "_layer" "_m" "Z-1" "_c" "1" "" "")
|
||||
(cond
|
||||
((= ART 1)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p7 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p8 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p9 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p12 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") p11 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p10 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p13 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p14 "" "" "195")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 2)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p7 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p8 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p9 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p12 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") p11 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p10 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p13 "" "" "195")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p14 "" "" "0")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 3)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p7 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p8 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p9 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p12 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/dobli-fw") p11 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p10 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p13 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p14 "" "" "195")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
)
|
||||
(If (> K0 1)
|
||||
(command "_array" auswahl-satz "" "_r" "1" m_K0 (itoa L1))
|
||||
)
|
||||
)
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
; >>>>>> Programm <<<<<< ;
|
||||
;-------------------------------------------------------------------------;
|
||||
(defun c:b_typ7 (/ L1 L2 L3 KO ART P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14)
|
||||
(setvar "limcheck" 0)
|
||||
(prompt "**** Bügelplatz TYP 7 ****")
|
||||
(if (null m_L1) (setq m_L1 "2500" )) ; Breite
|
||||
(if (null m_L2) (setq m_L2 "2000" )) ; Tiefe
|
||||
(if (null m_K0) (setq m_K0 "1" )) ; Anzahl der Plätze
|
||||
(if (null m_ART) (setq m_ART "ART_1" )) ; Art
|
||||
(setq auswahl-satz nil)
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(punkte)
|
||||
(geometrie)
|
||||
)
|
||||
;-------------------------------------------------------------------------;
|
||||
; >>>>>> Ende <<<<<< ;
|
||||
;-------------------------------------------------------------------------;
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,260 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; Bügelplätze zeichnen - TYP 8 - ;
|
||||
; -----------------------------------------------------------------------;
|
||||
; 14.10.93 / 13.6.98 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/module/b_typ8.dcl")))
|
||||
(if (not (new_dialog "b_typ8" Dat)) (exit))
|
||||
(set_tile "L1" m_L1)
|
||||
(set_tile "L2" m_L2)
|
||||
(set_tile "K0" m_K0)
|
||||
(set_tile "ART" m_ART)
|
||||
(SetDia)
|
||||
(ACTION_TILE "ART" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
(if (= m_ART "ART_1") ; Nr 1
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp08_1)")
|
||||
)
|
||||
(if (= m_ART "ART_2") ; Nr 2
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp08_2)")
|
||||
)
|
||||
(if (= m_ART "ART_3") ; Nr 3
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp08_3)")
|
||||
)
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq m_ART (get_tile "ART"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun SetPara ()
|
||||
(setq m_L1 (get_tile "L1") ; Breite
|
||||
m_K0 (get_tile "K0") ; Tiefe
|
||||
m_ART (get_tile "ART") ; Art
|
||||
m_L2 (get_tile "L2") ; Streckenabstand
|
||||
)
|
||||
)
|
||||
|
||||
(defun datain()
|
||||
(setq L1 (atoi m_L1)) ; Breite
|
||||
(setq K0 (atoi m_K0)) ; Anzahl Plätze
|
||||
(setq ART (atoi (substr m_ART 5 1))) ; Art
|
||||
(setq L2 (atoi m_L2)) ; Tiefe
|
||||
|
||||
;----------------------------------------------------------------------;
|
||||
; >>>>>> Eingabeteil <<<<<< ;
|
||||
;----------------------------------------------------------------------;
|
||||
(setq P0 (getpoint "\nUntere linke Ecke definieren: "))
|
||||
(initget (+ 2 4))
|
||||
;----------------------------------------------------------------------;
|
||||
; >>>>>> Prüfung ob die Grenzwerte eingehalten sind <<<<<< ;
|
||||
; >>>>>> in Abhängigkeit von der Bügelplatzart <<<<<< ;
|
||||
;----------------------------------------------------------------------;
|
||||
(while (or (< L1 2300) (> L1 4000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L1 (getint "\nBreite eingeben [2300-4000]: "))
|
||||
)
|
||||
(If
|
||||
(or (= ART 1) (= ART 2))
|
||||
(while (or (< L2 2500) (> L2 4000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L2 (getreal "\nTiefe eingeben [2500-4000]: "))
|
||||
)
|
||||
)
|
||||
(If
|
||||
(= Art 3)
|
||||
(while (or (< L2 2800) (> L2 4000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L2 (getreal "\nTiefe eingeben [2800-4000]: "))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun punkte()
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Konstruktionspunkte definieren <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(cond
|
||||
((= ART 1)
|
||||
(setq P1 (list (+ (car p0) 800) (cadr p0)))
|
||||
(setq P2 (list (car p1) (+ (cadr p1) L2)))
|
||||
(setq P3 (list (+ (car p2) L1) (cadr p2)))
|
||||
(setq P4 (list (+ (car p0) L1) (cadr p0)))
|
||||
(setq P5 (list (car p1) (+ (cadr p1) 800)))
|
||||
(setq P6 (list (car p2) (- (cadr p2) 800)))
|
||||
(setq P7 (list (+ (car p2) 800) (cadr p2)))
|
||||
(setq P8 (list (+ (car p0) 100) (- (cadr p0) 100)))
|
||||
(setq P9 (list (+ (car p3) 100) (+ (cadr p3) 100)))
|
||||
(setq P10 (list (- (car p1) 500) (cadr p1)))
|
||||
(setq P11 (list (car p1) (+ (cadr p1) (+ (/ L2 2) 187.5))))
|
||||
(setq P12 (list (+ (car p2) (+ (/ L1 2) 187.5)) (cadr p2)))
|
||||
(setq P13 (list (+ (car p2) 1200) (- (cadr p2) 400)))
|
||||
(setq P14 (list (- (car p13) 560) (- (cadr p13) 700)))
|
||||
(setq P15 (list (- (car p13) 400) (- (cadr p13) 200)))
|
||||
(setq P16 (list (- (car p13) 1050) (- (cadr p13) 1400)))
|
||||
(setq P17 (list (+ (car p1) (/ L1 3)) (cadr p1)))
|
||||
(setq P18 (list (car p2) (- (cadr p2) 700)))
|
||||
)
|
||||
((= ART 2)
|
||||
(setq P1 (list (+ (car p0) 800) (cadr p0)))
|
||||
(setq P2 (list (car p1) (+ (cadr p1) L2)))
|
||||
(setq P3 (list (+ (car p2) L1) (cadr p2)))
|
||||
(setq P4 (list (+ (car p0) L1) (cadr p0)))
|
||||
(setq P5 (list (car p1) (+ (cadr p1) 800)))
|
||||
(setq P6 (list (car p2) (- (cadr p2) 800)))
|
||||
(setq P7 (list (+ (car p2) 800) (cadr p2)))
|
||||
(setq P8 (list (+ (car p0) 100) (- (cadr p0) 100)))
|
||||
(setq P9 (list (+ (car p3) 100) (+ (cadr p3) 100)))
|
||||
(setq P10 (list (- (car p0) 100) (cadr p0)))
|
||||
(setq P11 (list (car p1) (+ (cadr p1) (- (/ L2 2) 187.5))))
|
||||
(setq P12 (list (+ (car p2) (- (/ L1 2) 187.5)) (cadr p2)))
|
||||
(setq P13 (list (+ (car p2) 1200) (- (cadr p2) 400)))
|
||||
(setq P14 (list (- (car p13) 560) (- (cadr p13) 700)))
|
||||
(setq P15 (list (- (car p13) 400) (- (cadr p13) 1200)))
|
||||
(setq P16 (list (- (car p13) 1050) (- (cadr p13) 100)))
|
||||
(setq P17 (list (+ (car p1) (/ L1 3)) (cadr p1)))
|
||||
(setq P18 (list (car p2) (- (cadr p2) 700)))
|
||||
)
|
||||
((= ART 3)
|
||||
(setq P1 (list (+ (car p0) L1) (cadr p0)))
|
||||
(setq P2 (list (car p1) (+ (cadr p1) L2)))
|
||||
(setq P3 (list (- (car p2) (- L1 800)) (cadr p2)))
|
||||
(setq P4 (list (- (car p1) 800) (cadr p1)))
|
||||
(setq P5 (list (car p1) (+ (cadr p1) 800)))
|
||||
(setq P6 (list (car p2) (- (cadr p2) 800)))
|
||||
(setq P7 (list (+ (car p2) 800) (cadr p2)))
|
||||
(setq P8 (list (+ (car p0) 100) (- (cadr p0) 100)))
|
||||
(setq P9 (list (+ (car p7) 100) (+ (cadr p7) 100)))
|
||||
(setq P10 (list (+ (car p0) (- (/ L1 3) 187.5)) (cadr p0)))
|
||||
(setq P11 (list (car p1) (+ (cadr p1) (- (/ L2 2) 187.5))))
|
||||
(setq P12 (list (- (car p2) (+ (/ L1 2) 187.5)) (cadr p2)))
|
||||
(setq P13 (list (- (car p2) 1650) (- (cadr p2) 2400)))
|
||||
(setq P14 (list (+ (car p13) 900) (+ (cadr p13) 900)))
|
||||
(setq P15 (list (+ (car p13) 800) (+ (cadr p13) 220)))
|
||||
(setq P16 (list (+ (car p13) 1500) (+ (cadr p13) 1600)))
|
||||
(setq P17 (list (- (car p1) (/ L1 3)) (cadr p1)))
|
||||
(setq P18 (list (car p2) (- (cadr p2) 700)))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Bl”cke einf�gen <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(command "_layer" "_m" "L-2" "_c" "2" "" "")
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w90650l8") P1 "" "" "")
|
||||
(setq auswahl-satz (ssget "_L"))
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w90650l8") P2 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p5 p6 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p3 p2 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p0 p4 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Pfeile + Maschinen setzen <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(command "_layer" "_m" "Z-1" "_c" "1" "" "")
|
||||
(cond
|
||||
((= ART 1)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p10 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p11 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p12 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p14 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") p13 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p17 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p18 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p15 "" "" "165")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p16 "" "" "15")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 2)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p10 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p11 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p12 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p14 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") p13 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p17 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p18 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p15 "" "" "195")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p16 "" "" "-15")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 3)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p10 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p11 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p12 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p14 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/dobli-fw") p13 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p17 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p18 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p15 "" "" "-15")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p16 "" "" "195")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
)
|
||||
(If (> K0 1)
|
||||
(command "_array" auswahl-satz "" "_r" "1" K0 (itoa L1))
|
||||
)
|
||||
)
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
; >>>>>> Programm <<<<<< ;
|
||||
;-------------------------------------------------------------------------;
|
||||
(defun c:b_typ8 (/ L1 L2 L3 KO ART P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 P17 P18)
|
||||
(setvar "limcheck" 0)
|
||||
(prompt "**** Bügelplatz TYP 8 ****")
|
||||
(if (null m_L1) (setq m_L1 "2300" )) ; Breite
|
||||
(if (null m_L2) (setq m_L2 "2500" )) ; Tiefe
|
||||
(if (null m_K0) (setq m_K0 "1" )) ; Anzahl der Plätze
|
||||
(if (null m_ART) (setq m_ART "ART_1" )) ; Art
|
||||
(setq auswahl-satz nil)
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(punkte)
|
||||
(geometrie)
|
||||
)
|
||||
;-------------------------------------------------------------------------;
|
||||
; >>>>>> Ende <<<<<< ;
|
||||
;-------------------------------------------------------------------------;
|
||||
Binary file not shown.
@@ -0,0 +1,290 @@
|
||||
;------------------------------------------------------------------------;
|
||||
; Bügelplätze zeichnen - TYP 9 - ;
|
||||
; -----------------------------------------------------------------------;
|
||||
; 08.11.93 / 13.6.98 ;
|
||||
;------------------------------------------------------------------------;
|
||||
(defun Dbox (/ Dat)
|
||||
(setq Dat (load_dialog (strcat lw "/acadsst/module/b_typ9.dcl")))
|
||||
(if (not (new_dialog "b_typ9" Dat)) (exit))
|
||||
(set_tile "L1" m_L1)
|
||||
(set_tile "L2" m_L2)
|
||||
(set_tile "L3" m_L3)
|
||||
(set_tile "K0" m_K0)
|
||||
(set_tile "ART" m_ART)
|
||||
(SetDia)
|
||||
(ACTION_TILE "ART" "(zeig_dia)")
|
||||
(action_tile "accept" "(SetPara) (done_dialog)")
|
||||
(action_tile "cancel" "(exit) (done_dialog)")
|
||||
(start_dialog)
|
||||
(unload_dialog Dat)
|
||||
)
|
||||
|
||||
(defun SetDia()
|
||||
(setq breite (dimx_tile "anzeige"))
|
||||
(setq hoehe (dimy_tile "anzeige"))
|
||||
(start_image "anzeige")
|
||||
(FILL_IMAGE 0 0 breite hoehe -18)
|
||||
(if (= m_ART "ART_1") ; Nr 1
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp09_1)")
|
||||
)
|
||||
(if (= m_ART "ART_2") ; Nr 2
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp09_2)")
|
||||
)
|
||||
(if (= m_ART "ART_3") ; Nr 3
|
||||
(slide_image 0 0 breite hoehe "arbplz(btyp09_3)")
|
||||
)
|
||||
(end_image)
|
||||
)
|
||||
|
||||
(defun zeig_dia()
|
||||
(setq m_ART (get_tile "ART"))
|
||||
(SetDia)
|
||||
)
|
||||
|
||||
(defun SetPara ()
|
||||
(setq m_L1 (get_tile "L1") ; Breite
|
||||
m_K0 (get_tile "K0") ; Anzahl Plätze
|
||||
m_ART (get_tile "ART") ; Art
|
||||
m_L2 (get_tile "L2") ; TiefeStreckenabstand
|
||||
m_L3 (get_tile "L3") ; Streckenabstand
|
||||
)
|
||||
)
|
||||
|
||||
(defun datain()
|
||||
(setq L1 (atoi m_L1)) ; Breite
|
||||
(setq K0 (atoi m_K0)) ; Anzahl Plätze
|
||||
(setq ART (atoi (substr m_ART 5 1))) ; Art
|
||||
(setq L2 (atoi m_L2)) ; Tiefe
|
||||
(setq L3 (atoi m_L3)) ; Streckenabstand
|
||||
;----------------------------------------------------------------------;
|
||||
; >>>>>> Eingabeteil <<<<<< ;
|
||||
;----------------------------------------------------------------------;
|
||||
(setq P0 (getpoint "\nUntere linke Ecke definieren: "))
|
||||
(initget (+ 2 4))
|
||||
;----------------------------------------------------------------------;
|
||||
; >>>>>> Pr�fung ob die Grenzwerte eingehalten sind <<<<<< ;
|
||||
; >>>>>> in Abh„ngigkeit von der B�gelplatzart <<<<<< ;
|
||||
;----------------------------------------------------------------------;
|
||||
(If
|
||||
(or (= ART 1) (= ART 2))
|
||||
(while (or (< L1 2500) (> L1 4000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L1 (getreal "\nBreite eingeben [2500-4000]: "))
|
||||
)
|
||||
)
|
||||
(If
|
||||
(= Art 3)
|
||||
(while (or (< L1 2800) (> L1 4000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L1 (getreal "\nBreite eingeben [2800-4000]: "))
|
||||
)
|
||||
)
|
||||
|
||||
(while (or (< L2 2300) (> L2 4000))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L2 (getint "\nTiefe eingeben [2300-4000]: "))
|
||||
)
|
||||
|
||||
(while (or (< L3 700) (> L3 1500))
|
||||
(initget (+ 1 2 4))
|
||||
(setq L3 (getint "\nStreckenabstand eingeben [700-1500]: "))
|
||||
)
|
||||
)
|
||||
|
||||
(defun punkte()
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Konstruktionspunkte definieren <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(cond
|
||||
((= ART 1)
|
||||
(setq P1 (list (+ (car p0) (+ L1 L3)) (cadr p0)))
|
||||
(setq P2 (list (+ (car p0) L3) (+ (cadr p0) L2)))
|
||||
(setq P3 (list (+ (car p2) (+ L1 L3)) (cadr p2)))
|
||||
(setq P4 (list (- (car p1) 800) (cadr p1)))
|
||||
(setq P5 (list (car p1) (+ (cadr p1) 800)))
|
||||
(setq P6 (list (car p1) (+ (cadr p1) (- L2 450))))
|
||||
(setq P7 (list (car p2) (- (cadr p2) (- L2 450))))
|
||||
(setq P8 (list (car p2) (- (cadr p2) 800)))
|
||||
(setq P9 (list (+ (car p2) 800) (cadr p2)))
|
||||
(setq P10 (list (+ (car p0) 100) (- (cadr p0) 100)))
|
||||
(setq P11 (list (- (car p3) 100) (+ (cadr p3) 100)))
|
||||
(setq P12 (list (car p1) (+ (cadr p1) (+ (/ (- L2 450) 2) 187.5))))
|
||||
(setq P13 (list (- (car p1) (- (/ (+ L1 L3) 3) 187.5)) (cadr p0)))
|
||||
(setq P14 (list (+ (car p2) (+ (/ (+ L1 L3) 3) 187.5)) (cadr p2)))
|
||||
(setq P15 (list (car p2) (- (cadr p2) (- (/ (- L2 450) 2) 187.5))))
|
||||
(setq P16 (list (- (car p1) 400) (+ (cadr p1) (- L2 1200))))
|
||||
(setq P17 (list (- (car p16) 700) (+ (cadr p16) 560)))
|
||||
(setq P18 (list (- (car p3) (+ (/ (+ L1 L3) 3))) (cadr p3)))
|
||||
(setq P19 (list (+ (car p0) (+ (/ (+ L1 L3) 3))) (cadr p0)))
|
||||
(setq P20 (list (- (car p6) 100) (- (cadr p6) 300)))
|
||||
(setq P21 (list (+ (car p2) 870) (- (cadr p2) 750)))
|
||||
)
|
||||
((= ART 2)
|
||||
(setq P1 (list (+ (car p0) 800) (cadr p0)))
|
||||
(setq P2 (list (+ (car p1) L1) (+ (cadr p1) L2)))
|
||||
(setq P3 (list (+ (car p2) (+ L1 L3)) (cadr p2)))
|
||||
(setq P4 (list (+ (car p0) (+ L1 L3)) (cadr p0)))
|
||||
(setq P5 (list (car p1) (+ (cadr p1) 800)))
|
||||
(setq P6 (list (car p1) (+ (cadr p1) (- L2 450))))
|
||||
(setq P7 (list (car p2) (- (cadr p2) (- L2 450))))
|
||||
(setq P8 (list (car p2) (- (cadr p2) 800)))
|
||||
(setq P9 (list (+ (car p2) 800) (cadr p2)))
|
||||
(setq P10 (list (+ (car p0) 100) (- (cadr p0) 100)))
|
||||
(setq P11 (list (- (car p3) 100) (+ (cadr p3) 100)))
|
||||
(setq P12 (list (car p1) (+ (cadr p1) (- (/ (- L2 450) 2) 187.5))))
|
||||
(setq P13 (list (- (car p4) (- (/ (+ L1 L3) 3) 187.5)) (cadr p4)))
|
||||
(setq P14 (list (+ (car p2) (- (/ (+ L1 L3) 3) 187.5)) (cadr p2)))
|
||||
(setq P15 (list (car p2) (- (cadr p2) (+ (/ (- L2 450) 2) 187.5))))
|
||||
(setq P16 (list (- (car p2) 400) (+ (cadr p1) (- L2 1200))))
|
||||
(setq P17 (list (- (car p16) 700) (+ (cadr p16) 560)))
|
||||
(setq P18 (list (- (car p3) (+ (/ (+ L1 L3) 3))) (cadr p3)))
|
||||
(setq P19 (list (+ (car p0) (+ (/ (+ L1 L3) 3))) (cadr p0)))
|
||||
(setq P20 (list (- (car p2) 100) (- (cadr p2) 700)))
|
||||
(setq P21 (list (+ (car p6) 800) (- (cadr p6) 500)))
|
||||
)
|
||||
((= ART 3)
|
||||
(setq P1 (list (+ (car p0) (+ L1 L3)) (cadr p0)))
|
||||
(setq P2 (list (+ (car p0) L3) (+ (cadr p0) L2)))
|
||||
(setq P3 (list (+ (car p2) (+ L1 L3)) (cadr p2)))
|
||||
(setq P4 (list (- (car p1) 800) (cadr p1)))
|
||||
(setq P5 (list (car p1) (+ (cadr p1) 800)))
|
||||
(setq P6 (list (car p1) (+ (cadr p1) (- L2 450))))
|
||||
(setq P7 (list (car p2) (- (cadr p2) (- L2 450))))
|
||||
(setq P8 (list (car p2) (- (cadr p2) 800)))
|
||||
(setq P9 (list (+ (car p2) 800) (cadr p2)))
|
||||
(setq P10 (list (+ (car p0) 100) (- (cadr p0) 100)))
|
||||
(setq P11 (list (- (car p3) 100) (+ (cadr p3) 100)))
|
||||
(setq P12 (list (car p1) (+ (cadr p1) (- (/ (- L2 450) 2) 187.5))))
|
||||
(setq P13 (list (- (car p1) (- (/ (+ L1 L3) 3) 187.5)) (cadr p0)))
|
||||
(setq P14 (list (+ (car p2) (+ (/ (+ L1 L3) 3) 187.5)) (cadr p2)))
|
||||
(setq P15 (list (car p2) (- (cadr p2) (+ (/ (- L2 450) 2) 187.5))))
|
||||
(setq P16 (list (- (car p1) 400) (+ (cadr p1) (- L2 1750))))
|
||||
(setq P17 (list (- (car p16) 900) (+ (cadr p16) 960)))
|
||||
(setq P18 (list (- (car p3) (+ (/ (+ L1 L3) 3))) (cadr p3)))
|
||||
(setq P19 (list (+ (car p0) (+ (/ (+ L1 L3) 3))) (cadr p0)))
|
||||
(setq P20 (list (+ (car p2) 250) (- (cadr p2) 900)))
|
||||
(setq P21 (list (- (car p6) 720) (- (cadr p6) 550)))
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
(defun geometrie()
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Bl”cke einf�gen <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(command "_layer" "_m" "L-2" "_c" "2" "" "")
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w90650l8") P1 "" "" "")
|
||||
(setq auswahl-satz (ssget "_L"))
|
||||
(command "_insert" (strcat lw "/acadsst/layout/w90650l8") P2 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/endp") P6 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/layout/endp") P7 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p0 p4 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p9 p3 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p5 p6 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_line" p7 p8 "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
|
||||
;-----------------------------------------------------------------------;
|
||||
; >>>>>> Pfeile + Maschinen setzen <<<<<< ;
|
||||
;-----------------------------------------------------------------------;
|
||||
(command "_layer" "_m" "Z-1" "_c" "1" "" "")
|
||||
(cond
|
||||
((= ART 1)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p12 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p13 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p14 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p15 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p17 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") p16 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p18 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p19 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p20 "" "" "200")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p21 "" "" "200")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 2)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p12 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p13 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p14 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p15 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p17 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/vario14") p16 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p18 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegel") p19 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p20 "" "" "200")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p21 "" "" "200")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
((= ART 3)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p12 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_v") p13 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p14 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pf0_l") p15 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/maus") p17 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/dobli-fw") p16 "" "" "180")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p18 "" "" "90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/buegelr") p19 "" "" "-90")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p20 "" "" "")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
(command "_insert" (strcat lw "/acadsst/zier2d/pfeil") p21 "" "" "30")
|
||||
(ssadd (entlast) auswahl-satz)
|
||||
)
|
||||
)
|
||||
(If (> K0 1)
|
||||
(command "_array" auswahl-satz "" "_r" "1" K0 (itoa (+ L1 L3)))
|
||||
)
|
||||
)
|
||||
|
||||
;-------------------------------------------------------------------------;
|
||||
; >>>>>> Programm <<<<<< ;
|
||||
;-------------------------------------------------------------------------;
|
||||
(defun c:b_typ9 (/ L1 L2 L3 KO ART P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 P17 P18 P19 P20 P21)
|
||||
(setvar "limcheck" 0)
|
||||
(prompt "**** Bügelplatz TYP 9 ****")
|
||||
(if (null m_L1) (setq m_L1 "2500" )) ; Breite
|
||||
(if (null m_L2) (setq m_L2 "2300" )) ; Tiefe
|
||||
(if (null m_L3) (setq m_L3 "800" )) ; Streckenabstand
|
||||
(if (null m_K0) (setq m_K0 "1" )) ; Anzahl der Plätze
|
||||
(if (null m_ART) (setq m_ART "ART_1" )) ; Art
|
||||
(setq auswahl-satz nil)
|
||||
(Dbox)
|
||||
(prompt "")
|
||||
(datain)
|
||||
(punkte)
|
||||
(geometrie)
|
||||
)
|
||||
;-------------------------------------------------------------------------;
|
||||
; >>>>>> Ende <<<<<< ;
|
||||
;-------------------------------------------------------------------------;
|
||||
Binary file not shown.
@@ -0,0 +1,56 @@
|
||||
b_typ1 : dialog {
|
||||
label = "SCHÖNENBERGER Systeme GmbH";
|
||||
: text {
|
||||
label = "Bügelplätze Typ 1";
|
||||
}
|
||||
: row {
|
||||
: column {
|
||||
: edit_box {
|
||||
label = "Breite[4600-8000]:";
|
||||
mnemonic = "B";
|
||||
allow_accept = true;
|
||||
key = "L1";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Tiefe[2200-6000]:";
|
||||
mnemonic = "T";
|
||||
allow_accept = true;
|
||||
key = "L2";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Anzahl Plätze:";
|
||||
mnemonic = "A";
|
||||
allow_accept = true;
|
||||
key = "K0";
|
||||
}
|
||||
}
|
||||
: column {
|
||||
: boxed_radio_column {
|
||||
label = "Ablauf";
|
||||
key = "ART";
|
||||
: radio_button {
|
||||
label = "Nr 1";
|
||||
key = "ART_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 2";
|
||||
key = "ART_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 3";
|
||||
key = "ART_3";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
: row {
|
||||
: image {
|
||||
alignment=centered;
|
||||
height = 16;
|
||||
width = 16;
|
||||
color = -2;
|
||||
key = "anzeige";
|
||||
}
|
||||
}
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,62 @@
|
||||
b_typ2 : dialog {
|
||||
label = "SCHÖNENBERGER Systeme GmbH";
|
||||
: text {
|
||||
label = "Bügelplätze Typ 2";
|
||||
}
|
||||
: row {
|
||||
: column {
|
||||
: edit_box {
|
||||
label = "Breite[1600-5000]:";
|
||||
mnemonic = "B";
|
||||
allow_accept = true;
|
||||
key = "L1";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Tiefe[1600-10000]:";
|
||||
mnemonic = "T";
|
||||
allow_accept = true;
|
||||
key = "L3";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Streckenabstand[700-2000]:";
|
||||
mnemonic = "S";
|
||||
allow_accept = true;
|
||||
key = "L2";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Anzahl Plätze:";
|
||||
mnemonic = "A";
|
||||
allow_accept = true;
|
||||
key = "K0";
|
||||
}
|
||||
}
|
||||
: column {
|
||||
: boxed_radio_column {
|
||||
label = "Ablauf";
|
||||
key = "ART";
|
||||
: radio_button {
|
||||
label = "Nr 1";
|
||||
key = "ART_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 2";
|
||||
key = "ART_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 3";
|
||||
key = "ART_3";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
: row {
|
||||
: image {
|
||||
alignment=centered;
|
||||
height = 16;
|
||||
width = 16;
|
||||
color = -2;
|
||||
key = "anzeige";
|
||||
}
|
||||
}
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,56 @@
|
||||
b_typ3 : dialog {
|
||||
label = "SCHÖNENBERGER Systeme GmbH";
|
||||
: text {
|
||||
label = "Bügelplätze Typ 3";
|
||||
}
|
||||
: row {
|
||||
: column {
|
||||
: edit_box {
|
||||
label = "Breite[2000-6000]:";
|
||||
mnemonic = "B";
|
||||
allow_accept = true;
|
||||
key = "L1";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Streckenabstand[800-2000]:";
|
||||
mnemonic = "S";
|
||||
allow_accept = true;
|
||||
key = "L2";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Anzahl Plätze:";
|
||||
mnemonic = "A";
|
||||
allow_accept = true;
|
||||
key = "K0";
|
||||
}
|
||||
}
|
||||
: column {
|
||||
: boxed_radio_column {
|
||||
label = "Ablauf";
|
||||
key = "ART";
|
||||
: radio_button {
|
||||
label = "Nr 1";
|
||||
key = "ART_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 2";
|
||||
key = "ART_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 3";
|
||||
key = "ART_3";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
: row {
|
||||
: image {
|
||||
alignment=centered;
|
||||
height = 16;
|
||||
width = 16;
|
||||
color = -2;
|
||||
key = "anzeige";
|
||||
}
|
||||
}
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,62 @@
|
||||
b_typ4 : dialog {
|
||||
label = "SCHÖNENBERGER Systeme GmbH";
|
||||
: text {
|
||||
label = "Bügelplätze Typ 4";
|
||||
}
|
||||
: row {
|
||||
: column {
|
||||
: edit_box {
|
||||
label = "Streckenabstand[800-2000]:";
|
||||
mnemonic = "B";
|
||||
allow_accept = true;
|
||||
key = "L1";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Tiefe[1500-6000]:";
|
||||
mnemonic = "T";
|
||||
allow_accept = true;
|
||||
key = "L2";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Abstand zum nächsten Platz[1000-3000]:";
|
||||
mnemonic = "P";
|
||||
allow_accept = true;
|
||||
key = "L3";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Anzahl Plätze:";
|
||||
mnemonic = "A";
|
||||
allow_accept = true;
|
||||
key = "K0";
|
||||
}
|
||||
}
|
||||
: column {
|
||||
: boxed_radio_column {
|
||||
label = "Ablauf";
|
||||
key = "ART";
|
||||
: radio_button {
|
||||
label = "Nr 1";
|
||||
key = "ART_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 2";
|
||||
key = "ART_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 3";
|
||||
key = "ART_3";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
: row {
|
||||
: image {
|
||||
alignment=centered;
|
||||
height = 16;
|
||||
width = 16;
|
||||
color = -2;
|
||||
key = "anzeige";
|
||||
}
|
||||
}
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,56 @@
|
||||
b_typ5 : dialog {
|
||||
label = "SCHÖNENBERGER Systeme GmbH";
|
||||
: text {
|
||||
label = "Bügelplätze Typ 6";
|
||||
}
|
||||
: row {
|
||||
: column {
|
||||
: edit_box {
|
||||
label = "Breite[2250-6000]:";
|
||||
mnemonic = "B";
|
||||
allow_accept = true;
|
||||
key = "L1";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Streckenabstand[700-2000]:";
|
||||
mnemonic = "S";
|
||||
allow_accept = true;
|
||||
key = "L2";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Anzahl Plätze:";
|
||||
mnemonic = "A";
|
||||
allow_accept = true;
|
||||
key = "K0";
|
||||
}
|
||||
}
|
||||
: column {
|
||||
: boxed_radio_column {
|
||||
label = "Ablauf";
|
||||
key = "ART";
|
||||
: radio_button {
|
||||
label = "Nr 1";
|
||||
key = "ART_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 2";
|
||||
key = "ART_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 3";
|
||||
key = "ART_3";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
: row {
|
||||
: image {
|
||||
alignment=centered;
|
||||
height = 16;
|
||||
width = 16;
|
||||
color = -2;
|
||||
key = "anzeige";
|
||||
}
|
||||
}
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,56 @@
|
||||
b_typ6 : dialog {
|
||||
label = "SCHÖNENBERGER Systeme GmbH";
|
||||
: text {
|
||||
label = "Bügelplätze Typ 6";
|
||||
}
|
||||
: row {
|
||||
: column {
|
||||
: edit_box {
|
||||
label = "Breite[2800-5000]:";
|
||||
mnemonic = "B";
|
||||
allow_accept = true;
|
||||
key = "L1";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Streckenabstand[700-2000]:";
|
||||
mnemonic = "S";
|
||||
allow_accept = true;
|
||||
key = "L2";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Anzahl Plätze:";
|
||||
mnemonic = "A";
|
||||
allow_accept = true;
|
||||
key = "K0";
|
||||
}
|
||||
}
|
||||
: column {
|
||||
: boxed_radio_column {
|
||||
label = "Ablauf";
|
||||
key = "ART";
|
||||
: radio_button {
|
||||
label = "Nr 1";
|
||||
key = "ART_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 2";
|
||||
key = "ART_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 3";
|
||||
key = "ART_3";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
: row {
|
||||
: image {
|
||||
alignment=centered;
|
||||
height = 16;
|
||||
width = 16;
|
||||
color = -2;
|
||||
key = "anzeige";
|
||||
}
|
||||
}
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,56 @@
|
||||
b_typ7 : dialog {
|
||||
label = "SCHÖNENBERGER Systeme GmbH";
|
||||
: text {
|
||||
label = "Bügelplätze Typ 7";
|
||||
}
|
||||
: row {
|
||||
: column {
|
||||
: edit_box {
|
||||
label = "Breite[2500/2500/2800-4000]:";
|
||||
mnemonic = "B";
|
||||
allow_accept = true;
|
||||
key = "L1";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Tiefe[2000-4000]:";
|
||||
mnemonic = "T";
|
||||
allow_accept = true;
|
||||
key = "L2";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Anzahl Plätze:";
|
||||
mnemonic = "A";
|
||||
allow_accept = true;
|
||||
key = "K0";
|
||||
}
|
||||
}
|
||||
: column {
|
||||
: boxed_radio_column {
|
||||
label = "Ablauf";
|
||||
key = "ART";
|
||||
: radio_button {
|
||||
label = "Nr 1";
|
||||
key = "ART_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 2";
|
||||
key = "ART_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 3";
|
||||
key = "ART_3";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
: row {
|
||||
: image {
|
||||
alignment=centered;
|
||||
height = 16;
|
||||
width = 16;
|
||||
color = -2;
|
||||
key = "anzeige";
|
||||
}
|
||||
}
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,56 @@
|
||||
b_typ8 : dialog {
|
||||
label = "SCHÖNENBERGER Systeme GmbH";
|
||||
: text {
|
||||
label = "Bügelplätze Typ 8";
|
||||
}
|
||||
: row {
|
||||
: column {
|
||||
: edit_box {
|
||||
label = "Breite[2300-4000]:";
|
||||
mnemonic = "B";
|
||||
allow_accept = true;
|
||||
key = "L1";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Tiefe[2500/2500/2800-4000]:";
|
||||
mnemonic = "T";
|
||||
allow_accept = true;
|
||||
key = "L2";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Anzahl Plätze:";
|
||||
mnemonic = "A";
|
||||
allow_accept = true;
|
||||
key = "K0";
|
||||
}
|
||||
}
|
||||
: column {
|
||||
: boxed_radio_column {
|
||||
label = "Ablauf";
|
||||
key = "ART";
|
||||
: radio_button {
|
||||
label = "Nr 1";
|
||||
key = "ART_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 2";
|
||||
key = "ART_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 3";
|
||||
key = "ART_3";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
: row {
|
||||
: image {
|
||||
alignment=centered;
|
||||
height = 16;
|
||||
width = 16;
|
||||
color = -2;
|
||||
key = "anzeige";
|
||||
}
|
||||
}
|
||||
ok_cancel;
|
||||
}
|
||||
@@ -0,0 +1,62 @@
|
||||
b_typ9 : dialog {
|
||||
label = "SCHÖNENBERGER Systeme GmbH";
|
||||
: text {
|
||||
label = "Bügelplätze Typ 9";
|
||||
}
|
||||
: row {
|
||||
: column {
|
||||
: edit_box {
|
||||
label = "Breite[2500/2500/2800-4000]:";
|
||||
mnemonic = "B";
|
||||
allow_accept = true;
|
||||
key = "L1";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Tiefe[2300-4000]:";
|
||||
mnemonic = "T";
|
||||
allow_accept = true;
|
||||
key = "L2";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Streckenabstand[700-2000]:";
|
||||
mnemonic = "S";
|
||||
allow_accept = true;
|
||||
key = "L3";
|
||||
}
|
||||
: edit_box {
|
||||
label = "Anzahl Plätze:";
|
||||
mnemonic = "A";
|
||||
allow_accept = true;
|
||||
key = "K0";
|
||||
}
|
||||
}
|
||||
: column {
|
||||
: boxed_radio_column {
|
||||
label = "Ablauf";
|
||||
key = "ART";
|
||||
: radio_button {
|
||||
label = "Nr 1";
|
||||
key = "ART_1";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 2";
|
||||
key = "ART_2";
|
||||
}
|
||||
: radio_button {
|
||||
label = "Nr 3";
|
||||
key = "ART_3";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
: row {
|
||||
: image {
|
||||
alignment=centered;
|
||||
height = 16;
|
||||
width = 16;
|
||||
color = -2;
|
||||
key = "anzeige";
|
||||
}
|
||||
}
|
||||
ok_cancel;
|
||||
}
|
||||
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.
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user