GETXX类，专用于GETXX方法时可以平移缩放命令

mccad

把以下代码保存为GETXX.cls文件，然后在VBA中导入就可以使用其中的函数了。

thankyou

谢谢管理员！

myfreemind

感谢MCCAD

clement

3KS

fourstone

非常好！！！！

subtlation

下载了，但是不知道怎么用，以前一直没有用过类模块。
版主能不能举个应用的小例子？谢谢

mccad

2. Dim GetX As GetXX
   
3. Set GetX = New GetXX
   
4. Set GetX.Application = ThisDrawing.Application
   
5. Dim pnt As Variant
   
6. pnt = GetX.GetPoint(GETXX_NOPICK, , "请选择一个点：")
   

Dim GetX As GetXX<br /> Set GetX = New GetXX<br /> Set GetX.Application = ThisDrawing.Application<br /> Dim pnt As Variant<br /> pnt = GetX.GetPoint(GETXX_NOPICK, , "请选择一个点：")<br />

h_lon

感谢明老大

my_computer

好文件