例题求解!

jimmy8135

前几天选修老师布置道作业,小弟有困难问问大家:

题目如下:输入p1,p2点,求得以这2点为顶点的正三角形,然后在正三角型内部画出与三角形边相切,而且又相互相切的3个圆,求出圆的面积,然后保存文件.

我想问问如何画这3个圆?和求面积?

十分感谢!

shicai

这不是平面几何的问题吗?! 先作出各边的中点, 再由中点做与该边成45度的角线, 其与相邻中线的交点即所求圆心,画出园后由list命令求出面积.或用解析法一步一步计算.

jimmy8135

这个平面方法没看到过
呵呵,见笑了...
得到p1,p2点,求中点p3,同时得正三角形另一点p4,再求p2,p4中点p5,以p3为起点,p1p2角度减45交于p1p5
如何取得交点?用何命令?

jimmy8135

题目是做出来了
可是用解析法做的
实在有点...
还是请大家指点如何求交点?

leeyeafu

;分号后的文字为注释
命令: _polygon 输入边的数目 <4>: 3
指定正多边形的中心点或 [边(E)]: e 指定边的第一个端点: 指定边的第二个端点:   ;在这我随意给了两点
命令: x EXPLODE   ;炸开目的为了对其中一条线操作
选择对象: 找到 1 个  ;选择三角形
命令: _rotate
UCS 当前的正角方向:  ANGDIR=逆时针  ANGBASE=0
选择对象: 找到 1 个   ;选择三角形一条边
选择对象:
指定基点: mid 于    ;被选择边的中点
指定旋转角度或 [参照(R)]: 45
命令: _line 指定第一点:  ;重画三角形边
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: _rotate    ;这次旋转是画三角形角平分线
UCS 当前的正角方向:  ANGDIR=逆时针  ANGBASE=0
选择对象: 找到 1 个
选择对象:
指定基点: end 于
指定旋转角度或 [参照(R)]: -30
命令: _line 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: _circle 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]: int 于   ;45度线与30度线的交点
指定圆的半径或 [直径(D)]: per 到     ;三角形边上的垂足点
命令: _circle 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]: t
指定对象与圆的第一个切点:
指定对象与圆的第二个切点:
指定圆的半径 <34.6019>:   ;不指定，用上次画的半径
命令:  CIRCLE 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]: t
指定对象与圆的第一个切点:
指定对象与圆的第二个切点:
指定圆的半径 <34.6019>:
；至于45度和30度的计算方法用初等几何就能解决，在此略过

jimmy8135

前提忘说了
是用autolisp编,不是手绘...