getpoint 变量未设置

Flyingdancing

• Sub data_x()
  
• Dim linex As AcadLine
  
• Dim pt(1) As AcadPoint
  
• Dim part As AcadPoint
  
• Dim doubl As Double
  
• pt(0) = ThisDrawing.Utility.GetPoint
  
• pt(1) = ThisDrawing.Utility.GetPoint()
  
• Set linex = ThisDrawing.ModelSpace.AddLine(pt(0), pt(1))
  
• End Sub
  
  

                还有：
               

• Sub data_x()
  
• Dim linex As AcadLine
  
• Dim pt1, pt2 As AcadPoint
  
• Dim part As AcadPoint
  
• Dim doubl As Double
  
• pt1 = ThisDrawing.Utility.GetPoint(, "a")
  
• pt2 = ThisDrawing.Utility.GetPoint(, "d")
  
• Set linex = ThisDrawing.ModelSpace.AddLine(pt1, pt2)
  
• End Sub
  
  

                这样的时候就是pt2时报错……
我知道用variant的
只是，这两者之间的差别让我费解。有人能解释下么？

雪山飞狐_lzh

Dim pt1, pt2 As AcadPoint
VB里这样声明是错误的
等同于
Dim pt1 as variant, pt2 As AcadPoint
不过VB.Net可以。。。

woaishuijia

getpoint方法得到的是三维点坐标,是一个三元素双精度数组.声明变量时应该声明为变体变量(双精度动态数组也可以)
而楼主声明为acadpoint是不对的,这是一个单点对象,是一个图元,要用addpoint方法画出来的.
二者风马牛不相及.

Flyingdancing

雪山飞狐_lzh 发表于 2012-7-14 22:48
Dim pt1, pt2 As AcadPoint
VB里这样声明是错误的
等同于

……这样啊
我是看例子里面都是这样定义的……
怪不得

sscylh

Dim pt1, pt2 As AcadPoint
改为:dim pt1,pt2