小问题，难住了，关于变体变量有没有赋值

petty

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语句，出错就是没赋值，但这样也太难看了，有没有正统的办法。

nslove44202489

vartype，试一下，判断结过为vbempty