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

14373

这是高手给我的两个直线的倒圆角的做法:
# f0 J* R- S1 ^) A- {0 r# \几何法:
0 N  Y+ Z( \" ?: ~9 J
先获得两条直线与X轴的夹角A1和A2
再获得两条直线的交点P0
已知圆角半径R
# q: I' ^- @. h# p用三角函数sin和cos求出直线和圆角的弧的交点（切点）坐标P1和P2
再修改两条直线的端点座标为P1和P2
! w* A: E" O9 |- ~再画圆弧


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

woaishuijia

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

14373

2# woaishuijia
不好意思,我不知道,能讲吗?
3 _1 }$ B' A( x) [# [9 V9 v6 y  {& b) p我想也许你可以用命令画出来,然后再用Sendcommand发送命令,我现在最关键的问题是,不知道如何发送命令选择对象,比如用命令选择用VBA画出的圆circle1和直线Line2,请赐教!

14373

http://bbs.mjtd.com/thread-64071-1-1.html
5 I% X$ }8 r8 M) y/ X这个我一直不太懂!

sunpeng0201

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

woaishuijia

3# 14373
& ~$ Z3 e; B1 T7 |这是基本的几何作图啊
以圆角半径为偏移距离分别偏移已知圆和直线,得到辅助圆和辅助直线,其交点即为圆角弧的圆心.以此点为圆心,以圆角半径为半径画第二个辅助圆,其与已知圆和已知直线的交点(其实是切点)即为圆角弧的起点和端点.画好圆角弧后删除辅助直线和两个辅助圆即可.
按不同的偏移方向,最多可能得到8个圆角弧的圆心,具体哪个合适,要根据具体情况判断.
求两直线的圆角也是这个道理.
- Q- g% ^! O, u; F7 n; e+ C  L明经帖子中的方法是向CAD命令行发送LSP代码调用CAD的圆角命令.学会LISP就能看懂.

14373

6# woaishuijia
9 `/ f9 Y+ N1 m( L' H哦,谢谢!
5 T+ l' P$ X: p0 }4 r9 D哎!! 我一直以为可以同时选择圆和直线,然后发送倒圆角命令,所以根本没往这么曲折复杂迂回坎坷的道路上想,为什么这么常用又不复杂的命令,还要中转到最基本的求交点比大小上来呢,为什么不更新出这样的功能?是不是AutoCAD的VBA一直要停留在最原始的阶段了呢?