批量多段线R角转C角

newer

批量多段线R角转C角

1. (defun c:tt()
   
2.    (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
3.      (progn
   
4.         (mapcar '(lambda(x)
   
5.            (if (not (xdrx_polyline_isOnlyLines x))
   
6.               (progn
   
7.                  (setq i -1)
   
8.                  (repeat (xdrx_polyline_NumVerts x)
   
9.                     (xdrx_polyline_setbulgeat x (setq i (1+ i)) 0.)
   
10.                  )
    
11.               )
    
12.            )
    
13.         )(xdrx_pickset->ents ss))
    
14.      )
    
15.    )
    
16.    (princ)
    
17. )
    
18. 
    

(defun c:tt()<br />    (if (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />      (progn<br />         (mapcar '(lambda(x)<br />            (if (not (xdrx_polyline_isOnlyLines x))<br />               (progn<br />                  (setq i -1)<br />                  (repeat (xdrx_polyline_NumVerts x)<br />                     (xdrx_polyline_setbulgeat x (setq i (1+ i)) 0.)<br />                  )<br />               )<br />            )<br />         )(xdrx_pickset->ents ss))<br />      )<br />    )<br />    (princ)<br /> )<br /> <br />

cable2004

看看看看看看看看看看看看看看看

shuaier

在加入C角转R角和指定图层的话就更好了！强烈介意加入这两个功能

newer

shuaier 发表于 2016-9-18 10:28

1、图层随原来图层，难道期间还要变换图层？

2、 C角-》R角，你看下一楼的图， 哪个算C角？ 你能定个规则吗？

shuaier

newer 发表于 2016-9-18 10:31

哇塞，回复也太神速了！
图1



图2


选择时只选择百色的道路红线，而不选择蓝色的路缘石线
规则就是：输入命令--选择参考图层--在选择参考图层上的内容进行转换处理

newer

shuaier 发表于 2016-9-18 10:36

发个测试的DWG压缩上来，

你这些线都是连续的多段线还是单独LINE？

我说的规则，对于批量来说，怎么确定都是折边的，哪个算是C角？ 你能说个区分的规则吗？ 交互的没问题。

shuaier

newer 发表于 2016-9-18 10:39

请点击此处下载

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

您的用户组是：游客

文件名称:Drawing1.rar 
下载次数:2  文件大小:12.66 KB 
下载权限: 不限 以上  [免费赚D豆]

上传了

newer

shuaier 发表于 2016-9-18 10:42

先看看这个帖子  http://bbs.xdcad.net/thread-671374-1-1.html， 非模式对话框圆角C角来回转换的，是你需要的不。

shuaier

对，就是这个意思，不过确实指定图层的功能

newer

shuaier 发表于 2016-9-18 10:51

单独每个插件（需要指定图层过滤的）都写到代码里面效率不高，工具集的优势也体现不出来， 你搜索下 “快速选择” 看看或者用下 晓东工具箱的 “快速选择”工具，先快速的过滤出要操作的实体，然后再使用插件。 晓东工具箱是这个思路。