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

forowhl

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

1. ' 定义一个角度拖动交互类.
   
2.             Dim optJigAngle As New JigPromptAngleOptions(vbCrLf & "请指定插入块角度<0>")
   
3.             ' 设置拖拽的光标类型.
   
4.             optJigAngle.Cursor = CursorType.RubberBand
   
5.             ' 设置拖动光标基点.
   
6.             optJigAngle.BasePoint = curPt
   
7.             optJigAngle.UseBasePoint = True
   
8.             ' 用AcquireAngle函数得到用户输入的角度值.
   
9.             Dim resJigAngle As PromptDoubleResult = prompts.AcquireAngle(optJigAngle)
   
10.             temAng = resJigAngle.Value
    
11.             If Ang <> temAng Then
    
12.                 ' 保存当前点角度值.
    
13.                 MyBlock.Rotation = temAng
    
14.                 Ang = temAng
    
15.                 Return SamplerStatus.OK
    
16.             Else
    
17.                 Return SamplerStatus.NoChange
    
18.             End If
    
19. 
    

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

sieben

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

forowhl

回复 sieben 的帖子

谢谢，我回去调试一下，呵呵！