求一个双线变单线的插件

快乐王子刚

版主你好，再次麻烦你，想求个双线变单线的插件。如图 在这里先谢谢你了。

newer

快乐王子刚 发表于 2017-3-24 20:07

试试

1. (defun c:tt ()
   
2.   (defun xd::ents:groupbyproperty (ss property tol / ents)
   
3.     (if (= (type ss) 'PICKSET)
   
4.       (setq ss (xdrx_pickset->ents ss))
   
5.     )
   
6.     (setq ss (mapcar '(lambda (x)
   
7.                         (list (if (= (strcase property) "ANGLE")
   
8.                                 (xd::geom:angleformat
   
9.                                   (xdrx_getpropertyvalue x property)
   
10.                                 )
    
11.                                 (xdrx_getpropertyvalue x property)
    
12.                               )
    
13.                               x
    
14.                         )
    
15.                       )
    
16.                      ss
    
17.              )
    
18.     )
    
19.     (xd::list:groupbyindex ss tol)
    
20.   )
    
21.   (if (and (xdrx_initssget "\n选取变单的双线<退出>:")
    
22.            (setq ss (xdrx_ssget '((0 . "LINE"))))
    
23.            (setq ents (xd::ents:groupbyproperty ss "length" 1.0))
    
24.       )
    
25.     (progn
    
26.       (mapcar
    
27.         '(lambda (x)
    
28.            (setq el (xd::ents:groupbyproperty (cdr x) "angle" 0.1))
    
29.            (mapcar
    
30.              '(lambda (y)
    
31.                 (setq el1 (cdr y)
    
32.                       el1 (xd::list:dotpair el1)
    
33.                 )
    
34.                 (mapcar
    
35.                   '(lambda (z)
    
36.                      (setq e1  (car z)
    
37.                            p1  (xdrx_getpropertyvalue e1 "startpoint")
    
38.                            ecs (xdrx_entity_getecs e1)
    
39.                            e2  (cadr z)
    
40.                      )
    
41.                      (xdrx_getpropertyvalue e2 "startpoint" "endpoint")
    
42.                      (setq dis (xdrx_point_dist2line
    
43.                                  p1
    
44.                                  #startpoint
    
45.                                  #endpoint
    
46.                                )
    
47.                            vec (xdrx_vector_product (caddr ecs) (/ dis 2.0))
    
48.                      )
    
49.                      (xdrx_line_make (xdrx_curve_offset e1 (/ dis 2.0)))
    
50.                      (xdrx_entity_setpropertiesfrom (entlast) e1)
    
51.                      (xdrx_entity_delete e1 e2)
    
52.                    )
    
53.                   el1
    
54.                 )
    
55.               )
    
56.              el
    
57.            )
    
58.          )
    
59.         ents
    
60.       )
    
61. 
    
62.     )
    
63.   )
    
64.   (princ)
    
65. )

(defun c:tt ()<br />   (defun xd::ents:groupbyproperty (ss property tol / ents)<br />     (if (= (type ss) 'PICKSET)<br />       (setq ss (xdrx_pickset->ents ss))<br />     )<br />     (setq ss (mapcar '(lambda (x)<br />                         (list (if (= (strcase property) "ANGLE")<br />                                 (xd::geom:angleformat<br />                                   (xdrx_getpropertyvalue x property)<br />                                 )<br />                                 (xdrx_getpropertyvalue x property)<br />                               )<br />                               x<br />                         )<br />                       )<br />                      ss<br />              )<br />     )<br />     (xd::list:groupbyindex ss tol)<br />   )<br />   (if (and (xdrx_initssget "\n选取变单的双线<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "LINE"))))<br />            (setq ents (xd::ents:groupbyproperty ss "length" 1.0))<br />       )<br />     (progn<br />       (mapcar<br />         '(lambda (x)<br />            (setq el (xd::ents:groupbyproperty (cdr x) "angle" 0.1))<br />            (mapcar<br />              '(lambda (y)<br />                 (setq el1 (cdr y)<br />                       el1 (xd::list:dotpair el1)<br />                 )<br />                 (mapcar<br />                   '(lambda (z)<br />                      (setq e1  (car z)<br />                            p1  (xdrx_getpropertyvalue e1 "startpoint")<br />                            ecs (xdrx_entity_getecs e1)<br />                            e2  (cadr z)<br />                      )<br />                      (xdrx_getpropertyvalue e2 "startpoint" "endpoint")<br />                      (setq dis (xdrx_point_dist2line<br />                                  p1<br />                                  #startpoint<br />                                  #endpoint<br />                                )<br />                            vec (xdrx_vector_product (caddr ecs) (/ dis 2.0))<br />                      )<br />                      (xdrx_line_make (xdrx_curve_offset e1 (/ dis 2.0)))<br />                      (xdrx_entity_setpropertiesfrom (entlast) e1)<br />                      (xdrx_entity_delete e1 e2)<br />                    )<br />                   el1<br />                 )<br />               )<br />              el<br />            )<br />          )<br />         ents<br />       )<br /> <br />     )<br />   )<br />   (princ)<br /> )

newer

传个DWG图上来，你这个双线就是普通的两根线组成的？ 没别的特征？ 你有什么办法说明哪两根是一组的？

快乐王子刚

newer 发表于 2017-3-24 20:01

请点击此处下载

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

您的用户组是：游客

文件名称:双线变单线.rar 
下载次数:29  文件大小:8.73 KB 
下载权限: 不限 以上  [免费赚D豆]

   每个颜色为一组。双线的距离不会大于5MM，

csharp

线长、角度(格式化的)为特征分组后处理

liuyj

扩展一下，不仅仅对直线有效呢？对所有的平行曲线是否都能做到？

newer

liuyj 发表于 2017-3-24 23:43

要想实现，首先要有一个能清晰的说明那两条平行线是一组的规则。

其实，这个双线是怎么来的？ 应该在生成的时候就为以后处理单线做好准备，比如做成组，块等等，为的是能方便快捷的选定一组相关的实体。

如果你按照这个规矩画图，那么后续的编辑都非常方便。

如果是没有任何关联的单个的线，弧，多段线等等，那么就不容易在后续处理。

画图的开始，就决定了你画图是否有效率了。

csharp

liuyj 发表于 2017-3-24 23:43

任意曲线?
你先了解了解曲线平行后的实体类型
arc circle 不变
ellipse 变化
spline 不变，但控制点变
polyline 类型不变但情况多种

快乐王子刚

newer 发表于 2017-3-24 22:45

太完美了，谢谢版主的热帮助，这可节省了我好多时间。

xyp1964

;; 双线中线