[LISP函数]一触即发的选项

lyy

;;一触即发的选项[pro-提示 lst-关键字列表 def-缺省关键字]
(defun yad-getkword(pro lst def / kw val)
  (setq lst (apply 'append (mapcar '(lambda(e) (list (ascii (strcase e)) (ascii (strcase e T)))) lst))
        def (ascii def)
  )
  (prompt pro)
  (while (not (and (setq kw (grread nil) val (car kw) kw (cadr kw))
                   (member val '(2 11 25))
                   (if (or (= val 25) (and (= val 11) (= kw 0)) (member kw '(13 32)))
                     (setq kw def)
                     (member kw lst)
                   )
              )
         )
  )
  (strcase (vl-list->string (list kw)))
)
;;例1：(yad-getkword "\n输入选项[A 直线/B 圆弧/C 圆]：<A>" '("A" "B" "C") "a")
;;例2：(yad-getkword "\n输入选项[A 直线/B 圆弧/C 圆]：<退出>" '("a" "b" "c") "X")

BDYCAD

看來這樣做會給寫有可選項的程序帶來更大的方便. 試試看.

lockmyeye

我做有一个的应用。

1. ;;;按模式修改实体
   
2. ;;;ssdef1 (ssget "x")的参数定义
   
3. ;;;prop  属性表内容
   
4. ;;;(
   
5. ;;; ("单个字母1" "提示1" "表名1" (("字段名1" . 字段值1)("字段名2" . 字段值2)("字段名x" . 字段值x)) 其它加工的代码)
   
6. ;;; ("单个字母2" "提示2" "表名2" (("字段名1" . 字段值1)("字段名2" . 字段值2)("字段名x" . 字段值x)) 其它加工的代码)
   
7. ;;; ("单个字母x" "提示x" "表名x" (("字段名1" . 字段值1)("字段名2" . 字段值2)("字段名x" . 字段值x)) 其它加工的代码)
   
8. ;;;)
   
9. (DEFUN change_with_mode (ssdef prop other/ mode_data mode_now ss tmp1 promt_text)
   
10.     (SETQ prop       (APPEND prop '("X" "退出"))  ;增加退出选项
    
11.           mode_now   nil                          ;当前模式
    
12.           promt_text "\n\t"                       ;提示内容
    
13.     )
    
14.     (FOREACH tmp1 prop (SETQ promt_text (STRCAT promt_text (NTH 0 tmp1) "." (NTH 1 tmp1) "\t")))
    
15.     (WHILE (AND (SETQ ss (SSGET "x" ssdef)) (/= (NTH 0 mode_now) "X"))
    
16.         (IF mode_now
    
17.             (PRINC (STRCAT promt_text "<" (NTH 0 mode_now) "." (NTH 1 mode_now)))
    
18.             (PRINC promt_text)
    
19.         )
    
20.         (SETQ mode_data (GRREAD nil))
    
21.         (COND ;;键盘输入情况
    
22.               ((AND (= 2 (CAR mode_data)) (SETQ mode_data (ASSOC (CHR (CADR mode_data)) prop)))
    
23.                (SETQ mode_now (NTH 0 mode_data))
    
24.                (IF (/= "X" mode_now)
    
25.                    (change_with_mode_sub1 mode_data ssdef)
    
26.                )
    
27.               )
    
28.               ;;右键情况由当前模式决定
    
29.               ;;当前模式为空时退出，否则执行当前模式操作
    
30.               ((= 12 (CAR mode_data))
    
31.                (IF mode_now
    
32.                    (change_with_mode_sub1 mode_data ssdef)
    
33.                    (SETQ mode_now "X")
    
34.                )
    
35.               )
    
36.         )
    
37.     )
    
38. )

复制代码

龙龙仔

lockmyeye可否貼出完整程序及使用說明,謝謝!

cwmfj

如何用？能否细说？最好把yad内的函数库也搞一个。方便yad程序别人开发补充