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

print1985

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


功能见动图
复制的同时可动态旋转、镜像、缩放、改基点、对齐；支持正交、极轴、捕捉。
可轻量级代替cad原版命令，选择内容太多（默认1000个，可修改）自动切换为原版命令。
lisp+c#混合编程，c#解决动态显示，lisp解决选择集复制、移动等（纯c#克隆的对象存在很多问题，放弃了，还是用cad自带的命令好）lisp为源码，也可自行修改实现其它功能。


使用方法：
修改lisp内DLL文件路径，加载lisp即可（修改路径之后lisp启动会自动加载dll）
快捷键默认为c和m，可修改

本人lisp、c#都是入门级，小程序没有过多的功能（实在写不出来），只为方便使用而已。
有什么问题欢迎反馈，PS:测试前请做好图纸备份，以免致命错误。

问个问题：怎么发不需要D豆下载的附件

print1985

2. using Autodesk.AutoCAD.ApplicationServices;
   
3. using Autodesk.AutoCAD.DatabaseServices;
   
4. using Autodesk.AutoCAD.EditorInput;
   
5. using Autodesk.AutoCAD.Geometry;
   
6. using Autodesk.AutoCAD.GraphicsInterface;
   
7. 
   
8. namespace UseDrawJig
   
9. {
   
10.     class MirrorJig : DrawJig
    
11.     {
    
12.         private Point3d m_MirrorPt1, m_MirrorPt2;
    
13.         private Entity[] m_EntArr, m_EntCopyArr;
    
14.         private Matrix3d m_InverseMt = Matrix3d.Identity;
    
15. 
    
16.         // 初始化MirrorJig派生类
    
17.         public MirrorJig(Point3d mirrorPt1, Entity[] entArr, Entity[] entCopyArr)
    
18.         {
    
19.             m_MirrorPt2 = m_MirrorPt1 = mirrorPt1;
    
20.             m_EntArr = entArr;
    
21.             m_EntCopyArr = entCopyArr;
    
22.         }
    
23. 
    
24.         protected override bool WorldDraw(WorldDraw draw)
    
25.         {
    
26.             for (int i = 0; i < m_EntCopyArr.Length; i++)
    
27.             {
    
28.                 draw.Geometry.Draw(m_EntCopyArr[i]);
    
29.             }
    
30.             return true;
    
31.         }
    
32. 
    
33.         protected override SamplerStatus Sampler(JigPrompts prompts)
    
34.         {
    
35.             Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
    
36.             Matrix3d mt = ed.CurrentUserCoordinateSystem;
    
37. 
    
38.             JigPromptPointOptions optJig = new JigPromptPointOptions("\n请指定镜像线第二点:");
    
39.             optJig.Cursor = CursorType.RubberBand;
    
40.             // 基点必须是WCS点.
    
41.             Point3d wcsMirrorPt1 = m_MirrorPt1.TransformBy(mt);
    
42.             optJig.BasePoint = wcsMirrorPt1;
    
43.             optJig.UseBasePoint = true;
    
44. 
    
45.             PromptPointResult resJig = prompts.AcquirePoint(optJig);
    
46.             Point3d curPt = resJig.Value;
    
47. 
    
48.             if (m_MirrorPt2 != curPt)
    
49.             {
    
50.                 m_MirrorPt2 = curPt;
    
51. 
    
52.                 Matrix3d mirrorMt = Matrix3d.Mirroring(new Line3d(m_MirrorPt2, wcsMirrorPt1));
    
53.                 for (int i = 0; i < m_EntCopyArr.Length; i++)
    
54.                 {
    
55.                     m_EntCopyArr[i].TransformBy(m_InverseMt);
    
56.                     m_EntCopyArr[i].TransformBy(mirrorMt);
    
57.                 }
    
58. 
    
59.                 m_InverseMt = mirrorMt.Inverse();
    
60.                 return SamplerStatus.OK;
    
61.             }
    
62.             else
    
63.             {
    
64.                 return SamplerStatus.NoChange;
    
65.             }
    
66.         }
    
67. 
    
68.         public void Unhighlight()
    
69.         {
    
70.             // 取消源对象的高亮状态.
    
71.             for (int i = 0; i < m_EntArr.Length; i++)
    
72.             {
    
73.                 m_EntArr[i].Unhighlight();
    
74.             }
    
75.         }
    
76.     }
    
77. }
    

using Autodesk.AutoCAD.ApplicationServices;<br /> using Autodesk.AutoCAD.DatabaseServices;<br /> using Autodesk.AutoCAD.EditorInput;<br /> using Autodesk.AutoCAD.Geometry;<br /> using Autodesk.AutoCAD.GraphicsInterface;<br /> <br /> namespace UseDrawJig<br /> {<br />     class MirrorJig : DrawJig<br />     {<br />         private Point3d m_MirrorPt1, m_MirrorPt2;<br />         private Entity[] m_EntArr, m_EntCopyArr;<br />         private Matrix3d m_InverseMt = Matrix3d.Identity;<br /> <br />         // 初始化MirrorJig派生类<br />         public MirrorJig(Point3d mirrorPt1, Entity[] entArr, Entity[] entCopyArr)<br />         {<br />             m_MirrorPt2 = m_MirrorPt1 = mirrorPt1;<br />             m_EntArr = entArr;<br />             m_EntCopyArr = entCopyArr;<br />         }<br /> <br />         protected override bool WorldDraw(WorldDraw draw)<br />         {<br />             for (int i = 0; i < m_EntCopyArr.Length; i++)<br />             {<br />                 draw.Geometry.Draw(m_EntCopyArr[i]);<br />             }<br />             return true;<br />         }<br /> <br />         protected override SamplerStatus Sampler(JigPrompts prompts)<br />         {<br />             Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;<br />             Matrix3d mt = ed.CurrentUserCoordinateSystem;<br /> <br />             JigPromptPointOptions optJig = new JigPromptPointOptions("\n请指定镜像线第二点:");<br />             optJig.Cursor = CursorType.RubberBand;<br />             // 基点必须是WCS点. <br />             Point3d wcsMirrorPt1 = m_MirrorPt1.TransformBy(mt);<br />             optJig.BasePoint = wcsMirrorPt1;<br />             optJig.UseBasePoint = true;<br /> <br />             PromptPointResult resJig = prompts.AcquirePoint(optJig);<br />             Point3d curPt = resJig.Value;<br /> <br />             if (m_MirrorPt2 != curPt)<br />             {<br />                 m_MirrorPt2 = curPt;<br /> <br />                 Matrix3d mirrorMt = Matrix3d.Mirroring(new Line3d(m_MirrorPt2, wcsMirrorPt1));<br />                 for (int i = 0; i < m_EntCopyArr.Length; i++)<br />                 {<br />                     m_EntCopyArr[i].TransformBy(m_InverseMt);<br />                     m_EntCopyArr[i].TransformBy(mirrorMt);<br />                 }<br /> <br />                 m_InverseMt = mirrorMt.Inverse();<br />                 return SamplerStatus.OK;<br />             }<br />             else<br />             {<br />                 return SamplerStatus.NoChange;<br />             }<br />         }<br /> <br />         public void Unhighlight()<br />         {<br />             // 取消源对象的高亮状态.<br />             for (int i = 0; i < m_EntArr.Length; i++)<br />             {<br />                 m_EntArr[i].Unhighlight();<br />             }<br />         }<br />     }<br /> }<br />

书中的核心代码，动态部分，论坛还有更多的代码，大家共同学习

Lisphk

谢谢楼主，C#小白一个，请教下楼主
C# 分 2007/2008，  2009/2012  ，2013/2021 是因为什么
谢谢

print1985

Lisphk 发表于 2021-1-22 20:46
谢谢楼主，C#小白一个，请教下楼主
C# 分 2007/2008，  2009/2012  ，2013/2021 是因为什么
谢谢

CAD用的.NET版本在不停的升级，CAD提供给C#调用的几个DLL也在跟着升级，所以分了那么多版本，很烦，还是lisp好，小程序lisp够了，不够的再混个c#辅助。

liuyj

就是那个多功能复制移动V3.0吧？

liuyj

这个不用Interop.IWshRuntimeLibrary.dll了，不错

chaozi5756

很给力的小程序，如果只用lisp就更完美了。

yuren008

做个对论坛有益的人。

aisong220

dnbcgrass

能不能把源码放出来，大家学习学习，共同进步

依然小小鸟

明经论坛也发一下吧

print1985

dnbcgrass 发表于 2021-1-25 08:43
能不能把源码放出来，大家学习学习，共同进步

lisp是源码，c#的源码是才鸟书中的DrawJig部分代码（ AutoCAD VBA & VB.NET开发基础与实例教程(第2版)(C#版) ），我只是修改了局部，加了和lisp之间的互相调用
如果要学习c#，建议买才鸟的书来学习（虽然出了很多年了，依然没过时），有问题大家共同探讨
感谢才鸟曾洪飞等作者的贡献

print1985

依然小小鸟 发表于 2021-1-26 09:00
明经论坛也发一下吧

明经现在发不了附件、图片等，只有等老大好久有时间和精力了可能才能恢复，做网站也不容易，倒贴钱

evayleung

这个功能强大。。。。谢谢

lxw0320

期待能有源码大家一起学习