|
发表于 2006-2-23 16:49:00
|
显示全部楼层
Dim PtPick As Variant
dim pstar(0 to 1), pend(0 to 1), as double
userform1.Hide
MsgBox ("选择起点" )
PtPick = ThisDrawing.Utility.GetPoint(, "选择起点")
'这个时候你也可以给你的变量值
pstar(0)=PtPick(0)
pstar(1)=PtPick(1)
MsgBox ("选择终点" )
PtPick = ThisDrawing.Utility.GetPoint(, "选择终点")
'这个时候你也可以给你的变量值
pend(0)=PtPick(0)
pend(1)=PtPick(1)
userform1.show
你还可以试试其他的方法,也可以吧坐标值直接显示在你的窗体的文本内,语句想应改变就可以了!
|
|