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

qq542378516

求各位大师，谁有这样的插件，提供下给小弟，感觉不尽

marting

qq542378516 发表于 2018-5-17 08:37
这个不一样的，外面的框是外框，里面的框是内缩了，麻烦仔细看清楚了，白色是源文件.

上面的插件，距离输入负值，就是内偏。你上来就只给一个图片，什么也不说，考验大家的眼力吗？

Lisphk

先用 偏移 或者 OFFSET 搜索下论坛

Lisphk

• 曲线组偏移
  37 个回复 - 1026 次查看
  **** 本内容被作者隐藏 ****
  2013-11-15 11:11 - newer - 每日插件
• 曲线多重偏移
  36 个回复 - 937 次查看
  改编自st的 http://bbs.xdcad.net/thread-671407-1-1.html ，原帖只支持封闭的LWPOLYLINE和CIRCLE，改后，支持封闭或不封闭的更多的曲线。 **** 本内容被作者隐藏 ****
  2016-7-5 00:29 - newer - 每日插件
• cad里能阵列出表格中不同的字符吗？输入字高，行偏移，列偏移，能拾取距离，阵列数量
  3 个回复 - 32 次查看
  数据源 效果
  2018-1-4 10:10 - 君是我的泪 - 外挂实用工具
• Pline局部线段偏移
  89 个回复 - 3798 次查看
  **** 本内容被作者隐藏 ****
  2013-10-19 23:04 - eachy - 每日插件
• 超级OFFSET，能偏移块，XREF里面的曲线
  49 个回复 - 397 次查看
  **** 本内容被作者隐藏 ****
  2017-7-21 12:03 - Lisphk - A/VLISP
• API应用 GetOffsetCurves批量偏移
  69 个回复 - 4988 次查看
  **** 本内容被作者隐藏 ****
  2013-11-3 23:19 - st788796 - XDRX_API应用
• 点集offset
  11 个回复 - 121 次查看
  对于点集（可以组成凸多边形）偏移，假如不使用命令 _offset，有什么好的写法么？
  2018-2-19 20:02 - /db_自贡黄明儒_ - A/VLISP
• Offset Objects
  3 个回复 - 1108 次查看
  public static class AlgerbraicArea { public static double GetArea(Point2d pt1, Point2d pt2, Point2d pt3) { return (((pt2.X - pt1.X) * (pt3.Y - pt1.Y)) - ...
  2014-6-11 23:25 - csharp - VB.NET/C#
• 批量偏移尺寸的OFFSET
  3 个回复 - 25 次查看
  
  
  2017-12-10 13:22 - Lisphk - A/VLISP
• xdrx_curve_getoffsetcurves 如何向指定点一侧偏移
  16 个回复 - 87 次查看
  曲线形状不同，需要距离的正负值不同，觉得挺麻烦的
  2017-7-10 17:18 - liuyj - XDRX_API技术支持
• 双向OFFSET
  12 个回复 - 1012 次查看
  
  
  2013-5-30 18:36 - taner - A/VLISP
• XdRx_Curve_getOffsetCurves使用注意事项
  6 个回复 - 205 次查看
  xdrx_curve_getoffsetcurves 给定正数，始终往增大的方向偏移，这个在封闭曲线的时候没有问题，但对非闭合曲线问题就出来了，这个函数和 vla-offset 的方向有时相同，有时不同， 如下图，红圈处为起点，对 pline 线 ...
  2016-11-26 11:21 - st788796 - XDRX_API技术支持
• 动态拖曳的可视化多义线offset
  25 个回复 - 5064 次查看
  由于对探索者中某些动态功能比较感兴趣，确不懂怎么实现 最近在theswamp向evgeniy请教了一个动态显示的问题，帖子在 http://www.theswamp.org/index.php?topic=12692.0 evgeniy在递归、多义线及动态显示方面很厉 ...
  2006-10-1 08:19 - snoopychen - A/VLISP
• Range 选择中的 Offset 和 Resize
  0 个回复 - 584 次查看
  如图示，使用 A1 单元格，然后用 Offset 以及 Resize 就可以选择不同的 Range 集合了
  2015-1-4 08:22 - st788796 - A/VLISP
• XDGE几何库应用(14)--曲线Offset及点集Offset
  1 个回复 - 739 次查看
  在编程过程中有时会遇到一系列的点要进行偏移一个距离，在 A/VLisp 中通常要构造一个 Pline，通过这个 Pline 线 Offset 后获取新线的节点，然后删除这个线，直接计算这些点是没有办法做到的（可以看演示图片，中间有 ...
  2014-9-22 21:03 - st788796 - XDRX_API应用
  
  

newer

论坛每日插件有现成的， 搜索  多重偏移， 或者直接安装晓东工具箱

王子

学习了，有益。。。。。

kiwiairui

有用            

qq542378516

这个不一样的，外面的框是外框，里面的框是内缩了，麻烦仔细看清楚了，白色是源文件.

qq542378516

newer 发表于 2018-5-16 16:50
论坛每日插件有现成的， 搜索  多重偏移， 或者直接安装晓东工具箱

这个不一样的，外面的框是外框，里面的框是内缩了，麻烦仔细看清楚了，白色是源文件.

qq542378516

marting 发表于 2018-5-17 08:42
上面的插件，距离输入负值，就是内偏。你上来就只给一个图片，什么也不说，考验大家的眼力吗？

你要看清楚图片，这个步骤是同时进行的，在外面的图形外扩了，包含在里面的图形内缩了，不是朝一个方向的.

marting

qq542378516 发表于 2018-5-17 09:04
你要看清楚图片，这个步骤是同时进行的，在外面的图形外扩了，包含在里面的图形内缩了，不是朝一个方向的 ...

明确告诉你了，你输入负值，就是内偏，然后你单选下最外面的，输入正值，外偏。两下搞定。
要学会变通。

dnbcgrass

你这个是第1层往外偏，第2层往内偏，第3层往外偏，……，也就是奇数层往外偏，偶数层往内偏。

Lispboy

dnbcgrass 发表于 2018-5-17 22:56
你这个是第1层往外偏，第2层往内偏，第3层往外偏，……，也就是奇数层往外偏，偶数层往内偏。

用API的拓扑，很方便解决



下面代码偏移曲线，偶数层外偏，奇数层内偏

1. (defun c:tt ()
   
2.   (if (and (setq ss (ssget '((0 . "*line,circle,ellipse"))))
   
3.            (setq dist (getreal "\n偏移距离<退出>:"))
   
4.       )
   
5.     (progn (setq dist (abs dist)
   
6.                  mps  (xdrx_mpolygon_make ss)
   
7.            )
   
8.            (setq topo (xdrx_get_topology mps t))
   
9.            (setq lst (xd::list:flat-point topo))
   
10.            (foreach n lst
    
11.              (setq layer (car n)
    
12.                    inx   (cadr n)
    
13.                    ge    (xdrx_getpropertyvalue mps "getloopat" inx)
    
14.                    e     (xdge::entity:make ge)
    
15.                    e1    (if (= (rem layer 2) 0)
    
16.                            (xdrx_curve_getoffsetcurves e dist)
    
17.                            (xdrx_curve_getoffsetcurves e (- dist))
    
18.                          )
    
19.              )
    
20.              (xdrx_entity_setcolor e1 1)
    
21.              (xdge::free ge)
    
22.              (xdrx_entity_delete e)
    
23.            )
    
24.            (xdrx_entity_delete mps)
    
25.    )
    
26.   )
    
27.   (princ)
    
28. )
    
29. 
    

(defun c:tt ()<br />   (if (and (setq ss (ssget '((0 . "*line,circle,ellipse"))))<br />            (setq dist (getreal "\n偏移距离<退出>:"))<br />       )<br />     (progn (setq dist (abs dist)<br />                  mps  (xdrx_mpolygon_make ss)<br />            )<br />            (setq topo (xdrx_get_topology mps t))<br />            (setq lst (xd::list:flat-point topo))<br />            (foreach n lst<br />              (setq layer (car n)<br />                    inx   (cadr n)<br />                    ge    (xdrx_getpropertyvalue mps "getloopat" inx)<br />                    e     (xdge::entity:make ge)<br />                    e1    (if (= (rem layer 2) 0)<br />                            (xdrx_curve_getoffsetcurves e dist)<br />                            (xdrx_curve_getoffsetcurves e (- dist))<br />                          )<br />              )<br />              (xdrx_entity_setcolor e1 1)<br />              (xdge::free ge)<br />              (xdrx_entity_delete e)<br />            )<br />            (xdrx_entity_delete mps)<br />    )<br />   )<br />   (princ)<br /> )<br /> <br />

qq542378516

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

感谢大侠，就是要这种效果谢谢！

qq542378516

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

晓东工具箱，已经装了但是用的时候提示错误，麻烦给我看下什么问题，谢谢！