[讨论]：能否实现实时显示＋捕捉功能

urljit

作了一个程序，能实时显示生成的文字。有网友问：能否在显示期间利用捕捉功能，这一下把我问住了，真不知道如何做到。

看看cad里面，人家居然就是能做到，难道程序不是lsp的？lsp就有这个限制？

Free-Lancer

怎么个实时？生成文字后跟着鼠标走还是像编辑属性一样，对话框敲入字就变？
第一个效果吗用 grread 是不能捕捉的，用 move 还可以。
第二的效果用 lisp 写的话就甭想了。

hi71400

没看明白，一楼的讲清楚点！

urljit

最初由 hi71400 发布
[B]没看明白，一楼的讲清楚点！ [/B]

就是用程序生成的东东用鼠标带着，到处能跑，重要的是“能捕捉到点”

梦断江南

copy,and move can get the osnap

sdwy19691229

最初由 梦断江南 发布
[B]copy,and move can get the osnap [/B]

对！ 是个好办法。
在别的文字程序里面也可以这样啊！
谢了！

它山之石

　　我是用INSERT的方式实现的。将要拖着跑的东东做成块，在插入时得到插入点前用PAUSE。设定好需要的捕捉方式就可以了。
        用MOVE或COPY会有一根小尾巴。

xjlmlxbq

这样的功能有什么好处？

ycao

各位专家能否通过一个程序源码让我们学习学习！

fools

最初由 Free-Lancer 发布
[B]怎么个实时？生成文字后跟着鼠标走还是像编辑属性一样，对话框敲入字就变？
第一个效果吗用 grread 是不能捕捉的，用 move 还可以。
第二的效果用 lisp 写的话就甭想了。 [/B]

探讨一下：
Free-Lancer 说grread 是不能捕捉的，我觉得可以通过osnap函数实现，不过要实现捕捉确实很麻烦，但grread可是实现拖动时实时更新，所以只要grread能满足要求的话，我还是坚决不用move

(setq pt1 (grread T 15 2))
(setq pt2 (osnap (cdr pt1) "cen"))

上面的"cen"可以使用字符串变量代替，通过读取osmode的值生成各种捕捉组合相对应的字符串

yjtdkj

好贴，我也来学习学习！！
楼上的能举个例子吗？来个完整的程序吧

fools

[PHP](defun c:tt (/ more gd)
  (setq more T)
  (while more
    (setq gd (grread T 15 2))
    (cond
      ((= (car gd) 3) (do))                ;鼠标左键点击
      ((= (car gd) 5) (drag))                ;鼠标拖动
      ((equal gd (list 11 0)) (setq more nil) (entdel (entlast)))
                                        ;鼠标右键点击退出
      ((equal gd (list 2 32)) (setq more nil) (entdel (entlast)))
    )                                        ;空格键退出
  )
)

(defun do ()
  (entupd (entlast))
  (command "_.COPY" (entlast) "" '(0 0) "@")
)

(defun drag (/ elist gd1)
  (setq elist (entget (entlast)))
  (if (setq gd1 (osnap (cadr gd) "end"))
    (setq gd (list (car gd) gd1))
  )
  (setq        elist (subst (cons 10 (trans (cadr gd) 1 0))
                     (assoc 10 elist)
                     elist
              )
  )
  (entmod elist)
)[/PHP]

一个end捕捉的简单例子，希望对大家有帮助
运行程序前先画一些线，然后随便生成一个物体，试试看你就知道这个程序的作用了
此外正交模式以及栅格模式也可以用相似的原理实现

它山之石

可以捕捉到END点，只是没有标记，当捕捉设置较多时无法确定是捕捉到哪个点。不太直观。

fools

可以生成捕捉标记的，12楼的贴只是简单说明在grread函数执行期间如何捕捉，并没有反映出其他相关功能
应该说move，insert等命令能实现的功能grread一样可以做到，具体如何做到，那可是长篇大论了，如果有兴趣建议找有关的书籍学习一下。反过来说grread可以实现的功能move等命令就不行了，比如命令执行期间调用对话框，设置undo操作等等。

urljit

最初由 fools 发布
[B]可以生成捕捉标记的，12楼的贴只是简单说明在grread函数执行期间如何捕捉，并没有反映出其他相关功能
应该说move，insert等命令能实现的功能grread一样可以做到，具体如何做到，那可是长篇大论了，如果有兴趣建议找... [/B]

长篇大论就不必了，楼主何必不写一下基本思想呢？