odcl 转lisp_晓东CAD家园-论坛-A/VLISP-DCL文件转Lisp文件-窃以为DCL用不着用odcl之类花里胡哨的东西，功能才是重要的，DCL界面简洁。DCL文件在调试时确实方便，调试完...

(defun rough:dcl (/ DCLID FN FNAME MAX_X MAX_Y PRCS)

(setq fname (vl-filename-mktemp nil nil ".dcl"))

(setq fn (open fname "w"))

(write-line "rough : dialog" fn)

(write-line "{" fn)

(write-line "  label="粗糙度";" fn)

(write-line "  spacer;" fn)

(write-line "  :row" fn)

(write-line "  {" fn)

(write-line "    :column" fn)

(write-line "    {" fn)

(write-line "      :image_button" fn)

(write-line "      {" fn)

(write-line "        key = "RM";" fn)

(write-line "        aspect_ratio = 1;" fn)

(write-line "        width        = 8;" fn)

(write-line "        fixed_width  = true;" fn)

(write-line "        color        = graphics_background;