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

14373

这是高手给我的两个直线的倒圆角的做法:
0 v0 }) C6 F! B! g7 o几何法:
" U% ^  t% X3 C& B. a
先获得两条直线与X轴的夹角A1和A2
再获得两条直线的交点P0
4 {* s) L6 H9 `& L# [5 p  H已知圆角半径R
% |3 z: s7 H* o& Y( ]: p: F/ a用三角函数sin和cos求出直线和圆角的弧的交点（切点）坐标P1和P2
再修改两条直线的端点座标为P1和P2
1 z2 U/ P& x1 m9 [: z7 v再画圆弧
% O: N0 n; z2 d+ N
4 V" M$ q* F: a5 D7 i/ \
我现在要求一个直线和圆(两者交叉)的倒圆角,求指点!

woaishuijia

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

14373

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

14373

http://bbs.mjtd.com/thread-64071-1-1.html
0 i2 h$ p0 Q  }- A3 A4 n7 s这个我一直不太懂!

sunpeng0201

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

woaishuijia

3# 14373
, W4 }  d( J! d* V6 m这是基本的几何作图啊
# N& \" I5 }5 U" Q: \& G以圆角半径为偏移距离分别偏移已知圆和直线,得到辅助圆和辅助直线,其交点即为圆角弧的圆心.以此点为圆心,以圆角半径为半径画第二个辅助圆,其与已知圆和已知直线的交点(其实是切点)即为圆角弧的起点和端点.画好圆角弧后删除辅助直线和两个辅助圆即可.
& u. P0 |* J6 }0 h按不同的偏移方向,最多可能得到8个圆角弧的圆心,具体哪个合适,要根据具体情况判断.
( |1 W/ P7 v# Y: y求两直线的圆角也是这个道理.
明经帖子中的方法是向CAD命令行发送LSP代码调用CAD的圆角命令.学会LISP就能看懂.

14373

6# woaishuijia
% R1 m- g) v8 \$ U$ T5 [哦,谢谢!
9 K0 P$ j. n# L# D& d9 j" u哎!! 我一直以为可以同时选择圆和直线,然后发送倒圆角命令,所以根本没往这么曲折复杂迂回坎坷的道路上想,为什么这么常用又不复杂的命令,还要中转到最基本的求交点比大小上来呢,为什么不更新出这样的功能?是不是AutoCAD的VBA一直要停留在最原始的阶段了呢?