用 LISP 如何做到像 AREA 命令的一样的提示呢？

spring

用 LISP 如何做到像 AREA 命令的一样的提示呢？


命令: area


指定第一个角点或 [对象(O)/加(A)/减(S)]: o


选择对象:


也就是当前可以执行动作,也可以输入关键字来执行其它的动作.


我试过用 grread 和 getkword 都没成功

BDYCAD

用getkword可以吧. 就是按下字母后调用ssget涵数可以的啊.但就知你的具体情况呢.

无痕

用getpoint或者其他的,参vl帮助中,initget函数

xyp1964

用initget、getkword和if函数配合使用。


参考“总图面积程序”：

spring

xyp1964你上面的程序不是我想要的效果 ;;;1.根据 meflying 的程序修改的,可是还是不理想
;;;现在只要是键盘输入的都会执行,而不是由程序设置的关键字
;;;如果在这个基础上改成可以由程序自定义的关键字+回车执行动作的话。就达到我的要求了
(defun Sel (msg / m gr x)
(prompt msg)
(setq m nil)
(while (not m)
(setq gr (grread 2 4 2))
(cond
((= (car gr) 3) ;点选
(setq m t)
)
((= (car gr) 2) ;键盘输入
(initget "S")
(setq x (getkword "确实要这样做吗? (Y/N)<Y> "))
(if (or (= x nil) (= x "Yes"))
(setq m t)
)
)
((= (car gr) 12) ;回车
(setq m t)
)
)
)
gr
)
(defun c:aa (/ ss msg)
(setq ss (sel "\nSelect Circle / S: 设置 :"))
)
;;;----------------------------------------
;;;2.用 getkword
(defun c:aa1 (/ x)
(initget "S M")
(setq x (getkword "请输入选项 [S 执行 a+1 /M 不执行]<S>"))
(if (or (= x nil) (= x "S"))
(progn
(if (= a nil)
(setq a 1)
)
(setq a (1+ a))
)
)
)

meflying

为什么不看3楼的??????????? (defun c:test( / pt)
(initget "O A S")
(setq pt (getpoint "指定第一个角点或 [对象(O)/加(A)/减(S)]:"))
)

王咣生

你是想要PLINE命令的效果,想输入点就用鼠标点选,想封闭就按C,...?

spring

meflying发表于2004-9-30 19:37:00为什么不看3楼的??????????? (defun c:test( / pt) (initget \"O A S\") (setq pt (getpoint \"指定第一个角点或 :\")))

哦,不是不看,而是脑子没反应过来. 谢谢!!!这就是我想要的效果.可是这样我就得写一个函数 (函数 参数）来执行我要的功能。这个函数就是类视 get.... 函数。我刚才写了一下。可是没写出来回去再想想。 祝大家国庆愉快!!!

无痕

有必要写么?好像简单了些,呵呵

2. (defun mygetpt (msg ini)
3.    (initget ini)
4.    (getpoint msg)
5. )(x-getpt "指定第一个角点或 [对象(O)/加(A)/减(S)]:" "O A S");;返回:nil或点或大写关键字.
6. (x-getpt "指定第一个角点或 [对象(O)/加(A)/减(S)]:" 128);;返回:nil或任意输入字符.

(defun mygetpt (msg ini)    (initget ini)    (getpoint msg) )(x-getpt "指定第一个角点或 [对象(O)/加(A)/减(S)]:" "O A S");;返回:nil或点或大写关键字. (x-getpt "指定第一个角点或 [对象(O)/加(A)/减(S)]:" 128);;返回:nil或任意输入字符.

至于把判断后要执行的语句写进函数我觉得没必要因为用(setq k (mygetpt "..." "..."))(cond  ((listp k) ....)  ((= k "O")...)  (....))也"复杂"不了多少

无痕

呵呵,没办法,来了精神了.

2. ;|声明:使用 本函数.你可以改动函数名,及部分程序内容.但请保留本声明及作者注释信息.本函数仅供学习参考,不对可能造成的后果负责.版权所有,未经允许不得用于商业用途.作者:梁雄啸函数:(x-cond-getpt msg doel dopt dolst) 功能:扩展getpoint功能,支持取点,取点选中实体,关键字,并执行相应功能函数及语句.
3. 参数: msg = 提示信息.
4.            doel = '(自定义传递变量 语句1 语句2...);传递变量的值为(nentselp)返回值格式,可在语句*中应用,如同 getboundingbox的'minp,'maxp 自定义变量.
5.            dopt = '(自定义传递变量 语句1 语句2...);传递变量的值为(getpoint)返回值格式,可在语句*中应用,如同 getboundingbox的'minp,'maxp 自定义变量.
6.            dolst = '((关键字1 语句1 语句1 ...)(关键字2 语句1 语句2 ...)...);如(("A" fa1 fa2...)("B" fb1 fb2 ...)...);关键字大小写无关!
7. 返回值: 符合条件的各条语句的执行结果列表.
8.                如果要取最后结果返回值,可使用(last 返回值)
9. 说明: doel,dopt,dolst应用时表前需加 ' 号或用(FUNCTION ())将内容包括起来.如同使用lambda函数.
10. 版本: v1.0-200410.
11. 更新:
12. 实例: (defun test (pt) (angle '(0 0 0) pt)) ;;测试用的临时函数.
13.            (x-cond-getpt "\n点选实体/取点/A-/B-:"
14.                  nil
15.                  '(pt (setq ptx pt)(test ptx))   ;;调用test函数.
16.                  '(("a" (princ "a"))
17.                      ("B" (princ "\n返回值: ")(princ "B"))
18.                    )
19.            )
20. |;;;主函数:
21. (defun x-cond-getpt (msg doel dopt dolst / k el ass)
22.    (setq dolst (mapcar '(lambda(x)(cons (strcase (car x))(cdr x))) dolst))
23.    (initget (apply 'strcat (mapcar '(lambda(x)(strcat (car x) " ")) dolst)))
24.    (setq k (getpoint msg))
25.    (cond
26.        ((and k doel (listp k) (setq el (nentselp k)))
27.          (set (car doel) el)
28.          (mapcar 'eval (cdr doel)))
29.        ((and k dopt (listp k))
30.          (set (car dopt) k)
31.          (mapcar 'eval (cdr dopt)))
32.        ((and k (= 'STR (type k))(setq ass (assoc k dolst)))
33.          (mapcar 'eval (cdr ass)))
34.        (T nil)
35.    )
36. )

;|声明:使用 本函数.你可以改动函数名,及部分程序内容.但请保留本声明及作者注释信息.本函数仅供学习参考,不对可能造成的后果负责.版权所有,未经允许不得用于商业用途.作者:梁雄啸函数:(x-cond-getpt msg doel dopt dolst) 功能:扩展getpoint功能,支持取点,取点选中实体,关键字,并执行相应功能函数及语句. 参数: msg = 提示信息.            doel = '(自定义传递变量 语句1 语句2...);传递变量的值为(nentselp)返回值格式,可在语句*中应用,如同 getboundingbox的'minp,'maxp 自定义变量.            dopt = '(自定义传递变量 语句1 语句2...);传递变量的值为(getpoint)返回值格式,可在语句*中应用,如同 getboundingbox的'minp,'maxp 自定义变量.            dolst = '((关键字1 语句1 语句1 ...)(关键字2 语句1 语句2 ...)...);如(("A" fa1 fa2...)("B" fb1 fb2 ...)...);关键字大小写无关! 返回值: 符合条件的各条语句的执行结果列表.                如果要取最后结果返回值,可使用(last 返回值) 说明: doel,dopt,dolst应用时表前需加 ' 号或用(FUNCTION ())将内容包括起来.如同使用lambda函数. 版本: v1.0-200410. 更新: 实例: (defun test (pt) (angle '(0 0 0) pt)) ;;测试用的临时函数.            (x-cond-getpt "\n点选实体/取点/A-/B-:"                  nil                  '(pt (setq ptx pt)(test ptx))   ;;调用test函数.                  '(("a" (princ "a"))                      ("B" (princ "\n返回值: ")(princ "B"))                    )            ) |;;;主函数: (defun x-cond-getpt (msg doel dopt dolst / k el ass)    (setq dolst (mapcar '(lambda(x)(cons (strcase (car x))(cdr x))) dolst))    (initget (apply 'strcat (mapcar '(lambda(x)(strcat (car x) " ")) dolst)))    (setq k (getpoint msg))    (cond        ((and k doel (listp k) (setq el (nentselp k)))          (set (car doel) el)          (mapcar 'eval (cdr doel)))        ((and k dopt (listp k))          (set (car dopt) k)          (mapcar 'eval (cdr dopt)))        ((and k (= 'STR (type k))(setq ass (assoc k dolst)))          (mapcar 'eval (cdr ass)))        (T nil)    ) )

3. ;|应用实例:
4. (setq a
5.              (x-cond-getpt "\n指定第一个角点或 [对象(O)/加(A)/减(S)]:"
6.                                          '(entl (print (car entl))(princ (cadr entl)))
7.                                          '(pt     (print pt)(princ "   角度:")(princ (angle '(0. 0. 0.) pt)))
8.                                          '(("O" (print "O"))
9.                                ("a" (print "A"))
10.                                ("S" (print "S"))
11.                              )
12.              )
13. )
14. ;;如果要执行的最末值作为返回值,使用下面语句,或将程序中(mapcar 'eval ...)改为(last(mapcar 'eval ...)).
15. ;;(setq b (if a (last a) nil)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;应用实例效果测试;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
16. ;; vl控制台显示信息(行末注释为后期加注):----------------------------;;
17. (140824.0 528880.0 0.0)     角度:1.31057                             ;;点击绘图区,选中实体的执行过程.
18. ((140824.0 528880.0 0.0) "   角度:" 1.31057)                   ;;返回值.
19. _$ <图元名: 7efb4dd8> (247879.0 491409.0 0.0)                     ;;点击绘图区,无实体的执行过程.
20. (<图元名: 7efb4dd8> (247879.0 491409.0 0.0))                 ;;返回值.
21. _$ "O"                     ;;输入"o"后的执行过程.
22. ("O")                 ;;返回值.
23. _$ "S"                     ;;输入"S"
24. ("S")
25. _$ nil                     ;;回车,执行过程无显示,返回值为nil
26. _$;; cad命令行显示信息:----------------------------;;
27. 指定第一个角点或 [对象(O)/加(A)/减(S)]:
28. (140824.0 528880.0 0.0)     角度:1.31057
29. 指定第一个角点或 [对象(O)/加(A)/减(S)]:
30. <图元名: 7efb4dd8> (247879.0 491409.0 0.0)
31. 指定第一个角点或 [对象(O)/加(A)/减(S)]:o
32. "O"
33. 指定第一个角点或 [对象(O)/加(A)/减(S)]:t
34. 需要点或选项关键字。
35. 指定第一个角点或 [对象(O)/加(A)/减(S)]:s
36. "S"
37. 指定第一个角点或 [对象(O)/加(A)/减(S)]:
38. 命令:
39. |;

;|应用实例: (setq a              (x-cond-getpt "\n指定第一个角点或 [对象(O)/加(A)/减(S)]:"                                          '(entl (print (car entl))(princ (cadr entl)))                                          '(pt     (print pt)(princ "   角度:")(princ (angle '(0. 0. 0.) pt)))                                          '(("O" (print "O"))                                ("a" (print "A"))                                ("S" (print "S"))                              )              ) ) ;;如果要执行的最末值作为返回值,使用下面语句,或将程序中(mapcar 'eval ...)改为(last(mapcar 'eval ...)). ;;(setq b (if a (last a) nil)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;应用实例效果测试;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; vl控制台显示信息(行末注释为后期加注):----------------------------;; (140824.0 528880.0 0.0)     角度:1.31057                             ;;点击绘图区,选中实体的执行过程. ((140824.0 528880.0 0.0) "   角度:" 1.31057)                   ;;返回值. _$ <图元名: 7efb4dd8> (247879.0 491409.0 0.0)                     ;;点击绘图区,无实体的执行过程. (<图元名: 7efb4dd8> (247879.0 491409.0 0.0))                 ;;返回值. _$ "O"                     ;;输入"o"后的执行过程. ("O")                 ;;返回值. _$ "S"                     ;;输入"S" ("S") _$ nil                     ;;回车,执行过程无显示,返回值为nil _$;; cad命令行显示信息:----------------------------;; 指定第一个角点或 [对象(O)/加(A)/减(S)]: (140824.0 528880.0 0.0)     角度:1.31057 指定第一个角点或 [对象(O)/加(A)/减(S)]: <图元名: 7efb4dd8> (247879.0 491409.0 0.0) 指定第一个角点或 [对象(O)/加(A)/减(S)]:o "O" 指定第一个角点或 [对象(O)/加(A)/减(S)]:t 需要点或选项关键字。 指定第一个角点或 [对象(O)/加(A)/减(S)]:s "S" 指定第一个角点或 [对象(O)/加(A)/减(S)]: 命令: |;