关于xdrx_initget一键回车方式

brainstorm · 发表于 2017-8-21 17:16:37

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

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

×

如下图，已经设置关键字 a s d f 支持一键回车问题是当用户输入 mid end nea都会一键回车，而用户输入int时不会一键回车
这样是不是有点乱
能否增加判断，如果输入的第一个字母非关键字，则以后再出现关键字也不一键回车
这样统一起来，不会混乱

QQ截图20170821170339.png

newer · 发表于 2017-8-21 18:13:35

因为不知道第二个输入和第一输入是否是一起的，中间隔开了多少时间，是否是用户输错了，重新输字符等
所以程序去判断不容易实现，还是先把用的关键字和可能要输的区分开吧，别把可能要输的做关键字。

要(getpoint)的时候，就选写其他的关键字，比如1,2,3什么的。

其实，在相应完GETXXX函数后，可以马上就 (xdrx_initget)把一键回车给取消了。

以后在看看想点办法。

brainstorm · 发表于 2017-8-21 20:36:03

能否增加判断，如果输入的第一个字母非关键字，则以后再出现关键字也不一键回车，直至用户右键或空格确认后重新开始一键回车

XDSoft · 发表于 2017-8-24 15:30:33

新版本加入，等更新。

brainstorm · 发表于 2017-8-24 19:23:01

直至用户右键或空格确认后重新开始一键回车或用户按退格键把文字清空

brainstorm · 发表于 2017-8-29 14:13:13

API的initget试了挺好用的
有个小问题假定输入最近点nea，然后退格清除nea，这时再输入关键字，API能够响应关键字
但是需要重新在屏幕上点一下鼠标，才能回到绘图区，这个问题能解决么，见下图
也不知道说清楚没

newer · 发表于 2017-8-29 15:17:02

brainstorm 发表于 2017-8-29 14:13

你在命令行输入呢？什么结果。

brainstorm · 发表于 2017-8-29 16:57:13

newer 发表于 2017-8-29 15:17

命令行输入:line 选点输入300,300 然后退格清空移动鼠标鼠标自动回到绘图区不用再点一下也就是命令行不是focus了

XDSoft · 发表于 2017-9-1 10:42:17

brainstorm 发表于 2017-8-29 16:57

API 更新到 0901 了，关键字加入 CTRL和SHIFT键支持
用法
(xdrx_initget "ctrl shift")

试试。

(defun c:tt ()
(defun callback (dynpt)
(xdrx_setpropertyvalue e "center" dynpt)
dynpt
)
(if (setq e (car (xdrx_entsel "\n拾取圆<退出>:" '((0 . "CIRCLE")))))
(progn
(xdrx_begin)
(xdrx_pointmonitor "callback")
(while (and (xdrx_initget "CTRL SHIFT")
(setq p
(getpoint "\n插入点[增加半径(CTRL键)/减小半径(SHIFT键)]:")
)
)
(progn (setq r (xdrx_getpropertyvalue e "radius"))
(cond ((= p "CTRL")
(xdrx_setpropertyvalue e "radius" (+ r (/ r 10.0)))
)
((= p "SHIFT")
(xdrx_setpropertyvalue e "radius" (- r (/ r 10.0)))
)
(t
(xdrx_entity_copy e)
(setq e (entlast))
)
)
)
)
(xdrx_pointmonitor)
(xdrx_end)
)
)
(princ)
)

(defun c:tt () 
  (defun callback (dynpt) 
    (xdrx_setpropertyvalue e "center" dynpt) 
    dynpt 
  ) 
  (if (setq e (car (xdrx_entsel "\n拾取圆<退出>:" '((0 . "CIRCLE"))))) 
    (progn 
      (xdrx_begin) 
      (xdrx_pointmonitor "callback") 
      (while (and (xdrx_initget "CTRL SHIFT") 
                  (setq        p 
                         (getpoint "\n插入点[增加半径(CTRL键)/减小半径(SHIFT键)]:") 
                  ) 
             ) 
        (progn (setq r (xdrx_getpropertyvalue e "radius")) 
               (cond ((= p "CTRL") 
                      (xdrx_setpropertyvalue e "radius" (+ r (/ r 10.0))) 
                     ) 
                     ((= p "SHIFT") 
                      (xdrx_setpropertyvalue e "radius" (- r (/ r 10.0))) 
                     ) 
                     (t 
                      (xdrx_entity_copy e) 
                      (setq e (entlast)) 
                     ) 
               ) 
        ) 
      ) 
      (xdrx_pointmonitor) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
)

brainstorm · 发表于 2017-9-1 11:54:54

XDSoft 发表于 2017-9-1 10:42

试了超级好用这样少占用关键字
但是，你的帖子在连续按ctrl键情况下，图面上圆只放大一次，移动鼠标后圆自己就放大了，
我用drag_jig就可以连续显示放大,是pointmoinitor和drag_jig有区别，还是代码循环位置不同
见图及代码

(defun c:tt2 ()
(defun callback (dynpt)
(xdrx_initget "CTRL SHIFT")
(xdrx_setpropertyvalue e "center" dynpt)
dynpt
)
(setq loop t)
(if (setq e (car (xdrx_entsel "\n拾取圆<退出>:" '((0 . "CIRCLE")))))
(progn
(xdrx_begin)
(while loop
(setq rtn
(xdrx_drag_jig
"callback"
"\n插入点[增加半径(CTRL键)/减小半径(SHIFT键)]:"
"CTRL SHIFT"
(+ 2 128)
0
'(0 0 0)
)
)
(cond ((= rtn "CTRL")
(xdrx_setpropertyvalue e "radius" (setq r (+ r (/ r 10.0))))
)
((= rtn "SHIFT")
(xdrx_setpropertyvalue e "radius" (setq r (- r (/ r 10.0))))
)
(t
(xdrx_entity_copy e)
(setq e (entlast))
(setq loop nil)
)
)
)
)
)
)

(defun c:tt2 () 
  (defun callback (dynpt) 
    (xdrx_initget "CTRL SHIFT") 
    (xdrx_setpropertyvalue e "center" dynpt) 
    dynpt 
  ) 
  (setq loop t) 
  (if (setq e (car (xdrx_entsel "\n拾取圆<退出>:" '((0 . "CIRCLE"))))) 
    (progn 
      (xdrx_begin) 
      (while loop 
        (setq rtn 
               (xdrx_drag_jig 
                 "callback" 
                 "\n插入点[增加半径(CTRL键)/减小半径(SHIFT键)]:" 
                 "CTRL SHIFT" 
                 (+ 2 128) 
                 0 
                 '(0 0 0) 
               ) 
        ) 
        (cond ((= rtn "CTRL") 
               (xdrx_setpropertyvalue e "radius" (setq r (+ r (/ r 10.0)))) 
              ) 
              ((= rtn "SHIFT") 
               (xdrx_setpropertyvalue e "radius" (setq r (- r (/ r 10.0)))) 
              ) 
              (t 
               (xdrx_entity_copy e) 
               (setq e (entlast)) 
               (setq loop nil) 
              ) 
        ) 
      ) 
    ) 
  ) 
)

newer · 发表于 2017-9-1 12:23:16

brainstorm 发表于 2017-9-1 11:54

老大的代码，我在2008和2016下面，都能连续的放大。不清楚是否是你CAD的原因。

brainstorm · 发表于 2017-9-1 12:42:35

newer 发表于 2017-9-1 12:23

估计是我的事，我这里有网上的插件单键快捷，天正也有一键快捷，天正连cad 自带命令的关键字都监视，再加上api, 各种监视，看谁能打过谁

brainstorm · 发表于 2017-9-1 12:53:08

newer 发表于 2017-9-1 12:23

我用纯cad2014 2010试了一下，2010没问题，2014下不移动鼠标，
圆只放大一次，然后移动鼠标，自动把以前按过的N次ctrll都放大了，
你再看看

newer · 发表于 2017-9-1 13:13:46

brainstorm 发表于 2017-9-1 12:53

在2014MAP下试了，确实，移动鼠标才更新，我想是2014版本的原因，至少从现在看，2007,2008,2010,2016也就是 R17，R18，R20都正常，只有R19不正常。
从现象看，2014版本，点监视器不移动鼠标，GET系列函数不执行。

xinxirong · 发表于 2017-9-1 22:43:52

原来 (xdrx_initget)有这个功能，很好很好

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

[API建议] 关于xdrx_initget一键回车方式

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