求助：如何批量将多段线（或直线）连成的圆形转换成圆

junxan

本人不懂cad，向各位大师求助:
1、如何批量将多段线（或者直线）连接成的圆，转换成圆。圆的大小与原图基本相近，位置基本不变就行；
2、圆圈内的单个数字合并到一起，数字的角度（方向）不变；
3、自动删除这些多段线或直线。

Atsai

2. ;;碎线转圆,弧
   
3. (defun c:test (/ ss s1 ss2)
   
4.   (vl-load-com)
   
5.   (setvar "cmdecho" 0)
   
6.   (setq os (getvar "osmode"))
   
7.   (setvar "osmode" 0)
   
8.   (setq ps (getvar "peditaccept"))
   
9.   (setvar "peditaccept" 1)
   
10.   (setq ss (ssget '((0 . "LINE"))))
    
11. 
    
12.   (if ss
    
13.     (progn
    
14.       (setq s1 (entlast))
    
15.       (setq ss2 (ssadd))
    
16.       (command "pedit" "m" ss "" "j" "" "")
    
17.       (while (setq s1 (entnext s1))
    
18.   (ssadd s1 ss2)
    
19.       )
    
20.       
    
21.       (setq l (sslength ss2))
    
22.       (setq i 0)
    
23.       (repeat l
    
24.   (setq ssn (ssname ss2 i))
    
25.   (if (> (rem (cdr (assoc 70 (entget ssn))) 2) 0)
    
26.     (progn
    
27.       (command "_region" ssn "")
    
28.       (setq en2 (entlast))
    
29.       (setq obj2 (vlax-ename->vla-object en2))
    
30.       (setq area (vla-get-Area obj2))
    
31.       (setq ptc (vlax-safearray->list
    
32.       (vlax-variant-value (vla-get-centroid obj2))
    
33.           )
    
34.       )
    
35.       (setq radius (sqrt (/ area pi)))
    
36.       (command "_circle" ptc radius)
    
37.       (entdel en2)
    
38.     )
    
39.     (progn
    
40.       (setq obj1 (vlax-ename->vla-object ssn))
    
41.       (setq pts (vlax-curve-getstartpoint obj1))
    
42.       (setq pte (vlax-curve-getendpoint obj1))
    
43.       (setq dis (vlax-curve-getdistAtPoint obj1 pte))
    
44.       (setq ptm (vlax-curve-getpointatdist obj1 (* dis 0.5)))
    
45.       (command "_arc" pts ptm pte)
    
46.       (entdel ssn)
    
47.     )
    
48.   )
    
49.   (setq i (1+ i))
    
50.       )
    
51.     )
    
52.   )
    
53.   (setvar "peditaccept" ps)
    
54.   (setvar "osmode" os)
    
55.   (princ)
    
56. )

;;碎线转圆,弧<br /> (defun c:test (/ ss s1 ss2)<br />   (vl-load-com)<br />   (setvar "cmdecho" 0)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setq ps (getvar "peditaccept"))<br />   (setvar "peditaccept" 1)<br />   (setq ss (ssget '((0 . "LINE"))))<br /> <br />   (if ss<br />     (progn<br />       (setq s1 (entlast))<br />       (setq ss2 (ssadd))<br />       (command "pedit" "m" ss "" "j" "" "")<br />       (while (setq s1 (entnext s1))<br />   (ssadd s1 ss2)<br />       )<br />       <br />       (setq l (sslength ss2))<br />       (setq i 0)<br />       (repeat l<br />   (setq ssn (ssname ss2 i))<br />   (if (> (rem (cdr (assoc 70 (entget ssn))) 2) 0)<br />     (progn<br />       (command "_region" ssn "")<br />       (setq en2 (entlast))<br />       (setq obj2 (vlax-ename->vla-object en2))<br />       (setq area (vla-get-Area obj2))<br />       (setq ptc (vlax-safearray->list<br />       (vlax-variant-value (vla-get-centroid obj2))<br />           )<br />       )<br />       (setq radius (sqrt (/ area pi)))<br />       (command "_circle" ptc radius)<br />       (entdel en2)<br />     )<br />     (progn<br />       (setq obj1 (vlax-ename->vla-object ssn))<br />       (setq pts (vlax-curve-getstartpoint obj1))<br />       (setq pte (vlax-curve-getendpoint obj1))<br />       (setq dis (vlax-curve-getdistAtPoint obj1 pte))<br />       (setq ptm (vlax-curve-getpointatdist obj1 (* dis 0.5)))<br />       (command "_arc" pts ptm pte)<br />       (entdel ssn)<br />     )<br />   )<br />   (setq i (1+ i))<br />       )<br />     )<br />   )<br />   (setvar "peditaccept" ps)<br />   (setvar "osmode" os)<br />   (princ)<br /> )

自贡黄明儒

这个不容易。。。。。

junxan

求助求助，继续求助

q3_2006

junxan 发表于 2016-10-19 23:21
求助求助，继续求助

最简单方法ebox算出中心及半径...画圆就行了...

q3_2006

看样子是软件导出来的图..原图就是圆...

淡定955

你可以直接创建边界啊

junxan

万分感谢Atsai，完美解决转圆的问题。

因不懂cad，更不懂编程，仅会使用些简单的Excel函数，惭愧。

论坛里找了些文字合并的代码，能做到批量把方框内的文字合并，不改变文字高度、方向，但字宽变小了（不影响我对图纸的使用）。但不能合并圆里的文字，希望哪位再帮忙写一个。

xiao88gang

这个只能对直线起作用，为什么圆弧不能处理，能否帮忙改一下？