Jig小试牛刀----动态修改圆大小

sailorcwx

2. 'Jig小试牛刀----动态修改圆大小 by Weltion Chen @2009.05.23
3. '利用Jig动态拖拽实现动态修改圆大小
4. Imports Autodesk.AutoCAD.EditorInput
5. Imports Autodesk.AutoCAD.DatabaseServices
6. Imports Autodesk.AutoCAD.Geometry
7. Imports Autodesk.AutoCAD.Runtime
8. Imports Autodesk.AutoCAD.ApplicationServices
9. Public Class Class1
10.     <CommandMethod("Jigtest")> Public Sub JigTest()
11.         '选择提示
12.         Dim SelectPrompt As New PromptEntityOptions(vbNewLine + "选择一个圆: ")
13.         '错误操作提示
14.         SelectPrompt.SetRejectMessage(vbNewLine + "拜托,只能选择圆,请选择一个圆好吧!")
15.         '限制只能选择circle类型，即只能选择圆
16.         SelectPrompt.AddAllowedClass(GetType(Circle), False)
17.         '命令行编辑器
18.         Dim Ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
19.         '选择结果
20.         Dim SelectResult As PromptEntityResult = Ed.GetEntity(SelectPrompt)
21.         '正确的选择
22.         If SelectResult.Status = PromptStatus.OK Then
23.             '当前工作CAD数据库
24.             Dim Db As Database = HostApplicationServices.WorkingDatabase
25.             '事务处理，在VB.Net中使用using能够在using结束后自动销毁using引用的对象，进行垃圾回收。否则需要另外进行Dispose处理
26.             Using Tr As Transaction = Db.TransactionManager.StartTransaction
27.                 '提取选择的圆对象
28.                 Dim CircleObj As Circle = Tr.GetObject(SelectResult.ObjectId, OpenMode.ForWrite)
29.                 '实例化CircleJig类，即创建Jig对象
30.                 Dim Jig As New CircleJig(CircleObj)
31.                 '高亮显示圆对象
32.                 CircleObj.Highlight()
33.                 '拖拽Jig
34.                 Dim DragResult As PromptResult = Ed.Drag(Jig)
35.                 '提交事务处理
36.                 Tr.Commit()
37.             End Using
38.         End If
39.     End Sub
40. End Class
43. Public Class CircleJig
44.     '继承EntityJig类
45.     Inherits EntityJig
46.     '半径
47.     Private dblRadius As Double
48.     '圆心
49.     Private ptCenter As Point3d
50.     Public Sub New(ByVal CircleObj As Circle)
51.         '利用circleobj派生EntityJig基类
52.         MyBase.New(CircleObj)
53.         '获取初始半径
54.         dblRadius = CircleObj.Radius
55.         '获取初始圆心坐标
56.         ptCenter = CircleObj.Center
57.     End Sub
59.     Protected Overrides Function Sampler(ByVal prompts As Autodesk.AutoCAD.EditorInput.JigPrompts) As Autodesk.AutoCAD.EditorInput.SamplerStatus
60.         '距离提示
61.         Dim RadiusPrompt As New JigPromptDistanceOptions()
62.         '以圆心为基点
63.         RadiusPrompt.BasePoint = ptCenter
64.         '使用基点模式
65.         RadiusPrompt.UseBasePoint = True
66.         '橡皮筋效果
67.         RadiusPrompt.Cursor = CursorType.RubberBand
68.         '获取用户输入的距离
69.         Dim RadiusResult As PromptDoubleResult = prompts.AcquireDistance(RadiusPrompt)
70.         '用户正确的输入
71.         If RadiusResult.Status = PromptStatus.OK Then
72.             '如果输入距离与原半径一致
73.             If dblRadius = RadiusResult.Value Then
74.                 '返回NoChange(没有修改)提示
75.                 Return SamplerStatus.NoChange
76.                 '其他情况
77.             Else
78.                 '如果输入值不为0
79.                 If RadiusResult.Value <> 0 Then
80.                     ' 将输入值赋与半径变量
81.                     dblRadius = RadiusResult.Value
82.                     '返回OK提示
83.                     Return SamplerStatus.OK
84.                 End If
85.             End If
86.         Else
87.             '用户取消操作,返回Cancel提示
88.             Return SamplerStatus.Cancel
89.         End If
90.     End Function
91.     Protected Overrides Function Update() As Boolean
92.         '获取圆对象
93.         Dim CircleObj As Circle = Entity
94.         '根据新的变量修改半径值
95.         CircleObj.Radius = dblRadius
96.         '返回True
97.         Return True
98.     End Function
99. End Class

'Jig小试牛刀----动态修改圆大小 by Weltion Chen @2009.05.23 '利用Jig动态拖拽实现动态修改圆大小 Imports Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.EditorInput Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Geometry Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.ApplicationServices Public Class Class1     <CommandMethod("Jigtest")> Public Sub JigTest()         '选择提示         Dim SelectPrompt As New PromptEntityOptions(vbNewLine + "选择一个圆: ")         '错误操作提示         SelectPrompt.SetRejectMessage(vbNewLine + "拜托,只能选择圆,请选择一个圆好吧!")         '限制只能选择circle类型，即只能选择圆         SelectPrompt.AddAllowedClass(GetType(Circle), False)         '命令行编辑器         Dim Ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor         '选择结果         Dim SelectResult As PromptEntityResult = Ed.GetEntity(SelectPrompt)         '正确的选择         If SelectResult.Status = PromptStatus.OK Then             '当前工作CAD数据库             Dim Db As Database = HostApplicationServices.WorkingDatabase             '事务处理，在VB.Net中使用using能够在using结束后自动销毁using引用的对象，进行垃圾回收。否则需要另外进行Dispose处理             Using Tr As Transaction = Db.TransactionManager.StartTransaction                 '提取选择的圆对象                 Dim CircleObj As Circle = Tr.GetObject(SelectResult.ObjectId, OpenMode.ForWrite)                 '实例化CircleJig类，即创建Jig对象                 Dim Jig As New CircleJig(CircleObj)                 '高亮显示圆对象                 CircleObj.Highlight()                 '拖拽Jig                 Dim DragResult As PromptResult = Ed.Drag(Jig)                 '提交事务处理                 Tr.Commit()             End Using         End If     End Sub End Class Public Class CircleJig     '继承EntityJig类     Inherits EntityJig     '半径     Private dblRadius As Double     '圆心     Private ptCenter As Point3d     Public Sub New(ByVal CircleObj As Circle)         '利用circleobj派生EntityJig基类         MyBase.New(CircleObj)         '获取初始半径         dblRadius = CircleObj.Radius         '获取初始圆心坐标         ptCenter = CircleObj.Center     End Sub     Protected Overrides Function Sampler(ByVal prompts As Autodesk.AutoCAD.EditorInput.JigPrompts) As Autodesk.AutoCAD.EditorInput.SamplerStatus         '距离提示         Dim RadiusPrompt As New JigPromptDistanceOptions()         '以圆心为基点         RadiusPrompt.BasePoint = ptCenter         '使用基点模式         RadiusPrompt.UseBasePoint = True         '橡皮筋效果         RadiusPrompt.Cursor = CursorType.RubberBand         '获取用户输入的距离         Dim RadiusResult As PromptDoubleResult = prompts.AcquireDistance(RadiusPrompt)         '用户正确的输入         If RadiusResult.Status = PromptStatus.OK Then             '如果输入距离与原半径一致             If dblRadius = RadiusResult.Value Then                 '返回NoChange(没有修改)提示                 Return SamplerStatus.NoChange                 '其他情况             Else                 '如果输入值不为0                 If RadiusResult.Value <> 0 Then                     ' 将输入值赋与半径变量                     dblRadius = RadiusResult.Value                     '返回OK提示                     Return SamplerStatus.OK                 End If             End If         Else             '用户取消操作,返回Cancel提示             Return SamplerStatus.Cancel         End If     End Function     Protected Overrides Function Update() As Boolean         '获取圆对象         Dim CircleObj As Circle = Entity         '根据新的变量修改半径值         CircleObj.Radius = dblRadius         '返回True         Return True     End Function End Class

写这个程序的原因是看到kean写的那个拖拽程序太复杂了，不适合初学者。这是一个极其简单的Jig程序，拖拽的实现主要是在CircleJig自定义类中，CircleJig自定义类继承EntityJig类，通过重写EntityJig基类的两个过程来实现拖拽功能，其中Sampler用于与用户交互，输出提示信息并检测用户的输入，通过返回状态SamplerStatus来调用Update过程。返回SamplerStatus很重要，否则你看不到一个完美的拖动效果。而Update过程是实现图形的更新以达到动态拖拽的效果。拖拽的调用是通过编辑器的Drag函数来实现的。

carrot1983

哪位能把这么好的贴子改成C#吗？？？

非常感谢

游天居士

收到。要的就是这么简单。

lizhiqiang9801

谢谢楼主  

ps122hb

学习了，谢谢楼主分享

mkhsj928

好帖！
最烦的就是每个Jig都要自己实现个类，感觉好麻烦！还不如监视鼠标移动，实时生成和删除来得简单明了！通过实时生成与删除这种方法，对任何类型、任意多数量实体都是适用，个人感觉更灵活，唯一缺点可能就是显示慢点吧？对现在的主流机子配置来说，基本不是问题。

david.xw

受用了,为了学习,我改成C#,我贴出来方便大家.

1. 
   
2. using Autodesk.AutoCAD.Runtime;
   
3. using Autodesk.AutoCAD.DatabaseServices;
   
4. using Autodesk.AutoCAD.ApplicationServices;
   
5. using Autodesk.AutoCAD.EditorInput;
   
6. using Autodesk.AutoCAD.Geometry;
   
7. 
   
8. [assembly: CommandClass(typeof(CCad.Class1))]
   
9. namespace CCad
   
10. {
    
11.    
    
12.     public class Class1
    
13.     {
    
14.         [CommandMethod("jigtest")]
    
15.         public void JigTest()
    
16.         {
    
17.             //选择提示
    
18.             PromptEntityOptions SelectPrompt = new PromptEntityOptions("\n选择一个圆: ");
    
19.             SelectPrompt.SetRejectMessage("\n拜托,只能选择圆,请选择一个圆好吧!");
    
20.             //限制只能选择circle类型，即只能选择圆            
    
21.             SelectPrompt.AddAllowedClass(typeof(Circle), false);
    
22.             //命令行编辑器
    
23.             Editor Ed = Application.DocumentManager.MdiActiveDocument.Editor;
    
24.             //选择结果
    
25.             PromptEntityResult SelectResult = Ed.GetEntity(SelectPrompt);
    
26.             //正确的选择
    
27.             if (SelectResult.Status == PromptStatus.OK)
    
28.             {
    
29.                 //当前工作CAD数据库
    
30.                 Database Db = HostApplicationServices.WorkingDatabase;
    
31.                 //事务处理，在C#使用using能够在using结束后自动销毁using引用的对象，进行垃圾回收。否则需要另外进行Dispose处理
    
32.                 using (Transaction Tr = Db.TransactionManager.StartTransaction())
    
33.                 {
    
34.                     //提取选择的圆对象
    
35.                     Circle CircleObj = (Circle)Tr.GetObject(SelectResult.ObjectId, OpenMode.ForWrite);
    
36.                     //实例化CircleJig类，即创建Jig对象
    
37.                     CircleJig Jig = new CircleJig(CircleObj);
    
38.                     //高亮显示圆对象
    
39.                     CircleObj.Highlight();
    
40.                     //拖拽Jig
    
41.                     PromptResult DragResult = Ed.Drag(Jig);
    
42.                     //提交事务处理
    
43.                     Tr.Commit();
    
44.                 }
    
45.             }
    
46.         }
    
47.     }
    
48.     public class CircleJig : EntityJig  //继承EntityJig类
    
49.     {
    
50.         //半径
    
51.         private double dblRadius;
    
52.         //圆心
    
53.         private Point3d ptCenter;
    
54.         public CircleJig(Circle CircleObj)
    
55.             : base(CircleObj)//利用circleobj派生EntityJig基类
    
56.         {
    
57.             //获取初始半径
    
58.             dblRadius = CircleObj.Radius;
    
59.             //获取初始圆心坐标
    
60.             ptCenter = CircleObj.Center;
    
61.         }
    
62.         protected override SamplerStatus Sampler(JigPrompts prompts)
    
63.         {
    
64.             //距离提示
    
65.             JigPromptDistanceOptions RadiusPrompt = new JigPromptDistanceOptions();
    
66.             //以圆心为基点
    
67.             RadiusPrompt.BasePoint = ptCenter;
    
68.             //使用基点模式
    
69.             RadiusPrompt.UseBasePoint = true;
    
70.             //橡皮筋效果
    
71.             RadiusPrompt.Cursor = CursorType.RubberBand;
    
72.             //获取用户输入的距离
    
73.             PromptDoubleResult RadiusResult = prompts.AcquireDistance(RadiusPrompt);
    
74.             //用户正确的输入
    
75.             if (RadiusResult.Status == PromptStatus.OK)
    
76.             {
    
77.                 //如果输入距离与原半径一致
    
78.                 if (dblRadius == RadiusResult.Value)
    
79.                 {
    
80.                     //返回NoChange(没有修改)提示
    
81.                     return SamplerStatus.NoChange;
    
82.                 }
    
83.                 //其他情况
    
84.                 else
    
85.                 {
    
86.                     //如果输入值不为0
    
87.                     if (RadiusResult.Value != 0)
    
88.                     {
    
89.                         //将输入值赋与半径变量
    
90.                         dblRadius = RadiusResult.Value;
    
91.                     }
    
92.                     //返回OK提示      
    
93.                     return SamplerStatus.OK;
    
94.                 }
    
95.             }
    
96.             else
    
97.             {
    
98.                 //用户取消操作,返回Cancel提示
    
99.                 return SamplerStatus.Cancel;
    
100.             }
     
101.         }
     
102.         protected override bool Update()
     
103.         {//获取圆对象
     
104.             Circle CircleObj = (Circle)Entity;
     
105.             //根据新的变量修改半径值
     
106.             CircleObj.Radius = dblRadius;
     
107.             //返回True
     
108.             return true;
     
109.         }
     
110.     }
     
111. }
     

<br /> using Autodesk.AutoCAD.Runtime;<br /> using Autodesk.AutoCAD.DatabaseServices;<br /> using Autodesk.AutoCAD.ApplicationServices;<br /> using Autodesk.AutoCAD.EditorInput;<br /> using Autodesk.AutoCAD.Geometry;<br /> <br /> [assembly: CommandClass(typeof(CCad.Class1))]<br /> namespace CCad<br /> {<br />     <br />     public class Class1<br />     {<br />         [CommandMethod("jigtest")]<br />         public void JigTest()<br />         {<br />             //选择提示<br />             PromptEntityOptions SelectPrompt = new PromptEntityOptions("\n选择一个圆: ");<br />             SelectPrompt.SetRejectMessage("\n拜托,只能选择圆,请选择一个圆好吧!");<br />             //限制只能选择circle类型，即只能选择圆             <br />             SelectPrompt.AddAllowedClass(typeof(Circle), false);<br />             //命令行编辑器<br />             Editor Ed = Application.DocumentManager.MdiActiveDocument.Editor;<br />             //选择结果<br />             PromptEntityResult SelectResult = Ed.GetEntity(SelectPrompt);<br />             //正确的选择<br />             if (SelectResult.Status == PromptStatus.OK)<br />             {<br />                 //当前工作CAD数据库<br />                 Database Db = HostApplicationServices.WorkingDatabase;<br />                 //事务处理，在C#使用using能够在using结束后自动销毁using引用的对象，进行垃圾回收。否则需要另外进行Dispose处理<br />                 using (Transaction Tr = Db.TransactionManager.StartTransaction())<br />                 {<br />                     //提取选择的圆对象<br />                     Circle CircleObj = (Circle)Tr.GetObject(SelectResult.ObjectId, OpenMode.ForWrite);<br />                     //实例化CircleJig类，即创建Jig对象<br />                     CircleJig Jig = new CircleJig(CircleObj);<br />                     //高亮显示圆对象<br />                     CircleObj.Highlight();<br />                     //拖拽Jig<br />                     PromptResult DragResult = Ed.Drag(Jig);<br />                     //提交事务处理<br />                     Tr.Commit();<br />                 }<br />             }<br />         }<br />     }<br />     public class CircleJig : EntityJig  //继承EntityJig类<br />     {<br />         //半径<br />         private double dblRadius;<br />         //圆心<br />         private Point3d ptCenter;<br />         public CircleJig(Circle CircleObj)<br />             : base(CircleObj)//利用circleobj派生EntityJig基类<br />         {<br />             //获取初始半径<br />             dblRadius = CircleObj.Radius;<br />             //获取初始圆心坐标<br />             ptCenter = CircleObj.Center;<br />         }<br />         protected override SamplerStatus Sampler(JigPrompts prompts)<br />         {<br />             //距离提示<br />             JigPromptDistanceOptions RadiusPrompt = new JigPromptDistanceOptions();<br />             //以圆心为基点<br />             RadiusPrompt.BasePoint = ptCenter;<br />             //使用基点模式<br />             RadiusPrompt.UseBasePoint = true;<br />             //橡皮筋效果<br />             RadiusPrompt.Cursor = CursorType.RubberBand;<br />             //获取用户输入的距离<br />             PromptDoubleResult RadiusResult = prompts.AcquireDistance(RadiusPrompt);<br />             //用户正确的输入<br />             if (RadiusResult.Status == PromptStatus.OK)<br />             {<br />                 //如果输入距离与原半径一致<br />                 if (dblRadius == RadiusResult.Value)<br />                 {<br />                     //返回NoChange(没有修改)提示<br />                     return SamplerStatus.NoChange;<br />                 }<br />                 //其他情况<br />                 else<br />                 {<br />                     //如果输入值不为0<br />                     if (RadiusResult.Value != 0)<br />                     {<br />                         //将输入值赋与半径变量<br />                         dblRadius = RadiusResult.Value;<br />                     }<br />                     //返回OK提示      <br />                     return SamplerStatus.OK;<br />                 }<br />             }<br />             else<br />             {<br />                 //用户取消操作,返回Cancel提示<br />                 return SamplerStatus.Cancel;<br />             }<br />         }<br />         protected override bool Update()<br />         {//获取圆对象<br />             Circle CircleObj = (Circle)Entity;<br />             //根据新的变量修改半径值<br />             CircleObj.Radius = dblRadius;<br />             //返回True<br />             return true;<br />         }<br />     }<br /> }<br />

Cameron

很好用啊
顶一下！！！