lisp+c#混合编程之--动态复制(动态旋转、镜像、缩放、改基点、对齐)

print1985

2021.6.16.更新V4.0收币版 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=183595&page=1&extra=#pid891954
本贴为免费版，后续不再更新。

2021.1.22 CAD2007~2021全版本更新： http://bbs.xdcad.net/thread-727518-1-1.html明经现在不能发附件，请到晓东下载
代码优化，更稳定，加载使用更方便。

V3.0测试版更新：增加CAD2020版

V2.0测试版更新：
1、根据各位网友的意见增加3个功能：自定义比例缩放、对齐、旋转。
2、放大(D)/缩小(X)功能 缩放比例可在lisp文件里面根据需要自行修改。
3、其它bug优化。
如有问题请说明你的cad版本，出现的问题（可贴图或复制cad命令文字），请参考之前网友的回复问题的方式
如果对应的版本不能使用，可以试试低版本，比如cad2012 64位无法使用可以试下cad2010 64位版本


之前用纯c#做的，问题较多 （原贴在c#板块http://bbs.mjtd.com/thread-113086-1-1.html）
现在改为lisp+c#混合编程，c#解决动态显示，lisp解决选择集复制移动，效果较好，复制或移动的同时可动态旋转、镜像、缩放、改基点，支持正交、极轴、捕捉（完成了grread函数无法达到的功能）。lisp为源码，也可自行修改实现其它功能。
目前仅在cad2008、2012（64位）、2010（64位）、2014（64位）测试过，cad2006及以下net版本太低无法支持，其它版本未知，欢迎测试（可能引起致命错误，请先保存图纸！）

使用方法：
1、因为Interop.IWshRuntimeLibrary.dll是系统dll（模拟按键用的），需要取得管理员权限，win7右键点击文件就有相应选项，否则会致命错误。（右键菜单没有取得管理员权限选项的请自行百度添加）
2、命令netload加载DrawJigCopy.dll 和 Interop.IWshRuntimeLibrary.dll 文件，命令ap加载lisp文件。
3、如果dll文件无法加载（加载的时候如果有很多文字提示，表示没加载成功），可以点击文件右键-属性-常规 解除锁定  然后重新打开cad重新加载dll文件。
4、运行命令：多功能复制cc、多功能移动mm。
5、自动加载方法见lisp文件里面说明。

其它注意事项：
1、压缩包内含cad2007、cad2008、2012（32位）、2012（64位）、2010（64位）、2014（64位）版本，请使用对应版本测试。
2、用到了局部键盘钩子，当快捷键按下之后自动回车确认，但是有极小的几率会出现无法自动回车的情况，此时手动敲回车键或空格键就行了。
3、由于c#编程兼容性不高，不保证每台电脑都能用，如有问题请反馈，但是更新速度不会很快，因为平时比较忙慢，见谅。编程只是业余学习，很多代码并不专业，请高手指点。



对不起各位，因最近发现本人发的个别插件、源码被人挂网上贩卖，虽然没啥技术含量，但是也是花了时间做的。为了不被后面的二手贩子继续利用，忍心下架所有成品插件，敬请理解，确实需要本插件的朋友可以给我留言。

print1985

edsion24 发表于 2020-12-18 13:19
加载了  还是出这个问题呢

可能DrawJigCopy.dll没加载成功 （加载的时候如果有很多文字提示，表示没加载成功），可以点击文件右键-属性-常规 解除锁定

使用方法：
1、因为Interop.IWshRuntimeLibrary.dll是系统dll（模拟按键用的），需要取得管理员权限，win7右键点击文件就有相应选项，否则会致命错误。（右键菜单没有取得管理员权限选项的请自行百度添加）
2、命令netload加载DrawJigCopy.dll 和 Interop.IWshRuntimeLibrary.dll 文件，命令ap加载lisp文件。
3、如果dll文件无法加载（加载的时候如果有很多文字提示，表示没加载成功），可以点击文件右键-属性-常规 解除锁定  然后重新打开cad重新加载dll文件。
4、运行命令：多功能复制cc、多功能移动mm。
5、自动加载方法见lisp文件里面说明。

print1985

andyzha 发表于 2021-1-24 09:47
已经使用，非常不错，能不能提个小建议，可以实现快速对齐吗？就是选取对象的时候点选需要对齐的对象中的 ...

这个功能如果后面有时间再考虑吧，关于对齐论坛有很多源码，也不一定要加装到这个里面
当然如果你急需，可以自行修改lisp源码中关于对齐部分（有注释）p2~p5点的数据即可（增加选择直线过程，直线的端点坐标赋值给p2~p5）

andyzha

print1985 发表于 2021-1-22 19:57
2021.1.22 CAD2007~2021全版本更新： http://bbs.xdcad.net/thread-727518-1-1.html
明经现在不能发附件， ...

已经使用，非常不错，能不能提个小建议，可以实现快速对齐吗？就是选取对象的时候点选需要对齐的对象中的一条线，然后选取对齐轴的时候再点选一条线，就把对象对齐到点选的直线上了。多谢多谢。

lrd1861

路过瞧一瞧  多谢分享  遗憾07不能用

bai2000

多谢分享

liuyj

终于等到新版本，看看有什么改进

clh521

多谢分享，下载试用,在CAD2012使用出错

sachindkini

dear sir,

nice program

wzg356

牛牛的。。。。。。。。。。。。。

andyhua

回复下，辛苦了……

print1985

clh521 发表于 2016-4-28 16:38
多谢分享，下载试用,在CAD2012使用出错

出现什么问题 cad2012 64位是没有问题的
按使用说明运行的？

clh521

print1985 发表于 2016-4-28 17:21
出现什么问题 cad2012 64位是没有问题的
按使用说明运行的？

我的是32位的