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

Lispboy

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

是的，内部使用了。

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

1. (setq **XD::Doc** (vla-get-activedocument (vlax-get-acad-object)))
   
2. (setq **XD::MSpace** (vla-get-modelspace **XD::Doc**))
   
3. 
   
4. 
   
5. (defun XD::UndoMark ()
   
6.   (vla-startundomark **XD::Doc**)
   
7. )
   
8. (defun XD::UndoEnd ()
   
9.   (vla-endundomark **XD::Doc**)
   
10. )
    
11. 
    

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

lliushaojiang

是好东西，

heifeng

这个挺强大

zhangjianjie630

光看就觉得这个很牛了

XDSoft

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

liuyj

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

liuyj

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

brainstorm

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

newer

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

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

brainstorm

哦 明白了 谢谢

brainstorm

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

brainstorm

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

1. ((= mRMatrix "S")
   
2.        (setq mTMatrix (xdrx_matrix_product
   
3.                         (xdrx_matrix_setMirror
   
4.                           mTMatrix0
   
5.                           (list        (trans pj 1 0)
   
6.                                 (trans (polar pj (/ pi 2) 100) 1 0)
   
7.                           )
   
8.                         )
   
9.                         (xdrx_matrix_setmirror
   
10.                           (xdrx_matrix_identity)
    
11.                           '((0 0 0) (1 0 0) (0 1 0))
    
12.                         )
    
13.                       )
    
14.        )
    
15.        (xdrx_drag_setmatrix mTMatrix nil)
    
16.       )
    

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

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

liuyj

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

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

1. (setq
   
2.              entlist (xd::list:groupbyindex
   
3.                        (mapcar
   
4.                          '(lambda (x)
   
5.                             (list (xdrx_getpropertyvalue x "IsA") x)
   
6.                           )
   
7.                          (xdrx_pickset->ents ss)
   
8.                        )
   
9.                        0
   
10.                      )
    
11.            )
    
12.            (setq entlist1 (cdr (assoc "AcDbText" entlist))
    
13.                  entlist2 (cdr (assoc "AcDbMText" entlist))
    
14.            )
    
15.            (if (setq entlist (append entlist1 entlist2))
    
16.              (progn (setq vdir (getvar "viewdir"))
    
17.                     (mapcar '(lambda (x)
    
18.                                (setq zdir1 (xdrx_getpropertyvalue x "normal")
    
19.                                      pt           (xd::geom:get9pt x 5)
    
20.                                )
    
21.                                (if (and        (equal vdir '(0.0 0.0 1.0) 1e-5)
    
22.                                         (equal zdir1 '(0.0 0.0 -1.0) 1e-5)
    
23.                                    )
    
24.                                  (progn        (xdrx_setpropertyvalue
    
25.                                           x
    
26.                                           "normal"
    
27.                                           (xdrx_vector_negate zdir1)
    
28.                                         )
    
29.                                         (vl-cmdf ".Move" x "" (xd::geom:get9pt x 5) pt)
    
30.                                  )
    
31.                                )
    
32.                              )
    
33.                             entlist
    
34.                     )
    
35.              )
    
36.            )
    

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

taoyi0727

看不到  要100才能看