XX工具箱

gaomingabc456

;;;简单、容易、快速上手。。。。
(defun c:tt()
  (setq ml_ls (list
              ;;(list "命令名称" "命令")
                (list "快速加点" "POLYINS")
                (list "快速删点" "ERASEVERTEX")
                (list "封闭线" "PLBIHE")
                (list "复合线转权属" "PLTOJZLINE")
                (list "填充水田符号" "stfh")
                (list "填充旱地符号" "hdfh")
                (list "测试" "cs")
            )
     )
  (DCL_TOOL ml_ls)
)

(defun c:cs()
  (alert "测试")
  (prin1)
)

;;;后面的可根据自己的需要进行修改
(defun DCL_TOOL (lst / lst1 n dclfilename)
  (setq dclfilename (vl-filename-mktemp nil nil ".dcl"))
  (setq fn (open dclfilename "w"))
       
  (write-line "MB:dialog {" fn)
  (write-line "  label = \"XX工具箱\" ;" fn)
  (write-line "    :column {" fn)
  (setq n 0)
  (foreach lst1 lst
    (setq n (1+ n))
    (write-line "  :button {" fn)
    (write-line (strcat " key =   \"" (strcat "BU" (itoa n))"\";") fn)
    (write-line (strcat " label = \"" (car  lst1)"\";") fn)
    (write-line "  }" fn)
        )
       
  (write-line "  }" fn)
  (write-line "  cancel_button;" fn)  
  (write-line "}" fn)
  (close fn)
               
  (setq dcl_id (load_dialog dclfilename))
  (if (not (new_dialog "MB" dcl_id)) (exit))       
  (setq n 0)
  (foreach lst1 lst
        (setq n (1+ n))
        (action_tile (strcat "BU" (itoa n))(strcat "\(done_dialog " (itoa n) "\)"))
   )
       
        (setq dd (start_dialog))
        (unload_dialog dcl_id)
        (vl-file-delete dclfilename)
        (if(> dd 0)
                (progn (setq tt (cadr (nth (1- dd) lst)))
                        (princ "\n")
                        (if (or (= (eval (read (strcat "(type c:" tt ")"))) 'USUBR)
                                (= (eval (read (strcat "(type c:" tt ")"))) 'SUBR)
                               )
                           (eval (read (strcat "(c:" tt ")")))
                           (vl-cmdf tt)
                        )
                )
        )
        (prin1)
)

qq568521286

很不错的思路,简单快捷

★紫竹★

谢谢分享。。。

leedun

感谢分享，这个是我见过最容易理解的了