高手们，请帮忙！

pyqzww

怎样用VBA获得AutoCAD下鼠标的坐标？

wblueboy

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

LUCKNHL

用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坐标’
。。。