|
|
Dim pnt_fs As Variant
If pnt_fs Is Empty Then pnt_fs = ThisDrawing.Utility.GetPoint(, "选择俯视图中心点: ")
If pnt_fs Is Nothing Then pnt_fs = ThisDrawing.Utility.GetPoint(, "选择俯视图中心点: ")
If pnt_fs Is VBNull Then pnt_fs = ThisDrawing.Utility.GetPoint(, "选择俯视图中心点: ")
If pnt_fs = Empty Then pnt_fs = ThisDrawing.Utility.GetPoint(, "选择俯视图中心点: ")
If pnt_fs = null Then pnt_fs = ThisDrawing.Utility.GetPoint(, "选择俯视图中心点: ")
If pnt_fs ="" Then pnt_fs = ThisDrawing.Utility.GetPoint(, "选择俯视图中心点: ")
以上全部试过了，没招了。基本都是类型不匹配或要求对象的错误，当然强行弄也能弄出来，就是加个if err语句，出错就是没赋值，但这样也太难看了，有没有正统的办法。
|
|
置顶卡
