[VBA程序]：自动标注两点高差的程序，出错号13

mlr_nj

编了个求图形上两点高差的程序，并且让高差值标注在第一个点处，但是运行出错，错误13，类型不匹配。恳请大侠指正！
Public Sub getpoint()
Dim pt1 As Variant
Dim pt2 As Variant
Dim inp As Variant
Dim click As Boolean
Dim gaocha As String
Dim TextHeight As Double
'Dim wtext As AcadText
click = True
TextHeight = 2.5
Do
pt1 = ThisDrawing.Utility.getpoint(, "请选择第一点")
pt2 = ThisDrawing.Utility.getpoint(, "请选择第二点")
If Not pt1 Then
  click = False
  Else
  'a = Int((pt1(1) - pt2(1)) * 1000) / 1000
  gaocha = Str(Int((pt1(1) - pt2(1)) * 1000) / 1000)
  inp(0) = pt1(0) + TextHeight
  inp(1) = pt1(1) + TextHeight
  ThisDrawing.SendCommand ("dtext" & vbCr & inp(0) & "," & inp(1) & vbCr & TextHeight & vbCr & vbCr & gaocha & vbCr & vbCr)
  'Set wtext = ThisDrawing.ModelSpace.AddText(gaocha, inp, TextHeight)
End If
Loop Until click = False
End Sub

ntchjie

你定义的pt1是variant类型。看看下面这个，我想不是最好的，但也许可以达到你的要求。
Dim pt1 As Variant
Dim pt2 As Variant
Dim inp(2) As Double
Dim click As Boolean
Dim gaocha As String
Dim TextHeight As Double
'Dim wtext As AcadText
On Error Resume Next
click = True
TextHeight = 2.5
Do
pt1 = ThisDrawing.Utility.GetPoint(, "请选择第一点")

If Err.Number = -2145320928 Then
click = False
Else
pt2 = ThisDrawing.Utility.GetPoint(, "请选择第二点")
'a = Int((pt1(1) - pt2(1)) * 1000) / 1000
gaocha = Str(Int((pt1(1) - pt2(1)) * 1000) / 1000)
inp(0) = pt1(0) + TextHeight
inp(1) = pt1(1) + TextHeight
ThisDrawing.SendCommand ("dtext" & vbCr & inp(0) & "," & inp(1) & vbCr & TextHeight & vbCr & vbCr & gaocha & vbCr & vbCr)
'Set wtext = ThisDrawing.ModelSpace.AddText(gaocha, inp, TextHeight)
End If
Loop Until click = False

mlr_nj

我在2002上试了，不能正常退出
在2005上试了，能正常退出
怎么回事阿？

雪山飞狐(lzh)

Public Sub getpoint()
On Error Resume Next
Dim pt1 As Variant
Dim pt2 As Variant
Dim inp(2) As Double
Dim gaocha As String
Dim TextHeight As Double
'Dim wtext As AcadText
TextHeight = 2.5
Do While True
pt1 = ThisDrawing.Utility.getpoint(, "请选择第一点")
If Err Then Exit Sub
pt2 = ThisDrawing.Utility.getpoint(, "请选择第二点")
'a = Int((pt1(1) - pt2(1)) * 1000) / 1000
gaocha = str(Int((pt1(1) - pt2(1)) * 1000) / 1000)
inp(0) = pt1(0) + TextHeight
inp(1) = pt1(1) + TextHeight
ThisDrawing.SendCommand ("dtext" & vbCr & inp(0) & "," & inp(1) & vbCr & TextHeight & vbCr & vbCr & gaocha & vbCr & vbCr)
'Set wtext = ThisDrawing.ModelSpace.AddText(gaocha, inp, TextHeight)
Loop
End Sub

aaaaaa

这样的文章,多多益善呀

1105037265

正需要，支持楼主大人了！