pyqzww 发表于 2003-5-20 15:19:00

高手们,请帮忙!

怎样用VBA获得AUTOCAD下鼠标的坐标?

wblueboy 发表于 2003-5-21 22:18:00

用getpoint方法

dim point as var**
point=thisdrawing.u***.getpoint
point(0)=x
point(1)=y
point(2)=z

LUCKNHL 发表于 2003-5-21 23:00:00

补充一下

用GETPOINT(),取得的值可保存在Variant型变量中。
分别取X、Y、Z值时,可如下:
DIM A(0 TO 2) AS DOUBLE
DIM B AS VARIANT

。B中保存坐标

A(0)=B(0)‘取X坐标’
A(1)=B(1)‘取Y坐标’
A(2)=B(2)‘取Z坐标’
。。。
页: [1]
查看完整版本: 高手们,请帮忙!