自由拷贝、自由移动（第二版）

newer

在移动拷贝过程中，可以任意的对选择集
修改基点、上下翻、左右翻、镜像、对齐、缩放、旋转等操作。
插件请运行在 2018.08.07日之后更新的API

1. (defun c:XDTB_FreeCopy (/ pj ss)
   
2. 
   
3.   (xdrx_begin)
   
4.   (xdrx_sysvar_push '("autosnap" 1))
   
5.   (xd::doc:setosnap 547)
   
6.   (if (and (xdrx_prompt "\n选取要拷贝的实体<退出>:")
   
7.            (setq ss (ssget))
   
8.            (setq pj (getpoint "\n拾取基点<退出>:"))
   
9.       )
   
10.     (progn
    
11.       (XD::Pickset:Drag ss pj (+ 1 2 4 8 16 32 64 128) 2 t)
    
12.     )
    
13.   )
    
14.   (xd::doc:setosnap nil)
    
15.   (xdrx_end)
    
16.   (princ)
    
17. )
    

(defun c:XDTB_FreeCopy (/ pj ss)<br /> <br />   (xdrx_begin)<br />   (xdrx_sysvar_push '("autosnap" 1))<br />   (xd::doc:setosnap 547)<br />   (if (and (xdrx_prompt "\n选取要拷贝的实体<退出>:")<br />            (setq ss (ssget))<br />            (setq pj (getpoint "\n拾取基点<退出>:"))<br />       )<br />     (progn<br />       (XD::Pickset:Drag ss pj (+ 1 2 4 8 16 32 64 128) 2 t)<br />     )<br />   )<br />   (xd::doc:setosnap nil)<br />   (xdrx_end)<br />   (princ)<br /> )<br />

1. (defun c:XDTB_FreeMove (/ pj ss)
   
2.   (xdrx_begin)
   
3.   (xdrx_sysvar_push '("autosnap" 1))
   
4.   (xd::doc:setosnap 547)
   
5.   (if (and (xdrx_prompt "\n选取要移动的实体<退出>:")
   
6.            (setq ss (ssget))
   
7.            (setq pj (getpoint "\n拾取基点<退出>:"))
   
8.       )
   
9.     (progn
   
10.       (XD::Pickset:Drag ss pj (+ 1 2 4 8 16 32 64 128) 2 nil)
    
11.     )
    
12.   )
    
13.   (xd::doc:setosnap nil)
    
14.   (xdrx_end)
    
15.   (princ)
    
16. )
    
17. 
    

(defun c:XDTB_FreeMove (/ pj ss)<br />   (xdrx_begin)<br />   (xdrx_sysvar_push '("autosnap" 1))<br />   (xd::doc:setosnap 547)<br />   (if (and (xdrx_prompt "\n选取要移动的实体<退出>:")<br />            (setq ss (ssget))<br />            (setq pj (getpoint "\n拾取基点<退出>:"))<br />       )<br />     (progn<br />       (XD::Pickset:Drag ss pj (+ 1 2 4 8 16 32 64 128) 2 nil)<br />     )<br />   )<br />   (xd::doc:setosnap nil)<br />   (xdrx_end)<br />   (princ)<br /> )<br /> <br />

liuyj

XD::Pickset:Drag有修改吗？还是仅修改了API代码？

liuyj

xd::doc:setosnap没搜到

newer

liuyj 发表于 2018-8-7 15:11
xd::doc:setosnap没搜到

下载今早更新的API, 2018.08.07日更新的

newer

liuyj 发表于 2018-8-7 15:08
XD::Pickset:Drag有修改吗？还是仅修改了API代码？

API没改，修改了XD::Pickset:Drag，对齐和镜像的表现，对齐和镜像后，基点不变。

liuyj

网上的代码还没改吧？xd::doc:setosnap看这个写法应该是开源函数库的，发布一下吧。最重要的两个问题，在图纸空间里对视口进行操作时，“自由复制”不论是按A旋转90°还是按R旋转都无效，复制出来都是平移的效果。用其它类似的程序是没问题的。marting说视口不能旋转，用rotate命令没问题啊。另外复制的结果只有视口里面的内容，视口线没有了，需要刷新才能出现。

alnhny

这个真是太好，感谢。

alnhny

试了一下，不知能否支持选择后再使用命令。

alnhny

N版好，自由拷贝、移动插件使用了两天，本想可以替代系统的拷贝、移动，但发现有问题，对于拷贝、移动大量图元时，如果是纯CAD图元还好，一但对大量天正图元进行复制、移动时，直接卡死，但用自带命令就非常快，不知这个还能进行优化不，否则只能对少量图元进行操作，无法替代自带的命令。
附件中的图把左边竖向的平面图进行复制，操作过程中直接卡死。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:1#.rar 
下载次数:16  文件大小:1.27 MB 
下载权限: 不限 以上  [免费赚D豆]

echizenace

版主威武！！！！！！！

alnhny

拷贝、移动过程中输入R进行源图元旋转时，【回车输入】无效，只能手动随意旋转，不知能否修正一下，谢谢。

newer

alnhny 发表于 2018-11-19 14:40
拷贝、移动过程中输入R进行源图元旋转时，【回车输入】无效，只能手动随意旋转，不知能否修正一下，谢谢。

其实这个角度，不如用 对齐 操作 来的更快

alnhny

newer 发表于 2018-11-19 15:43
其实这个角度，不如用 对齐 操作 来的更快

现在就是这样操作的

xdcad9819

能不能实现多个对象同时复制到一个点位上

十全十美

感谢楼主分享