[编程交流] Lisp选项

(defun c:test ( / dcl rb:write flag dcl_location ent )
(defun rb:write ( filename textlist write / fname line lst )
 (setq fname (open filename (if write "w" "a")))
 (foreach x textlist
   (write-line x fname)
 )
 (setq fname (close fname))
 (if (findfile filename)
   t nil
 )
)
(if (not (findfile (setq dcl_location "c:\\temp\\temp.dcl")))
 (rb:write dcl_location
   '("main"
      ": dialog {"
      "    label = "testing";"
      "    : boxed_column {"
      "        : text {"
      "            label = "<object type>";"
      "            key = "txt";"
      "        }"
      "        : button {"
      "            label = "pick object";"
      "            key = "button";"
      "        }"
      "    } cancel_button;"
      "}") t
  )
)
 (defun load-dcl ( / dcl )
   (setq dcl (load_dialog dcl_location))
   (if (new_dialog "main" dcl)
     (progn
       (and ent
         (set_tile "txt" 
           (cdr (assoc 0 (entget ent)))
         )
       )
       (action_tile "button" "(done_dialog 2)")
       (setq flag (start_dialog))
       (unload_dialog dcl)
       (and (eq 2 flag)
         (setq ent (car (entsel "\nSpecify object to select: ")))
         (load-dcl)
       )
     ) (alert "fail")
   )
 )
 (load-dcl)
)