2020.06.17版本的通用函数库中，XD::Drag:SimpleMove不能用

dyjwyqz5221

api、lsp通用函数库都是2020.06.17的，测试中发现函数XD::Drag:SimpleMove有问题了，
(xd::drag:simplemove (entlast) "\n插入点:" 6 t)
运行上句，中断Cancel

XDSoft

请重新下载下通用LISP函数库

dyjwyqz5221

XDSoft 发表于 2020-6-17 17:50
请重新下载下通用LISP函数库

新的lsp通用函数库覆盖后，这个函数是能用了，但是拖动点不对了。拖动点距离拖动对象很远。
(xd::drag:simplemove (entlast) "\n表格插入点:" 6 t)
你测试下，这个原先拖动点在entlast的右侧中点，现在在很远的下方了。
这个函数的用法变了吗？

dyjwyqz5221

用xdrx-drag-move做了一个函数，这样也能实现XD::Drag:SimpleMove的功能。
(defun yqz::drag:move(str ss n / pt mat)
        (cond
                ((= (type ss) 'ENAME)
                        (setq ss (xd::entity->pickset (list ss)))
                )
                ((eq (type ss) 'LIST)
                        (setq ss (xd::entity->pickset ss))
                )
        )
        (setq pt (xd::geom:get9pt ss n)
                mat (xdrx-drag-move str ss pt)
        );;;setq
        (xdrx_entity_transform ss mat)
)



参数：
str--提示字符串
ss--图元、图元表或选择集
n---ss包围盒的1-9中的某一点

liuyj

不仅是XD::Drag:SimpleMove，XD::Drag:Move也不能用

liuyj

你这个替代函数有点小问题，移动时文字越飘越远

dyjwyqz5221

liuyj 发表于 2020-6-18 20:51
你这个替代函数有点小问题，移动时文字越飘越远

我这里没问题呀，我再测试下

dyjwyqz5221

liuyj 发表于 2020-6-18 20:51
你这个替代函数有点小问题，移动时文字越飘越远

(YQZ::DRAG:MOVE "\nsdfsdfsdf:" (entlast) 6)测试了下，没问题。
下载最新版的api、lsp函数库覆盖再测试下。

lizhaojun45

同一个版本的CAD2021，配上最新的 API ，在不同的电脑上，运行的结果是不一样的，亲自体验过了。家里的电脑，不正常，公司里的电脑，是正常的。