三个vba开发的问题

gogogo168

问题1：
distance=thisdrawing.utility.getinteger("默认值为10")
如果不输入数字，直接按enter
会出现“需要整数值，或选项关键字”的提示
请问：如何使得按enter后，使用自己的默认值继续往下执行 问题2：
GetEntity、GetInteger、GetKeyword执行时，按Esc，如何跳出下面的程序，重回AutoCAD命令界面（即要求输入时，如我想退出，如何办？）。但是，输入其他类型数据，仍然提示错误，要求重新输入，只有Esc可以退出程序？ 问题3：
enAng = ThisDrawing.Utility.AngleFromXAxis(ThisDrawing.Utility.GetPoint, ThisDrawing.Utility.GetPoint)
该函数执行时，返回的角度不是和x轴的夹角,请问是什么原因？？？？ 请大家多多指点

gogogo168

大家帮忙啊!!!


此外,有没有用vba开发的,计算两个圆交点的程序段啊???还有圆与直线相交计算交点的程序段啊???

ntchjie

尝试捕获错误，获得错误号，然后针对错误号处理。

mccad

1.

2. Sub Example_GetInt()
3.       
4.        On Error Resume Next
5.       
6.        ThisDrawing.Utility.InitializeUserInput 128
7.       
8.        Dim returnInt As Integer
9.        returnInt = ThisDrawing.Utility.GetInteger(vbCr & "请输入数值<10>: ")
10.        If Err Then
11.                  If StrComp(Err.Number, -2145320928, 1) = 0 Then
12.                          Dim inputString As String
13.                          Err.Clear
14.                          inputString = ThisDrawing.Utility.GetInput
15.                          If inputString = "" Then
16.                                MsgBox "你输入的是默认值10", , "明经通道VBA示例"
17.                                returnInt = 10
18.                        Else
19.                                MsgBox "你输入了关键字为: " & inputString
20.                        End If
21.                  Else
22.                          MsgBox "出错了: " & Err.Description
23.                          Err.Clear
24.                  End If
25.        Else
26.                MsgBox "输入的整数为： " & returnInt, , "明经通道VBA示例"
27.        End If
28.       
29. End Sub

Sub Example_GetInt()               On Error Resume Next               ThisDrawing.Utility.InitializeUserInput 128               Dim returnInt As Integer        returnInt = ThisDrawing.Utility.GetInteger(vbCr & "请输入数值<10>: ")        If Err Then                  If StrComp(Err.Number, -2145320928, 1) = 0 Then                          Dim inputString As String                          Err.Clear                          inputString = ThisDrawing.Utility.GetInput                          If inputString = "" Then                                MsgBox "你输入的是默认值10", , "明经通道VBA示例"                                returnInt = 10                        Else                                MsgBox "你输入了关键字为: " & inputString                        End If                  Else                          MsgBox "出错了: " & Err.Description                          Err.Clear                  End If        Else                MsgBox "输入的整数为： " & returnInt, , "明经通道VBA示例"        End If        End Sub

雪山飞狐_lzh

1、2是同一个问题


3、是与X轴的夹角


另外，IntersectWith函数

小美菜

这是我的一个数据输入的子程序,对你的问题有帮助 Public Function Fun图形数据输入(TmpMsg As String, WhatType As CadInputType, HasNothing As Boolean) As Variant
Dim xTmp As Variant, DefVal As String, i As Integer, j As Integer
i = InStr(TmpMsg, "<"): j = InStr(TmpMsg, ">")
If i > 0 And j > 0 Then DefVal = Mid(TmpMsg, i + 1, j - i - 1)
On Error Resume Next
Aa:
Select Case WhatType
Case 1 'inputAngle = 1
xTmp = -99999
xTmp = ThisDrawing.Utility.GetAngle(, TmpMsg)
If xTmp = -99999 Then If Not HasNothing Then GoTo Aa Else xTmp = IIf(IsNumeric(DefVal), CInt(DefVal), 0)
Case 2 'inputDistance = 2
xTmp = -99999
xTmp = ThisDrawing.Utility.GetDistance(, TmpMsg)
If xTmp = -99999 Then If Not HasNothing Then GoTo Aa Else xTmp = IIf(IsNumeric(DefVal), CDbl(DefVal), 0)
Case 3 'inputInteger = 3
xTmp = -99999
xTmp = ThisDrawing.Utility.GetInteger(TmpMsg)
If xTmp = -99999 Then If Not HasNothing Then GoTo Aa Else xTmp = IIf(IsNumeric(DefVal), CInt(DefVal), 0)
Case 4 'inputKeyword = 4
xTmp = ThisDrawing.Utility.GetKeyword(TmpMsg)
'If xTmp Is Empty And Not HasNothing Then GoTo Aa
Case 5 'inputPoint = 5
Dim xD(2) As Double, sPnt As Variant, tD() As Double
xD(0) = -99999: xD(1) = -99999: ReDim tD(2)
xTmp = xD
If Not DefVal = "" Then Call PntStrToDat(DefVal, tD)
ReDim Preserve tD(2): sPnt = tD
Beep
TmpMsg = Replace(TmpMsg, "<" + DefVal + ">", "")
xTmp = ThisDrawing.Utility.GetPoint(sPnt, TmpMsg)
If xTmp(0) = -99999 And xTmp(1) = -99999 Then If Not HasNothing Then GoTo Aa
Case 6 'inputReal = 6
xTmp = -99999
xTmp = ThisDrawing.Utility.GetReal(TmpMsg)
If xTmp = -99999 Then If Not HasNothing Then GoTo Aa Else xTmp = DefVal
Case 7 'inputString = 7
xTmp = ThisDrawing.Utility.GetString(0, TmpMsg)
If xTmp = "" Then If Not HasNothing Then GoTo Aa Else xTmp = DefVal
End Select
Fun图形数据输入 = xTmp
End Function

gogogo168

太感谢大家了!!!!!


我会试一下的!!!!


另外为什么网页保存不了啊???

gogogo168

问题1的解决:


我在distance=thisdrawing.utility.getinteger("默认值为10")前面用默认值给distance赋值,然后利用on error resume next的忽略错误功能继续执行...这个方法还可以..当然,用大家的扑捉错误也可以,不过,,if语句嵌套的太多了(我前面也用了好多if)


问题2的又一个疑问:


GetEntity函数:当这个函数等待用户选择时,按esc和选不中对象的err.number数值是一样的,,,真是不晓得,如何对按esc和选不中对象分别编写不同的错误处理程序了???大家知道吗???????


问题3的解释:


AngleFromXAxis返回弧度值,而不是角度.......


另外,想问大家,弧度的起点是x轴,请问,用什么去判断到底是顺时针为正,还是逆时针为正????????????????