怎么用VBA求直线和圆的倒圆角呢?

14373

这是高手给我的两个直线的倒圆角的做法:
! c3 ]( N" _4 O5 A! H7 T几何法:
! U: e* }7 Z8 {( \: V, r
先获得两条直线与X轴的夹角A1和A2
再获得两条直线的交点P0
已知圆角半径R
用三角函数sin和cos求出直线和圆角的弧的交点（切点）坐标P1和P2
: t2 J& ^. Q! S& v/ w5 N: O! l# n再修改两条直线的端点座标为P1和P2
再画圆弧
3 n! e9 b8 V6 u5 K6 U0 z, ?* z

我现在要求一个直线和圆(两者交叉)的倒圆角,求指点!

woaishuijia

假如CAD没有圆角命令，你会用什么方法画出来呢？

14373

2# woaishuijia
不好意思,我不知道,能讲吗?
我想也许你可以用命令画出来,然后再用Sendcommand发送命令,我现在最关键的问题是,不知道如何发送命令选择对象,比如用命令选择用VBA画出的圆circle1和直线Line2,请赐教!

14373

http://bbs.mjtd.com/thread-64071-1-1.html
% P0 @3 }3 i$ J. U% C9 }9 a* [这个我一直不太懂!

sunpeng0201

期待高手解答，以前用别的软件做三维，现在学着用cad做，

woaishuijia

3# 14373
这是基本的几何作图啊
以圆角半径为偏移距离分别偏移已知圆和直线,得到辅助圆和辅助直线,其交点即为圆角弧的圆心.以此点为圆心,以圆角半径为半径画第二个辅助圆,其与已知圆和已知直线的交点(其实是切点)即为圆角弧的起点和端点.画好圆角弧后删除辅助直线和两个辅助圆即可.
按不同的偏移方向,最多可能得到8个圆角弧的圆心,具体哪个合适,要根据具体情况判断.
2 u: [1 o3 H  h$ ]+ g6 d求两直线的圆角也是这个道理.
明经帖子中的方法是向CAD命令行发送LSP代码调用CAD的圆角命令.学会LISP就能看懂.

14373

6# woaishuijia
2 Q# Z# l4 l8 T/ U0 \+ q哦,谢谢!
% h1 f+ \& u( @5 P( V哎!! 我一直以为可以同时选择圆和直线,然后发送倒圆角命令,所以根本没往这么曲折复杂迂回坎坷的道路上想,为什么这么常用又不复杂的命令,还要中转到最基本的求交点比大小上来呢,为什么不更新出这样的功能?是不是AutoCAD的VBA一直要停留在最原始的阶段了呢?