Bulge to Arc 和 Arc to Bulge

marting · 发表于 2021-1-14 12:26:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

;; Bulge to Arc - Lee Mac - mod by M.R.
;; p1 - start vertex
;; p2 - end vertex
;; b - bulge
;; Returns: (<center> <start angle> <end angle> <radius>)
(defun LM:Bulge->Arc (p1 p2 b / a c r)
(setq a (* 2 (atan (abs b)))
r (abs (/ (distance p1 p2) 2 (sin a)))
c (if (minusp b)
(polar p2 (+ (- (/ pi 2) a) (angle p2 p1)) r)
(polar p1 (+ (- (/ pi 2) a) (angle p1 p2)) r)
)
)
(list c (angle c p1) (angle c p2) r)
)

;; Arc to Bulge - Lee Mac - mod by M.R.
;; c - center
;; a1,a2 - start, end angle
;; r - radius
;; lw - LWPOLYLINE ename
;; Returns: (<vertex> <bulge> <vertex>)
(defun LM:Arc->Bulge (c a1 a2 r lw / data1 data2)
(if
(vl-member-if
'(lambda (x)
(equal (cdr x) (mapcar '+ '(0.0 0.0) (polar c a2 r)) 3e-2)
)
(cdr
(vl-member-if
'(lambda (x)
(equal (cdr x) (mapcar '+ '(0.0 0.0) (polar c a1 r)) 3e-2)
)
(entget lw)
)
)
)
(setq data1
(vl-member-if
'(lambda (x)
(equal (cdr x)
(mapcar '+ '(0.0 0.0) (polar c a1 r))
3e-2
)
)
(reverse (vl-member-if
'(lambda (x)
(equal (cdr x)
(mapcar '+ '(0.0 0.0) (polar c a2 r))
3e-2
)
)
(reverse (entget lw))
)
)
)
)
(setq data2
(vl-member-if
'(lambda (x)
(equal (cdr x)
(mapcar '+ '(0.0 0.0) (polar c a2 r))
3e-2
)
)
(reverse (vl-member-if
'(lambda (x)
(equal (cdr x)
(mapcar '+ '(0.0 0.0) (polar c a1 r))
3e-2
)
)
(reverse (entget lw))
)
)
)
)
)
(list
(if (and data1 (not data2))
(polar c a1 r)
(polar c a2 r)
)
(if (and data1 (not data2))
(if (minusp (cdr (assoc 42 (reverse data1))))
(if
(equal (cdr (assoc 42 (reverse data1)))
(- (abs ((lambda (x) (/ (sin x) (cos x)))
(/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0)
)
)
)
3e-2
)
(- (abs ((lambda (x) (/ (sin x) (cos x)))
(/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0)
)
)
)
(/ 1
(- (abs ((lambda (x) (/ (sin x) (cos x)))
(/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0)
)
)
)
)
)
(if (equal (cdr (assoc 42 (reverse data1)))
(abs ((lambda (x) (/ (sin x) (cos x)))
(/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0)
)
)
3e-2
)
(abs ((lambda (x) (/ (sin x) (cos x)))
(/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0)
)
)
(/ 1
(abs ((lambda (x) (/ (sin x) (cos x)))
(/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0)
)
)
)
)
)
(if (minusp (cdr (assoc 42 (reverse data2))))
(if
(equal (cdr (assoc 42 (reverse data2)))
(- (abs ((lambda (x) (/ (sin x) (cos x)))
(/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0)
)
)
)
3e-2
)
(- (abs ((lambda (x) (/ (sin x) (cos x)))
(/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0)
)
)
)
(/ 1
(- (abs ((lambda (x) (/ (sin x) (cos x)))
(/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0)
)
)
)
)
)
(if (equal (cdr (assoc 42 (reverse data2)))
(abs ((lambda (x) (/ (sin x) (cos x)))
(/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0)
)
)
3e-2
)
(abs ((lambda (x) (/ (sin x) (cos x)))
(/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0)
)
)
(/ 1
(abs ((lambda (x) (/ (sin x) (cos x)))
(/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0)
)
)
)
)
)
)
;;; This should be either equal to abs or (- abs) of ( (lambda ( x ) (/ (sin x) (cos x))) (/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0) )
(if (and data1 (not data2))
(polar c a2 r)
(polar c a1 r)
)
)
)

;; Arc to Bulge  -  Lee Mac - mod by M.R. 
;; c     - center 
;; a1,a2 - start, end angle 
;; r     - radius 
;; lw    - LWPOLYLINE ename 
;; Returns: (<vertex> <bulge> <vertex>) 
 
(defun LM:Arc->Bulge (c a1 a2 r lw / data1 data2) 
 
  (if 
    (vl-member-if 
      '(lambda (x) 
         (equal (cdr x) (mapcar '+ '(0.0 0.0) (polar c a2 r)) 3e-2) 
       ) 
      (cdr 
        (vl-member-if 
          '(lambda (x) 
             (equal (cdr x) (mapcar '+ '(0.0 0.0) (polar c a1 r)) 3e-2) 
           ) 
          (entget lw) 
        ) 
      ) 
    ) 
     (setq data1 
            (vl-member-if 
              '(lambda (x) 
                 (equal        (cdr x) 
                        (mapcar '+ '(0.0 0.0) (polar c a1 r)) 
                        3e-2 
                 ) 
               ) 
              (reverse (vl-member-if 
                         '(lambda (x) 
                            (equal (cdr x) 
                                   (mapcar '+ '(0.0 0.0) (polar c a2 r)) 
                                   3e-2 
                            ) 
                          ) 
                         (reverse (entget lw)) 
                       ) 
              ) 
            ) 
     ) 
     (setq data2 
            (vl-member-if 
              '(lambda (x) 
                 (equal        (cdr x) 
                        (mapcar '+ '(0.0 0.0) (polar c a2 r)) 
                        3e-2 
                 ) 
               ) 
              (reverse (vl-member-if 
                         '(lambda (x) 
                            (equal (cdr x) 
                                   (mapcar '+ '(0.0 0.0) (polar c a1 r)) 
                                   3e-2 
                            ) 
                          ) 
                         (reverse (entget lw)) 
                       ) 
              ) 
            ) 
     ) 
  ) 
 
  (list 
    (if        (and data1 (not data2)) 
      (polar c a1 r) 
      (polar c a2 r) 
    ) 
    (if        (and data1 (not data2)) 
      (if (minusp (cdr (assoc 42 (reverse data1)))) 
        (if 
          (equal (cdr (assoc 42 (reverse data1))) 
                 (- (abs ((lambda (x) (/ (sin x) (cos x))) 
                           (/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0) 
                         ) 
                    ) 
                 ) 
                 3e-2 
          ) 
           (- (abs ((lambda (x) (/ (sin x) (cos x))) 
                     (/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0) 
                   ) 
              ) 
           ) 
           (/ 1 
              (- (abs ((lambda (x) (/ (sin x) (cos x))) 
                        (/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0) 
                      ) 
                 ) 
              ) 
           ) 
        ) 
        (if (equal (cdr (assoc 42 (reverse data1))) 
                   (abs        ((lambda (x) (/ (sin x) (cos x))) 
                          (/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0) 
                        ) 
                   ) 
                   3e-2 
            ) 
          (abs ((lambda (x) (/ (sin x) (cos x))) 
                 (/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0) 
               ) 
          ) 
          (/ 1 
             (abs ((lambda (x) (/ (sin x) (cos x))) 
                    (/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0) 
                  ) 
             ) 
          ) 
        ) 
      ) 
      (if (minusp (cdr (assoc 42 (reverse data2)))) 
        (if 
          (equal (cdr (assoc 42 (reverse data2))) 
                 (- (abs ((lambda (x) (/ (sin x) (cos x))) 
                           (/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0) 
                         ) 
                    ) 
                 ) 
                 3e-2 
          ) 
           (- (abs ((lambda (x) (/ (sin x) (cos x))) 
                     (/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0) 
                   ) 
              ) 
           ) 
           (/ 1 
              (- (abs ((lambda (x) (/ (sin x) (cos x))) 
                        (/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0) 
                      ) 
                 ) 
              ) 
           ) 
        ) 
        (if (equal (cdr (assoc 42 (reverse data2))) 
                   (abs        ((lambda (x) (/ (sin x) (cos x))) 
                          (/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0) 
                        ) 
                   ) 
                   3e-2 
            ) 
          (abs ((lambda (x) (/ (sin x) (cos x))) 
                 (/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0) 
               ) 
          ) 
          (/ 1 
             (abs ((lambda (x) (/ (sin x) (cos x))) 
                    (/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0) 
                  ) 
             ) 
          ) 
        ) 
      ) 
    ) 
;;; This should be either equal to abs or (- abs) of ( (lambda ( x ) (/ (sin x) (cos x))) (/ (rem (+ pi pi (- a2 a1)) (+ pi pi)) 4.0) ) 
    (if        (and data1 (not data2)) 
      (polar c a2 r) 
      (polar c a1 r) 
    ) 
  ) 
)

帐号		自动登录	找回密码
密码			立即注册

[每日一码] Bulge to Arc 和 Arc to Bulge

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。