【炫翔】批量矩形偏移端点连线（大部分已注释）

炫翔

1. ;作者:炫翔 QQ：2363673534  网盘地址:http://xuanxiang.ys168.com
   
2. (defun c:xx (/ i s1 ss)
   
3.   (setq ss (ssget ":s" '((0 . "*LWPOLYLINE")));只选取矩形
   
4.   i -1;初始化一个值
   
5.   )
   
6.   (while (setq s1 (ssname ss (setq i (1+ i))));遍历选择集的每一个图元
   
7.     (REC2PT4 s1 20);对每一个图元进行处理
   
8.   )
   
9. )
   
10. 
    
11. ;偏移，端点连线子函数
    
12. ;S1为图元名  dist  为偏移的距离
    
13. (DEFUN REC2PT4 (S1 dist / p0 p1 p11 p3 p33 p7 p77 p9 p99 pts1 pts2 s2 x y)
    
14.   (SETQ P1 (xx-en-9pt S1 1);矩形的左下点
    
15.   P3 (xx-en-9pt S1 3);矩形的右下点
    
16.   P7 (xx-en-9pt S1 7);矩形的左上点
    
17.   P9 (xx-en-9pt S1 9);矩形的右上点
    
18.   P0 (xx-en-9pt S1 5);矩形的中点
    
19.   )
    
20.   (SETQ PTS1(list P1 P3 P7 P9));将点组合成一个表
    
21.   (command "_.OFFSET" dist S1 p0 "")
    
22.   (SETQ S2(ENTLAST))
    
23.   (SETQ P11 (xx-en-9pt S2 1);矩形的左下点
    
24.   P33 (xx-en-9pt S2 3);矩形的右下点
    
25.   P77 (xx-en-9pt S2 7);矩形的左上点
    
26.   P99 (xx-en-9pt S2 9);矩形的右上点
    
27.   )
    
28.   (SETQ PTS2(list P11 P33 P77 P99));将点组合成一个表
    
29.   (mapcar '(lambda (x y) (xx-mk-pline2 x y)) PTS1 PTS2);分别对点表进行操作
    
30. )
    
31. 
    
32. 
    
33. ;生成一条两顶点多段线（多顶点类似）
    
34. ;参数:pt1:起点，pt2:下一点
    
35. ;(xx-mk-pline2 pt1 pt2)
    
36. (defun xx-mk-pline2 (pt1 pt2)
    
37. (if (and(= (type pt1) 'list)(= (type pt2) 'list))
    
38.   (progn
    
39.    (entmake
    
40.       (list
    
41.         '(0 . "lwpolyline")
    
42.         '(100 . "AcDbEntity")
    
43.         '(100 . "AcDbPolyline")
    
44.         (cons 90 2) ;顶点数（一定要有的），例为2个顶点
    
45.         (cons 10 pt1)
    
46.         (cons 10 pt2)
    
47.       )
    
48.    )
    
49.   )
    
50.   (princ "\n xx-mk-pline2 错了！")
    
51. )
    
52. )
    
53. 
    
54. 
    
55. ;获取对象的9点坐标
    
56. ;7 8 9
    
57. ;4 5 6
    
58. ;1 2 3
    
59. (defun xx-en-9pt (s1 mode / dx dy point pointmax pointmin x1 x2 y1 y2)
    
60. (cond
    
61.    ((and (= (type s1) 'ENAME)(= (type mode) 'INT))(setq s1 (vlax-ename->vla-object s1)))
    
62.    ((and (= (type s1) 'vla-object)(= (type mode) 'INT))(setq s1 s1))
    
63.    (t (princ "\n xx-en--9pt  错了！")(quit))
    
64. )
    
65.    (vla-getboundingbox s1 'minpoint 'maxpoint)
    
66.    (setq pointmax (vlax-safearray->list maxpoint);取得第9点
    
67.          pointmin (vlax-safearray->list minpoint);取得第1点
    
68.               x1  (car pointmin)
    
69.               x2  (car pointmax)
    
70.               y1  (cadr pointmin)
    
71.               y2  (cadr pointmax)
    
72.               dx  (/ (- x2 x1) 2.0)
    
73.               dy  (/ (- y2 y1) 2.0)
    
74.    )
    
75.    (cond ((= mode 1) (setq point pointmin))
    
76.          ((= mode 2) (setq point (list (+ x1 dx) y1 0.0)))
    
77.          ((= mode 3) (setq point (list x2 y1 0.0)))
    
78.          ((= mode 4) (setq point (list x1 (+ y1 dy)0.0)))
    
79.          ((= mode 5) (setq point (list (+ x1 dx) (+ y1 dy)0.0)))
    
80.          ((= mode 6) (setq point (list x2 (+ y1 dy)0.0)))
    
81.          ((= mode 7) (setq point (list x1 y2 0.0)))
    
82.          ((= mode 8) (setq point (list (+ x1 dx) y2 0.0)))
    
83.          ((= mode 9) (setq point pointmax))
    
84.          (t (setq point pointmin))
    
85.    )
    
86.    point
    
87. )
    

;作者:炫翔 QQ：2363673534  网盘地址:<a href=\"http://xuanxiang.ys168.com\" target=\"_blank\">http://xuanxiang.ys168.com</a><br /> (defun c:xx (/ i s1 ss)<br />   (setq ss (ssget ":s" '((0 . "*LWPOLYLINE")));只选取矩形<br />   i -1;初始化一个值<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))));遍历选择集的每一个图元<br />     (REC2PT4 s1 20);对每一个图元进行处理<br />   )<br /> )<br /> <br /> ;偏移，端点连线子函数<br /> ;S1为图元名  dist  为偏移的距离<br /> (DEFUN REC2PT4 (S1 dist / p0 p1 p11 p3 p33 p7 p77 p9 p99 pts1 pts2 s2 x y)<br />   (SETQ P1 (xx-en-9pt S1 1);矩形的左下点<br />   P3 (xx-en-9pt S1 3);矩形的右下点<br />   P7 (xx-en-9pt S1 7);矩形的左上点<br />   P9 (xx-en-9pt S1 9);矩形的右上点<br />   P0 (xx-en-9pt S1 5);矩形的中点<br />   )<br />   (SETQ PTS1(list P1 P3 P7 P9));将点组合成一个表<br />   (command "_.OFFSET" dist S1 p0 "")<br />   (SETQ S2(ENTLAST))<br />   (SETQ P11 (xx-en-9pt S2 1);矩形的左下点<br />   P33 (xx-en-9pt S2 3);矩形的右下点<br />   P77 (xx-en-9pt S2 7);矩形的左上点<br />   P99 (xx-en-9pt S2 9);矩形的右上点<br />   )<br />   (SETQ PTS2(list P11 P33 P77 P99));将点组合成一个表<br />   (mapcar '(lambda (x y) (xx-mk-pline2 x y)) PTS1 PTS2);分别对点表进行操作<br /> )<br /> <br /> <br /> ;生成一条两顶点多段线（多顶点类似）<br /> ;参数:pt1:起点，pt2:下一点<br /> ;(xx-mk-pline2 pt1 pt2)<br /> (defun xx-mk-pline2 (pt1 pt2)<br /> (if (and(= (type pt1) 'list)(= (type pt2) 'list))<br />   (progn<br />    (entmake <br />       (list<br />         '(0 . "lwpolyline")<br />         '(100 . "AcDbEntity") <br />         '(100 . "AcDbPolyline") <br />         (cons 90 2) ;顶点数（一定要有的），例为2个顶点<br />         (cons 10 pt1) <br />         (cons 10 pt2)<br />       )<br />    )<br />   )<br />   (princ "\n xx-mk-pline2 错了！")<br /> )<br /> )<br /> <br /> <br /> ;获取对象的9点坐标<br /> ;7 8 9<br /> ;4 5 6<br /> ;1 2 3<br /> (defun xx-en-9pt (s1 mode / dx dy point pointmax pointmin x1 x2 y1 y2)<br /> (cond <br />    ((and (= (type s1) 'ENAME)(= (type mode) 'INT))(setq s1 (vlax-ename->vla-object s1)))<br />    ((and (= (type s1) 'vla-object)(= (type mode) 'INT))(setq s1 s1))<br />    (t (princ "\n xx-en--9pt  错了！")(quit))<br /> )<br />    (vla-getboundingbox s1 'minpoint 'maxpoint)<br />    (setq pointmax (vlax-safearray->list maxpoint);取得第9点<br />          pointmin (vlax-safearray->list minpoint);取得第1点<br />               x1  (car pointmin)<br />               x2  (car pointmax)<br />               y1  (cadr pointmin)<br />               y2  (cadr pointmax)<br />               dx  (/ (- x2 x1) 2.0)<br />               dy  (/ (- y2 y1) 2.0)<br />    )<br />    (cond ((= mode 1) (setq point pointmin))<br />          ((= mode 2) (setq point (list (+ x1 dx) y1 0.0)))<br />          ((= mode 3) (setq point (list x2 y1 0.0)))<br />          ((= mode 4) (setq point (list x1 (+ y1 dy)0.0)))<br />          ((= mode 5) (setq point (list (+ x1 dx) (+ y1 dy)0.0)))<br />          ((= mode 6) (setq point (list x2 (+ y1 dy)0.0)))<br />          ((= mode 7) (setq point (list x1 y2 0.0)))<br />          ((= mode 8) (setq point (list (+ x1 dx) y2 0.0)))<br />          ((= mode 9) (setq point pointmax))<br />          (t (setq point pointmin))<br />    )<br />    point<br /> )<br />

GTJ116600

呵呵，翔版原创，好思路，赞一个

newer

偏移距离要是很大，是不是要出错？

清风明月10

运行后有时结果正常，有时结果不正常，是错误的。错误概率有50%

仲文玉

获取图元-->遍历-->计算中点-->计算节点坐标-->偏移对象-->获取新图元坐标-->两图元坐标间匹配连线-->循环-->ok:lol

st788796

节点数相等才绘制

st788796

对自交线或者距离超大的时候会出现退化现象，节点数会不等的

1. (defun c:tt (/ ss dis e pts0 pts1)
   
2.   (if (and (setq ss (ssget '((0 . "*polyline"))))
   
3.     (setq dis (getdist "\noffset distance: "))
   
4.       )
   
5.     (progn
   
6.       (xdrx_setsstodb ss 0)
   
7.       (while (setq e (xdrx_getentdata 0))
   
8. (setq pts0 (xdrx_entity_getstretchpoint e))
   
9. (vla-offset (vlax-ename->vla-object e) dis)
   
10. (setq pts1 (xdrx_entity_getstretchpoint (entlast)))
    
11. (if (= (length pts0) (length pts1))
    
12.    (apply 'xdrx_line_make
    
13.    (mapcar '(lambda (x y) (list x y)) pts0 pts1)
    
14.    )
    
15. )
    
16.       )
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )

(defun c:tt (/ ss dis e pts0 pts1)<br />   (if (and (setq ss (ssget '((0 . "*polyline"))))<br />     (setq dis (getdist "\noffset distance: "))<br />       )<br />     (progn<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br /> (setq pts0 (xdrx_entity_getstretchpoint e))<br /> (vla-offset (vlax-ename->vla-object e) dis)<br /> (setq pts1 (xdrx_entity_getstretchpoint (entlast)))<br /> (if (= (length pts0) (length pts1))<br />    (apply 'xdrx_line_make<br />    (mapcar '(lambda (x y) (list x y)) pts0 pts1)<br />    )<br /> )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

NET-JOB

再加强下功能吧，两条连线之间画垂线，可以选择等距或者等分

newer

NET-JOB 发表于 2013-7-15 17:01
再加强下功能吧，两条连线之间画垂线，可以选择等距或者等分

这样画，是什么专业的，什么图形？

q3_2006

仲文玉 发表于 2013-7-15 15:58
获取图元-->遍历-->计算中点-->计算节点坐标-->偏移对象-->获取新图元坐标-->两图元坐标间匹配连线-->循环- ...

这个更厉害！赞一个！

q3_2006

期待，只能矩形真的不太有通用性！

q3_2006

q3_2006 发表于 2013-7-15 17:31
期待，只能矩形真的不太有通用性！

习惯太差，明白了，知道如何扩展了，谢谢！

daidong013

呵呵，可能会有用，留个脚印先！

daidong013

st788796 发表于 2013-7-15 16:37
对自交线或者距离超大的时候会出现退化现象，节点数会不等的

偏移多少，能设置就好了！

yzr2002626

最好是能偏线，还有就是能内外偏移