(setq LayL (list "MK-HV Kanal SUPPLY" "MK-HV Kanal FRESH" "MK-HV Kanal RETURN" "MK-HV Kanal EGZOST"
                             "MK-HV Kanal YAZI")
   ClrL (list "ByLayer" "ByBlock" "1 Red" "2 Yellow" "3 Green" "4 Cyan" "5 Blue" "6 Magenta" "7 White"
                            "Select Color..."))   ""

Cizparam : dialog {
           label ="Çizim Parametreleri";
           width = 30;
          height = 20 ;
         : boxed_column {
           label ="Yazdırma Seçenekleri";
           :row {
           : column {
   : row { : toggle { key = "Pndim_tog"; label = "Parça Numarası " ; alignment = centered ;}}
   : row { : toggle { key = "Kndim_tog"; label = "Kanal Ebadı    " ; alignment = centered ;}}
   : row { : toggle { key = "AFdim_tog"; label = "Hava Debisi    " ; alignment = centered ;}}
   : row { : toggle { key = "Padim_tog"; label = "Basınc Kaybı   " ; alignment = centered ;}}
   : row { : toggle { key = "Vldim_tog"; label = "Hava Hızı      " ; alignment = centered ;}}
   : row { : toggle { key = "Ftdim_tog"; label = "Fittings Adı   " ; alignment = centered ;}}
        }
   : column {
   : row { : popup_list { label = "Layer:" ;  key = "PnoLay_lst";  alignment = centered ; value = "1" ;}}
   : row { : popup_list { label = "Layer:" ;  key = "KnELay_lst";  alignment = centered ; value = "0" ;}}
   : row { : popup_list { label = "Layer:" ;  key = "AflLay_lst";  alignment = centered ; value = "0" ;}}
   : row { : popup_list { label = "Layer:" ;  key = "PamLay_lst";  alignment = centered ; value = "0" ;}}
   : row { : popup_list { label = "Layer:" ;  key = "VelLay_lst";  alignment = centered ; value = "0" ;}}
   : row { : popup_list { label = "Layer:" ;  key = "FttLay_lst";  alignment = centered ; value = "0" ;}}
        }
   : column {
   : row { : popup_list { label = "Color:" ;  key = "PnoClr_lst";  alignment = centered ; value = "8" ;}}
   : row { : popup_list { label = "Color:" ;  key = "KnEClr_lst";  alignment = centered ; value = "8" ;}}
   : row { : popup_list { label = "Color:" ;  key = "AflClr_lst";  alignment = centered ; value = "8" ;}}
   : row { : popup_list { label = "Color:" ;  key = "PamClr_lst";  alignment = centered ; value = "8" ;}}
   : row { : popup_list { label = "Color:" ;  key = "VelClr_lst";  alignment = centered ; value = "8" ;}}
   : row { : popup_list { label = "Color:" ;  key = "FttClr_lst";  alignment = centered ; value = "8" ;}}
        }
   : column {
   : row { : edit_box { key = "Pno_eb";  label = "Yazı Yüksekliği :" ; edit_width = 3; fixed_width = true; allow_accept = false; alignment = centered ;}}
   : row { : edit_box { key = "KnE_eb";  label = "Yazı Yüksekliği :" ; edit_width = 3; fixed_width = true; allow_accept = false; alignment = centered ;}}
   : row { : edit_box { key = "Afl_eb";  label = "Yazı Yüksekliği :" ; edit_width = 3; fixed_width = true; allow_accept = false; alignment = centered ;}}
   : row { : edit_box { key = "Pam_eb";  label = "Yazı Yüksekliği :" ; edit_width = 3; fixed_width = true; allow_accept = false; alignment = centered ;}}
   : row { : edit_box { key = "Vel_eb";  label = "Yazı Yüksekliği :" ; edit_width = 3; fixed_width = true; allow_accept = false; alignment = centered ;}}
   : row { : edit_box { key = "Ftt_eb";  label = "Yazı Yüksekliği :" ; edit_width = 3; fixed_width = true; allow_accept = false; alignment = centered ;}}
    }
       }
         : row {  width = 50; fixed_width = true; alignment = centered ;
           : button { key = "Accept"; label = "Tamam"; width = 15; fixed_width = true; alignment = left; is_default = true; is_cancel = false; mnemonic = "T"; }
           : button { key = "Cancel"; label = "Iptal"; width = 15; fixed_width = true; alignment = left; is_default = false; is_cancel = true; mnemonic = "I"; }
           : button { key = "Hlp"; label = "Yardım"; width = 15; fixed_width = true; alignment = left; is_default = false; mnemonic = "Y"; }
               }
                         }
         } // dialog end.

(defun c:Cpr ( / LayL ClrL Dclid_Cp CzPar)
  (setq LayL (list "MK-HV Kanal SUPPLY" "MK-HV Kanal FRESH" "MK-HV Kanal RETURN" "MK-HV Kanal EGZOST" "MK-HV Kanal YAZI")
ClrL (list "ByLayer" "ByBlock" "1 Red" "2 Yellow" "3 Green" "4 Cyan" "5 Blue" "6 Magenta" "7 White" "Select Color..."))
  (setq Dclid_Cp (load_dialog "DrwParam.DCL"))
   (if (not (new_dialog "Cizparam" Dclid_Cp))(exit)
    (progn
      (start_list "PnoLay_lst")(mapcar 'add_list LayL)(end_list)  ; Parça numarası yazısı layeri ( Part Number Text Layer)
      (start_list "PnoClr_lst")(mapcar 'add_list ClrL)(end_list)  ; Parça numarası yazı rengi ( Part number text layer color)
      (start_list "KnELay_lst")(mapcar 'add_list LayL)(end_list)  ; Parça Ebadı yazısı ( Part Dimension Text Layer)
      (start_list "KnEClr_lst")(mapcar 'add_list ClrL)(end_list)  ; Parça Ebadı yazı rengi ( Part Dimension text layer color)
      (start_list "AflLay_lst")(mapcar 'add_list LayL)(end_list)  ; Hava debisi yazısı ( Airvolume Text Layer)
      (start_list "AflClr_lst")(mapcar 'add_list ClrL)(end_list)  ; Hava debisi yazı rengi ( Airvolume text layer color)
      (start_list "PamLay_lst")(mapcar 'add_list LayL)(end_list)  ; Basınc kaybı yazısı ( Pressure lose Text Layer)
      (start_list "PamClr_lst")(mapcar 'add_list ClrL)(end_list)  ; Basınc kaybı yazı rengi ( Pressure lose text layer color)
      (start_list "VelLay_lst")(mapcar 'add_list LayL)(end_list)  ; Hava hızı yazısı ( AirVelocity Text Layer)
      (start_list "VelClr_lst")(mapcar 'add_list ClrL)(end_list)  ; Hava hızı yazı rengi ( AirVelocity text layer color)
      (start_list "FttLay_lst")(mapcar 'add_list LayL)(end_list)  ; Fitingsno yazısı ( Fittings Number Text Layer)
      (start_list "FttClr_lst")(mapcar 'add_list ClrL)(end_list)  ; Fitingsno yazı rengi ( Fittings Number text layer color)
      (action_tile "Accept" "(done_dialog 1)")
      (action_tile "Cancel" "(done_dialog 0)")
      (setq CzPar (start_dialog))
      (unload_dialog Dclid_Cp)
       (if (= CzPar 1) (alert "Çizim Parametreleri Kaydedildi.!!"))
       (if (= CzPar 0) (alert "Çizim Parametreleri Kaydedilmedi.!!"))
    )
   )
)