直线偏移连动~偏移后修改与其相接触的直线

edata

zjsru_18_505 发表于 2014-6-1 18:09
程序有BUG，实例如下：
(command "_line" '(10 0) '(10 10) '(10 20) '(20 20) '(10 10) "")

程序设计之初没有考虑同一方向上与之接触的线，所以说这样的图形出现了bug。该程序仅是考虑了偏移对象相接触并与偏移对象有角度的直线。其他不在该程序范围。

zjsru_18_505

对楼上几位的要求，综合修改了一下

1. (defun
   
2.    COLINEARP (P1 P2 P3)
   
3. ;;;三点共线
   
4.   ((lambda (A B C)
   
5.      (or (equal (+ A B) C 1e-8) (equal (+ B C) A 1e-8) (equal (+ C A) B 1e-8))
   
6.    )
   
7.     (distance P1 P2)
   
8.     (distance P2 P3)
   
9.     (distance P1 P3)
   
10.   )
    
11. )
    
12. 
    
13. (defun
    
14.    SK_HIGHLIGHT        (SS FLAG / I EN)
    
15. ;;;高亮图元或选择集
    
16.   (if (= (type SS) 'PICKSET)
    
17.     (progn
    
18.       (setq I -1)
    
19.       (repeat (sslength SS)
    
20.         (setq EN (ssname SS (setq I (1+ I))))
    
21.         (redraw
    
22.           EN
    
23.           (if FLAG
    
24.             3
    
25.             4
    
26.           )
    
27.         )
    
28.       )
    
29.     )
    
30.   )
    
31.   (if (= (type SS) 'ENAME)
    
32.     (redraw
    
33.       SS
    
34.       (if FLAG
    
35.         3
    
36.         4
    
37.       )
    
38.     )
    
39.   )
    
40. )
    
41. 
    
42. (defun
    
43.    SK_ENTMOD (E CODE NEW / EN)
    
44. ;;;(sk_entmod 图元名 组码 新值 )
    
45.   (setq EN (entget E))
    
46.   (entmod (subst (cons CODE NEW) (assoc CODE EN) EN))
    
47. )
    
48. 
    
49. 
    
50. (defun
    
51.    C:TOO (/         ANG1        BUZO   CPT    E             E1            EN           I          IP12         J
    
52.           LEN         MODCODE       NEW1   NEW2   NEWP1  NEWP2  OFFSETDI
    
53.           OFFSETDI1        PT0    PT1    PT2    PT3    PT4           PT5          SS         SS1
    
54.          )
    
55. ;;;功能：偏移联动
    
56. ;;;作者：修改自＝楼主: edata
    
57. ;;;时间：2014-6-1
    
58.   (if (getenv "OFFSETDI")
    
59.     (setq OFFSETDI (atof (getenv "OFFSETDI")))
    
60.   )
    
61.   (initget 6)
    
62.   (if (> OFFSETDI 0)
    
63.     (progn
    
64.       (if (setq
    
65.             OFFSETDI1
    
66.              (getdist
    
67.                (strcat "\n指定偏移距离" " <" (rtos OFFSETDI) ">:")
    
68.              )
    
69.           )
    
70.         (setq OFFSETDI OFFSETDI1)
    
71.       )
    
72.     )
    
73.     (progn
    
74.       (while (not (setq OFFSETDI (getdist "\n指定偏移距离:"))) (initget 6))
    
75.     )
    
76.   )
    
77.   (setenv "OFFSETDI" (rtos OFFSETDI))
    
78.   (defun *ERROR* (MSG) (setvar "OSMODE" BUZO) (princ))
    
79.   (while (setq SS (ssget '((0 . "line"))))
    
80.     (setq
    
81.       I        0
    
82.       J        0
    
83.     )
    
84.     (setq BUZO (getvar "OSMODE"))
    
85.     (setvar "OSMODE" 0)
    
86.     (setq LEN (sslength SS))
    
87.     (repeat LEN
    
88.       (setq
    
89.         E   (ssname SS I)
    
90.         EN  (entget E)
    
91.         PT1 (cdr (assoc 10 EN))
    
92.         PT2 (cdr (assoc 11 EN))
    
93.         PT0 (polar PT1 (angle PT1 PT2) (/ (distance PT1 PT2) 2))
    
94.       )
    
95.       (command "_.zoom" PT1 PT2)
    
96.       (setq SS1 (ssget "_f" (list PT1 PT2) '((0 . "line"))))
    
97.       (command "_.zoom" "p")
    
98.       (SK_HIGHLIGHT SS1 t)
    
99.       (if (setq PT3 (getpoint PT0 "\n指定要偏移的那一侧上的点 <退出当前>:"))
    
100.         (progn
     
101.           (SK_HIGHLIGHT SS1 NIL)
     
102.           (setq SS1 (ssdel E SS1))
     
103.           (setq
     
104.             CPT         (inters
     
105.                    PT3
     
106.                    (polar PT3 (+ (angle PT1 PT2) (/ pi 2)) 1.0)
     
107.                    PT1
     
108.                    PT2
     
109.                    NIL
     
110.                  )
     
111.             ANG1 (angle CPT PT3)
     
112.             NEW1 (polar PT1 ANG1 OFFSETDI)
     
113.             NEW2 (polar PT2 ANG1 OFFSETDI)
     
114.           )
     
115.           (while (setq E1 (ssname SS1 0))
     
116.             (setq
     
117.               EN      (entget E1)
     
118.               PT4     (cdr (assoc 10 EN))
     
119.               PT5     (cdr (assoc 11 EN))
     
120.               MODCODE NIL
     
121.             )
     
122.             (if        (or (equal PT4 PT1 1e-8)
     
123.                     (equal PT5 PT1 1e-8)
     
124.                     (COLINEARP PT1 PT4 PT5)
     
125.                 )
     
126.               (if (setq NEWP1 (inters NEW1 NEW2 PT4 PT5 NIL))
     
127.                 (setq NEW1 NEWP1)
     
128.               )
     
129.             )
     
130.             (if        (or (equal PT4 PT2 1e-8)
     
131.                     (equal PT4 PT2 1e-8)
     
132.                     (COLINEARP PT2 PT4 PT5)
     
133.                 )
     
134.               (if (setq NEWP2 (inters NEW1 NEW2 PT4 PT5 NIL))
     
135.                 (setq NEW2 NEWP2)
     
136.               )
     
137.             )
     
138.             (if        (COLINEARP PT4 PT1 PT2)
     
139.               (setq MODCODE 10)
     
140.             )
     
141.             (if        (COLINEARP PT5 PT1 PT2)
     
142.               (setq MODCODE 11)
     
143.             )
     
144.             (if        (and (setq IP12 (inters NEW1 NEW2 PT4 PT5 NIL)) MODCODE)
     
145.               (progn (SK_ENTMOD E1 MODCODE IP12))
     
146.             )
     
147.             (setq SS1 (ssdel E1 SS1))
     
148.           )
     
149.           (SK_ENTMOD E 10 NEW1)
     
150.           (SK_ENTMOD E 11 NEW2)
     
151.         )
     
152.         (progn (princ "\n未指定方向点!") (SK_HIGHLIGHT SS1 NIL))
     
153.       )
     
154.       (setq I (1+ I))
     
155.     )
     
156.     (setvar "OSMODE" BUZO)
     
157.   )
     
158.   (princ)
     
159. )

(defun<br />    COLINEARP (P1 P2 P3)<br /> ;;;三点共线<br />   ((lambda (A B C)<br />      (or (equal (+ A B) C 1e-8) (equal (+ B C) A 1e-8) (equal (+ C A) B 1e-8))<br />    )<br />     (distance P1 P2)<br />     (distance P2 P3)<br />     (distance P1 P3)<br />   )<br /> )<br /> <br /> (defun<br />    SK_HIGHLIGHT        (SS FLAG / I EN)<br /> ;;;高亮图元或选择集<br />   (if (= (type SS) 'PICKSET)<br />     (progn<br />       (setq I -1)<br />       (repeat (sslength SS)<br />         (setq EN (ssname SS (setq I (1+ I))))<br />         (redraw<br />           EN<br />           (if FLAG<br />             3<br />             4<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (if (= (type SS) 'ENAME)<br />     (redraw<br />       SS<br />       (if FLAG<br />         3<br />         4<br />       )<br />     )<br />   )<br /> )<br /> <br /> (defun<br />    SK_ENTMOD (E CODE NEW / EN)<br /> ;;;(sk_entmod 图元名 组码 新值 )<br />   (setq EN (entget E))<br />   (entmod (subst (cons CODE NEW) (assoc CODE EN) EN))<br /> )<br /> <br /> <br /> (defun<br />    C:TOO (/         ANG1        BUZO   CPT    E             E1            EN           I          IP12         J<br />           LEN         MODCODE       NEW1   NEW2   NEWP1  NEWP2  OFFSETDI<br />           OFFSETDI1        PT0    PT1    PT2    PT3    PT4           PT5          SS         SS1<br />          )<br /> ;;;功能：偏移联动<br /> ;;;作者：修改自＝楼主: edata<br /> ;;;时间：2014-6-1<br />   (if (getenv "OFFSETDI")<br />     (setq OFFSETDI (atof (getenv "OFFSETDI")))<br />   )<br />   (initget 6)<br />   (if (> OFFSETDI 0)<br />     (progn<br />       (if (setq<br />             OFFSETDI1<br />              (getdist<br />                (strcat "\n指定偏移距离" " <" (rtos OFFSETDI) ">:")<br />              )<br />           )<br />         (setq OFFSETDI OFFSETDI1)<br />       )<br />     )<br />     (progn<br />       (while (not (setq OFFSETDI (getdist "\n指定偏移距离:"))) (initget 6))<br />     )<br />   )<br />   (setenv "OFFSETDI" (rtos OFFSETDI))<br />   (defun *ERROR* (MSG) (setvar "OSMODE" BUZO) (princ))<br />   (while (setq SS (ssget '((0 . "line"))))<br />     (setq<br />       I        0<br />       J        0<br />     )<br />     (setq BUZO (getvar "OSMODE"))<br />     (setvar "OSMODE" 0)<br />     (setq LEN (sslength SS))<br />     (repeat LEN<br />       (setq<br />         E   (ssname SS I)<br />         EN  (entget E)<br />         PT1 (cdr (assoc 10 EN))<br />         PT2 (cdr (assoc 11 EN))<br />         PT0 (polar PT1 (angle PT1 PT2) (/ (distance PT1 PT2) 2))<br />       )<br />       (command "_.zoom" PT1 PT2)<br />       (setq SS1 (ssget "_f" (list PT1 PT2) '((0 . "line"))))<br />       (command "_.zoom" "p")<br />       (SK_HIGHLIGHT SS1 t)<br />       (if (setq PT3 (getpoint PT0 "\n指定要偏移的那一侧上的点 <退出当前>:"))<br />         (progn<br />           (SK_HIGHLIGHT SS1 NIL)<br />           (setq SS1 (ssdel E SS1))<br />           (setq<br />             CPT         (inters<br />                    PT3<br />                    (polar PT3 (+ (angle PT1 PT2) (/ pi 2)) 1.0)<br />                    PT1<br />                    PT2<br />                    NIL<br />                  )<br />             ANG1 (angle CPT PT3)<br />             NEW1 (polar PT1 ANG1 OFFSETDI)<br />             NEW2 (polar PT2 ANG1 OFFSETDI)<br />           )<br />           (while (setq E1 (ssname SS1 0))<br />             (setq<br />               EN      (entget E1)<br />               PT4     (cdr (assoc 10 EN))<br />               PT5     (cdr (assoc 11 EN))<br />               MODCODE NIL<br />             )<br />             (if        (or (equal PT4 PT1 1e-8)<br />                     (equal PT5 PT1 1e-8)<br />                     (COLINEARP PT1 PT4 PT5)<br />                 )<br />               (if (setq NEWP1 (inters NEW1 NEW2 PT4 PT5 NIL))<br />                 (setq NEW1 NEWP1)<br />               )<br />             )<br />             (if        (or (equal PT4 PT2 1e-8)<br />                     (equal PT4 PT2 1e-8)<br />                     (COLINEARP PT2 PT4 PT5)<br />                 )<br />               (if (setq NEWP2 (inters NEW1 NEW2 PT4 PT5 NIL))<br />                 (setq NEW2 NEWP2)<br />               )<br />             )<br />             (if        (COLINEARP PT4 PT1 PT2)<br />               (setq MODCODE 10)<br />             )<br />             (if        (COLINEARP PT5 PT1 PT2)<br />               (setq MODCODE 11)<br />             )<br />             (if        (and (setq IP12 (inters NEW1 NEW2 PT4 PT5 NIL)) MODCODE)<br />               (progn (SK_ENTMOD E1 MODCODE IP12))<br />             )<br />             (setq SS1 (ssdel E1 SS1))<br />           )<br />           (SK_ENTMOD E 10 NEW1)<br />           (SK_ENTMOD E 11 NEW2)<br />         )<br />         (progn (princ "\n未指定方向点!") (SK_HIGHLIGHT SS1 NIL))<br />       )<br />       (setq I (1+ I))<br />     )<br />     (setvar "OSMODE" BUZO)<br />   )<br />   (princ)<br /> )

qinleilei

edata 发表于 2014-5-9 18:09
LWPOLYLINE线单边偏移关联(仅多段线)

试了一下，相当给力！但是也发现了个问题，就是当坐标系不是世界坐标的时候出现了混乱情况。建议在前面加一个坐标系还原世界坐标。

技术工作室

很给力顶一下

wangxf888

好程序   经典实用

goldwheat

好程序   经典实用

xieyanghui

程序很好用，但不支持UCS，希望改进一下支持UCS，谢谢！！

8稻草人8

这个好，工作上用到

伪书虫86

E大的精品先收藏了

crazylsp

楼主的思路很好，在他的启发下怎么来让我们用交叉多边形选择少选一半的点，另一半对称过来。

;点边界点来拉伸。

(defun c:test()

   (setq plst1'()
         plst2'()
         plst3'()
   )
   ;选择点。
   (while(setq pnt(getpoint))
      (setq plst1(cons (polar pnt 0  0.5) plst1)  ;0.5适合本人的工作图纸。
            plst2(cons (polar pnt pi 0.5) plst2)
      )
   )

   ;现在两表中有一半的点了。;把两个端点再调整一下。
   
   ;1表的两个端点。
   (setq pnt1(car plst1)
         pnt2(cadr plst1)
         an1 (angle pnt2 pnt1)
         pnt1(polar pnt1 an1 0.5)
         plst1(cdr plst1)
         plst1(cons pnt1 plst1)
         pnt3(nth (-(length plst1 )1) plst1)
         pnt4(nth (-(length plst1 )2) plst1)
         an2 (angle pnt4 pnt3)
         pnt5(polar pnt3 an2 0.5)
         plst1(vl-remove pnt3 plst1)
         plst1(append plst1 (list pnt5))
   )

   ;(command "circle" "non"pnt1 1)
   ;(command "circle" "non"pnt5 1)

         ;2表的两个端点。
   (setq pnt6(car plst2)
         pnt7(cadr plst2)
         an3 (angle pnt7 pnt6)
         pnt66(polar pnt6 an3 0.5)
         plst2(cdr plst2)
         plst2(cons pnt66 plst2)
         pnt8(nth (-(length plst1 )1) plst2)
         pnt9(nth (-(length plst1 )2) plst2)
         an4 (angle pnt9 pnt8)
         pnt88(polar pnt8 an4 0.5)
         plst2(vl-remove pnt8 plst2)
         plst2(append  plst2 (list pnt88) )
   )

   ;(command "circle" "non"pnt66 1)
   ;(command "circle" "non"pnt88 1)

   ;得到闭合点，反向2表。
   (setq pt2   (last plst2)
         plst2 (reverse plst2)
   )

   ;合并两个表   
   (setq plst3 (append plst2 plst1 (list pt2)))

   ;拉伸命令有CP选择的点表了
   (command "stretch" (ssget "CP"  plst3)"" pause)

)

(defun c:test1( / )
  
   (setq plst1'()
         plst2'()
         plst3'()
         dist (getdist"输入宽度")
         pntb (getpoint "选择边界点"))

   (if(null dist)(setq dist 0.5))
         
   (while (setq pnta (getpoint pntb"选择边界点"))
         
      (setq ana   (+(angle pntb pnta)(/ pi 2))
            anb   (+ ana pi)
            plst1 (cons (polar pntb  ana  dist) plst1)         
            plst2 (cons (polar pntb  anb  dist) plst2)
            pntb   pnta
      ) )

   (setq plst1 (cons (polar pntb    ana  dist) plst1)         
         plst2 (cons (polar pntb    anb  dist) plst2)
         pnt  (last plst)
         plst2 (reverse plst2)
         plst3 (append plst2 plst1 (list pnt)))

   (setq k 0 )
   (foreach pnts plst3
      (grdraw (nth k plst3) (nth (+ k 1) plst3) 1 0)
      (setq k(1+ k)))

   ;(command "stretch" (ssget "CP"  plst3) "R"pause)
)