超级拷贝(2014.12.1新增ARX版本)

Highflybird

基于CAD拷贝和阵列方式的死板，我编写了一个程序，名字叫做超级拷贝。
其功能  是对CAD拷贝命令的扩充。主要用于一些比较艺术化的场合。 例如：园林或者总图的树木的拷贝和阵列。               
它实现了在拷贝的同时进行了随机的变化（缩放比，旋转角， 间距，偏移），既可用所见所得方式的动态拷贝，也可沿曲线阵列，或者区域阵列，从点、线、面全方位都可进行。当然也可用于规整的场合，只需将参数的最大值，最小值设置相同。你甚至可以当一个超级填充来使用。

程序运行命令为SuperCopy,如果你想要简短的名字，可修改字C:SuperCopy 为你想要的，例如C:CCC.                    
如想设置拷贝参数，在程序的使用前调用命令 SCSet或者使用 中输入关键字Set来配置。设置的参数可供下次使用。      
提醒: 线或者面拷贝时，如果间距设置太少，可能会造成运行时间太长处于假死的状态。另外，勾选“选择集视作图块”，就可把物体数量过多的选择集当做整体处理，加速效果明显。下面是演示图片:

演示

关于程序在此：

请点击此处下载

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

您的用户组是：游客

文件名称:SuperCopy.bin.rar 
下载次数:360  文件大小:15.56 KB 
下载权限: 不限 以上  [免费赚D豆]

ARX版本在此：

请点击此处下载

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

您的用户组是：游客

文件名称:SuperCopy.arx.bin.zip 
下载次数:213  文件大小:591.53 KB 
下载权限: 不限 以上  [免费赚D豆]

ARX 稍微有些不同，速度更快，功能更多，提供了菜单和工具栏形式。并且把命令分解了几个部分：
SCD,用于动态拷贝，SCC用于曲线阵列，SCA用于区域阵列，SCSET设置参数。这些都可以在工具栏和菜单中找到。
（工具栏和菜单的加载和卸载命令是atam,dtam)。
R15---2000~2002;
R16---2004~2006;
R17---2007~2009;
R18---2010~2012;
R19---2013~2014;
R20稍后提供。

程序的源码收一点豆豆吧，毕竟我花了很多时间和心血。
因为是开源软件，所以我希望大家在引用我源码时，遵循开源协议。

游客，如果您要查看本帖隐藏内容请回复

Highflybird

其实在这个程序里，读了源码，可以回答网友碰到的几个大问题： 1、关于点在多边形或者曲线内的判定问题。 2、关于对实体的矩阵变换问题。 3、动态绘图技术。 4、对话框关闭后一些数据的保留和恢复技巧 。 5、线段细分和阵列拷贝的技巧。 对这个程序的建议和bug请大家在回复中提出。多谢！

newer

强大....下载学习。

spp_wall

厉害  支持！！！！！！！！

lucas3

很强大的程序，感觉收3币有点少，毕竟签到一次就5东豆，哈哈

Free-Lancer

必须支持，许久不见版主露面，出手都是重量级的，不过这个都靠桌子提供的A/Vlisp那些函数的确要耗很大精力

HLCAD

支持高飞鸟！每次出手都给人以惊喜！

lliushaojiang

下载试试，看着很强大啊

279491611

厉害！:)谢谢分享。

/db_自贡黄明儒_

win7 05版，选择一个块和文字运行失败
[0.78] (VL-BT)
[1.74] (*ERROR* "ActiveX Server returned an error: 找不到元素。") LAP+7
[2.68] (_call-err-hook #<USUBR @0b88fca8 *ERROR*> "ActiveX Server returned an
error: 找不到元素。")
[3.62] (sys-error "ActiveX Server returned an error: 找不到元素。")
:ERROR-BREAK.57 "ActiveX Server returned an error: 找不到元素。"
[4.54] (intelligent-invoke #<VLA-OBJECT 0b13e394> "Move" 1 #<variant 8197 ...>
#<variant 8197 ...>)
[5.45] (#<SUBR @08eb821c vlax-invoke-method> #<VLA-OBJECT 0b13e394> "Move"
#<variant 8197 ...> #<variant 8197 ...>)
[6.38] (vla-Move #<VLA-OBJECT 0b13e394> #<variant 8197 ...> #<variant 8197 ...>)
:XTSF-MARK.31 (FOREACH nil #<SUBR @0b8bf2a8 nil> (Rest-List O))
[7.28] (SC:MAKEANONYMOUSBLOCK (#<VLA-OBJECT 0b114c54> #<VLA-OBJECT
IAcadBlockReference 0b114fa4>) (-1809.0 2738.0 0.0) #<VLA-OBJECT IAcadDocument
01ea4510>) LAP+289
[8.20] (C:SUPERCOPY) LAP+260
[9.15] (#<SUBR @08e7b99c -rts_top->)
[10.12] (#<SUBR @08e70334 veval-str-body> "(C:SUPERCOPY)" T #<FILE internal>)
:CALLBACK-ENTRY.6 (:CALLBACK-ENTRY)
:ARQ-SUBR-CALLBACK.3 (nil 0)

activex server returned an error: 找不到元素。; error: An error has occurred
inside the *error* functionbad argument type: consp #<VLA-OBJECT 0b13e914>

/db_自贡黄明儒_

选择的基点和下一点能捕捉就好了。

lrd1861

如果加入拷贝数量就好了

hzj268

支持一下新程序

q3_2006

大师作品必须学习....

czx663

支持！学习了