xd::drag:simplemove拖动点异常

dyjwyqz5221

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

另，用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中的某一点

XDSoft

请重新下载 通用LISP函数库

dyjwyqz5221

XDSoft 发表于 2020-6-19 15:26
请重新下载 通用LISP函数库

我设计的这个函数咋样，评价一下

XDSoft

dyjwyqz5221 发表于 2020-6-19 15:40
我设计的这个函数咋样，评价一下

写的函数很好，很简洁，看来API上下的功夫很多，有问题多发帖交流。

xd::drag:simplemove 现在支持关键字回调，你用它可以写 点监视器版的 “自由移动”和“自由拷贝”了，下面是示例代码，自由移动实现了旋转、改基点、转90度功能，你试试，把未完成的的部分写好，这样你就会对矩阵应用的理解很有帮助。镜像功能写好，你就会对文字的镜像处理有很大的理解和提高。试试看，随时发帖交流。

你可能需要再去重新下载下 通用LISP函数库

1. (defun c:tt ()
   
2.   (defun _keyword (kw)
   
3.     (defun _rcallback (dynpt)
   
4.       (if (not lastang)
   
5.         (setq lastang (angle p1 dynpt))
   
6.       )
   
7.       (setq an        (- (setq an1 (angle p1 dynpt)) lastang)
   
8.             mat        (xdrx-matrix-setrotation an '(0 0 1) p1)
   
9.       )
   
10.       (xdrx-entity-transform ss mat)
    
11.       (setq mat1 (xdrx-matrix-product mat mat1))
    
12.       (setq lastang an1)
    
13.     )
    
14.     (setq p1 (xd::drag:getbasepoint))
    
15.     (cond
    
16.       ((= kw "T")
    
17.        (if (setq pt (getpoint "\n新的基点<退出>:"))
    
18.          (progn (xd::drag:setbasepoint pt))
    
19.        )
    
20.       )
    
21.       ((= kw "A")
    
22.        (setq mat (xdrx-matrix-setrotation (/ pi 2.0) '(0 0 1) p1))
    
23.        (xdrx-entity-transform ss mat)
    
24.       )
    
25.       ((= kw "R")
    
26.        (setq p1          (xd::drag:getbasepoint)
    
27.              mat1 (xdrx-matrix-identity 3)
    
28.        )
    
29.        (xdrx-pointmonitor "_rcallback")
    
30.        (if (not (setq p2 (getpoint p1 "\n旋转轴第二点<退出>:")))
    
31.          (progn        (xdrx-entity-transform ss (xdrx-matrix-inverse mat1))
    
32.          )
    
33.        )
    
34.        (xdrx-pointmonitor)
    
35.       )
    
36.       ((= kw "M")
    
37.        (xdrx-prompt "\n*镜像*功能待完成.")
    
38.       )
    
39.       ((= kw "S")
    
40.        (xdrx-prompt "\n*左右翻*功能待完成.")
    
41.       )
    
42.       ((= kw "D")
    
43.        (xdrx-prompt "\n*上下翻*功能待完成.")
    
44.       )
    
45.       ((= kw "L")
    
46.        (xdrx-prompt "\n*缩放*功能待完成.")
    
47.       )
    
48.       ((= kw "F")
    
49.        (xdrx-prompt "\n*对齐*功能待完成.")
    
50.       )
    
51.     )
    
52.   )
    
53.   (setq lastang nil)
    
54.   (and
    
55.     (setq ss (xdrx-ssget "\n选择要处理的对象<退出>:"))
    
56.     (xd::doc:setkeyword "R T A M S D L F")
    
57.     (xd::drag:callbacksetkeyword "_keyword")
    
58.     (xd::drag:simplemove
    
59.       ss
    
60.       "\n〖移动〗插入点或{改基点[T]/改转角[R]/转90度[A]/镜像[M]/左右翻[S]/上下翻[D]/缩放[L]/对齐[F]/}<退出>:"
    
61.       6
    
62.       t
    
63.     )
    
64.   )
    
65.   (princ)
    
66. )
    
67. 
    

(defun c:tt ()<br />   (defun _keyword (kw)<br />     (defun _rcallback (dynpt)<br />       (if (not lastang)<br />         (setq lastang (angle p1 dynpt))<br />       )<br />       (setq an        (- (setq an1 (angle p1 dynpt)) lastang)<br />             mat        (xdrx-matrix-setrotation an '(0 0 1) p1)<br />       )<br />       (xdrx-entity-transform ss mat)<br />       (setq mat1 (xdrx-matrix-product mat mat1))<br />       (setq lastang an1)<br />     )<br />     (setq p1 (xd::drag:getbasepoint))<br />     (cond<br />       ((= kw "T")<br />        (if (setq pt (getpoint "\n新的基点<退出>:"))<br />          (progn (xd::drag:setbasepoint pt))<br />        )<br />       )<br />       ((= kw "A")<br />        (setq mat (xdrx-matrix-setrotation (/ pi 2.0) '(0 0 1) p1))<br />        (xdrx-entity-transform ss mat)<br />       )<br />       ((= kw "R")<br />        (setq p1          (xd::drag:getbasepoint)<br />              mat1 (xdrx-matrix-identity 3)<br />        )<br />        (xdrx-pointmonitor "_rcallback")<br />        (if (not (setq p2 (getpoint p1 "\n旋转轴第二点<退出>:")))<br />          (progn        (xdrx-entity-transform ss (xdrx-matrix-inverse mat1))<br />          )<br />        )<br />        (xdrx-pointmonitor)<br />       )<br />       ((= kw "M")<br />        (xdrx-prompt "\n*镜像*功能待完成.")<br />       )<br />       ((= kw "S")<br />        (xdrx-prompt "\n*左右翻*功能待完成.")<br />       )<br />       ((= kw "D")<br />        (xdrx-prompt "\n*上下翻*功能待完成.")<br />       )<br />       ((= kw "L")<br />        (xdrx-prompt "\n*缩放*功能待完成.")<br />       )<br />       ((= kw "F")<br />        (xdrx-prompt "\n*对齐*功能待完成.")<br />       )<br />     )<br />   )<br />   (setq lastang nil)<br />   (and<br />     (setq ss (xdrx-ssget "\n选择要处理的对象<退出>:"))<br />     (xd::doc:setkeyword "R T A M S D L F")<br />     (xd::drag:callbacksetkeyword "_keyword")<br />     (xd::drag:simplemove<br />       ss<br />       "\n〖移动〗插入点或{改基点[T]/改转角[R]/转90度[A]/镜像[M]/左右翻[S]/上下翻[D]/缩放[L]/对齐[F]/}<退出>:"<br />       6<br />       t<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />