[求助]：请高手帮我看一下这个程序，如何才能显示捕捉标志

hsslyl · 发表于 2005-11-5 22:50:17

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

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

×

请看以下个程序，如何在提示为“点取:”时，显示捕捉标志。拜托了，谢谢！
(defun c:ss (/ lxbz dbd xzd)
(setvar "osmode" 47)
(setq lxbz "cen,end,int,mid,nod")
(prompt "\n点取:")
(setq tjhn t)
(while tjhn
  (setq dbd (grread t 4 0))
  (setq xzd (cadr dbd))
  (cond ((= (car dbd) 3) (setq tjhn nil)))
)
(cond ((osnap xzd lxbz) (setq xzd (osnap xzd lxbz))))
(command "line" "non" xzd pause "")
)

狂刀 · 发表于 2005-11-6 00:27:48

grread 和捕捉处的不好：）

hsslyl · 发表于 2005-11-6 10:29:27

能显示捕捉标志吗？

狂刀 · 发表于 2005-11-6 11:54:50

在grread中调用一个命令

hsslyl · 发表于 2005-11-6 14:25:03

老大，请明示！

xyp1964 · 发表于 2005-11-6 20:42:13

最初由 hsslyl 发布
[B]请看以下个程序，如何在提示为“点取:”时，显示捕捉标志。拜托了，谢谢！
(defun c:ss (/ lxbz dbd xzd)
(setvar "osmode" 47)
(setq lxbz "cen,end,int,mid,nod")
(prompt "\n点取:")
(setq tjhn t)
(w... [/B]

要达到什么目的？
[php](defun c:test ()
(setvar "osmode" 47)
(command "line")
)[/php]

Underway · 发表于 2005-11-6 23:03:21

猜是只接受屏幕的点位吧 ?

frankxie · 发表于 2005-11-7 19:30:17

现在我在本地也买不到好的书,基础方面的,求助一下,给个电子文档吧,现在我还下栽不了

hsslyl · 发表于 2005-11-8 00:40:53

以上程序仅是个例子而已。利用grread，在屏幕上获取一个点可以通过通常的左键点取，还可以通过输入右键、空格键、字符键来获取（当然以上程序是经过简化的，只能用左键点取），写成可调用函数，如：(defun dgxzd () ......)。我的目的是：其它程序通过调用(dgxzd)来获取一个点，同时根据输入方式的不同，执行不同的操作。举两个例子：例子一，在应用move、copy等命令时，可以设定输入右键获取一个点的同时，设置(progn (setvar "snapmode" 1) (setvar "orthomode" 1) (setvar "osmode" 0))；例子二，在应用mirror命令，提示“指定镜像线的第二点:”时，可以设定输入左、右键获取一个点的同时，分别对应于后续提示“是否删除源对象？[是(Y)/否(N)] <N>:”中的Y、N。
但遗憾的是，在应用(dgxzd)获取点时，无法显示捕捉标志。请高手指点。

xyp1964 · 发表于 2005-11-8 01:04:04

最初由 hsslyl 发布
[B]以上程序仅是个例子而已。利用grread，在屏幕上获取一个点可以通过通常的左键点取，还可以通过输入右键、空格键、字符键来获取（当然以上程序是经过简化的，只能用左键点取），写成可调用函数，如：(defun dgxzd () ... [/B]

最好提供一个完整的和实际的程序来讨论。
总觉得不用grread函数也许界面更“友好”！

狂刀 · 发表于 2005-11-8 02:17:44

原则同意楼上。
比如用getpoint来替代，似乎更好：）

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

[求助] [求助]：请高手帮我看一下这个程序，如何才能显示捕捉标志

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

相关帖子

Re: [求助]：请高手帮我看一下这个程序，如何才能显示捕捉标志

浏览过的版块