求助一个类似于getdist函数功能的函数

xtdwynij · 发表于 2013-6-2 15:53:49

Lispboy 发表于 2013-6-2 15:42
里面疏忽，输入错了，修改了，重新看下上面两个帖子。

要空格一次才可以换成捕捉的.和我写的郊果一样.不能够自动识别是键盘输入还是捕捉输入.是默认键盘输入.回车后换成捕捉输入!:)

Lispboy · 发表于 2013-6-2 15:59:30

xtdwynij 发表于 2013-6-2 15:53
要空格一次才可以换成捕捉的.和我写的郊果一样.不能够自动识别是键盘输入还是捕捉输入.是默认键盘输入.回 ...

肯定要这样的啊，你键盘输入值了，就不用拾取了，没输入值输入的是回车，就去拾取点，比如<> 放在这个里面的就是告诉用户要回车，这都是约定俗成的。

Lispboy · 发表于 2013-6-2 16:01:33

xtdwynij 发表于 2013-6-2 15:53
要空格一次才可以换成捕捉的.和我写的郊果一样.不能够自动识别是键盘输入还是捕捉输入.是默认键盘输入.回 ...

到底你想要什么？得到的距离值，你还想知道是键盘得到的？还是用户拾取点得到的？

Lispboy · 发表于 2013-6-2 16:04:38

本帖最后由 Lispboy 于 2013-6-2 16:05 编辑

你要想先让用户拾取点，没拾取，就输入值的话，改这样

(defun c:tt ()
(if (or
(and
(setq aa (getpoint "\n请指定第一点<输入>:"))
(setq bb (getpoint aa "\n请指定第二点<输入>:"))
(setq ct (distance p1 (list (car p2) (cadr p1))))
)
(setq ct (gereal "\n请输入插口的值<退出>:"))
)
(progn
;ct 就是和用户交互获得的距离
)
)
(princ)
)

xtdwynij · 发表于 2013-6-2 16:07:47

Lispboy 发表于 2013-6-2 15:59
肯定要这样的啊，你键盘输入值了，就不用拾取了，没输入值输入的是回车，就去拾取点，比如放在这个里面 ...

嘿嘿!我就不想要那个回车!想要自动的去识别它!可以键盘输入也可以捕捉输入(不同的是只返回X轴的值或者只返回Y轴的值),假如多了那个回车总感觉怪怪的不是那么多顺手!我请教过别的师兄!貌似可以实现我的郊果.只是我连思路都没有.这才上来求师兄们指点一下!听说有点复杂

Lispboy · 发表于 2013-6-2 16:17:40

本帖最后由 Lispboy 于 2013-6-2 16:19 编辑

xtdwynij 发表于 2013-6-2 16:07
嘿嘿!我就不想要那个回车!想要自动的去识别它!可以键盘输入也可以捕捉输入(不同的是只返回X轴的值或者只 ...

你总得让程序知道你不想输入了，想拾取了吧？

你说下怎么告诉程序想做哪个？

getreal 就是等着你键盘输入数值，你不输入，程序等着你呢？你不想回车，那你所你怎么告诉程序？
多个回车哪里怪？ ACAD的命令，你不需要回车去运行吗？脑袋想着啥，程序就自动走了？那得需要电脑和你脑袋之间插个电线。{:soso_e113:}

xtdwynij · 发表于 2013-6-2 16:20:19

Lispboy 发表于 2013-6-2 16:17
你总得让程序知道你不想输入了，想拾取了吧？

你说下怎么告诉程序想做哪个？

:(我也不知道啊!要是知道我就不开这个贴了!

Lispboy · 发表于 2013-6-2 16:22:05

我就不想要那个回车!想要自动的去识别它!可以键盘输入也可以捕捉输入

怎么理解这句话，不想要回车，还可以键盘输入？

xtdwynij · 发表于 2013-6-2 16:24:09

Lispboy 发表于 2013-6-2 16:22
怎么理解这句话，不想要回车，还可以键盘输入？

这不就和getdist类似咯!支持键盘输入的同时也支持捕捉输入

xtdwynij · 发表于 2013-6-2 23:16:25

ll_j 发表于 2013-6-2 12:20
说来说去，好像还是和http://bbs.xdcad.net/thread-668053-1-1.html的要求差不多，那个帖子已经告诉你了 ...

多谢长老出手相助。只是initged按位编码我不怎么懂意思！长老是否有空解释一下给个最简单的例子呢？

Lispboy · 发表于 2013-6-2 23:54:09

{:soso_e141:} 你找到答案了吗？和你交互这么半天，不采纳算了，连个分也不给，真是的。

Free-Lancer · 发表于 2013-6-3 07:41:20

Help 中的一个例子 [pcode=lisp,true]
(defun C:ARBENTRY ( / pt1)
  (initget 128)                   ; Sets arbitrary entry bit
  (setq pt1 (getpoint "\nPoint: ")) ; Gets value from user.
  (if (= 'STR (type pt1))          ; If it's a string, convert it
(setq pt1 (eval (read pt1))) ; to a symbol, try evaluating
                                 ; it as a function; otherwise,
pt1                            ; just return the value.
  )
)

(defun REF ( )
  (setvar "LASTPOINT" (getpoint "\nReference point: "))
  (getpoint "\nNext point: " (getvar "LASTPOINT"))
)[/pcode]
If both the C:ARBENTRY  and REF  functions are loaded into the drawing, the following command sequence is acceptable.

Command: arbentry

Point: (ref)

Reference point: Select a point

Next point: @1,1,0

xtdwynij · 发表于 2013-6-3 11:35:30

Free-Lancer 发表于 2013-6-3 07:41
Help 中的一个例子
(defun C:ARBENTRY ( / pt1)
(initget 128) ; Sets arbitrar ...

多谢Free-Lancer老朋友！此问题已经解决。没想到还能够这样用这个函数！以前一直搞不懂也就放在那里不去了解它！现在才明白这函数的用法，ll_j长老真厉害，您一出手就搞定啦呵呵！Lispboy师兄，对于你的热情细心我非常感激！谢谢！

Lispboy · 发表于 2013-6-3 11:48:06

xtdwynij 发表于 2013-6-3 11:35
多谢Free-Lancer老朋友！此问题已经解决。没想到还能够这样用这个函数！以前一直搞不懂也就放在那里不去 ...

谢谢啦:$

答案是什么，把你写好的贴上来让大家看看吧。

xtdwynij · 发表于 2013-6-3 12:35:06

电脑已经换了。但是过程我还是记得的！如下
（defun c:tt (）
(initget 128) ；支持任意输入
   (setq pt1 (getpoint "\nPoint: "))
   (cond ((= 'STR (type pt1)) (则执行什么什么)) ;假如变量为实数
            ((= 'list (type pt1)) (则执行什么什么))；假如变量为表
）
）但有些还是不大明白。不过今天是没有时间去搞了！交互原来也是这么有趣的事！不错！

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

[求助] 求助一个类似于getdist函数功能的函数

点评

点评

评分

点评

点评

点评

评分

点评

评分

点评