[推荐]grread接受正交捕捉和输入

luyu9635 发表于 2009-8-30 17:51:00

这个对你可能有用，在做动态时可能用得着，试试吧

LIULISHENG 发表于 2018-5-3 14:06:40

学习也真不错的

NetBee 发表于 2009-8-30 23:00:00

这样更接近天正的功能了，好程序

liminnet 发表于 2009-8-31 09:03:00

不错，好东西，比我写的精度更高，今天好好研究一翻译，不过不建议在GRREAD中使用模似捕捉，因为有时会出错，还是用GET类的函数来得到

狂刀无痕 发表于 2009-8-31 13:58:00

请说说你出错的时候是什么情况。测试了一下程序，提3条1、捕捉虚拟显示的框没有同步跟进，主要是(while z 的问题，建议条件加(while (and z 前后两次gr位移点距离)....) ，这样可以使更新计算量减少，显示加速（减轻停顿感）。2. 提供更多捕捉虚拟，比如中点，垂直点等。3。补充按esc时候的出错处理

liminnet 发表于 2009-8-31 14:08:00

我也不记的啦，是好久的事啦，狂哥哥，反正就是最好不要用啦，我用了将近半年才决定不用它啦

liu_kunlun 发表于 2009-9-1 11:51:00

本帖最后由作者于 2009-9-1 13:08:55 编辑 捕捉框总是落后于光标实际位置，是因为捕捉框去捕捉你画的“橡皮线”了，采用 grvecs 可解决此问题.

sd2009 发表于 2009-9-2 10:06:00

看来还有一定的BUG哦！

zml84 发表于 2009-9-4 11:40:00

本帖最后由作者于 2009-9-4 12:02:39 编辑 <div style="BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-BOTTOM-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px;"><div>思路不错，但细节还可以改进。<div>1.正交打开时，对于角度的判断，楼主是这样操作的：</div><div><pre>          (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> ang (<a href="http://www.mjtd.com/object/autolisp/atoi.htm" target="_black">atoi</a>          (<a href="http://www.mjtd.com/object/autolisp/angtos.htm" target="_black">angtos</a>          (<a href="http://www.mjtd.com/object/autolisp/angle.htm" target="_black">angle</a> p po))))             (<a href="http://www.mjtd.com/object/autolisp/if.htm" target="_black">if</a>(> ang 315)(<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> ang (- 360 ang)))             (<a href="http://www.mjtd.com/object/autolisp/cond.htm" target="_black">cond</a>          ((<a href="http://www.mjtd.com/object/autolisp/and.htm" target="_black">and</a>          (<a href="http://www.mjtd.com/object/autolisp/60.htm" target="_black"><</a> ang 45)          (<a href="http://www.mjtd.com/object/autolisp/62.htm" target="_black">></a> ang -45))            (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> pt (<a href="http://www.mjtd.com/object/autolisp/list.htm" target="_black">list</a>          (<a href="http://www.mjtd.com/object/autolisp/car.htm" target="_black">car</a> po)          (<a href="http://www.mjtd.com/object/autolisp/cadr.htm" target="_black">cadr</a> p)))           )           ((<a href="http://www.mjtd.com/object/autolisp/and.htm" target="_black">and</a>          (<a href="http://www.mjtd.com/object/autolisp/60.htm" target="_black"><</a> ang 135)          (<a href="http://www.mjtd.com/object/autolisp/62.htm" target="_black">></a> ang 45))            (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> pt (<a href="http://www.mjtd.com/object/autolisp/list.htm" target="_black">list</a>          (<a href="http://www.mjtd.com/object/autolisp/car.htm" target="_black">car</a> p)          (<a href="http://www.mjtd.com/object/autolisp/cadr.htm" target="_black">cadr</a> po)))           )           ((<a href="http://www.mjtd.com/object/autolisp/and.htm" target="_black">and</a>          (<a href="http://www.mjtd.com/object/autolisp/60.htm" target="_black"><</a> ang 225)          (<a href="http://www.mjtd.com/object/autolisp/62.htm" target="_black">></a> ang 135))            (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> pt (<a href="http://www.mjtd.com/object/autolisp/list.htm" target="_black">list</a>          (<a href="http://www.mjtd.com/object/autolisp/car.htm" target="_black">car</a> po)          (<a href="http://www.mjtd.com/object/autolisp/cadr.htm" target="_black">cadr</a> p)))           )           ((<a href="http://www.mjtd.com/object/autolisp/and.htm" target="_black">and</a>          (<a href="http://www.mjtd.com/object/autolisp/60.htm" target="_black"><</a> ang 315)          (<a href="http://www.mjtd.com/object/autolisp/62.htm" target="_black">></a> ang 225))            (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> pt (<a href="http://www.mjtd.com/object/autolisp/list.htm" target="_black">list</a>          (<a href="http://www.mjtd.com/object/autolisp/car.htm" target="_black">car</a> p)          (<a href="http://www.mjtd.com/object/autolisp/cadr.htm" target="_black">cadr</a> po)))           )            )</pre></div><div>可以改为：</div><div>(if (<(abs(- (car  P)(car  P0)))         (abs(- (cadr  P)(cadr P0)))     )     (setq  PT   (list  (car  P) (cadr P0)))     (setq  PT   (list  (car  P0)(cadr P ))) ) 2.对于对象捕捉的显示，过于单一，用户无法直接理解捕捉类型。推荐如下： </div><div>(setq     *LST*   '((1     "_end"      ((-1      1)      (-1      -1))      ((-1     -1)      (1      -1))      ((1      -1)      (1      1))      ((1     1)      (-1      1))     )     (2     "_mid"      ((0     1.414)      (-1.225      -0.707))      ((-1.225      -0.707)      (1.225      -0.707))      ((1.225      -0.707)      (0      1.414))     )     (4     "_cen"      ((0      1)      (-0.707      0.707))      ((-0.707      0.707)      (-1      0))      ((-1     0)      (-0.707      -0.707))      ((-0.707     -0.707)     (0      -1))      ((0      -1)      (0.707      -0.707))      ((0.707      -0.707)      (1      0))      ((1      0)      (0.707      0.707))      ((0.707      0.707)     (0      1))     )     (8      "_nod"      ((0      1)      (-0.707      0.707))</div><div>     ((-0.707      0.707)      (-1      0))      ((-1     0)      (-0.707      -0.707))      ((-0.707      -0.707)      (0      -1))      ((0     -1)      (0.707      -0.707))      ((0.707     -0.707)      (1      0))      ((1     0)      (0.707     0.707))      ((0.707      0.707)      (0     1))      ((-1      1)      (1      -1))      ((-1      -1)      (1      1))     )     (16     "_qua"      ((0      1.414)      (-1.414      0))      ((-1.414      0)      (0      -1.414))      ((0      -1.414)      (1.414      0))      ((1.414      0)      (0      1.414))     )     (32     "_int"      ((-1      1)      (1      -1))      ((-1      -1)      (1      1))      ((1      0.859)      (-0.859     -1))      ((-1      0.859)     (0.859      -1))      ((0.859     1)      (-1     -0.859))      ((-0.859      1)      (1     -0.859))     )     (64     "_ins"      ((-1      1)      (-1      -0.1))      ((-1      -0.1)      (0     -0.1))      ((0      -0.1)      (0     -1.0))      ((0      -1.0)      (1      -1))      ((1     -1)      (1      0.1))      ((1      0.1)      (0     0.1))      ((0     0.1)      (0      1.0))      ((0      1.0)      (-1     1))     )</div><div>    (128     "_per"      ((-1      1)      (-1      -1))      ((-1      -1)      (1      -1))      ((0      -1)      (0      0))      ((0      0)      (-1      0))     )     (256     "_tan"      ((0      1)      (-0.707      0.707))      ((-0.707      0.707)      (-1      0))      ((-1      0)      (-0.707      -0.707))      ((-0.707      -0.707)      (0      -1))      ((0      -1)      (0.707      -0.707))      ((0.707      -0.707)      (1      0))      ((1      0)      (0.707      0.707))      ((0.707      0.707)      (0      1))      ((1      1)      (-1      1))     )     (512     "_nea"      ((-1      1)      (1      -1))      ((1      -1)      (-1      -1))      ((-1      -1)      (1      1))      ((1      1)      (-1      1))     )     (1024      "_qui")     (2048     "_app"      ((-1      1)      (-1      -1))      ((-1      -1)      (1      -1))      ((1      -1)      (1      1))      ((1      1)      (-1      1))      ((-1      1)      (1      -1))      ((-1      -1)      (1      1))     )     (4096     "_ext"      ((0.1      0)      (0.13      0))      ((0.2      0)      (0.23      0))</div><div>     ((0.3      0)      (0.33      0))     )</div><div>    (8192     "_par"      ((0      1)      (-1      -1))      ((1      1)      (0      -1))     )    ) ) ;;;=================================================================* ;;;功能：在指定点  绘制  指定的靶标                                 * ;;;参数：PT -----要绘制的位置                                       * ;;;      I  -----捕捉模式单项值。例如：1 or 2 or 4 ...              * (defun      DRAW-ATPOINT      (PT      I      /     SIZE      COLOR      MATRIX      LST)     (foreach    REAL   '(-0.5      0      0.5)       (setq     SIZE   (*
(+   (read (getenv      "AutoSnapSize")) REAL)                               (/   (getvar      "VIEWSIZE")
(cadr      (getvar      "SCREENSIZE")))                           )                   COLOR (read      (getenv      "AutoSnapColor"))       )       (setq     MATRIX(list(list      SIZE      0.0      0.0      (car  PT))                                  (list      0.0      SIZE      0.0     (cadr PT))                                  (list      0.0      0.0      1.0      0.0)                                  (list      0.0      0.0      0.0      1.0)                            )       )       (and   (setq LST (cddr (assoc  I  *LST*)))               (setq LST
(mapcar  (function   (lambda      (X)                                                      (cons      COLOR      X))</div><div>                                 )                                        LST</div><div>                       )               )               (setq  LST (apply 'append LST))               (grvecs   LST  MATRIX)       )     ) )</div><div> 3.对于用户输入数据的处理，当用户按下退格键时，楼主是换行显示。</div><div>         (<a href="http://www.mjtd.com/object/autolisp/progn.htm" target="_black">progn</a>(setq str(<a href="http://www.mjtd.com/object/autolisp/substr.htm" target="_black">substr</a> str 1          (1- stl)))(<a href="http://www.mjtd.com/object/autolisp/princ.htm" target="_black">princ</a>          (<a href="http://www.mjtd.com/object/autolisp/strcat.htm" target="_black">strcat</a>          "\n" str)));删除一个字符并换行</div><div> </div><div>可以使用"\r"，以避免多余显示。</div><div> </div><div> </div><div> </div><div><pre> </pre></div></div></div>

luyu9635 发表于 2009-9-4 19:01:00

谢谢各位的宝贵意见

ghgh0130 发表于 2009-12-2 11:09:00

不错，好东西

页: [1] 2 3

明经CAD社区's Archiver

[推荐]grread接受正交捕捉和输入