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

'Jig小试牛刀----动态修改圆大小 by Weltion Chen @2009.05.23
'利用Jig动态拖拽实现动态修改圆大小
Imports Autodesk..EditorInput
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Public Class Class1
     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

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