【已解决】大神求助！ 将多段线从多个圆心处打断

Mr.xu

一条多段线穿过多个圆，将多段线在每个圆心处都打断。

打断前


打断后

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:打断多段线求助帖.zip 
下载次数:6  文件大小:30.27 KB 
下载权限: 不限 以上  [免费赚D豆]

Lispboy

试试
1、可以设置边框类型，如果不想显示遮盖边界，自己用WIPEOUT命令关闭。2、下载  2018.05.18更新的 API 安装或更新晓东工具箱

1. (defun c:XDTB_BlockMask (/ e el ss na val mat outline x wi)
   
2.   (xdrx_begin)
   
3.   (if (not #xd_var_global_wipeout_frame)
   
4.     (setq #xd_var_global_wipeout_frame 1)
   
5.   )
   
6.   (xdrx_initget "0 1")
   
7.   (if (setq val (getint (xdrx_prompt "\n边框类型[0-矩形/1-轮廓]<"
   
8.                                      #xd_var_global_wipeout_frame
   
9.                                      ">:"
   
10.                                      t
    
11.                         )
    
12.                 )
    
13.       )
    
14.     (setq #xd_var_global_wipeout_frame val)
    
15.   )
    
16.   (if (and (xdrx_initssget "\n选取要制作遮罩的图块...")
    
17.            (setq ss (xdrx_ssget '((0 . "INSERT"))))
    
18.       )
    
19.     (progn
    
20.       (xdrx_setsstodb ss 0)
    
21.       (setq el nil)
    
22.       (while (setq e (xdrx_getentdata 0))
    
23.         (setq na  (xdrx_getentdxf 2)
    
24.               mat (xdrx_matrix_block2wcs e)
    
25.               mat (xdrx_matrix_inverse mat)
    
26.         )
    
27.         (if (not (member na el))
    
28.           (progn
    
29.             (setq el (cons na el))
    
30.             (if (= #xd_var_global_wipeout_frame 0)
    
31.               (progn (setq outline (list (xdrx_entity_box e)))
    
32.                      (setq outline (list (xdrx_polyline_make outline t)))
    
33.               )
    
34.               (progn (setq outline (xdrx_geom_searchoutline e)
    
35.                            outline (xdrx_pickset->ents outline)
    
36.                      )
    
37.               )
    
38.             )
    
39.             (if outline
    
40.               (progn (mapcar '(lambda (x)
    
41.                                 (setq verts (xdrx_getsamplept x))
    
42.                                 (xdrx_wipeout_make verts)
    
43.                                 (setq wi (xdrx_entity_transform (entlast) mat))
    
44.                                 (xdrx_block_appendentity na (entlast))
    
45.                                 (xdrx_entity_delete wi x)
    
46.                               )
    
47.                              outline
    
48.                      )
    
49.               )
    
50.             )
    
51.           )
    
52.         )
    
53.       )
    
54.       (xdrx_draworder->top ss)
    
55.       (princ (strcat "\n成功制作了" (itoa (sslength ss)) "个图块遮罩！"))
    
56.     )
    
57.   )
    
58.   (xdrx_end)
    
59.   (princ)
    
60. )
    

(defun c:XDTB_BlockMask (/ e el ss na val mat outline x wi)<br />   (xdrx_begin)<br />   (if (not #xd_var_global_wipeout_frame)<br />     (setq #xd_var_global_wipeout_frame 1)<br />   )<br />   (xdrx_initget "0 1")<br />   (if (setq val (getint (xdrx_prompt "\n边框类型[0-矩形/1-轮廓]<"<br />                                      #xd_var_global_wipeout_frame<br />                                      ">:"<br />                                      t<br />                         )<br />                 )<br />       )<br />     (setq #xd_var_global_wipeout_frame val)<br />   )<br />   (if (and (xdrx_initssget "\n选取要制作遮罩的图块...")<br />            (setq ss (xdrx_ssget '((0 . "INSERT"))))<br />       )<br />     (progn<br />       (xdrx_setsstodb ss 0)<br />       (setq el nil)<br />       (while (setq e (xdrx_getentdata 0))<br />         (setq na  (xdrx_getentdxf 2)<br />               mat (xdrx_matrix_block2wcs e)<br />               mat (xdrx_matrix_inverse mat)<br />         )<br />         (if (not (member na el))<br />           (progn<br />             (setq el (cons na el))<br />             (if (= #xd_var_global_wipeout_frame 0)<br />               (progn (setq outline (list (xdrx_entity_box e)))<br />                      (setq outline (list (xdrx_polyline_make outline t)))<br />               )<br />               (progn (setq outline (xdrx_geom_searchoutline e)<br />                            outline (xdrx_pickset->ents outline)<br />                      )<br />               )<br />             )<br />             (if outline<br />               (progn (mapcar '(lambda (x)<br />                                 (setq verts (xdrx_getsamplept x))<br />                                 (xdrx_wipeout_make verts)<br />                                 (setq wi (xdrx_entity_transform (entlast) mat))<br />                                 (xdrx_block_appendentity na (entlast))<br />                                 (xdrx_entity_delete wi x)<br />                               )<br />                              outline<br />                      )<br />               )<br />             )<br />           )<br />         )<br />       )<br />       (xdrx_draworder->top ss)<br />       (princ (strcat "\n成功制作了" (itoa (sslength ss)) "个图块遮罩！"))<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br />

wbf424069638

我之前也是这个问题，去年就搞定了，我猜你也是搞通信的，看看这个
http://bbs.xdcad.net/thread-708794-1-1.html

Mr.xu

wbf424069638 发表于 2018-5-18 21:23
我之前也是这个问题，去年就搞定了，我猜你也是搞通信的，看看这个
http://bbs.xdcad.net/thread-708794-1 ...

是的！  你那边有没有这个行业好的工具介绍一下？

wbf424069638

Mr.xu 发表于 2018-5-19 07:15
是的！  你那边有没有这个行业好的工具介绍一下？

网上 有个

DXcad通信工程设计，但需要购买，你如果需要的话可以看看http://7895927.qzone.qq.com