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

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

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

wyj7485 发表于 2005-5-31 14:49:00

把对象捕捉关掉啊!

ppqqmsn 发表于 2005-5-31 19:02:00

哈哈,又是你帮我解决问题! 怎么谢你呀?<br>
不过,我这回用的方法,不是关闭 对象捕捉<br>
而是,把俩段画圆弧代码分开写<br>
中间放一些 画直线的代码,也解决了问题.<br>
呵呵 虽然代码的可读性差了, 反正 怎么写老师也看不懂(我是机械系的) 哈哈哈哈哈.<br>
<br>

ppqqmsn 发表于 2005-5-31 19:04:00

我的qq       17002351<br>
        有空能聊聊吗?               加我的话       附消息 " mjtd " 即可<br>
<br>

houlinbo 发表于 2005-6-1 14:05:00

正确格式是:123,123,123


必须以英文逗号间隔，须3个数

ppqqmsn 发表于 2005-6-2 16:39:00

多谢 各位的关心!<br>
毕业设计完了 一定 常来逛!<br>
为这个论坛,增加人气<br>
<br>
页: [1]
查看完整版本: [求助]如下代码画圆弧时cad命令行老是提示点无效!!