[VBA程序]：哪位高手可以挑战一下常规？

liuhexiang

比如画直线，必须要知道两个点，画圆要知道圆心及半径，条件全了才能执行命令,通常是这样：
Sub k()
Dim  xunipoint  As Variant
Dim point1(0 to 2),point2(0 to 2) as double
Dim lineobject as acadline
Point1(0)=0
Point1(1)=0
Point1(2)=0
Point2(0)=100
Point2(1)=100
Point2(2)=0
Set lineobject = ThisDrawing.ModelSpace.AddLine(point1, point2)
End sub

能不能在point2不知道的情况下先执行Set lineobject = ThisDrawing.ModelSpace.AddLine(point1, point2)
然后紧接再等待point2的输入？
执行顺序如下（但代码应修改才能按照这样顺序执行）：
Sub k()
Dim  xunipoint  As Variant
Dim point1(0 to 2),point2(0 to 2) as double
Dim lineobject as acadline
Point1(0)=0
Point1(1)=0
Point1(2)=0
Set lineobject = ThisDrawing.ModelSpace.AddLine(point1, point2)
xunipoint = ThisDrawing.Utility.GetPoint(, vbCrLf & "虚拟第二点")
Point2(0)= xunipoint(0)
Point2(1)= xunipoint(1)
Point2(2)= xunipoint(2)
End sub


就像直接在CAD里执行line一样，



光标在等第二点的输入,输入后就完成了命令。

gjliang

Sub k()
Dim xunipoint As Variant
Dim point1(0 To 2) As Double
Dim point2 As Variant
Dim lineobject As AcadLine
point1(0) = 0
point1(1) = 0
point1(2) = 0
point2 = ThisDrawing.Utility.GetPoint(point1, "第二点:")
Set lineobject = ThisDrawing.ModelSpace.AddLine(point1, point2)
End Sub

不知道是不是你要的效果哦。

ljpnb

估计这个方法只能对直线还凑合着，圆弧或是圆就不行了

gjliang

都应该很容易实现的啊，不就是和用户进行交互吗？

wuyunpeng000

你要的应该是动态效果，完全可以实现