|
|
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的
只是，这两者之间的差别让我费解。有人能解释下么？ |
|
置顶卡
