bblfns 发表于 2007-9-4 23:02:00

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

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)';
无数据库
请问各位对此有何高见，怎么处理？
多谢了
页: [1]
查看完整版本: [求助]addline的命令执行后出现无数据库的错误