高手们,请帮忙!
怎样用VBA获得AUTOCAD下鼠标的坐标?用getpoint方法
dim point as var**point=thisdrawing.u***.getpoint
point(0)=x
point(1)=y
point(2)=z
补充一下
用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]