(defun selectsimilar-dcl  (/ lst_str str file f)
    (setq lst_str (list 
""
"selectsimilar : dialog{"
(strcat " label=\"" (zcet_GetResStr "IDS_SIM_DCL1" "Select Similar Settings") "\";")
"\t:row{"
"\t\t:boxed_row{"
(strcat " label=\"" (zcet_GetResStr "IDS_SIM_DCL2" "List of Options") "\";")
"\t\t\t:column{"
"\t\t\t\t:toggle{"
(strcat " label=\"" (zcet_GetResStr "IDS_SIM_DCL3" "Color") "\";")
(strcat " mnemonic=\"" (zcet_GetResStr "IDS_SIM_DCL_KW3" "C") "\";")
"\t\t\t\t\tkey=\"color\";"
"\t\t\t\t}"
"\t\t\t\t:toggle{"
(strcat " label=\"" (zcet_GetResStr "IDS_SIM_DCL4" "Layer") "\";")
(strcat " mnemonic=\"" (zcet_GetResStr "IDS_SIM_DCL_KW4" "L") "\";")
"\t\t\t\t\tkey=\"layer\";"
"\t\t\t\t}"
"\t\t\t\t:toggle{"
(strcat " label=\"" (zcet_GetResStr "IDS_SIM_DCL5" "LInetype") "\";")
(strcat " mnemonic=\"" (zcet_GetResStr "IDS_SIM_DCL_KW5" "I") "\";")
"\t\t\t\t\tkey=\"linetype\";"
"\t\t\t\t}"
"\t\t\t\t:toggle{"
(strcat " label=\"" (zcet_GetResStr "IDS_SIM_DCL6" "LineType scale") "\";")
(strcat " mnemonic=\"" (zcet_GetResStr "IDS_SIM_DCL_KW6" "T") "\";")
"\t\t\t\t\tkey=\"linetypescale\";"
"\t\t\t\t}"
"\t\t\t\t:toggle{"
(strcat " label=\"" (zcet_GetResStr "IDS_SIM_DCL7" "LineWeight") "\";")
(strcat " mnemonic=\"" (zcet_GetResStr "IDS_SIM_DCL_KW7" "W") "\";")
"\t\t\t\t\tkey=\"lineweight\";"
"\t\t\t\t}"
"\t\t\t\t:toggle{"
(strcat " label=\"" (zcet_GetResStr "IDS_SIM_DCL8" "Plot style") "\";")
(strcat " mnemonic=\"" (zcet_GetResStr "IDS_SIM_DCL_KW8" "P") "\";")
"\t\t\t\t\tkey=\"plotstyle\";"
"\t\t\t\t}"
"\t\t\t\t:toggle{"
(strcat " label=\"" (zcet_GetResStr "IDS_SIM_DCL9" "OBject Style") "\";")
(strcat " mnemonic=\"" (zcet_GetResStr "IDS_SIM_DCL_KW9" "B") "\";")
"\t\t\t\t\tkey=\"objectstyle\";"
"\t\t\t\t}"
"\t\t\t\t:toggle{"
(strcat " label=\"" (zcet_GetResStr "IDS_SIM_DCL10" "Name") "\";")
(strcat " mnemonic=\"" (zcet_GetResStr "IDS_SIM_DCL_KW10" "N") "\";")
"\t\t\t\t\tkey=\"name\";"
"\t\t\t\t}"
"\t\t\t} //column"
"\t\t}"
"\t\t:column{"
"\t\t\tspacer;"
"\t\t\tspacer;"
"\t\t\tspacer;"
"\t\t\tspacer;"
"\t\t\t:button{"
(strcat " label=\"" (zcet_GetResStr "IDS_SIM_DCL11" "Select All") "\";")
"\t\t\tkey=\"selectall\";"
(strcat " mnemonic=\"" (zcet_GetResStr "IDS_SIM_DCL_KW11" "S") "\";")
"\t\t\t}"
"\t\t\t:button{"
(strcat " label=\"" (zcet_GetResStr "IDS_SIM_DCL12" "ClEar All") "\";")
"\t\t\t\tkey=\"cleartall\";"
(strcat " mnemonic=\"" (zcet_GetResStr "IDS_SIM_DCL_KW12" "E") "\";")
""
"\t\t\t}"
"\t\t\t:button{"
(strcat " label=\"" (zcet_GetResStr "IDS_SIM_DCL13" "OK") "\";")
"\t\t\t\tkey=\"accept\";"
(strcat " mnemonic=\"" (zcet_GetResStr "IDS_SIM_DCL_KW13" "O") "\";")
"\t\t\t\tis_default=true;"
""
"\t\t\t}"
"\t\t\t:button{"
(strcat " label=\"" (zcet_GetResStr "IDS_SIM_DCL14" "CAncel") "\";")
"\t\t\t\tkey=\"cancel\";"
(strcat " mnemonic=\"" (zcet_GetResStr "IDS_SIM_DCL_KW14" "A") "\";")
"\t\t\t\tis_cancel=true;"
""
"\t\t\t}"
"\t\t\t:button{"
(strcat " label=\"" (zcet_GetResStr "IDS_SIM_DCL15" "Help") "\";")
"\t\t\t\tkey=\"help\";"
(strcat " mnemonic=\"" (zcet_GetResStr "IDS_SIM_DCL_KW15" "H") "\";")
""
"\t\t\t}"
"\t\t\tspacer;"
"\t\t\tspacer;"
"\t\t\tspacer;"
"\t\t\tspacer;"
"\t\t} //column"
"\t}"
"\t"
"}"
		    )
    )
    (setq file (vl-filename-mktemp "DclTemp.dcl"))
    (setq f (open file "w"))
    (foreach str lst_str
	  (princ "\n" f)
	  (princ str f)
    )
    (close f)
    ;;·µ»Ø
    file
)

(princ)