[求助]如下代码画圆弧时cad命令行老是提示点无效!!
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)
*无效*
把对象捕捉关掉啊! 哈哈,又是你帮我解决问题! 怎么谢你呀?
不过,我这回用的方法,不是关闭 对象捕捉
而是,把俩段画圆弧代码分开写
中间放一些 画直线的代码,也解决了问题.
呵呵 虽然代码的可读性差了, 反正 怎么写老师也看不懂(我是机械系的) 哈哈哈哈哈.
我的qq 17002351
有空能聊聊吗? 加我的话 附消息 " mjtd " 即可
正确格式是:123,123,123
必须以英文逗号间隔，须3个数 多谢 各位的关心!
毕业设计完了 一定 常来逛!
为这个论坛,增加人气
页:
[1]