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

yshf

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

wei209

下来玩玩!

yxp

呵呵下工夫了，弄的这么复杂啊。

如果用CAD画出来再捕捉的话，你的代码是不是能大大缩短？

zhoudezhon

下来学习,

scyzzhiqihua

学习学习。

birdhot

好东西，可以用，多谢