如何自动识别键盘输入与捕捉输入

xtdwynij · 发表于 2013-5-13 13:44:25

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

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

×

下面是我自己做的一个选择,但是不是自动的.还是要选择..请师兄版主们出手!!感激!!!!代码如下:[pcode=lisp,true]
(defun ybjk (/ dd ee gg)
(setvar "osmode" 515)
(setq dd (getpoint "请指定第一点:"))
(setq ee (getpoint dd "请指定第二点:"))
(setq gg (distance dd (list (car dd) (cadr ee))))
) ;这是量y轴的距离
(defun c:tt ()
(setq aa3 (getkword "\n A 捕捉输入 ,B 键盘输入[A捕捉输入]:"))
(cond
((= aa3 "A")
(prompt "\n请输入高度:")
(setq h (ybjk))
)
((= aa3 "B")
(setq h (getreal "\n请输入高度的值:"))
)
)
)[/pcode]

eachy · 发表于 2013-5-13 14:46:49

搜索"一触即发"

Lisphk · 发表于 2013-5-13 14:57:05

还真不少
http://search.xdcad.net/f/discuz?mod=forum&formhash=1b7b1252&srchtype=title&srhfid=14&srhlocality=forum%3A%3Aviewthread&sId=22822691&ts=1368428028&cuId=1&cuName=XDSoft&gId=1&agId=1&egIds=&fmSign=&ugSign1=&ext_ffids=&sign=404a3bed4a5e1eb8e1b54050e0cced80&charset=gbk&source=discuz&fId=0&q=%D2%BB%B4%A5%BC%B4%B7%A2&srchtxt=%D2%BB%B4%A5%BC%B4%B7%A2&searchsubmit=true

QQ截图20130513145545.png

xtdwynij · 发表于 2013-5-13 20:10:55

eachy 发表于 2013-5-13 14:46
搜索"一触即发"

看不懂啊副站长前辈!那一个和我的是实现一样的功能么?能自动识别么?

xtdwynij · 发表于 2013-5-13 20:11:41

Lisphk 发表于 2013-5-13 14:57
还真不少
http://search.xdcad.net/f/discuz?mod=forum&formhash=1b7b1252&srchtype=title&srhfid=14&srhl ...

师兄要是会也指点一下啊!呵呵

ll_j · 发表于 2013-5-13 22:34:30

xtdwynij 发表于 2013-5-13 20:11
师兄要是会也指点一下啊!呵呵

“一触即发”是指输入选项字母时，不用输回车。
说实在的，我也不知道你所要的功能，要仅仅是输入距离的话，不妨试试getdist函数，可以鼠标点取，也可以键盘输入。

牢固 · 发表于 2013-5-13 22:40:15

楼主举得这个例子不恰当！getdist就解决了！我估摸着这不是楼主的本意吧！

xtdwynij · 发表于 2013-5-13 22:57:13

牢固发表于 2013-5-13 22:40
楼主举得这个例子不恰当！getdist就解决了！我估摸着这不是楼主的本意吧！

G版您好!如果我用getdist函数的话那么我指定另一个点的话就不能单单得到X轴或者单单得到Y轴的距离,而我的工作图纸是不能捕捉垂足点的.因为对方发来的都是AI或者PDF文件!一捕捉就会死机!例如:
(setq pt1 (list 10 20))
(setq pt2 (getdist pt1 "\n请指定第二点:") ;(= (cadr pt1) (cadr pt2)) 这个前提一定要有.用了getdist不一定能保证我要的值(= (cadr pt1) (cadr pt2))成立

xtdwynij · 发表于 2013-5-13 22:58:42

ll_j 发表于 2013-5-13 22:34
“一触即发”是指输入选项字母时，不用输回车。
说实在的，我也不知道你所要的功能，要仅仅是输入距离的 ...

师兄你好!用getdist可以输入.但是点取的话就不一定能保证了!我要捕捉的值是一条直线的!

XDSoft · 发表于 2013-5-13 23:57:28

xtdwynij 发表于 2013-5-13 22:58
师兄你好!用getdist可以输入.但是点取的话就不一定能保证了!我要捕捉的值是一条直线的!

你要的是什么值？

牢固 · 发表于 2013-5-14 00:13:15

xtdwynij 发表于 2013-5-13 22:57
G版您好!如果我用getdist函数的话那么我指定另一个点的话就不能单单得到X轴或者单单得到Y轴的距离,而我的 ...

打开正交即可保证X或Y值相等！！

xtdwynij · 发表于 2013-5-14 00:18:25

牢固发表于 2013-5-14 00:13
打开正交即可保证X或Y值相等！！

谢谢G版这么晚了还回复我的小白问题！明天我做一个动画传上来吧！这样我的问题会一目了然。老是表达不清楚。真是不好意思

Free-Lancer · 发表于 2013-5-14 00:56:35

本帖最后由 Free-Lancer 于 2013-5-14 01:02 编辑

是这个效果吗？

;;======================================
;;一触即发的选项[pro-提示 lst-关键字列表 def-缺省关键字]
(defun ybl-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)))
)
(defun c:tt (/ kw p1 p2 d)
(if (setq kw (ybl-getkword "\n[A - 拾取/B - 输入]<A>:" '("A" "B") "A"))
(cond
((= kw "A")
(setq p1 (getpoint "\nFirst Point: ")
p2 (getpoint p1 "\nSecond Point: ")
)
)
((= kw "B")
(setq d (getreal "\nHeight: "))
)
(t)
)
)
)

;;====================================== 
;;一触即发的选项[pro-提示 lst-关键字列表 def-缺省关键字] 
(defun ybl-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))) 
) 
(defun c:tt (/ kw p1 p2 d) 
  (if (setq kw (ybl-getkword "\n[A - 拾取/B - 输入]<A>:" '("A" "B") "A")) 
    (cond 
      ((= kw "A") 
       (setq p1  (getpoint "\nFirst Point: ") 
       p2  (getpoint p1 "\nSecond Point: ") 
       ) 
      ) 
      ((= kw "B") 
       (setq d (getreal "\nHeight: ")) 
      ) 
      (t) 
    ) 
  ) 
)

另外一个建议，对LZ这个主题用 Getdist 就可以解决，既可以拾取又可以输入的

(setq h (getdist "\n高度: "))

xtdwynij · 发表于 2013-5-14 01:00:01

Free-Lancer 发表于 2013-5-14 00:56
是这个效果吗？

师兄！第三次了！感谢你这么晚了还回复。都快一点了哦！其实代码上已经有我想要的郊果啦。只是我想要它们自动识别是捕捉输入还是键盘输入。是我表达的不清楚。师兄你说的郊果是哪个郊果呀？

xtdwynij · 发表于 2013-5-14 01:15:22

xtdwynij 发表于 2013-5-14 01:00
师兄！第三次了！感谢你这么晚了还回复。都快一点了哦！其实代码上已经有我想要的郊果啦。只是我想要它们 ...

感谢师兄发的这个代码。我不是要一触即发的！我做的功能都是对我有帮助的实用的。一触即发也只是少按了一个回车对于画图员来说可能不习惯。用getdist这个函数不是可以吧？明天我做一个动画来。到时就明白了！其实我并不是单单只需要输入一个数值的。而是需要输入多个。假如说用了getdist函数那么相对点是一个问题！所以我才做了上面一个子函数来！因为我想做的是参数化绘图。只指定一个点然后根据计算得出其它的点。而且getdist函数的话每用一次都要一个相对点的。

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

[求助] 如何自动识别键盘输入与捕捉输入

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

点评

点评