求批量偏移插件，感谢各位

newer

qq542378516 发表于 2018-5-21 11:55
晓东工具箱，已经装了但是用的时候提示错误，麻烦给我看下什么问题，谢谢！

你安装的是 API 2018.0518 吗？

你要是安装的晓东工具箱2018.0508，那么你再下载下 API 2018.0518，更新下工具箱，再试试。

qq542378516

Lispboy 发表于 2018-5-18 15:39
用API的拓扑，很方便解决

可以运行了，但是图形有变形现象，和处理数据量多的图案会提示错误，见图.

newer

qq542378516 发表于 2018-5-21 14:14
可以运行了，但是图形有变形现象，和处理数据量多的图案会提示错误，见图.

1、你的边界要清晰，曲线都要闭合，曲线间不要相交
2、确保能OFFSET，很多时候往内偏，不是所有距离都能OFFSET的。
2、不同的组团间，不要有交叉。

请把 DWG压缩传上来。

qq542378516

newer 发表于 2018-5-21 14:22
1、你的边界要清晰，曲线都要闭合，曲线间不要相交
2、确保能OFFSET，很多时候往内偏，不是所有距离都能OF ...

你好，附件已上传好了，麻烦帮忙看下，感谢！

newer

qq542378516 发表于 2018-5-21 14:32
你好，附件已上传好了，麻烦帮忙看下，感谢！

你给了一个这么大的图，你想偏移哪个？

qq542378516

newer 发表于 2018-5-21 14:37
你给了一个这么大的图，你想偏移哪个？

我要把全部图形都偏移数据为0.005mm

newer

qq542378516 发表于 2018-5-21 15:27
我要把全部图形都偏移数据为0.005mm

这个图你需要内偏和外偏？不都是一个方向？

你这图很多地方都交叉，分不了层次，你还是用论坛另外那个交互选择多重偏移的插件做吧。

qq542378516

newer 发表于 2018-5-21 16:14
这个图你需要内偏和外偏？不都是一个方向？

你这图很多地方都交叉，分不了层次，你还是用论坛另外那个 ...

源图是没问题的，这个图形是有包含图形的，所以要内偏和外偏的.

newer

qq542378516 发表于 2018-5-21 16:39
源图是没问题的，这个图形是有包含图形的，所以要内偏和外偏的.

你先拿这个局部测试下

用上面的代码前，命令行输入 (xdrx_document_setprec 1e-6 1e-6) 回车， 然后再执行，看看。

newer

qq542378516 发表于 2018-5-21 16:39
源图是没问题的，这个图形是有包含图形的，所以要内偏和外偏的.

我这里是可以的
(xdrx_document_setprec 1e-6 1e-6)

qq542378516

newer 发表于 2018-5-21 16:50
你先拿这个局部测试下

用上面的代码前，命令行输入 (xdrx_document_setprec 1e-6 1e-6) 回车， 然后再 ...

用了你提供的代码后是可以用的，处理整个会卡住，可能数据量太多了没反应，能帮我修改下代码吗？（最好把修改后的图形新建一层，层名可以参考图形的所在层后面加-bc来区分）

qq542378516

newer 发表于 2018-5-21 17:08
我这里是可以的
(xdrx_document_setprec 1e-6 1e-6)

还有一个请求，能把他做成向反的吗（偶数层外偏，奇数层内偏），奇数层外偏，偶数内缩吗？通过数偏移数据的时候用-0.005（奇数层外偏，偶数内缩），
0.005（偶数层外偏，奇数层内偏）

newer

qq542378516 发表于 2018-5-21 17:25
还有一个请求，能把他做成向反的吗（偶数层外偏，奇数层内偏），奇数层外偏，偶数内缩吗？通过数偏移数据 ...

LISPBOY的代码就是你要求的，他说的偶数是从0开始的，最外的是0.

太卡正常，你等一会就出来了，你这已经不是常规图形了，数据量在那放着昵，能处理出来就不错了，你也可以分开，部分部分做。

qq542378516

newer 发表于 2018-5-21 17:42
LISPBOY的代码就是你要求的，他说的偶数是从0开始的，最外的是0.

太卡正常，你等一会就出来了，你这已 ...

那你能把你说的这个

用上面的代码前，命令行输入 (xdrx_document_setprec 1e-6 1e-6)


加入里面吗，然后能用图层来分开修改后图形吗？

Lispboy

qq542378516 发表于 2018-5-21 20:08
那你能把你说的这个

用上面的代码前，命令行输入 (xdrx_document_setprec 1e-6 1e-6)

修改了代码，
1、可以输入精度，就是上面说的1e-6
2、偏移距离给负数，偶数内偏（最外是0），否则偶数外偏
3、循环选，可以省点精度不变、偏移不变的时候的时间
4、图层你设置好当前层，偏移后放到当前层。

1. (defun c:tt ()
   
2.   (xdrx_begin)
   
3.   (if (not #xd_var_global_tol)
   
4.     (setq #xd_var_global_tol 0.01)
   
5.   )
   
6.   (if (setq val (getreal
   
7.                   (xdrx_prompt "\n输入精度<" #xd_var_global_tol ">:" t)
   
8.                 )
   
9.       )
   
10.     (setq #xd_var_global_tol val)
    
11.   )
    
12.   (if (not #xd_var_global_offset_dist)
    
13.     (setq #xd_var_global_offset_dist 1.0)
    
14.   )
    
15.   (if (setq val (getreal "\n偏移距离[负号内偏]<退出>:"))
    
16.     (setq #xd_var_global_offset_dist val)
    
17.   )
    
18.   (xdrx_document_setprec
    
19.     #xd_var_global_tol
    
20.     #xd_var_global_tol
    
21.   )
    
22.   (while (and (xdrx_initssget "\n选择封闭曲线<退出>:")
    
23.               (setq ss (xdrx_ssget '((0 . "*line,circle,ellipse"))))
    
24.          )
    
25.     (setq mps (xdrx_mpolygon_make ss)
    
26.           len (sslength ss)
    
27.     )
    
28.     (setq topo (xdrx_get_topology mps t))
    
29.     (setq lst (xd::list:flat-point topo))
    
30.     (xdrx_statusbar_begin "偏移中" (length lst))
    
31.     (setq i 0)
    
32.     (foreach n lst
    
33.       (xdrx_statusbar_setpos (setq i (1+ i)))
    
34.       (setq layer (car n)
    
35.             inx   (cadr n)
    
36.             ge    (xdrx_getpropertyvalue mps "getloopat" inx t)
    
37.             e     (xdrx_polyline_make ge)
    
38.             e1    (if (= (rem layer 2) 0)
    
39.                     (xdrx_curve_getoffsetcurves e #xd_var_global_offset_dist)
    
40.                     (xdrx_curve_getoffsetcurves
    
41.                       e
    
42.                       (- #xd_var_global_offset_dist)
    
43.                     )
    
44.                   )
    
45.       )
    
46.       (xdrx_entity_setcolor e1 1)
    
47.       (xdrx_entity_delete e)
    
48.     )
    
49.     (xdrx_statusbar_end)
    
50.     (xdrx_entity_delete mps)
    
51.   )
    
52.   (xdrx_end)
    
53.   (princ)
    
54. )
    
55. 
    

(defun c:tt ()<br />   (xdrx_begin)<br />   (if (not #xd_var_global_tol)<br />     (setq #xd_var_global_tol 0.01)<br />   )<br />   (if (setq val (getreal<br />                   (xdrx_prompt "\n输入精度<" #xd_var_global_tol ">:" t)<br />                 )<br />       )<br />     (setq #xd_var_global_tol val)<br />   )<br />   (if (not #xd_var_global_offset_dist)<br />     (setq #xd_var_global_offset_dist 1.0)<br />   )<br />   (if (setq val (getreal "\n偏移距离[负号内偏]<退出>:"))<br />     (setq #xd_var_global_offset_dist val)<br />   )<br />   (xdrx_document_setprec<br />     #xd_var_global_tol<br />     #xd_var_global_tol<br />   )<br />   (while (and (xdrx_initssget "\n选择封闭曲线<退出>:")<br />               (setq ss (xdrx_ssget '((0 . "*line,circle,ellipse"))))<br />          )<br />     (setq mps (xdrx_mpolygon_make ss)<br />           len (sslength ss)<br />     )<br />     (setq topo (xdrx_get_topology mps t))<br />     (setq lst (xd::list:flat-point topo))<br />     (xdrx_statusbar_begin "偏移中" (length lst))<br />     (setq i 0)<br />     (foreach n lst<br />       (xdrx_statusbar_setpos (setq i (1+ i)))<br />       (setq layer (car n)<br />             inx   (cadr n)<br />             ge    (xdrx_getpropertyvalue mps "getloopat" inx t)<br />             e     (xdrx_polyline_make ge)<br />             e1    (if (= (rem layer 2) 0)<br />                     (xdrx_curve_getoffsetcurves e #xd_var_global_offset_dist)<br />                     (xdrx_curve_getoffsetcurves<br />                       e<br />                       (- #xd_var_global_offset_dist)<br />                     )<br />                   )<br />       )<br />       (xdrx_entity_setcolor e1 1)<br />       (xdrx_entity_delete e)<br />     )<br />     (xdrx_statusbar_end)<br />     (xdrx_entity_delete mps)<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br /> <br />