;1.到“下载”网页中下载文件“bjyx.vlx”
; 并存到“G”盘中，如存入其它地方，
; 请更改程序中第二中的相应路径名。
;2.文件“bjyx.vlx”中包含以下三个函数：
; (1)已知圆弧起点、终点和弓弦比，求半径和圆心 "bjyx0"；
; (2)已知圆弧起点、终点和弓高，求半径和圆心 "bjyx1"；
; (3)已知圆弧起点、终点和弧长，求半径和圆心 "bjyx2"。
;3.规定：
; (1)由起点沿着圆弧向终点方向，圆弧向左转的弓弦比、弓高和弧长均输入负值；
; (2)由起点沿着圆弧向终点方向，圆弧向右转的弓弦比、弓高和弧长均输入正值。
;4.调用方式：
; (1) (bjyx0 起点 终点 弓弦比)
; (2) (bjyx1 起点 终点 弓高)
; (3) (bjyx2 起点 终点 弧长)
;5.返回值：(半径 圆心)
;6.在Auto CAD中加载以下测试程序，按要求输入数据即可
;6.算例
; (1) 起点 x=184.2344 y=228.7468
; 终点 x=253.9234 y= 229.0668
; 选择0
; 弓弦比 0.470903
; 返回值 (45.2033 (219.3227 199.9785))
; (2) 起点 x=253.9234 y= 229.0668
; 终点 x=184.2344 y=228.7468
; 选择0
; 弓弦比 -0.470903
; 返回值 (45.2034 (219.3227 199.9784))
; (3) 起点 x=184.2344 y=228.7468
; 终点 x=253.9234 y= 229.0668
; 选择1
; 弓弦比 16.409
; 返回值 (45.2034 (219.3227 199.9785))
; (4) 起点 x=253.9234 y= 229.0668
; 终点 x=184.2344 y=228.7468
; 选择1
; 弓弦比 -16.409
; 返回值 (45.2033 (219.3227 199.9785))
; (5) 起点 x=184.2344 y=228.7468
; 终点 x=253.9234 y= 229.0668
; 选择2
; 弓弦比 79.5761
; 返回值 (45.2032 (219.3227 199.9787))
; (6) 起点 x=253.9234 y= 229.0668
; 终点 x=184.2344 y=228.7468
; 选择2
; 弓弦比 -79.5761
; 返回值 (45.2037 (219.3227 199.9787))
(defun c:cc()
(if (null "bjyx0.vlx")(load "g:bjyx.vlx"));请注意文件“bjyx.vlx”存盘路径名
(setq p1 (getpoint "\n请输入圆弧起点:")
p2 (getpoint p1 "\n请输入圆弧终点:")
)
(initget 1 "0 1 2")
(setq nbz (getkword "\n请选择弓弦比(0)/弓高(1)/弧长(2):")
l (cond ((= nbz "0") (getreal "\n请输入圆弧的弓弦比="))
((= nbz "1") (getreal "\n请输入圆弧的弓高="))
((= nbz "2") (getreal "\n请输入圆弧的长度="))
)
zb (eval (read (strcat "(bjyx" nbz " p1 p2 l)")))
)
)
TAG: 测量
发表评论
【声明】 路桥吾爱刊载的资讯及其他内容均由网友提供分享 并且纯属作者个人观点，不表示路桥吾爱同意其说法或描述，仅为提供更多信息，也不构成任何建议。网友转载请注明原作者姓名及出处。如有侵犯到您的版权,请与我们联系，我们会马上进行重新整理!
