[LISP函数]：让grread也支持捕捉!请测试~

fsxm

请自行设置好捕捉选项后运行程序~
看看捕捉不一样时会用什么不同效果~

2. 
   
3. (defun c:test (/ wexit)
   
4.   (setq txten (assoc -1 (entget (car (entsel)))))
   
5.   (while (not wexit)
   
6.     (setq gr  (grread t)
   
7.           gr1 (car gr)
   
8.     )
   
9.     (cond ((= gr1 5)
   
10.            (progn
    
11.              (setq p (cadr gr))
    
12.              (setq p (grreadosnap p))        ;1处。删除这行与不删除效果有什么不一样？
    
13.              (entmod (list txten (cons 10 p)))
    
14.            )
    
15.           )
    
16.           ((equal gr '(2 6))                ;F3可设置捕捉值
    
17.            (command "_+dsettings" 2)
    
18.           )
    
19.           (t (setq wexit t))
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )
    

<br /> (defun c:test (/ wexit)<br />   (setq txten (assoc -1 (entget (car (entsel)))))<br />   (while (not wexit)<br />     (setq gr  (grread t)<br />           gr1 (car gr)<br />     )<br />     (cond ((= gr1 5)<br />            (progn<br />              (setq p (cadr gr))<br />              (setq p (grreadosnap p))        ;1处。删除这行与不删除效果有什么不一样？<br />              (entmod (list txten (cons 10 p)))<br />            )<br />           )<br />           ((equal gr '(2 6))                ;F3可设置捕捉值<br />            (command "_+dsettings" 2)<br />           )<br />           (t (setq wexit t))<br />     )<br />   )<br />   (princ)<br /> )<br />

grreadosnap 的调用很方便只要在要产生捕捉的地方
加上一行(setq ?? (grreadosnap ??))就实现了捕捉
如上面的测试(setq p (grreadosnap p))加入后效果就不一样了~
还有下面也是一个例子:
http://www.xdcad.net/forum/showthread.php?s=&threadid=592541
还在测试中~敬请指点~不胜感激~........fsxm
测试好了再发lsp,现在拿出来怕人笑话啦~
请哪个大哥帮了做个动画演示啊~我还不会

lidejun_55

提两点建议：
1、命令运行过程中不让调整捕捉设置
2、全部捕捉打开，捕捉就没有目标的捕捉

fsxm

谢谢lidejun_55 的指教
1、命令运行过程中不让调整捕捉设置
回:这个马上改正~多谢
2、全部捕捉打开，捕捉就没有目标的捕捉
本人水平有限啦!不好意思~

lidejun_55

最初由 fsxm 发布
[B]谢谢lidejun_55 的指教
1、命令运行过程中不让调整捕捉设置
回:这个马上改正~多谢
2、全部捕捉打开，捕捉就没有目标的捕捉
本人水平有限啦!不好意思~ [/B]

客气了，你做的非常不错

eachy

写了一个简单的移动 Text 测试，试验 Grread 对 Osnap 的支持，命令： Test。鼠标游动过程中F3 为打开/关闭 Osmode 模式，测试中试图支持 Osmode 命令，一直没有做好，索性去掉了。

下载地址 http://eachy.ys168.com

snsj

想法不错，但是用GRREAD模拟捕捉真的有点牵强，因为CAD给LISP自身的动态的东西实在太少了

lidejun_55

最初由 eachy 发布
[B]写了一个简单的移动 Text 测试，试验 Grread 对 Osnap 的支持，命令： Test。鼠标游动过程中F3 为打开/关闭 Osmode 模式，测试中试图支持 Osmode 命令，一直没有做好，索性去掉了。

下载地址 [url]http://eachy.y... [/B]

提点建议：
1、命令运行过程中不让设置捕捉
2、对最近点捕捉的不行，捕捉全部打开的时候没有目标
3、在没有捕捉到点的时候应该去掉捕捉标志

fsxm

现在
1、命令运行过程中不让设置捕捉
解决好了~按F3可以设置 要关闭可以点命令行下的[对象捕捉]
2、全部捕捉打开，捕捉就没有目标的捕捉
这个问题找到了原因是因为对动态对像也产生了捕捉的原因
解决方法只有手动重设捕捉了如运动对象是直线可以关了end,mid 是text请关了ins对于ner最好不要打开~
3.顺便也做好了没有捕捉到点的时候去掉捕捉标志~

eachy

Test 中将 text 换成了 Insert Object，运行如下提示
命令:  TEST
Pick One Insert Object:
[V-上下翻转/H-左右翻转/S-缩放/R-旋转/E-退出]:
Disable Osnap!
[V-上下翻转/H-左右翻转/S-缩放/R-旋转/E-退出]:
Enable Osnap!
[V-上下翻转/H-左右翻转/S-缩放/R-旋转/E-退出]:

标志是插入点标志，也是捕捉点位置，为了看的清楚些，Lisp 毕竟做不到和 ARX 一样。

xyz518mm

请问fsxm楼主 grreadosnap 的原理是怎样做到呢?

雨箭风刀

一个测试,模拟捕捉点显示


[iframe h=600 w=100%]http://www.xdcad.net/forum/showthread.php?postid=3035869#post3035869[/iframe]

dandee

grreadosnap做的很不错，单独扩展了对grread捕捉的显示支持，可以随时拿来用。
不需每次自己写了。
如果方便能否公布源码，我自己添点不同的捕捉显示，和捕捉显示的刻度尺

fsxm

以下是源程序:

2. 
   
3. (defun grbox (pt / h p1 p2 p3 p4)
   
4.   ;;copy from eachy
   
5.   (setq        h  (* (/ (getvar "viewsize") (cadr (getvar "screensize")))
   
6.               (getvar "pickbox")
   
7.            )
   
8.         p1 (mapcar '- pt (list h h 0.))
   
9.         p2 (mapcar '+ pt (list h (- h) 0.))
   
10.         p3 (mapcar '+ pt (list h h 0.))
    
11.         p4 (mapcar '+ pt (list (- h) h 0.))
    
12.   )
    
13.   (grvecs (list 1 p1 p2 1 p2 p3 1 p3 p4 1 p4 p1))
    
14. )
    
15. (defun grreadosnap (p / osp osmode str)
    
16.   ;;grreadosnap ---fsxm 2006.10.06
    
17.   (setq osmode (getvar "osmode"))
    
18.   (cond        ((= osmode 0))
    
19.         ((< osmode 16000)
    
20.          (setq str "")
    
21.          (foreach x '((1 "_end,")
    
22.                       (2 "_mid,")
    
23.                       (4 "_cen,")
    
24.                       (8 "_nod,")
    
25.                       (16 "_qua,")
    
26.                       (32 "_int,")
    
27.                       (64 "_ins,")
    
28.                       (128 "_per,")
    
29.                       (256 "_tan,")
    
30.                       (512 "_nea,")
    
31.                       (2048 "_app,")
    
32.                       (4096 "_ext,")
    
33.                       (8192 "_par,")
    
34.                      )
    
35.            (if (/= 0 (logand osmode (car x)))
    
36.              (setq str (strcat str (cadr x)))
    
37.            )
    
38.          )
    
39.          (setq osp (osnap p str))
    
40.          (redraw)
    
41.          (cond (osp
    
42.                 (setq p osp)
    
43.                 (grbox osp)
    
44.                )
    
45.          )
    
46.         )
    
47.   )
    
48.   p
    
49. )
    

<br /> (defun grbox (pt / h p1 p2 p3 p4)<br />   ;;copy from eachy<br />   (setq        h  (* (/ (getvar "viewsize") (cadr (getvar "screensize")))<br />               (getvar "pickbox")<br />            )<br />         p1 (mapcar '- pt (list h h 0.))<br />         p2 (mapcar '+ pt (list h (- h) 0.))<br />         p3 (mapcar '+ pt (list h h 0.))<br />         p4 (mapcar '+ pt (list (- h) h 0.))<br />   )<br />   (grvecs (list 1 p1 p2 1 p2 p3 1 p3 p4 1 p4 p1))<br /> )<br /> (defun grreadosnap (p / osp osmode str)<br />   ;;grreadosnap ---fsxm 2006.10.06<br />   (setq osmode (getvar "osmode"))<br />   (cond        ((= osmode 0))<br />         ((< osmode 16000)<br />          (setq str "")<br />          (foreach x '((1 "_end,")<br />                       (2 "_mid,")<br />                       (4 "_cen,")<br />                       (8 "_nod,")<br />                       (16 "_qua,")<br />                       (32 "_int,")<br />                       (64 "_ins,")<br />                       (128 "_per,")<br />                       (256 "_tan,")<br />                       (512 "_nea,")<br />                       (2048 "_app,")<br />                       (4096 "_ext,")<br />                       (8192 "_par,")<br />                      )<br />            (if (/= 0 (logand osmode (car x)))<br />              (setq str (strcat str (cadr x)))<br />            )<br />          )<br />          (setq osp (osnap p str))<br />          (redraw)<br />          (cond (osp<br />                 (setq p osp)<br />                 (grbox osp)<br />                )<br />          )<br />         )<br />   )<br />   p<br /> )<br />

如果多几个捕捉显示grbox是要多写几个了~
还有(osnap p str)后面的str要一个个来测试~
这样应当可以实现~不过当心
作为在grread中反复调用的效率问题就一直没有去做了~
如果扔一个砖头在这了,引来了大家的好玉也做了一件好事了

dandee

一直以为grread是autolisp中最神奇的函数
很久以前利用grread特性做了个“建筑之门”
http://www.xdcad.net/forum/showthread.php?s=&threadid=416774
由于grread没有支持捕捉显示而大伤脑筋，自己做了显示刻度尺，替代捕捉方式，
万分感谢提供源码，我可以继续捣鼓那扇门了

xyz518mm

謝謝 fsxm 樓主提供源碼參考
又學到了好東西了