[LISP程序]：如何用程序获得多义线圆弧段的半径？

kohi

如何用程序获得多义线圆弧段的半径？

Underway

2. ;;; SEG2CIR - converts a bulged segment (bulge pt1 pt2) of a polyline
   
3. ;;;   to a circle (ctr rad), the start- and endpoints are known
   
4. ;;;   therefore the angles too: (angle ctr pt1)(angle ctr pt2)
   
5. ;;; returns nil on a straight segment!
   
6. ;;; (bugfixed version. Thanks to Sergei Komarov)
   
7. (defun seg2cir (seg / bulge p1 p2 cot x y rad dummy)
   
8.   (if (zerop (car seg)) ;_straight line => invalid circle
   
9.     nil
   
10.     (setq bulge        (car seg)
    
11.           p1        (cadr seg)
    
12.           p2        (caddr seg)
    
13.           cot        (* 0.5 (- (/ 1.0 bulge) bulge))
    
14.           x        (/ (- (+ (car p1) (car p2))
    
15.                       (* (- (cadr p2) (cadr p1)) cot)
    
16.                    )
    
17.                    2.0
    
18.                 )
    
19.           y        (/ (+ (+ (cadr p1) (cadr p2))
    
20.                       (* (- (car p2) (car p1)) cot)
    
21.                    )
    
22.                    2.0
    
23.                 )
    
24.           rad        (distance (list (car p1) (cadr p1)) (list x y))
    
25.           dummy        (list (list x y) rad)
    
26.     )
    
27.   )
    
28. ) ;_return this, I hate progn's
    

;;; SEG2CIR - converts a bulged segment (bulge pt1 pt2) of a polyline <br /> ;;;   to a circle (ctr rad), the start- and endpoints are known <br /> ;;;   therefore the angles too: (angle ctr pt1)(angle ctr pt2) <br /> ;;; returns nil on a straight segment! <br /> ;;; (bugfixed version. Thanks to Sergei Komarov) <br /> (defun seg2cir (seg / bulge p1 p2 cot x y rad dummy)<br />   (if (zerop (car seg)) ;_straight line => invalid circle <br />     nil<br />     (setq bulge        (car seg)<br />           p1        (cadr seg)<br />           p2        (caddr seg)<br />           cot        (* 0.5 (- (/ 1.0 bulge) bulge))<br />           x        (/ (- (+ (car p1) (car p2))<br />                       (* (- (cadr p2) (cadr p1)) cot)<br />                    )<br />                    2.0<br />                 )<br />           y        (/ (+ (+ (cadr p1) (cadr p2))<br />                       (* (- (car p2) (car p1)) cot)<br />                    )<br />                    2.0<br />                 )<br />           rad        (distance (list (car p1) (cadr p1)) (list x y))<br />           dummy        (list (list x y) rad)<br />     )<br />   )<br /> ) ;_return this, I hate progn's<br />

info: comp.cad.autocad AutoLISP FAQ (part 2/2) - samples, code

fsxm

供参考:
1法:nentsel
2法:标半径,取值,删标注

eachy

对 Bulge 非 0 的点求 vlax-curve-getsecondderiv ，'(0. 0.) 与其 Distance 即为 Rad

xyz518mm

最初由 Underway 发布
[B][code];;; SEG2CIR - converts a bulged segment (bulge pt1 pt2) of a polyline
;;;   to a circle (ctr rad), the start- and endpoints are known
;;;   therefore the angles too: (angle ctr pt1)(angle ct... [/B]

请教 seg  是带入哪个值呢?
图元吗?还是其他...
烦请可以来各范例说明一下
谢谢

kohi

;10/09/06
(defun arcsofpline (pline / pts n dis r rs j)
  (setq pts (acet-geom-vertex-list pline))
  (setq n 0)
  (foreach j (vl-remove-if '(lambda (x)(/= (car x) 42))(entget pline))
    (if (and (= (car j) 42)(/= (cdr j) 0))
      (setq dis (distance (nth n pts)(nth (1+ n) pts))
              r (/ dis 2 (sin (* 2 (atan (cdr j)))))
             rs (append rs (list (rtos r 2 2))))
    );if
    (setq n (1+ n))
  );f
  rs
)

Underway

(setq bulge        (car seg)
          p1        (cadr seg)
          p2        (caddr seg)
---snip

seg ==> (bulge point1 point2)
圆弧段 (凸度 起点 终点)

ubzbh

最初由 eachy 发布
[B]对 Bulge 非 0 的点求 vlax-curve-getsecondderiv ，'(0. 0.) 与其 Distance 即为 Rad [/B]

能举个例子吗？