闭合的近似圆的多段线怎么转换成真圆？求程序批量转换

znteo

taoyi0727 发表于 2020-10-30 15:12
(defun c:tt (/ lst name obj pt r ss)
        (setq ss (ssget))
        (while (setq name (ssname ss 0))

学习了

前生

t18-13nil 发表于 2020-11-7 10:14
https://blog.csdn.net/u012138730/article/details/79894181
3点求圆心算法是很容易找到的

在CAD中，点1与点2的中垂线 和 点2与点3的中垂线的交点为圆心（P0）。
distance p0 p1 =R
(entmake ....就很简单了

lijiao

我也遇到这样的问题，实际上这个问题并不简单，楼主想要的是真实的圆，主要指圆心坐标和圆的半径，上面各种处理办法得出的结果往往都是近似值，比如圆心为（9.9999999 10.0000000001），半径也类似，在设计中不可能取这样的数值，解决这个问题的 关键是根据这些近似值还原出真实值，有点类似于机械设计中的测绘，实测值为9.97，我们在绘图时应按10进行处理。

t18-13nil

前生 发表于 2020-11-7 16:39
(defun pt3a (pt1 pt2 pt3)                ;pt1以及pt3为起始点，pt2为中间的一点.
;;;================= ...

习惯了先搜，有的算法就不想自己去想。不好用了再去改。哈哈

baoyizhu

t18-13nil 发表于 2020-11-8 20:48
习惯了先搜，有的算法就不想自己去想。不好用了再去改。哈哈

26楼的兄弟程序也不错，但是少了一个自定义函数没给全
32楼的兄弟把26楼缺失的函数补上来了，综合两位兄弟的程序
我下面贴出完整版，这个程序比9楼的处理速度更快。。值得推荐！
那么问题来了，我该采纳哪位为最佳答案呢？为难啊！

1. (defun c:tt (/ ss n ent para p1 p2 p3)
   
2.    (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
3.      (repeat (setq n (sslength ss))
   
4.        (setq ent         (ssname ss (setq n (1- n)))
   
5.              para (vlax-curve-getEndParam ent)
   
6.              p1         (vlax-curve-getPointAtParam ent 0)
   
7.              p2         (vlax-curve-getPointAtParam ent (fix (* para 0.33)))
   
8.              p3         (vlax-curve-getPointAtParam ent (fix (* para 0.66)))
   
9.        )
   
10.        (pt3a p1 p2 p3)
    
11.        (entdel ent)
    
12.      )
    
13.    )
    
14.    (princ)
    
15. )
    
16. 
    
17. (defun pt3a (pt1 pt2 pt3)                ;pt1以及pt3为起始点，pt2为中间的一点.
    
18. ;;;==================================
    
19. ;;;  (setq        pt1 (list (nth 0 pt1) (nth 1 pt1) 0.0)
    
20. ;;;        pt2 (list (nth 0 pt2) (nth 1 pt2) 0.0)
    
21. ;;;        pt3 (list (nth 0 pt3) (nth 1 pt3) 0.0)
    
22. ;;;  )
    
23.    (if
    
24.      (setq cent
    
25.             (Inters
    
26.               (polar pt1 (angle pt1 pt2) (* 0.5 (distance pt1 pt2)))
    
27.               (polar (polar pt1 (angle pt1 pt2) (* 0.5 (distance pt1 pt2)))
    
28.                      (+ (* 0.5 pi) (angle pt1 pt2))
    
29.                      1.0
    
30.               )
    
31.               (polar pt3 (angle pt3 pt2) (* 0.5 (distance pt3 pt2)))
    
32.               (polar (polar pt3 (angle pt3 pt2) (* 0.5 (distance pt3 pt2)))
    
33.                      (+ (* 0.5 pi) (angle pt3 pt2))
    
34.                      1.0
    
35.               )
    
36.               nil
    
37.             )
    
38.      )                                        ;假如有交点，则可以做园，否则做直线
    
39.        (entmake        (list (cons 0 "circle")
    
40.                        (cons 8 "ok")
    
41.                        (cons 10 cent)
    
42.                        (cons 40 (distance cent pt1))
    
43.                        (cons 62 102)
    
44.                  )
    
45.         )    (entmake        (list (cons 0 "line")
    
46.                        (cons 8 "ok")
    
47.                        (cons 10 pt1)
    
48.                        (cons 11 pt2)
    
49.                        (cons 62 102)
    
50.                  )
    
51.         )
    
52.    )
    
53.    (princ)
    
54. )

(defun c:tt (/ ss n ent para p1 p2 p3)<br />    (if (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />      (repeat (setq n (sslength ss))<br />        (setq ent         (ssname ss (setq n (1- n)))<br />              para (vlax-curve-getEndParam ent)<br />              p1         (vlax-curve-getPointAtParam ent 0)<br />              p2         (vlax-curve-getPointAtParam ent (fix (* para 0.33)))<br />              p3         (vlax-curve-getPointAtParam ent (fix (* para 0.66)))<br />        )<br />        (pt3a p1 p2 p3)<br />        (entdel ent)<br />      )<br />    )<br />    (princ)<br /> )<br /> <br /> (defun pt3a (pt1 pt2 pt3)                ;pt1以及pt3为起始点，pt2为中间的一点.<br /> ;;;==================================<br /> ;;;  (setq        pt1 (list (nth 0 pt1) (nth 1 pt1) 0.0)<br /> ;;;        pt2 (list (nth 0 pt2) (nth 1 pt2) 0.0)<br /> ;;;        pt3 (list (nth 0 pt3) (nth 1 pt3) 0.0)<br /> ;;;  )<br />    (if<br />      (setq cent<br />             (Inters<br />               (polar pt1 (angle pt1 pt2) (* 0.5 (distance pt1 pt2)))<br />               (polar (polar pt1 (angle pt1 pt2) (* 0.5 (distance pt1 pt2)))<br />                      (+ (* 0.5 pi) (angle pt1 pt2))<br />                      1.0<br />               )<br />               (polar pt3 (angle pt3 pt2) (* 0.5 (distance pt3 pt2)))<br />               (polar (polar pt3 (angle pt3 pt2) (* 0.5 (distance pt3 pt2)))<br />                      (+ (* 0.5 pi) (angle pt3 pt2))<br />                      1.0<br />               )<br />               nil<br />             )<br />      )                                        ;假如有交点，则可以做园，否则做直线<br />        (entmake        (list (cons 0 "circle")<br />                        (cons 8 "ok")<br />                        (cons 10 cent)<br />                        (cons 40 (distance cent pt1))<br />                        (cons 62 102)<br />                  )<br />         )    (entmake        (list (cons 0 "line")<br />                        (cons 8 "ok")<br />                        (cons 10 pt1)<br />                        (cons 11 pt2)<br />                        (cons 62 102)<br />                  )<br />         )<br />    )<br />    (princ)<br /> )

baoyizhu

lijiao 发表于 2020-11-7 18:08
我也遇到这样的问题，实际上这个问题并不简单，楼主想要的是真实的圆，主要指圆心坐标和圆的半径，上面各种 ...

你说的这个情况属实也是我的想法。能得到近似值的圆也就问题不大了，毕竟用特效工具改圆直径很简单。
因为程序也不好判断使用者需要精确到几位小数。

taoyi0727

baoyizhu 发表于 2020-11-11 09:56
26楼的兄弟程序也不错，但是少了一个自定义函数没给全
32楼的兄弟把26楼缺失的函数补上来了，综合两位兄 ...

谁差币就给谁呗，纠结啥

baoyizhu

taoyi0727 发表于 2020-11-11 10:13
谁差币就给谁呗，纠结啥

你比较富有，那我就替32楼的兄弟感谢你啦

前生

baoyizhu 发表于 2020-11-11 09:56
26楼的兄弟程序也不错，但是少了一个自定义函数没给全
32楼的兄弟把26楼缺失的函数补上来了，综合两位兄 ...

看起来，你也是做机械加工或模具的。

baoyizhu

前生 发表于 2020-11-11 13:04
看起来，你也是做机械加工或模具的。

我是做金属蚀刻加工的