forowhl 发表于 2011-5-18 21:09:23

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

本帖最后由 forowhl 于 2011-5-18 21:27 编辑

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



' 定义一个角度拖动交互类.
            Dim optJigAngle As New JigPromptAngleOptions(vbCrLf & "请指定插入块角度<0>")
            ' 设置拖拽的光标类型.
            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



sieben 发表于 2011-5-18 23:10:20

                  optJigAngle.UseDefaultValue = true;
                  optJigAngle.DefaultValue = 0;
                     optJigAngle.UserInputControls = UserInputControls.NullResponseAccepted;

forowhl 发表于 2011-5-18 23:59:17

回复 sieben 的帖子

谢谢，我回去调试一下，呵呵！
页: [1]
查看完整版本: 怎么样在动态拖拽的时候按回车输入默认值啊