已知圆弧的起点、终点和弧长(或者弦高、或者弓弦比)求半径和圆心

;已知圆弧的起点、终点和弧长(或者弦高、或者弓弦比)求半径和圆心
;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: 测量