[求助]如下代码画圆弧时cad命令行老是提示点无效!!

ppqqmsn · 发表于 2005-5-31 13:09:00

acadDoc.SendCommand "a" & vbCr & "(setq p(list " & pt15(0) & " " & pt15(1) & "))" & _
   vbCr & "(setq p(list " & pt22(0) & " " & pt22(1) & "))" & vbCr & _
   "(setq p(list " & pt13(0) & " " & pt13(1) & "))" & vbCr

   acadDoc.SendCommand "a" & vbCr & "(setq p(list " & pt21(0) & " " & pt21(1) & "))" & _
   vbCr & "(setq p(list " & pt20(0) & " " & pt20(1) & "))" & vbCr & _
   "(setq p(list " & pt15(0) & " " & pt15(1) & "))" & vbCr
以上是代码,其中所有的点都定义了, 以下是cad命令行中的提示,但是我只要在cad中把所画图形删除,再点一下我做的程序中的画图按钮,就不提示" *无效* ", 俩个圆弧都乖乖的画出来.
急啊 !!!毕业设计演示的时候总不能先删再画啊!!    望各位大侠救急啊!!!!
命令: a
ARC 指定圆弧的起点或 [圆心(C)]: (setq p(list 940.892187110719 383.221419698933))
(940.892 383.221)
指定圆弧的第二个点或 [圆心(C)/端点(E)]: (setq p(list 936.642187110719
376.581891603252))
(936.642 376.582)
指定圆弧的端点: (setq p(list 940.892187110719 369.942363507571))
(940.892 369.942)
命令: a
ARC 指定圆弧的起点或 [圆心(C)]: (setq p(list 940.892187110719 409.779532081655))
(940.892 409.78)
指定圆弧的第二个点或 [圆心(C)/端点(E)]: (setq p(list 936.642187110719
396.500475890294))
(936.642 396.5)
指定圆弧的端点: (setq p(list 940.892187110719 383.221419698933))
(940.892 383.221)
*无效*