[VBA]求一个使用GETXX类方法的例子。

Theace

本站的VLAX和CURVE类很好用。
在本站下载GETXX类后，不知如何使用。搞不清lError参数的意义。
向大侠们求几个例子。例如如何使用GetPoint方法、GetEntity方法、SelectOnScreen方法。

subtlation

这是明总给我的例子，复制给你看看

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, , "请选择一个点：")