|
|
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)';
无数据库
请问各位对此有何高见，怎么处理？
多谢了 |
|
置顶卡
