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

luyu9635

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

LIULISHENG

学习也真不错的

NetBee

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

liminnet

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

狂刀无痕

请说说你出错的时候是什么情况。

测试了一下程序，提3条

1、捕捉虚拟显示的框没有同步跟进，主要是(while z 的问题，建议条件加(while (and z 前后两次gr位移点距离)....) ，这样可以使更新计算量减少，显示加速（减轻停顿感）。

2. 提供更多捕捉虚拟，比如中点，垂直点等。

3。补充按esc时候的出错处理

liminnet

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

liu_kunlun

捕捉框总是落后于光标实际位置，是因为捕捉框去捕捉你画的“橡皮线”了，采用 grvecs 可解决此问题.

sd2009

看来还有一定的BUG哦！

zml84

思路不错，但细节还可以改进。

1.正交打开时，对于角度的判断，楼主是这样操作的：

         (setq ang (atoi
         (angtos
         (angle p po))))
            (if(> ang 315)(setq ang (- 360 ang)))
            (cond
         ((and
         (< ang 45)
         (> ang -45))
           (setq pt (list
         (car po)
         (cadr p)))
          )
          ((and
         (< ang 135)
         (> ang 45))
           (setq pt (list
         (car p)
         (cadr po)))
          )
          ((and
         (< ang 225)
         (> ang 135))
           (setq pt (list
         (car po)
         (cadr p)))
          )
          ((and
         (< ang 315)
         (> ang 225))
           (setq pt (list
         (car p)
         (cadr po)))
          )
           )

可以改为：

(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.对于对象捕捉的显示，过于单一，用户无法直接理解捕捉类型。推荐如下：

(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))

     ((-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))
    )

    (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))

     ((0.3      0)      (0.33      0))
    )

    (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))

                                 )
                                       LST

                       )
              )
              (setq  LST (apply 'append LST))
              (grvecs   LST  MATRIX)
      )
    )
)

3.对于用户输入数据的处理，当用户按下退格键时，楼主是换行显示。

         (progn(setq str(substr str 1
         (1- stl)))(princ
         (strcat
         "\n" str)));删除一个字符并换行

可以使用"\r"，以避免多余显示。

luyu9635

谢谢各位的宝贵意见

ghgh0130

不错，好东西