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

XDSoft

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

借用LISPBOY的代码，修改下，请下载5月22日更新的API安装，修改了算法，对巨大图形效率提升，你这个全图处理自动处理就10多秒。
看图



局部细节：

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 (xdrx_prompt "\n输入精度<" #xd_var_global_tol ">:" t)))
   
7.     (setq #xd_var_global_tol val)
   
8.   )
   
9.   (if (not #xd_var_global_offset_dist)
   
10.     (setq #xd_var_global_offset_dist 1.0)
    
11.   )
    
12.   (if (setq val (getreal (xdrx_prompt "\n偏移距离[负号内偏]<"
    
13.                                       #xd_var_global_offset_dist
    
14.                                       ">:"
    
15.                                       t
    
16.                          )
    
17.                 )
    
18.       )
    
19.     (setq #xd_var_global_offset_dist val)
    
20.   )
    
21.   (xdrx_document_setprec #xd_var_global_tol #xd_var_global_tol)
    
22.   (while (and (xdrx_initssget "\n选择封闭曲线<退出>:")
    
23.               (setq ss (xdrx_ssget '((0 . "*line,circle,ellipse"))))
    
24.          )
    
25.          (xdrx_runtime t)
    
26.     (setq mps (xdrx_mpolygon_make ss)
    
27.           len (sslength ss)
    
28.     )
    
29.     (setq topo (xdrx_get_topology mps t))
    
30.     (setq lst (xd::list:flat-point topo)
    
31.           lst (xd::list:groupbyindex lst 0.1)
    
32.     )
    
33.     (xdrx_setvar "progressforced" t)
    
34.     (xdrx_statusbar_begin "偏移中" (length lst))
    
35.     (setq i 0)
    
36.     (foreach n lst
    
37.       (xdrx_statusbar_setpos (setq i (1+ i)))
    
38.       (setq layer (car n)
    
39.             inx   (cdr n)
    
40.             ge    (xdrx_getpropertyvalue mps "getloopsat" inx)
    
41.             e1    (if (= (rem layer 2) 0)
    
42.                     (xdrx_curve_offset ge #xd_var_global_offset_dist)
    
43.                     (xdrx_curve_offset ge (- #xd_var_global_offset_dist))
    
44.                   )
    
45.       )
    
46.       (xdrx_entity_setcolor e1 1)
    
47.       (xdge::free ge)
    
48.     )
    
49.     (xdrx_statusbar_end)
    
50.     (xdrx_entity_delete mps)
    
51.     (xdrx_prompt "\n本次操作执行时间:" (xdrx_runtime) " s.")
    
52.   )
    
53.   (xdrx_end)
    
54.   (princ)
    
55. )
    
56. 
    

(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 (xdrx_prompt "\n输入精度<" #xd_var_global_tol ">:" t)))<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 (xdrx_prompt "\n偏移距离[负号内偏]<"<br />                                       #xd_var_global_offset_dist<br />                                       ">:"<br />                                       t<br />                          )<br />                 )<br />       )<br />     (setq #xd_var_global_offset_dist val)<br />   )<br />   (xdrx_document_setprec #xd_var_global_tol #xd_var_global_tol)<br />   (while (and (xdrx_initssget "\n选择封闭曲线<退出>:")<br />               (setq ss (xdrx_ssget '((0 . "*line,circle,ellipse"))))<br />          )<br />          (xdrx_runtime t)<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 />           lst (xd::list:groupbyindex lst 0.1)<br />     )<br />     (xdrx_setvar "progressforced" t)<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   (cdr n)<br />             ge    (xdrx_getpropertyvalue mps "getloopsat" inx)<br />             e1    (if (= (rem layer 2) 0)<br />                     (xdrx_curve_offset ge #xd_var_global_offset_dist)<br />                     (xdrx_curve_offset ge (- #xd_var_global_offset_dist))<br />                   )<br />       )<br />       (xdrx_entity_setcolor e1 1)<br />       (xdge::free ge)<br />     )<br />     (xdrx_statusbar_end)<br />     (xdrx_entity_delete mps)<br />     (xdrx_prompt "\n本次操作执行时间:" (xdrx_runtime) " s.")<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br /> <br />

qq542378516

XDSoft 发表于 2018-5-22 11:28
借用LISPBOY的代码，修改下，请下载5月22日更新的API安装，修改了算法，对巨大图形效率提升，你这个全图 ...

好的，我试下对于图形的精度问题，保证跟外扩的一样就可以了，如果想快但导致掉帧就不好了，肯定要跟原图一样的.

qq542378516

XDSoft 发表于 2018-5-22 11:28
借用LISPBOY的代码，修改下，请下载5月22日更新的API安装，修改了算法，对巨大图形效率提升，你这个全图 ...

这个还是出现错误提示，是我什么东西没装好吗？

newer

qq542378516 发表于 2018-5-22 13:58
这个还是出现错误提示，是我什么东西没装好吗？

你这个截图没全，窗口放大点，截取个全的，看不到API的版本，而且OPENDCL的版本也不对，应该是9.0.1.4，你是9.0.1.3
你的CAD版本是什么？WIN系统是什么版本，多少位？




我在2012，和2019下面都测了，你的图都能生成。

qq542378516

我的是CAD2004，w7 32位系统

newer

qq542378516 发表于 2018-5-22 15:15
我的是CAD2004，w7 32位系统

版本太低了，也有可能是低版本CAD的BUG，换装下2008以上版本的CAD吧。

qq542378516

那么之前的写的加上 (xdrx_document_setprec 1e-6 1e-6)   这个就可以用，不好意思只能用CAD2004的

newer

qq542378516 发表于 2018-5-22 15:50
那么之前的写的加上 (xdrx_document_setprec 1e-6 1e-6)   这个就可以用，不好意思只能用CAD2004的

那你现在试试上面那个能用的，现在还能用吗？

newer

qq542378516 发表于 2018-5-22 15:50
那么之前的写的加上 (xdrx_document_setprec 1e-6 1e-6)   这个就可以用，不好意思只能用CAD2004的

之前的，你全图做出来过吗？ 不是卡住了吗？ 现在这个新的，你局部做，看能做不，你试试看看能找出是哪个地方出来错误提示。

qq542378516

newer 发表于 2018-5-22 16:00
之前的，你全图做出来过吗？ 不是卡住了吗？ 现在这个新的，你局部做，看能做不，你试试看看能找出是哪个 ...

你好，附件已找出两个出错的图形，麻烦看下，是否能改善.

qq542378516

软件在CAD 2004，加载情况

newer

qq542378516 发表于 2018-5-24 09:41
你好，附件已找出两个出错的图形，麻烦看下，是否能改善.

有什么问题？应该是什么样的？

qq542378516

但我处理这两个图形就会错误，是我没装好插件还是CAD的问题

newer

qq542378516 发表于 2018-5-24 10:09
但我处理这两个图形就会错误，是我没装好插件还是CAD的问题

2004 CAD的问题，想用就安装个2008以上CAD吧。

qq542378516

newer 发表于 2018-5-24 10:13
2004 CAD的问题，想用就安装个2008以上CAD吧。

装了cad2008的，也重新安装了晓东工具了，但是打开CAD不加载.