[求助]：求一个扇形LISP

断点

求一个扇形LISP
知道两个弧线长和它们之间距离。
      谢谢！

yshf

;已知扇形的两弧线长及两弧线间距，画扇形
;注意未加入能组成扇形的条件判断
(defun c:cc()
    (setq os (getvar "osmode")
          l1 (getreal "\n弧长1:")
          l2 (getreal "\n弧长2:")
          d  (getdist "\n 两弧线间距:")
          ll (abs (- l1 l2))
          r1 (/ (* l1 d) ll)
          r2 (/ (* l2 d) ll)
          b1 (/ l1 r1)
          b2 (/ l2 r2)
          pt (getpoint "\npt:")
    )
    (setvar "osmode" 0)
    (command "_pline"  (polar pt 0 r1) "a" "s"  (polar pt (* 0.5 b1) r1) (polar pt b1 r1)
                      "l" (polar pt b2 r2) "a" "s" (polar pt (* 0.5 b2) r2) (polar pt 0 r2)
                      "l" "c"
    )
    (setvar "osmode" os)(princ)
)

断点

谢谢yshf    非常好用，谢谢
yshf 高手，能不能在增加一点，两个弧线的中心连线(连线不用画出来），为Y方向。谢谢

yshf

;已知扇形的两弧线长及两弧线间距，画扇形
;注意未加入能组成扇形的条件判断
(defun c:cc()
(setq os (getvar "osmode")
l1 (getreal "\n弧长1:")
l2 (getreal "\n弧长2:")
d (getdist "\n 两弧线间距:")
ll (abs (- l1 l2))
r1 (/ (* l1 d) ll)
r2 (/ (* l2 d) ll)
b1 (/ l1 r1)
;b2 (/ l2 r2)
b1/2 (* 0.5 b1)
pi/2 (* 0.5 pi)
f1 (+ pi/2 b1/2)
f2 (- pi/2 b1/2)      
pt (getpoint "\npt:")
)
(setvar "osmode" 0)
;|
(command "_pline" (polar pt 0 r1) "a" "s" (polar pt (* 0.5 b1) r1) (polar pt b1 r1)
"l" (polar pt b2 r2) "a" "s" (polar pt (* 0.5 b2) r2) (polar pt 0 r2)
"l" "c"
)
|;
(command "_pline" (polar pt f1 r1) "a" "s" (polar pt pi/2 r1) (polar pt f2 r1)
"l" (polar pt f2 r2) "a" "s" (polar pt pi/2 r2) (polar pt f1 r2)
"l" "c"
)
(setvar "osmode" os)(princ)
)

断点

谢谢yshf。很好用！