[编程交流] 更改标签的属性

(defun c:test (/ create_dialog fname fn dia)
 (defun create_dialog ()
   (setq fname (vl-filename-mktemp "tmp.DCL"))
   (setq fn (open fname "a"))
   (write-line
     "Sample
: dialog
{
 : image {
   key = "Sample_B";
   width = 24;
   height = 1.28;
   fixed_width = true;
   fixed_height = true;
   aspect_ratio = 1;
   color = 4;
 }
 spacer;
 ok_only;
}"
     fn
   )
   (close fn)
 )
 (create_dialog)
 (setq Dia (load_dialog fname))
 (if (not (new_dialog "Sample" Dia))
   (exit)
 )
 (set_tile "Sample_B" "Background Highlight.")
 (start_dialog)
 (unload_dialog Dia)
 (vl-file-delete fname)
 (princ)
)