点监视器不生成实体，使用屏幕向量画（描）实体拖动的实现

newer · 发表于 2017-9-7 22:12:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2017-9-7 22:43 编辑

(defun c:tt ()
(defun _callback (dynpt)
(if (not (equal dynpt oldpnt 1e-4))
(progn
(setq mat (xdrx_matrix_settranslation (mapcar '- dynpt oldpnt)))
(xdrx_entity_transform ss mat)
(setq oldpnt dynpt)
)
)
(princ)
)
(xdrx_begin)
(if (and (setq ss (ssget))
(setq base (getpoint "\n基点<退出>:"))
)
(progn (xdrx_pointmonitor "_callback")
(if (setq p (getpoint "\n插入点:"))
(progn)
)
)
)
(xdrx_end)
(princ)
)

上面代码是以前常用的，修改实体数据拖动的例子。

下面代码不修改实体数据，而是在屏幕上绘制(描）实体来实现，速度上应该更快。有点像AcedJig 拖动的样子了。

(defun c:tt ()
(defun _callback (dynpt)
(if (not (equal dynpt oldpnt 1e-4))
(progn
(setq mat (xdrx_matrix_settranslation (mapcar '- dynpt base)))
(xdrx_monitor_drawent ss mat)
(setq oldpnt dynpt)
)
)
(princ)
)
(xdrx_begin)
(if (and (setq ss (ssget))
(setq base (getpoint "\n基点<退出>:")))
(progn (xdrx_pointmonitor "_callback")
(if (setq p (getpoint "\n插入点:"))
(progn)
)
)
)
(xdrx_end)
(princ)
)

xdrx_monitor_drawent 支持曲线几何实体，参数类型可以是选择集，实体表。
下面是用GE实体，拖动

(defun c:tt ()
(defun _callback (dynpt)
(if (not (equal dynpt oldpnt 1e-4))
(progn
(setq mat (xdrx_matrix_settranslation (mapcar '- dynpt base)))
(xdrx_monitor_drawent g mat)
(setq oldpnt dynpt)
)
)
(princ)
)
(xdrx_begin)
(if (and (setq ss (car (entsel)))
(setq g (xdge::constructor ss))
(setq base (getpoint "\n基点<退出>:"))
)
(progn (xdrx_pointmonitor "_callback")
(if (setq p (getpoint "\n插入点:"))
(progn)
)
)
)
(xdrx_end)
(princ)
)

brainstorm · 发表于 2017-9-7 23:36:30

太神奇了文字也是ge 实体么

newer · 发表于 2017-9-8 00:01:49

brainstorm 发表于 2017-9-7 23:36

文字不是GE， GE实体只是曲线。

xinxirong · 发表于 2017-9-8 00:38:16

这个牛，以前有人用纯lisp实现，没提供源码

liuyj · 发表于 2017-9-8 11:21:41

只能用xdrx_pointmonitor吗？xdrx_drag_jig不也是有监视点的作用？xdrx_pointmonitor支持关键字吗？

newer · 发表于 2017-9-8 12:06:32

liuyj 发表于 2017-9-8 11:21

当然支持关键字了，使用点监视器，和正常LISP没不同，自己用 initget设置关键字。或者用 (xdrx_initget ....)设置一键回车关键字。
函数库那些DRAG函数，都有关键字的，去看看 xd::drag:simplemove, xd::drag:getpoint,xd::drag:XXX那些函数的源码。

newer · 发表于 2017-9-8 12:13:41

liuyj 发表于 2017-9-8 11:21

xdrx_drag_jig 和 xdrx_pointmoniter 虽然都能拖动，但机理不一样，xdrx_drag_jig 用的是ARX的AcedJig类的DRAGEN技术，就是做拖动这件事的，它的关键字需要单独用这个类的函数设置，和INITGET不是一个。

点监视器里面的拖动，是你用回调函数实现的，自己写的实体变换代码，本质不只是做拖动这件事的，点监视器不知道你是在做“拖动”。它只是忠实的实现你的代码。除了变换实体，“画”实体，还可以获得鼠标位置的坐标，鼠标位置下面的实体，嵌套实体，显示光标，隐藏光标，跟随鼠标显示TOOLTIP，设置排除检查捕捉的实体等等，它是基于鼠标位置的功能扩展。总之，你要想做根据鼠标位置的事情，就用点监视器。

newer · 发表于 2017-9-8 12:23:41

xinxirong 发表于 2017-9-8 00:38

使用纯LISP的，肯定有限制，LISP无非是用gevec画直线向量，用直线去模拟那些实体，对复杂的实体就无能为例了，比如TRUE TFF字体等等。
ARX使用的是AcGiViewPortDraw,核心的显示实体的的类，只要是生成出来的实体，都能画出来，因为你看到的实体的样子，就是这个核心去做的。“画”快，是因为不用去实现AcDbEntity类实体其他的属性，仅仅是在屏幕上画东西。

liuyj · 发表于 2017-9-8 15:51:56

好了，讲解的透彻，多谢大师

账号		自动登录	找回密码
密码			立即注册

[每日一码] 点监视器不生成实体，使用屏幕向量画（描）实体拖动的实现

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块