[求助]：在LISP中如何得到光标的实时坐标？

YueFeng

如题!

杨少

grread

YueFeng

GrRead我不知怎样才能达到要求，我需要达到目的为光标每移动下就会得到一个坐标，可以达到画线样的效果。

YueFeng

我需要是用LISP来达到画LINE样的效果，在没有确定时会在起点与光标所在位置处不断的画线。最后确认时，再一次画出LINE。

lxf-ysy

(setq pick nil)
  (while (not pick)
    (setq l (grread t))
    (setq ip (car l))
    (setq pt (cadr l))
    (if (= ip 5)
      (执行指定动作)
      );end if
    (setq pick (= 3 ip))
    );end while

XDSoft

最初由 YueFeng 发布
[B]我需要是用LISP来达到画LINE样的效果，在没有确定时会在起点与光标所在位置处不断的画线。最后确认时，再一次画出LINE。 [/B]

起点PT1已知

(getpoint pt1 "\n下一点")

试试是不是你要的？

YueFeng

最初由 XDSoft 发布
[B]


起点PT1已知

(getpoint pt1 "\... [/B]

XD这样的当然会啦，可是还想要加这条线上加上实时移动的对象。

YueFeng

最初由 lxf-ysy 发布
[B](setq pick nil)
  (while (not pick)
    (setq l (grread t))
    (setq ip (car l))
    (setq pt (cadr l))
    (if (= ip 5)
      (执行指定动作)
      );end if
    (setq pick (= 3 ip))
    );en... [/B]

谢谢，按您的源程序可以达到我想要的效果。

XDSoft

最初由 YueFeng 发布
[B][QUOTE]最初由 lxf-ysy 发布
[B](setq pick nil)
  (while (not pick)
    (setq l (grread t))
    (setq ip (car l))
    (setq pt (cadr l))
    (if (= ip 5)
      (执行指定动作)
      );end ... [/B]

这应该叫“DRAG”，YUEFENG，用过天正5的“自由拷贝”、“自由移动”吗，想在LISP里面得到那样的效果吗？

cy956

GRREAD在拖动过程中不断刷新，在一些机器上会出现刷新不及的情况。
lisp的程序中见过调用命令move，rotate甚至是预insert，等确认好后再
改成程序需要的实体。你可以试试。

XDSoft

在拖动过程中，最好不要用命令，最好的方法是用矩阵变换，AUTOCAD的拖动原理是使用实体的WORLDDRAW，拖动的不是实体，而是实体的显示，在拖动序列中使用矩阵对图形进行变换，矩阵变换可以组合生成最终的变换矩阵，拖动完成后，如果更新实体，把最终的变换矩阵作用到实体后，就一次性把实体变换到新的位置，新版XDRX_API已经写好了，比天正5功能更强的“自由拷贝”、“自由移动”命令（来演示API的功能）也写好了，可以在拖动过程中，任意“翻转、旋转、镜像、对齐”。即将公布。

YueFeng

最初由 cy956 发布
[B]GRREAD在拖动过程中不断刷新，在一些机器上会出现刷新不及的情况。
lisp的程序中见过调用命令move，rotate甚至是预insert，等确认好后再
改成程序需要的实体。你可以试试。 [/B]

我在这里也会出刷新不及时的情况，这个也不知如何解决，我需要达到预演的效果，而后在用鼠标确定。

YueFeng

最初由 XDSoft 发布
[B]在拖动过程中，最好不要用命令，最好的方法是用矩阵变换，AUTOCAD的拖动原理是使用实体的WORLDDRAW，拖动的不是实体，而是实体的显示，在拖动序列中使用矩阵对图形进行变换，矩阵变换可以组合生成最终的变换矩阵，拖... [/B]

XD有你的，反应好快呀!和你的想法类似，不知什么时候可以见到新版的API？：)