如何根据两端点和弧长画弧线？

lisp_beginner

如何根据两端点和弧长画弧线？

marting

1. (defun ArcStartEndLength (startPoint              endPoint        arcLength
   
2.                           /            newton    chord        ang
   
3.                           rad            mid              cen
   
4.                          )
   
5. 
   
6.   ;; use the Newton method to compute the arc half angle according to its length and chord
   
7.   (defun newton        (arc chord / k x)
   
8.     (setq k (/ chord arc)
   
9.           x (sqrt (- 6 (* 6 k)))
   
10.     )
    
11.     (repeat 6
    
12.       (setq x (- x (/ (- (sin x) (* k x)) (- (cos x) k))))
    
13.     )
    
14.   )
    
15. 
    
16.   (setq chord (distance startPoint endPoint))
    
17.   (if (< chord arcLength)
    
18.     (progn
    
19.       (setq ang        (newton arcLength chord)
    
20.             rad        (abs (/ chord 2. (sin ang)))
    
21.             mid        (mapcar        '(lambda (p1 p2) (/ (+ p1 p2) 2.0))
    
22.                         startPoint
    
23.                         endPoint
    
24.                 )
    
25.       )
    
26.       (if (equal (/ pi 2) ang 1e-009)
    
27.         (setq cen mid
    
28.               rad (/ chord 2.)
    
29.         )
    
30.         (setq
    
31.           cen (polar mid
    
32.                      (+ (angle startPoint endPoint) (/ pi 2))
    
33.                      (* rad (cos ang))
    
34.               )
    
35.         )
    
36.       )
    
37.       (entmakex
    
38.         (list
    
39.           (cons 0 "ARC")
    
40.           (cons 10 cen)
    
41.           (cons 40 rad)
    
42.           (cons 50 (angle cen startPoint))
    
43.           (cons 51 (angle cen endPoint))
    
44.         )
    
45.       )
    
46.     )
    
47.   )
    
48. )
    
49. (defun c:tt ()
    
50.   (if (and (setq len (getreal "\nArc Length<Quit>:"))
    
51.            (setq p1 (getpoint "\nStart point<Quit>:"))
    
52.            (setq p2 (getpoint p1 "\nEnd Point<Quit>:"))
    
53.       )
    
54.     (progn
    
55.       (ArcStartEndLength p1 p2 len)
    
56.     )
    
57.   )
    
58.   (princ)
    
59. )
    

(defun ArcStartEndLength (startPoint              endPoint        arcLength<br />                           /            newton    chord        ang<br />                           rad            mid              cen<br />                          )<br /> <br />   ;; use the Newton method to compute the arc half angle according to its length and chord<br />   (defun newton        (arc chord / k x)<br />     (setq k (/ chord arc)<br />           x (sqrt (- 6 (* 6 k)))<br />     )<br />     (repeat 6<br />       (setq x (- x (/ (- (sin x) (* k x)) (- (cos x) k))))<br />     )<br />   )<br /> <br />   (setq chord (distance startPoint endPoint))<br />   (if (< chord arcLength)<br />     (progn<br />       (setq ang        (newton arcLength chord)<br />             rad        (abs (/ chord 2. (sin ang)))<br />             mid        (mapcar        '(lambda (p1 p2) (/ (+ p1 p2) 2.0))<br />                         startPoint<br />                         endPoint<br />                 )<br />       )<br />       (if (equal (/ pi 2) ang 1e-009)<br />         (setq cen mid<br />               rad (/ chord 2.)<br />         )<br />         (setq<br />           cen (polar mid<br />                      (+ (angle startPoint endPoint) (/ pi 2))<br />                      (* rad (cos ang))<br />               )<br />         )<br />       )<br />       (entmakex<br />         (list<br />           (cons 0 "ARC")<br />           (cons 10 cen)<br />           (cons 40 rad)<br />           (cons 50 (angle cen startPoint))<br />           (cons 51 (angle cen endPoint))<br />         )<br />       )<br />     )<br />   )<br /> )<br /> (defun c:tt ()<br />   (if (and (setq len (getreal "\nArc Length<Quit>:"))<br />            (setq p1 (getpoint "\nStart point<Quit>:"))<br />            (setq p2 (getpoint p1 "\nEnd Point<Quit>:"))<br />       )<br />     (progn<br />       (ArcStartEndLength p1 p2 len)<br />     )<br />   )<br />   (princ)<br /> )<br />

lisp_beginner

谢谢大师，可行。

linlisos

marting 发表于 2017-3-21 11:38

cad2018用不了呢

xfange

marting 发表于 2017-3-21 11:38

菜鸟不会用啊，怎么画出来是个长方形，能不能说明一下操作步骤，