求助版主：如何提取用户选择点的x，y，z坐标？

ebigsong

我想让用户选择起点，然后划一条水平的长10的直线

code：
dim staPoint as Variant
dim line1 as acadLine
dim endPoint(2) as double
set staPoint=thisDrawing.utility.getPoint(,"input startPoint")
endPoint(0)=staPoint(0)+10: endPoint(1)=staPoint(1): endPoint(2)=0

set line1=thisDrawing.modelSpace.addline(staPoint,endPoint)

执行上述代码，不能得到结果。

efan2000

对于变体型变量（Variant），在赋值语句中不能使用Set。Set是对对象型变量赋值时而使用的，应在模块、类模块或者窗体的顶部加上Option Explicit，即要求系统在语句中使用变量声明，避免一些低级的错误。

ebigsong