试试API里面的一键回车

newer · 发表于 2016-5-8 17:09:14

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

新拿到了API，增加了关键字的一键回车，这个可太好了，写了段代码测试下，还不错，本来想用+ - 做关键字动态缩放圆的，不过发现关键字不支持+ - ，希望老大给加上

一键回车.gif

上面的动画可以看到，输入关键字的时候，命令行提示是不变的。下面的代码也是点监视器函数xdrx_pointmonitor动态拖动的一个应用。

(defun c:tt ()
(defun _callback (dynpt)
(xdrx_setpropertyvalue e "center" dynpt)
dynpt
)
(xdrx_pointmonitor "_callback")
(setq e (xdrx_circle_make '(0 0 0) 200.0))
(while (progn
(xdrx_initget "A B")
(initget "A B")
(setq p (getpoint "\rPICK POINT[半径增大(A)/减小(B)]<退出>:"))
)
(cond
((= p "A")
(xdrx_setpropertyvalue e "radius" (+ 30 (xdrx_getpropertyvalue e "radius")))
)
((= p "B")
(xdrx_setpropertyvalue e "radius" (- (xdrx_getpropertyvalue e "radius") 40))
)
((= (type p) 'LIST)
(xdrx_entity_copy e)
)
)
)
(xdrx_entity_delete e)
(xdrx_pointmonitor)
(princ)
)

newer · 发表于 2016-5-8 17:15:32

(xdrx_initget "A B") 这个就是API新加的一键回车函数，要配合LISP的INITGET函数一起使用
(initget "A B")

liuyj · 发表于 2016-5-8 20:00:55

盼好几年了，啥时候发布？

pxt2015 · 发表于 2017-5-2 12:38:28

带关键字的xdrx_ssget，能否也实现：一键回车。

newer · 发表于 2017-5-2 12:45:39

pxt2015 发表于 2017-5-2 12:38

一样支持，在xdrx_ssget前加上 (xdrx_initget "....")就行了。

pxt2015 · 发表于 2017-5-2 13:07:07

newer 发表于 2017-5-2 12:45

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 第1种情况
;;带关键字的ssget
(xdrx_initssget "\n请选择文字" "S" "" "" "")
(setq ss (xdrx_ssget ":L" '((0 . "text,mtext"))))
效果：输入S，需要敲击“空格或者回车键”，返回："S"
希望能得到 “第2种情况”的体验

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 第2种情况
;;一键回车
(xdrx_initget "1 2 3 4")
(setq x
   (getkword
   (strcat "\n 单线体(1) /宋体(2)/仿宋(3)/改Standard为Txt,Hztxt(4) <"
   "1"
   ">:"
   )
   )
)
效果：输入1，(不需敲击“空格或者回车键”)，直接返回："1"

newer · 发表于 2017-5-2 13:23:05

pxt2015 发表于 2017-5-2 13:07

1、(xdrx_initget ....)设置后，(xdrx_initssget ... )里面也要设置

2、(xdrx_initget ....) 设置后，只要有键盘输入的地方就有效

3、(xdrx_initssget ... ) 设置了关键字后，xdrx_ssget才响应关键字，要注意区分。

4、还有要注意的是，SSGET保留的关键字不要做(xdrx_initssget ... )里面的关键字。比如 A,R,C,W,F,L等等。

5、设置了(xdrx_initget ....)，比如(xdrx_initget "A R C W F L")，不设(xdrx_initssget ... ) ，对SSGET的标准的关键字也是响应一键回车的，设置了(xdrx_initget ....)，所有键盘输入的地方，都响应。

下面是例子

(defun c:tt ()
(defun callback (keyword)
(cond
((= keyword "K")
(princ "\n输入了关键字K.")
)
((= keyword "H") (princ "\n输入了关键字H."))
)
(princ)
)
(xdrx_begin)
(xdrx_initget "H K")
(xdrx_initssget
"\n选取要处理的多段线<退出>:"
"H K"
""
"callback"
)
(if (setq ss (xdrx_ssget '((0 . "*POLYLINE"))))
(xdrx_prompt "\n共选取了" (sslength ss) "个多段线.")
)
(xdrx_end)
(princ)
)

pxt2015 · 发表于 2017-5-2 18:43:32

这下豁然开朗，版主讲得太好了。多谢！

账号		自动登录	找回密码
密码			立即注册

[研讨] 试试API里面的一键回车

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。