求助下批量偏移并倒角

duhao5934

求助下批量偏移并倒角，左图的线不是PL线，希望批量偏移后倒圆角并删除原有线段

Lispboy

试试，



需要的函数去开源LISP函数库拷贝回去。
（XD::POLYLINE:SetRadius）LWPOLYLINE 顶点设置倒角半径

1. (defun c:tt ()
   
2.   (xdrx_begin)
   
3.   (if (and (setq ss (ssget '((0 . "LINE,*POLYLINE"))))
   
4.            (setq offset (getreal "\n输入偏移距离<退出>:"))
   
5.            (setq fillet (getreal "\n输入圆角半径<退出>:"))
   
6.            (setq ss (xdrx_entity_explode ss t))
   
7.            (setq ss (xdrx_curve_intersectbreak ss))
   
8.            (setq ss (xdrx_geom_searchregions ss 0))
   
9.            (setq lst (mapcar
   
10.                        '(lambda (x) (list (xdrx_getpropertyvalue x "area") x))
    
11.                        (xdrx_pickset->ents ss)
    
12.                      )
    
13.                  lst (xd::list:sort lst '>)
    
14.            )
    
15.       )
    
16.     (progn
    
17.       (xdrx_entity_delete (cadar lst))
    
18.       (setq lst (mapcar 'cadr (cdr lst)))
    
19.       (setq
    
20.         ret (mapcar '(lambda (x)
    
21.                        (if (and        (setq ss1 (xdrx_curve_getoffsetcurves
    
22.                                             x
    
23.                                             (- (abs offset))
    
24.                                           )
    
25.                                 )
    
26.                                 (= (sslength ss1) 1)
    
27.                                 (setq e (ssname ss1 0))
    
28.                                 (xdrx_curve_isclosed e)
    
29.                            )
    
30.                          (xd::polyline:setradius e -1 (abs fillet))
    
31.                        )
    
32.                      )
    
33.                     lst
    
34.             )
    
35.       )
    
36.       (cond
    
37.         ((apply 'and ret)
    
38.          (xdrx_prompt "\n成功偏移并圆角了" (length lst) " 条多段线.")
    
39.         )
    
40.         ((and (setq ret (xd::list:group ret 0.1)) (= (length ret) 2))
    
41.          (xdrx_prompt "\n未全部成功.")
    
42.         )
    
43.         (t (xdrx_prompt "\n没有成功，检查数据."))
    
44.       )
    
45.     )
    
46.   )
    
47.   (xdrx_end)
    
48.   (princ)
    
49. )
    
50. 
    

(defun c:tt ()<br />   (xdrx_begin)<br />   (if (and (setq ss (ssget '((0 . "LINE,*POLYLINE"))))<br />            (setq offset (getreal "\n输入偏移距离<退出>:"))<br />            (setq fillet (getreal "\n输入圆角半径<退出>:"))<br />            (setq ss (xdrx_entity_explode ss t))<br />            (setq ss (xdrx_curve_intersectbreak ss))<br />            (setq ss (xdrx_geom_searchregions ss 0))<br />            (setq lst (mapcar<br />                        '(lambda (x) (list (xdrx_getpropertyvalue x "area") x))<br />                        (xdrx_pickset->ents ss)<br />                      )<br />                  lst (xd::list:sort lst '>)<br />            )<br />       )<br />     (progn<br />       (xdrx_entity_delete (cadar lst))<br />       (setq lst (mapcar 'cadr (cdr lst)))<br />       (setq<br />         ret (mapcar '(lambda (x)<br />                        (if (and        (setq ss1 (xdrx_curve_getoffsetcurves<br />                                             x<br />                                             (- (abs offset))<br />                                           )<br />                                 )<br />                                 (= (sslength ss1) 1)<br />                                 (setq e (ssname ss1 0))<br />                                 (xdrx_curve_isclosed e)<br />                            )<br />                          (xd::polyline:setradius e -1 (abs fillet))<br />                        )<br />                      )<br />                     lst<br />             )<br />       )<br />       (cond<br />         ((apply 'and ret)<br />          (xdrx_prompt "\n成功偏移并圆角了" (length lst) " 条多段线.")<br />         )<br />         ((and (setq ret (xd::list:group ret 0.1)) (= (length ret) 2))<br />          (xdrx_prompt "\n未全部成功.")<br />         )<br />         (t (xdrx_prompt "\n没有成功，检查数据."))<br />       )<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br /> <br />

duhao5934

大神，我试了，确实成功了，但是为什么一堆图形里操作的时候总是会丢失一个

newer

duhao5934 发表于 2017-9-14 19:19

你把你会丢的DWG，压缩传上来下。截图标明下哪个图形丢失了。

duhao5934

文件附上，麻烦您了