已知圆心，起始点、终止点，求bulge

marting

1. (defun PPC-Bulge ( pt1 pt2 cen / a )
   
2.     (setq a (/ (rem (+ pi pi (- (angle cen pt2) (angle cen pt1))) (+ pi pi)) 4.0))
   
3.     (if (LM:clockwise-p pt2 cen pt1) (setq a (- a (/ pi 2.0))))
   
4.     (/ (sin a) (cos a))
   
5. )
   
6. 
   
7. ;; Clockwise-p  -  Lee Mac
   
8. ;; Returns T if p1,p2,p3 are clockwise oriented
   
9. 
   
10. (defun LM:clockwise-p ( p1 p2 p3 )
    
11.     (<  (* (- (car  p2) (car  p1)) (- (cadr p3) (cadr p1)))
    
12.         (* (- (cadr p2) (cadr p1)) (- (car  p3) (car  p1)))
    
13.     )
    
14. )
    

(defun PPC-Bulge ( pt1 pt2 cen / a )<br />     (setq a (/ (rem (+ pi pi (- (angle cen pt2) (angle cen pt1))) (+ pi pi)) 4.0))<br />     (if (LM:clockwise-p pt2 cen pt1) (setq a (- a (/ pi 2.0))))<br />     (/ (sin a) (cos a))<br /> )<br /> <br /> ;; Clockwise-p  -  Lee Mac<br /> ;; Returns T if p1,p2,p3 are clockwise oriented<br /> <br /> (defun LM:clockwise-p ( p1 p2 p3 )<br />     (<  (* (- (car  p2) (car  p1)) (- (cadr p3) (cadr p1)))<br />         (* (- (cadr p2) (cadr p1)) (- (car  p3) (car  p1)))<br />     )<br /> )<br />

测试：

1. (defun c:test ( / cen ocs pt1 pt2 )
   
2.     (if (and (setq pt1 (getpoint "\nStart point: "))
   
3.              (setq pt2 (getpoint "\nEnd point: " pt1))
   
4.              (setq cen (getpoint "\nCenter: "))
   
5.              (setq ocs (trans '(0 0 1) 1 0 t))
   
6.         )
   
7.         (entmake
   
8.             (list
   
9.                '(000 . "LWPOLYLINE")
   
10.                '(100 . "AcDbEntity")
    
11.                '(100 . "AcDbPolyline")
    
12.                '(090 . 2)
    
13.                '(070 . 0)
    
14.                 (cons 038 (caddr (trans pt1 1 ocs)))
    
15.                 (cons 010 (trans pt1 1 ocs))
    
16.                 (cons 042 (PPC-Bulge pt1 pt2 cen))
    
17.                 (cons 010 (trans pt2 1 ocs))
    
18.                 (cons 210 ocs)
    
19.             )
    
20.         )
    
21.     )
    
22.     (princ)
    
23. )
    

(defun c:test ( / cen ocs pt1 pt2 )<br />     (if (and (setq pt1 (getpoint "\nStart point: "))<br />              (setq pt2 (getpoint "\nEnd point: " pt1))<br />              (setq cen (getpoint "\nCenter: "))<br />              (setq ocs (trans '(0 0 1) 1 0 t))<br />         )<br />         (entmake<br />             (list<br />                '(000 . "LWPOLYLINE")<br />                '(100 . "AcDbEntity")<br />                '(100 . "AcDbPolyline")<br />                '(090 . 2)<br />                '(070 . 0)<br />                 (cons 038 (caddr (trans pt1 1 ocs)))<br />                 (cons 010 (trans pt1 1 ocs))<br />                 (cons 042 (PPC-Bulge pt1 pt2 cen))<br />                 (cons 010 (trans pt2 1 ocs))<br />                 (cons 210 ocs)<br />             )<br />         )<br />     )<br />     (princ)<br /> )<br />