怎么样在动态拖拽的时候按回车输入默认值啊

forowhl · 发表于 2011-5-18 21:09:00

代码如下，运行的时候cad界面显示“请指定插入块角度"，这个0是选中状态的，如果我按回车的话，就不返回我输入的是0度，而是让我重新输入，求解。。。

 ' 定义一个角度拖动交互类.
            Dim optJigAngle As New JigPromptAngleOptions(vbCrLf & "请指定插入块角度")
            ' 设置拖拽的光标类型.
            optJigAngle.Cursor = CursorType.RubberBand
            ' 设置拖动光标基点.
            optJigAngle.BasePoint = curPt
            optJigAngle.UseBasePoint = True
            ' 用AcquireAngle函数得到用户输入的角度值.
            Dim resJigAngle As PromptDoubleResult = prompts.AcquireAngle(optJigAngle)
            temAng = resJigAngle.Value
            If Ang  temAng Then
                ' 保存当前点角度值.
                MyBlock.Rotation = temAng
                Ang = temAng
                Return SamplerStatus.OK
            Else
                Return SamplerStatus.NoChange
            End If