获得lwpolyline多段线圆心和半径

表骑马实开车

2. <div class="blockcode"><blockquote>(defun c:vv (/ os s edt plst p1 p2 b cp rd)
   
3.   (setq os (getvar "osmode"))
   
4.   (setvar "osmode" 0)
   
5.   (while (not (setq s (ssget "_+.:E:S" '((0 . "lwpolyline")))))
   
6.   )
   
7.   (setq  edt  (entget (ssname s 0))
   
8.   plst (vertex edt)
   
9.   p1   (assoc 10 plst)
   
10.   b    (cdr (assoc 42 plst))
    
11.   p2   (cdr (assoc 10 (cdr (member p1 plst))))
    
12.   )
    
13.   (if (null b)
    
14.     (progn (princ "\n选择为直线."))
    
15.     (progn (setq cp (trans (LM:bulgecentre (cdr p1) p2 b)
    
16.          (cdr (assoc 210 edt))
    
17.          1
    
18.         )
    
19.      rd (LM:bulgeradius (cdr p1) p2 b)
    
20.      )
    
21.      (command "circle" cp 60)
    
22.     )
    
23.   )
    
24.   (princ (strcat "\n半径为:" (rtos rd 2 0)))
    
25.   (setvar "osmode" os)
    
26.   (princ)
    
27. )
    
28. 
    
29. 
    
30. ;;顶点/凸度
    
31. (defun vertex (et)
    
32.   (vl-remove-if-not
    
33.     '(lambda (x)
    
34.        (or (= (car x) 10)
    
35.      (and (= (car x) 42) (not (zerop (cdr x))))
    
36.        )
    
37.      )
    
38.     et
    
39.   )
    
40. )
    
41. 
    
42. ;;半径
    
43. ;;By Lee Mac
    
44. (defun LM:bulgeradius (p1 p2 b)
    
45.   (/ (* (distance p1 p2) (1+ (* b b))) 4 (abs b))
    
46. )
    
47. 
    
48. ;;圆心
    
49. ;;By Lee Mac
    
50. (defun LM:bulgecentre (p1 p2 b)
    
51.   (polar p1
    
52.    (+ (angle p1 p2) (- (/ pi 2) (* 2 (atan b))))
    
53.    (/ (* (distance p1 p2) (1+ (* b b))) 4 b)
    
54.   )
    
55. )

<div class="blockcode"><blockquote>(defun c:vv (/ os s edt plst p1 p2 b cp rd)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (while (not (setq s (ssget "_+.:E:S" '((0 . "lwpolyline")))))<br />   )<br />   (setq  edt  (entget (ssname s 0))<br />   plst (vertex edt)<br />   p1   (assoc 10 plst)<br />   b    (cdr (assoc 42 plst))<br />   p2   (cdr (assoc 10 (cdr (member p1 plst))))<br />   )<br />   (if (null b)<br />     (progn (princ "\n选择为直线."))<br />     (progn (setq cp (trans (LM:bulgecentre (cdr p1) p2 b)<br />          (cdr (assoc 210 edt))<br />          1<br />         )<br />      rd (LM:bulgeradius (cdr p1) p2 b)<br />      )<br />      (command "circle" cp 60)<br />     )<br />   )<br />   (princ (strcat "\n半径为:" (rtos rd 2 0)))<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br /> <br /> <br /> ;;顶点/凸度<br /> (defun vertex (et)<br />   (vl-remove-if-not<br />     '(lambda (x)<br />        (or (= (car x) 10)<br />      (and (= (car x) 42) (not (zerop (cdr x))))<br />        )<br />      )<br />     et<br />   )<br /> )<br /> <br /> ;;半径<br /> ;;By Lee Mac<br /> (defun LM:bulgeradius (p1 p2 b)<br />   (/ (* (distance p1 p2) (1+ (* b b))) 4 (abs b))<br /> )<br /> <br /> ;;圆心<br /> ;;By Lee Mac<br /> (defun LM:bulgecentre (p1 p2 b)<br />   (polar p1<br />    (+ (angle p1 p2) (- (/ pi 2) (* 2 (atan b))))<br />    (/ (* (distance p1 p2) (1+ (* b b))) 4 b)<br />   )<br /> )

新手写的，调用了两个lee mac的函数，有其他不足之处，请指正！

xyp1964

;; 直接炸开求最简单

伪书虫86

厉害的

tigcat

经过测试,如果一条多段线有几段弧,是得不到正确结果,arc弧要能支持就好了.

表骑马实开车

xyp1964 发表于 2022-5-19 23:30
;; 直接炸开求最简单

这样确实可以，不过还的把线恢复

z312144636

幫助很大

自贡黄明儒

实际运用是:点取多段线，获得此处的圆心或者半径。