(XD::Pickset:Drag)灵活**定制的**拷贝、移动拖动选择集函数

Lispboy · 发表于 2013-7-27 23:57:03

liuyj 发表于 2013-7-27 22:30
XD::UndoMark和XD::Undoend函数好像没发布过。

是的，内部使用了。

其实没什么，就是把vla-startUndoMark和 vla-endUndoMark 给包装个名字。

(setq **XD::Doc** (vla-get-activedocument (vlax-get-acad-object)))
(setq **XD::MSpace** (vla-get-modelspace **XD::Doc**))
(defun XD::UndoMark ()
(vla-startundomark **XD::Doc**)
)
(defun XD::UndoEnd ()
(vla-endundomark **XD::Doc**)
)

lliushaojiang · 发表于 2014-11-6 07:33:28

是好东西，

heifeng · 发表于 2015-12-4 23:46:58

这个挺强大

zhangjianjie630 · 发表于 2016-4-29 21:36:20

光看就觉得这个很牛了

XDSoft · 发表于 2016-5-26 13:27:30

该函数2016.0526日更新，支持一键回车。插件 **移动，**拷贝支持一键回车。

liuyj · 发表于 2016-5-26 14:00:49

终于更新了，可仍有两个问题没有解决：
1、复制带扩展数据的实体，复制出来的数据丢失了；
2、xdrx_PickSet_dragGen的返回值经常是-4，没有什么规律，导致连续复制中断。我希望是单击鼠标右键或按esc键时得到-4，否则强制连续复制。鼠标右键用acet-sys-lmouse-down好判断，但esc没有办法。

liuyj · 发表于 2016-5-26 14:53:29

似乎只有图块会发生扩展数据丢失的情况

brainstorm · 发表于 2017-9-11 18:53:46

这里有两次转换，一次转换可以么？不大理解

newer · 发表于 2017-9-11 22:17:26

brainstorm 发表于 2017-9-11 18:53

不是两次转换，变量是一个，值按最后那个为准，前面的应该是调试时候后来忘记删除了。

brainstorm · 发表于 2017-9-12 07:43:02

哦明白了谢谢

brainstorm · 发表于 2017-9-26 20:12:48

这个怎么才能让文字镜像呢？看了论坛一篇帖子，没有给出解决办法

brainstorm · 发表于 2017-9-27 00:02:51

这个文字镜像后是反的按这个帖子可以解决效果不理想。http://bbs.xdcad.net/thread-675661-1-1.html

((= mRMatrix "S")
(setq mTMatrix (xdrx_matrix_product
(xdrx_matrix_setMirror
mTMatrix0
(list (trans pj 1 0)
(trans (polar pj (/ pi 2) 100) 1 0)
)
)
(xdrx_matrix_setmirror
(xdrx_matrix_identity)
'((0 0 0) (1 0 0) (0 1 0))
)
)
)
(xdrx_drag_setmatrix mTMatrix nil)
)

按如上方法解决后，拖动过程文字仍然是反的，但鼠标确定后文字方向是正常的。
xdrx_PickSet_dragGen这个函数能修改一下，让拖动过程文字也是正常的么

liuyj · 发表于 2017-9-27 01:17:01

本帖最后由 liuyj 于 2017-9-27 01:18 编辑

brainstorm 发表于 2017-9-26 20:12

我这么弄的，对复制后的选择集中的文字过滤出来再处理，办法比较笨，不过效果还行

(setq
entlist (xd::list:groupbyindex
(mapcar
'(lambda (x)
(list (xdrx_getpropertyvalue x "IsA") x)
)
(xdrx_pickset->ents ss)
)
0
)
)
(setq entlist1 (cdr (assoc "AcDbText" entlist))
entlist2 (cdr (assoc "AcDbMText" entlist))
)
(if (setq entlist (append entlist1 entlist2))
(progn (setq vdir (getvar "viewdir"))
(mapcar '(lambda (x)
(setq zdir1 (xdrx_getpropertyvalue x "normal")
pt (xd::geom:get9pt x 5)
)
(if (and (equal vdir '(0.0 0.0 1.0) 1e-5)
(equal zdir1 '(0.0 0.0 -1.0) 1e-5)
)
(progn (xdrx_setpropertyvalue
x
"normal"
(xdrx_vector_negate zdir1)
)
(vl-cmdf ".Move" x "" (xd::geom:get9pt x 5) pt)
)
)
)
entlist
)
)
)

(setq 
             entlist (xd::list:groupbyindex 
                       (mapcar 
                         '(lambda (x) 
                            (list (xdrx_getpropertyvalue x "IsA") x) 
                          ) 
                         (xdrx_pickset->ents ss) 
                       ) 
                       0 
                     ) 
           ) 
           (setq entlist1 (cdr (assoc "AcDbText" entlist)) 
                 entlist2 (cdr (assoc "AcDbMText" entlist)) 
           ) 
           (if (setq entlist (append entlist1 entlist2)) 
             (progn (setq vdir (getvar "viewdir")) 
                    (mapcar '(lambda (x) 
                               (setq zdir1 (xdrx_getpropertyvalue x "normal") 
                                     pt           (xd::geom:get9pt x 5) 
                               ) 
                               (if (and        (equal vdir '(0.0 0.0 1.0) 1e-5) 
                                        (equal zdir1 '(0.0 0.0 -1.0) 1e-5) 
                                   ) 
                                 (progn        (xdrx_setpropertyvalue 
                                          x 
                                          "normal" 
                                          (xdrx_vector_negate zdir1) 
                                        ) 
                                        (vl-cmdf ".Move" x "" (xd::geom:get9pt x 5) pt) 
                                 ) 
                               ) 
                             ) 
                            entlist 
                    ) 
             ) 
           )

taoyi0727 · 发表于 2018-10-5 08:46:12

看不到要100才能看

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

[拖动] (XD::Pickset:Drag)灵活**定制的**拷贝、移动拖动选择集函数

[拖动] (XD::Pickset:Drag)灵活定制的拷贝、移动拖动选择集函数