[求助]addline的命令执行后出现无数据库的错误

bblfns

Dim Spoint As Variant
Dim Epoint As Variant

rmd1 = "输入起点"
rmd2 = "输入终点"

Spoint = ThisDrawing.Utility.GetPoint(, rmd1)
Epoint = ThisDrawing.Utility.GetPoint(Spoint, rmd2)
ThisDrawing.ModelSpace.AddLine Spoint, Epoint

各位老大：

上述代码在执行之ThisDrawing.ModelSpace.AddLine Spoint, Epoint时出现了如下错误，

运行时错误'-2145386390(8020006a)';

无数据库

请问各位对此有何高见，怎么处理？

多谢了