圆弧被分割成很多段，无法合并成多段线

wxb19880825

各位大佬，这个CAD图是我从jpg文件转换成dxf然后再转成DWG的，由于识别不准确的关系，一段圆弧变成了有很多很多条线段组成了，我想把这些线路合并成一段圆弧，用CAD的合并很难实现，有没有什么好的办法？

newer

请编辑帖子，把图片截图帖上来

Lispboy

图主要是选东西不容易，不如点三点生成来得快了

1. (defun c:tt ()
   
2.   (xdrx-begin)
   
3.   (xdrx-sysvar-push '("osmode" 545))
   
4.   (if (and (setq p1 (getpoint "\n弧线起点<退出>:"))
   
5.            (setq p2 (getpoint p1 "\n中间点<退出>:"))
   
6.            (setq p3 (getpoint p2 "\n弧线终点<退出>:"))
   
7.            (setq g (xdge::constructor "kcircarc3d" p1 p2 p3))
   
8.            (setvar "osmode" 0)
   
9.            (setq tol (getdist p1 "\n输入删除范围精度:"))
   
10.       )
    
11.     (progn (setq box (xdrx-getpropertyvalue g "tobox" tol))
    
12.            (xdrx-entity-delete (ssget "wp" (xdrx-getsamplept box tol)))
    
13.            (xdrx-entity-make g)
    
14.            (xdrx-prompt "\n生成圆弧.")
    
15.     )
    
16.   )
    
17.   (xdrx-sysvar-pop)
    
18.   (xdrx-end)
    
19.   (princ)
    
20. )
    
21. 
    

(defun c:tt ()<br />   (xdrx-begin)<br />   (xdrx-sysvar-push '("osmode" 545))<br />   (if (and (setq p1 (getpoint "\n弧线起点<退出>:"))<br />            (setq p2 (getpoint p1 "\n中间点<退出>:"))<br />            (setq p3 (getpoint p2 "\n弧线终点<退出>:"))<br />            (setq g (xdge::constructor "kcircarc3d" p1 p2 p3))<br />            (setvar "osmode" 0)<br />            (setq tol (getdist p1 "\n输入删除范围精度:"))<br />       )<br />     (progn (setq box (xdrx-getpropertyvalue g "tobox" tol))<br />            (xdrx-entity-delete (ssget "wp" (xdrx-getsamplept box tol)))<br />            (xdrx-entity-make g)<br />            (xdrx-prompt "\n生成圆弧.")<br />     )<br />   )<br />   (xdrx-sysvar-pop)<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

newer

或者这样，修改下上面的，少个交互

1. (defun c:xdtb_arcfitsd (/ p1 p2 p3 g)
   
2.   (xdrx-begin)
   
3.   (xdrx-sysvar-push '("osmode" 545))
   
4.   (if (and (setq p1 (getpoint "\n弧线起点<退出>:"))
   
5.            (setq p2 (getpoint p1 "\n中间点<退出>:"))
   
6.            (setq p3 (getpoint p2 "\n弧线终点<退出>:"))
   
7.            (setq g (xdge::constructor "kcircarc3d" p1 p2 p3))
   
8.       )
   
9.     (progn
   
10.            (xdrx-entity-delete (ssget "f" (xdrx-getsamplept g (/ (xd::doc:getpickboxheight) 5))))
    
11.            (xdrx-entity-make g)
    
12.            (xdrx-prompt "\n生成圆弧.")
    
13.     )
    
14.   )
    
15.   (xdrx-sysvar-pop)
    
16.   (xdrx-end)
    
17.   (princ)
    
18. )
    
19. 
    

(defun c:xdtb_arcfitsd (/ p1 p2 p3 g)<br />   (xdrx-begin)<br />   (xdrx-sysvar-push '("osmode" 545))<br />   (if (and (setq p1 (getpoint "\n弧线起点<退出>:"))<br />            (setq p2 (getpoint p1 "\n中间点<退出>:"))<br />            (setq p3 (getpoint p2 "\n弧线终点<退出>:"))<br />            (setq g (xdge::constructor "kcircarc3d" p1 p2 p3))<br />       )<br />     (progn <br />            (xdrx-entity-delete (ssget "f" (xdrx-getsamplept g (/ (xd::doc:getpickboxheight) 5))))<br />            (xdrx-entity-make g)<br />            (xdrx-prompt "\n生成圆弧.")<br />     )<br />   )<br />   (xdrx-sysvar-pop)<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

yangjian001

做一个热心并受欢迎的人

刘程_OqNUl

用PE合并不行吗

wxb19880825

刘程_OqNUl 发表于 2020-7-11 13:41
用PE合并不行吗

不行，里面线段的端点太多，无法拾取。

wxb19880825

Lispboy 发表于 2020-7-10 20:14
图主要是选东西不容易，不如点三点生成来得快了

是的，端点太多了，鼠标就飘