Here is 1 example:
// TEST.DCL
// Profiel-insertroutine Copyright (c) '94/'04 J.J.Damstra
// For demonstration only (published on 'the Swamp' on 11-31-'04
dcl_settings : default_dcl_settings { audit_level = 3; }
profiel : dialog {
label = "PROFIEL DEMO";
: row {
: column {
: boxed_row {
label = "Profieltype:";
key = "type";
: radio_column {
: radio_button {
label = "Buis-profielen (CHS)";
key = "buis";
}
spacer_1;
: radio_button {
label = "Damwanden (diverse typen)";
key = "damwand";
}
spacer_1;
: radio_button {
label = "DIE; DIL; DIN; DIR en DIH";
key = "dix";
}
spacer_1;
: radio_button {
label = "Geïntergreerde ligger, type: ASB";
key = "asb";
}
: radio_button {
label = "Geïntergreerde ligger, type: IFB";
key = "ifb";
}
: radio_button {
label = "Geïntergreerde ligger, type: SFB";
key = "sfb";
}
: radio_button {
label = "Geïntergreerde ligger, type: THQ";
key = "thq";
}
spacer_1;
: radio_button {
label = "HEAA-profiel";
key = "heaa";
}
: radio_button {
label = "HEA-profiel";
key = "hea";
}
: radio_button {
label = "HEB-profiel";
key = "heb";
}
: radio_button {
label = "HEC-profiel";
key = "hec";
}
: radio_button {
label = "HEM-profiel";
key = "hem";
}
spacer_1;
: radio_button {
label = "HD-profiel";
key = "hd";
}
: radio_button {
label = "HL-profiel";
key = "hl";
}
spacer_1;
: radio_button {
label = "IPE-profiel";
key = "ipe";
}
: radio_button {
label = "IPE A; IPE O; IPE V en IPE 750";
key = "ipe-a";
}
}
: radio_column {
: radio_button {
label = "INP-profiel";
key = "inp";
}
spacer_1;
: radio_button {
label = "Hoeklijn gelijkzijdig";
key = "hoek1";
}
: radio_button {
label = "Hoeklijn ongelijkzijdig";
key = "hoek2";
}
spacer_1;
: radio_button {
label = "Koker gelijkzijdig (RHS)";
key = "koker1";
}
: radio_button {
label = "Koker ongelijkzijdig (RHS)";
key = "koker2";
}
spacer_1;
: radio_button {
label = "MONTAN-profiel";
key = "montan";
}
spacer_1;
: radio_button {
label = "Platstaal/Strip";
key = "strip";
}
spacer_1;
: radio_button {
label = "Raatligger";
key = "raat";
}
spacer_1;
: radio_button {
label = "Rails";
key = "rails";
}
spacer_1;
: radio_button {
label = "T-staal (1:1)";
key = "T-staal1";
}
: radio_button {
label = "TB-staal (2:1)";
key = "T-staal2";
}
spacer_1;
: radio_button {
label = "UAP-profiel";
key = "uap";
}
: radio_button {
label = "UPE-profiel";
key = "upe";
}
spacer_1;
: radio_button {
label = "UNP-profiel";
key = "unp";
}
spacer_1;
: radio_button {
label = "Z-profiel";
key = "z";
}
}
}
}
}
spacer_1;
ok_cancel_err;
}
(defun c:test (/ profiel)
(setq dcl_id (load_dialog "test.dcl"))
(if (not (new_dialog "profiel" dcl_id)) (exit))
(action_tile "buis" "(wis2)(buis)")
(action_tile "damwand" "(wis2)(damwand)")
(action_tile "dix" "(wis2)(dix)")
(action_tile "heaa" "(wis2)(heaa)")
(action_tile "hea" "(wis2)(hea)")
(action_tile "heb" "(wis2)(heb)")
(action_tile "hec" "(wis2)(hec)")
(action_tile "hem" "(wis2)(hem)")
(action_tile "hd" "(wis2)(hd)")
(action_tile "hl" "(wis2)(hl)")
(action_tile "asb" "(wis2)(asb)")
(action_tile "ifb" "(wis2)(ifb)")
(action_tile "sfb" "(wis2)(sfb)")
(action_tile "thq" "(wis2)(thq)")
(action_tile "ipe" "(wis2)(ipe)")
(action_tile "ipe-a" "(wis2)(ipe-a)")
(action_tile "inp" "(wis1)(inp)")
(action_tile "hoek1" "(wis1)(hoek1)")
(action_tile "hoek2" "(wis1)(hoek2)")
(action_tile "koker1" "(wis1)(koker1)")
(action_tile "koker2" "(wis1)(koker2)")
(action_tile "montan" "(wis1)(montan)")
(action_tile "raat" "(wis1)(raat)")
(action_tile "rails" "(wis1)(rails)")
(action_tile "strip" "(wis1)(strip)")
(action_tile "T-staal1" "(wis1)(t1)")
(action_tile "T-staal2" "(wis1)(t2)")
(action_tile "uap" "(wis1)(uap)")
(action_tile "upe" "(wis1)(upe)")
(action_tile "unp" "(wis1)(unp)")
(action_tile "z" "(wis1)(z-prof)")
(action_tile "accept" "(done_dialog 1)(setq profiel 1")
(action_tile "cancel" "(done_dialog 0)(setq profiel 0)")
(while (not profiel)(start_dialog))
(alert "Your program starts here")
(princ)
)
(defun message (bericht)
(set_tile "error" bericht)
)
(defun asb ()
(message "ASB-geïntergreerde ligger")
)
(defun buis ()
(message "Buisprofielen")
)
(defun damwand ()
(message "Diverse stalen damwandprofielen")
)
(defun dix ()
(message "Antieke profielen")
)
(defun heaa ()
(message "HEAA-profielen")
)
(defun hea ()
(message "HEA-profielen")
)
(defun heb ()
(message "HEB-profielen")
)
(defun hec ()
(message "HEC-profiel")
)
(defun hem ()
(message "HEM-profielen")
)
(defun hl ()
(message "HL-profielen")
)
(defun hd ()
(message "HD-profielen")
)
(defun ipe ()
(message "IPE-profielen")
)
(defun ipe-a ()
(message "IPE A; IPE O; IPE V en IPE 750")
)
(defun ifb ()
(message "IFB-geïntergreerde ligger")
)
(defun inp ()
(message "INP-profielen")
)
(defun hoek1 ()
(message "Gelijkzijdige hoeklijnen")
)
(defun hoek2 ()
(message "Ongelijkzijdige hoeklijnen")
)
(defun koker1 ()
(message "Gelijkzijdige kokerprofielen")
)
(defun koker2 ()
(message "Ongelijkzijdige kokerprofielen")
)
(defun montan ()
(message "MONTAN-profiel")
)
(defun raat ()
(message "Raatliggers")
)
(defun rails ()
(message "Kraanbaanliggers en spoorrails")
)
(defun sfb ()
(message "SFB-geïntergreerde ligger")
)
(defun strip ()
(message "Platstaal en strippen")
)
(defun t1 ()
(message "T-staal (gelijkzijdig)")
)
(defun t2 ()
(message "TB-staal (ongelijkzijdig)")
)
(defun thq ()
(message "THQ-geïntergreerde ligger")
)
(defun uap ()
(message "UAP-profielen")
)
(defun upe ()
(message "UPE-profielen")
)
(defun unp ()
(message "UNP-profielen")
)
(defun z-prof ()
(message "Z-profielen")
)
(defun wis1 ()(set_tile "buis" "2")(set_tile "buis" "0"))
(defun wis2 ()(set_tile "unp" "2")(set_tile "unp" "0"))
(princ)