[求助]：圆曲线要素自动生成程序

bagpipe80

不知道有否？或是哪位大师帮一帮忙
具体入图，图中亮显的是该圆曲线，
α——路线转角（单位度）
R——曲线半径
E——曲线外矩
T——切线长
L——曲线长 （图中忘标了，就是亮显的那段曲线）
还有顶点坐标 （地理坐标系）
每个圆曲线都相对着不同的曲线要素，有没有什么程序能直接把这些值测出来，然后生成一个如左侧的表 （图中数据为示意）
谢谢！谢谢！

另：T=R*tan(a/2)      L=R*a*pai/180   R=T*ctg(a/2)   E=R*(sec(a/2)-1))
不过用计算机可以直接量图，没有算过，不知道对不对—_—0

bagpipe80

找了一张示意图
ZY--直圆交点    YZ--圆直交点  QZ--曲线中点

jinsong-liao

我也一直不知道多义线中圆曲线要素如何用LISP提取出来，请高手们帮帮忙！

xyp1964

只针对圆弧（ARC）：
程序修改后，在楼下。

xyp1964

效果：

bagpipe80

xyp1964  真强，谢谢！真的是谢谢，等了几天都没有人能搞定，都放弃了，今天早上已经用Excel 建了个公式准备下午开始手动计算，看来来得早不如来的巧，可以省事了，厚厚厚厚
再提几个问题：）））
1. 我的图中标注好像不像你所示那样听话。（其实出图图中不用标注，只用成你下边那个表再加JD交点坐标就行）
2. 能不能把要素的精度精确到小数后3位。（介个精度有要求，能否烦劳再改一下，期待ing……

xyp1964

再修改标注BUG，再试。
要想标详细内容，命令：yqxys1

bagpipe80

再次谢谢，完全符合要求，但是发现几个技术问题，如图
半径或是外距有时有误，不知道什么原因，具体见图

xyp1964

最初由 bagpipe80 发布
[B]再次谢谢，完全符合要求，但是发现几个技术问题，如图
半径或是外距有时有误，不知道什么原因，具体见图 [/B]

交点求法有误，方向有时相反，导致E值增加直径数。
夹角增加是否大于360度的判断，如果是，就减360。

修改程序见7楼。

bagpipe80

哇，你的动作也忒快了吧，十分感谢
刚才发现我的标注层变成绿色了，所有标注都是绿色了，
这也有点霸道了哈，——开玩笑

颜色问题纯属巧合，标注层改为数据层，颜色4。by xyp1964[/COLOR]