[建议]：单线变双

n188888888

晓东工具可否增加单线变双命令,自定宽度!这样将给制图提供很多方便!谢谢

f5612140

補充樓主需求
1.批量處理
2.交叉部份同部截除

eachy

专业软件都有这个功能，建筑、规划等等

f5612140

最初由 eachy 发布
[B]专业软件都有这个功能，建筑、规划等等 [/B]

大部份專業軟件都要花錢或keypro的問題

WRHCHINA

我收集的一个单线变双，但原来的线条没有了，我想保留原线、且变双所两条先变为当前层或指定层，谁帮忙修改一下？

coolzhb

修改好了，将两处的(entdel line1)注册即可！

2. 
   
3.   [FONT=courier new]
   
4. ;;; dub.lsp
   
5. ;;; 本程序用处是 把单线转换成双线
   
6. ;;; 用法:
   
7. ;;;   装载后 键入 dub , 输入双线的半宽,
   
8. ;;;   然后 依次选择需转换的线 即可.
   
9. ;;;   注意! 只能是线!
   
10. ;;; 作者：陈皓，回信请给magicblood@usa.net
    
11. 
    
12. (defun c:dub (/               sblip        scmde         wi          line1           spt
    
13.               data1    data2        data3         data4          data5           pt1
    
14.               pt2      bpt1        bpt2         off_l1p1 off_l2p2 off_l1p2
    
15.               off_l2p1 boffl1p1        boffl1p2 boffl2p1 boffl2p2 off_l1
    
16.               off_l2   boff_l1        boff_l2         p1          p2           pp1
    
17.               pp2      bpp1        bpp2         l1          l2           bl1
    
18.               bl2      ll1        ll2         bll1          bll2
    
19.              )
    
20. 
    
21.   ;; 文件头,设置系统环境,读取双线半宽以及选取和提取第一条基线数据.
    
22.   (setq sblip (getvar "blipmode"))
    
23.   (setq scmde (getvar "cmdecho"))
    
24.   (setq oldosnap (getvar "osnap"))        ; and by xiewr
    
25.   (setvar "osmode" 0)                        ;
    
26.   (setvar "blipmode" 0)
    
27.   (setvar "cmdecho" 0)
    
28.   (setq wi (getreal "Half width:"))
    
29.   (setq line1 (entsel "\nPlease chooes line:"))
    
30.   (setq spt (cadr line1))
    
31.   (setq line1 (car line1))
    
32.   (setq data1 (entget line1))
    
33.   (setq pt1 (cdr (assoc 10 data1)))
    
34.   (setq pt2 (cdr (assoc 11 data1)))
    
35. 
    
36.   (off_pt)
    
37. 
    
38.   ;; 进行基线偏移,及获取偏移线的实体名.
    
39.   (command "offset" wi spt p1 spt p2 "")
    
40.                                         ;(entdel line1)
    
41.   (setq off_l1 (entlast))
    
42.   (entdel off_l1)
    
43.   (setq off_l2 (entlast))
    
44.   (entdel off_l1)
    
45. 
    
46.   ;; 数据备份
    
47.   (setq bpt1 pt1)
    
48.   (setq bpt2 pt2)
    
49.   (setq boff_l1 off_l1)
    
50.   (setq boff_l2 off_l2)
    
51. 
    
52.   (setq line1 (entsel "\nPlease chooes line:"))
    
53.   (setq spt (cadr line1))
    
54.   (setq line1 (car line1))
    
55. 
    
56.   ;; 循环进行各拾取线的处理
    
57.   (while line1
    
58.     (setq data1 (entget line1))
    
59.     (setq pt1 (cdr (assoc 10 data1)))
    
60.     (setq pt2 (cdr (assoc 11 data1)))
    
61. 
    
62.     (off_pt)
    
63.     (command "offset" wi spt p1 spt p2 "")
    
64.                                         ;(entdel line1)
    
65.     (setq off_l1 (entlast))
    
66.     (entdel off_l1)
    
67.     (setq off_l2 (entlast))
    
68.     (entdel off_l1)
    
69. 
    
70.     (get_data)
    
71. 
    
72.     ;; 计算各偏移线在不同情况下的处理数据.
    
73.     (cond
    
74.       ((equal bpt2 pt1)
    
75.        (cond
    
76.          ((inters
    
77.             off_l1p1
    
78.             off_l1p2
    
79.             boffl1p1
    
80.             boffl1p2
    
81.           )
    
82.           (setq pp1 off_l1p2)
    
83.           (setq pp2 off_l2p2)
    
84.           (setq bpp1 boffl1p1)
    
85.           (setq bpp2 boffl2p1)
    
86.           (setq l1 off_l1)
    
87.           (setq l2 off_l2)
    
88.           (setq bl1 boff_l1)
    
89.           (setq bl2 boff_l2)
    
90.          )
    
91.          ((inters
    
92.             off_l1p1
    
93.             off_l1p2
    
94.             boffl2p1
    
95.             boffl2p2
    
96.           )
    
97.           (setq pp1 off_l1p2)
    
98.           (setq pp2 off_l2p2)
    
99.           (setq bpp1 boffl2p1)
    
100.           (setq bpp2 boffl1p1)
     
101.           (setq l1 off_l1)
     
102.           (setq l2 off_l2)
     
103.           (setq bl1 boff_l2)
     
104.           (setq bl2 boff_l1)
     
105.          )
     
106.          ((inters
     
107.             off_l2p1
     
108.             off_l2p2
     
109.             boffl1p1
     
110.             boffl1p2
     
111.           )
     
112.           (setq pp1 off_l2p2)
     
113.           (setq pp2 off_l1p2)
     
114.           (setq bpp1 boffl1p1)
     
115.           (setq bpp2 boffl2p1)
     
116.           (setq l1 off_l2)
     
117.           (setq l2 off_l1)
     
118.           (setq bl1 boff_l1)
     
119.           (setq bl2 boff_l2)
     
120.          )
     
121.          ((inters
     
122.             off_l2p1
     
123.             off_l2p2
     
124.             boffl2p1
     
125.             boffl2p2
     
126.           )
     
127.           (setq pp1 off_l2p2)
     
128.           (setq pp2 off_l1p2)
     
129.           (setq bpp1 boffl2p1)
     
130.           (setq bpp2 boffl1p1)
     
131.           (setq l1 off_l2)
     
132.           (setq l2 off_l1)
     
133.           (setq bl1 boff_l2)
     
134.           (setq bl2 boff_l1)
     
135.          )
     
136.        )
     
137.       )
     
138. 
     
139.       ((equal bpt2 pt2)
     
140.        (cond
     
141.          ((inters
     
142.             off_l1p1
     
143.             off_l1p2
     
144.             boffl1p1
     
145.             boffl1p2
     
146.           )
     
147.           (setq pp1 off_l1p1)
     
148.           (setq pp2 off_l2p1)
     
149.           (setq bpp1 boffl1p1)
     
150.           (setq bpp2 boffl2p1)
     
151.           (setq l1 off_l1)
     
152.           (setq l2 off_l2)
     
153.           (setq bl1 boff_l1)
     
154.           (setq bl2 boff_l2)
     
155.          )
     
156.          ((inters
     
157.             off_l1p1
     
158.             off_l1p2
     
159.             boffl2p1
     
160.             boffl2p2
     
161.           )
     
162.           (setq pp1 off_l1p1)
     
163.           (setq pp2 off_l2p1)
     
164.           (setq bpp1 boffl2p1)
     
165.           (setq bpp2 boffl1p1)
     
166.           (setq l1 off_l1)
     
167.           (setq l2 off_l2)
     
168.           (setq bl1 boff_l2)
     
169.           (setq bl2 boff_l1)
     
170.          )
     
171.          ((inters
     
172.             off_l2p1
     
173.             off_l2p2
     
174.             boffl1p1
     
175.             boffl1p2
     
176.           )
     
177.           (setq pp1 off_l2p1)
     
178.           (setq pp2 off_l1p1)
     
179.           (setq bpp1 boffl1p1)
     
180.           (setq bpp2 boffl2p1)
     
181.           (setq l1 off_l2)
     
182.           (setq l2 off_l1)
     
183.           (setq bl1 boff_l1)
     
184.           (setq bl2 boff_l2)
     
185.          )
     
186.          ((inters
     
187.             off_l2p1
     
188.             off_l2p2
     
189.             boffl2p1
     
190.             boffl2p2
     
191.           )
     
192.           (setq pp1 off_l2p1)
     
193.           (setq pp2 off_l1p1)
     
194.           (setq bpp1 boffl2p1)
     
195.           (setq bpp2 boffl1p1)
     
196.           (setq l1 off_l2)
     
197.           (setq l2 off_l1)
     
198.           (setq bl1 boff_l2)
     
199.           (setq bl2 boff_l1)
     
200.          )
     
201.        )
     
202.       )
     
203. 
     
204.       ((equal bpt1 pt1)
     
205.        (cond
     
206.          ((inters
     
207.             off_l1p1
     
208.             off_l1p2
     
209.             boffl1p1
     
210.             boffl1p2
     
211.           )
     
212.           (setq pp1 off_l1p2)
     
213.           (setq pp2 off_l2p2)
     
214.           (setq bpp1 boffl1p2)
     
215.           (setq bpp2 boffl2p2)
     
216.           (setq l1 off_l1)
     
217.           (setq l2 off_l2)
     
218.           (setq bl1 boff_l1)
     
219.           (setq bl2 boff_l2)
     
220.          )
     
221.          ((inters
     
222.             off_l1p1
     
223.             off_l1p2
     
224.             boffl2p1
     
225.             boffl2p2
     
226.           )
     
227.           (setq pp1 off_l1p2)
     
228.           (setq pp2 off_l2p2)
     
229.           (setq bpp1 boffl2p2)
     
230.           (setq bpp2 boffl1p2)
     
231.           (setq l1 off_l1)
     
232.           (setq l2 off_l2)
     
233.           (setq bl1 boff_l2)
     
234.           (setq bl2 boff_l1)
     
235.          )
     
236.          ((inters
     
237.             off_l2p1
     
238.             off_l2p2
     
239.             boffl1p1
     
240.             boffl1p2
     
241.           )
     
242.           (setq pp1 off_l2p2)
     
243.           (setq pp2 off_l1p2)
     
244.           (setq bpp1 boffl1p2)
     
245.           (setq bpp2 boffl2p2)
     
246.           (setq l1 off_l2)
     
247.           (setq l2 off_l1)
     
248.           (setq bl1 boff_l1)
     
249.           (setq bl2 boff_l2)
     
250.          )
     
251.          ((inters
     
252.             off_l2p1
     
253.             off_l2p2
     
254.             boffl2p1
     
255.             boffl2p2
     
256.           )
     
257.           (setq pp1 off_l2p2)
     
258.           (setq pp2 off_l1p2)
     
259.           (setq bpp1 boffl2p2)
     
260.           (setq bpp2 boffl1p2)
     
261.           (setq l1 off_l2)
     
262.           (setq l2 off_l1)
     
263.           (setq bl1 boff_l2)
     
264.           (setq bl2 boff_l1)
     
265.          )
     
266.        )
     
267.       )
     
268. 
     
269.       ((equal bpt1 pt2)
     
270.        (cond
     
271.          ((inters
     
272.             off_l1p1
     
273.             off_l1p2
     
274.             boffl1p1
     
275.             boffl1p2
     
276.           )
     
277.           (setq pp1 off_l1p1)
     
278.           (setq pp2 off_l2p1)
     
279.           (setq bpp1 boffl1p2)
     
280.           (setq bpp2 boffl2p2)
     
281.           (setq l1 off_l1)
     
282.           (setq l2 off_l2)
     
283.           (setq bl1 boff_l1)
     
284.           (setq bl2 boff_l2)
     
285.          )
     
286.          ((inters
     
287.             off_l1p1
     
288.             off_l1p2
     
289.             boffl2p1
     
290.             boffl2p2
     
291.           )
     
292.           (setq pp1 off_l1p1)
     
293.           (setq pp2 off_l2p1)
     
294.           (setq bpp1 boffl2p2)
     
295.           (setq bpp2 boffl1p2)
     
296.           (setq l1 off_l1)
     
297.           (setq l2 off_l2)
     
298.           (setq bl1 boff_l2)
     
299.           (setq bl2 boff_l1)
     
300.          )
     
301.          ((inters
     
302.             off_l2p1
     
303.             off_l2p2
     
304.             boffl1p1
     
305.             boffl1p2
     
306.           )
     
307.           (setq pp1 off_l2p1)
     
308.           (setq pp2 off_l1p1)
     
309.           (setq bpp1 boffl1p2)
     
310.           (setq bpp2 boffl2p2)
     
311.           (setq l1 off_l2)
     
312.           (setq l2 off_l1)
     
313.           (setq bl1 boff_l1)
     
314.           (setq bl2 boff_l2)
     
315.          )
     
316.          ((inters
     
317.             off_l2p1
     
318.             off_l2p2
     
319.             boffl2p1
     
320.             boffl2p2
     
321.           )
     
322.           (setq pp1 off_l2p1)
     
323.           (setq pp2 off_l1p1)
     
324.           (setq bpp1 boffl2p2)
     
325.           (setq bpp2 boffl1p2)
     
326.           (setq l1 off_l2)
     
327.           (setq l2 off_l1)
     
328.           (setq bl1 boff_l2)
     
329.           (setq bl2 boff_l1)
     
330.          )
     
331.        )
     
332.       )
     
333.     )
     
334. 
     
335.     ;; 合并以上所得数据
     
336.     (setq ll1 (cons l1 (list pp1)))
     
337.     (setq ll2 (cons l2 (list pp2)))
     
338.     (setq bll1 (cons bl1 (list bpp1)))
     
339.     (setq bll2 (cons bl2 (list bpp2)))
     
340. 
     
341.     ;; 根据所得数据进行处理
     
342.     (command "fillet" ll1 bll1)
     
343.     (command "fillet" ll2 bll2)
     
344. 
     
345.     ;; 备份上一次的数据
     
346.     (setq bpt1 pt1)
     
347.     (setq bpt2 pt2)
     
348.     (setq boff_l1 off_l1)
     
349.     (setq boff_l2 off_l2)
     
350. 
     
351.     ;; 读取下一基线
     
352.     (setq line1 (entsel "\nPlease chooes line:"))
     
353.     (setq spt (cadr line1))
     
354.     (setq line1 (car line1))
     
355.   )
     
356. 
     
357.   ;; 全部线段偏移完毕后,恢复系统变量,结束程序.
     
358.   (setvar "osmode" oldosnap)                ; and xiewer
     
359.   (setvar "blipmode" sblip)
     
360.   (setvar "cmdecho" scmde)
     
361.   (princ)
     
362. )
     
363. 
     
364. ;;;
     
365. ;;;
     
366. ;;; 偏移点计算
     
367. ;;;    偏移点用于设定各偏移线的偏移方向
     
368. ;;;
     
369. 
     
370. (defun off_pt ()
     
371.   (cond
     
372.     ((/= (cadr pt1) (cadr pt2))
     
373.      (setq p1 (cons (1+ (car pt1)) (cdr pt1)))
     
374.      (setq p2 (cons (1- (car pt1)) (cdr pt1)))
     
375.     )
     
376. 
     
377.     ((= (cadr pt1) (cadr pt2))
     
378.      (setq p1 (cons (car pt1) (cons (1+ (cadr pt1)) (cddr pt1))))
     
379.      (setq p2 (cons (car pt1) (cons (1- (cadr pt1)) (cddr pt1))))
     
380.     )
     
381.   )
     
382. )
     
383. 
     
384. 
     
385. ;;;
     
386. ;;;
     
387. ;;; 数据提取
     
388. ;;;  提取内容为 前后两次共四根偏移线的起 止点等
     
389. ;;;
     
390. ;;;
     
391. 
     
392. (defun get_data        ()
     
393.   (setq data2 (entget off_l1))
     
394.   (setq data3 (entget off_l2))
     
395.   (setq data4 (entget boff_l1))
     
396.   (setq data5 (entget boff_l2))
     
397. 
     
398.   (setq off_l1p1 (cdr (assoc 10 data2)))
     
399.   (setq off_l1p2 (cdr (assoc 11 data2)))
     
400. 
     
401.   (setq off_l2p1 (cdr (assoc 10 data3)))
     
402.   (setq off_l2p2 (cdr (assoc 11 data3)))
     
403. 
     
404.   (setq boffl1p1 (cdr (assoc 10 data4)))
     
405.   (setq boffl1p2 (cdr (assoc 11 data4)))
     
406. 
     
407.   (setq boffl2p1 (cdr (assoc 10 data5)))
     
408.   (setq boffl2p2 (cdr (assoc 11 data5)))
     
409. )
     
410. 
     
411.   [/FONT]
     

<br />   [FONT=courier new]<br /> ;;; dub.lsp<br /> ;;; 本程序用处是 把单线转换成双线<br /> ;;; 用法:<br /> ;;;   装载后 键入 dub , 输入双线的半宽,<br /> ;;;   然后 依次选择需转换的线 即可.<br /> ;;;   注意! 只能是线!<br /> ;;; 作者：陈皓，回信请给magicblood@usa.net<br /> <br /> (defun c:dub (/               sblip        scmde         wi          line1           spt<br />               data1    data2        data3         data4          data5           pt1<br />               pt2      bpt1        bpt2         off_l1p1 off_l2p2 off_l1p2<br />               off_l2p1 boffl1p1        boffl1p2 boffl2p1 boffl2p2 off_l1<br />               off_l2   boff_l1        boff_l2         p1          p2           pp1<br />               pp2      bpp1        bpp2         l1          l2           bl1<br />               bl2      ll1        ll2         bll1          bll2<br />              )<br /> <br />   ;; 文件头,设置系统环境,读取双线半宽以及选取和提取第一条基线数据.<br />   (setq sblip (getvar "blipmode"))<br />   (setq scmde (getvar "cmdecho"))<br />   (setq oldosnap (getvar "osnap"))        ; and by xiewr<br />   (setvar "osmode" 0)                        ;<br />   (setvar "blipmode" 0)<br />   (setvar "cmdecho" 0)<br />   (setq wi (getreal "Half width:"))<br />   (setq line1 (entsel "\nPlease chooes line:"))<br />   (setq spt (cadr line1))<br />   (setq line1 (car line1))<br />   (setq data1 (entget line1))<br />   (setq pt1 (cdr (assoc 10 data1)))<br />   (setq pt2 (cdr (assoc 11 data1)))<br /> <br />   (off_pt)<br /> <br />   ;; 进行基线偏移,及获取偏移线的实体名.<br />   (command "offset" wi spt p1 spt p2 "")<br />                                         ;(entdel line1)<br />   (setq off_l1 (entlast))<br />   (entdel off_l1)<br />   (setq off_l2 (entlast))<br />   (entdel off_l1)<br /> <br />   ;; 数据备份<br />   (setq bpt1 pt1)<br />   (setq bpt2 pt2)<br />   (setq boff_l1 off_l1)<br />   (setq boff_l2 off_l2)<br /> <br />   (setq line1 (entsel "\nPlease chooes line:"))<br />   (setq spt (cadr line1))<br />   (setq line1 (car line1))<br /> <br />   ;; 循环进行各拾取线的处理<br />   (while line1<br />     (setq data1 (entget line1))<br />     (setq pt1 (cdr (assoc 10 data1)))<br />     (setq pt2 (cdr (assoc 11 data1)))<br /> <br />     (off_pt)<br />     (command "offset" wi spt p1 spt p2 "")<br />                                         ;(entdel line1)<br />     (setq off_l1 (entlast))<br />     (entdel off_l1)<br />     (setq off_l2 (entlast))<br />     (entdel off_l1)<br /> <br />     (get_data)<br /> <br />     ;; 计算各偏移线在不同情况下的处理数据.<br />     (cond<br />       ((equal bpt2 pt1)<br />        (cond<br />          ((inters<br />             off_l1p1<br />             off_l1p2<br />             boffl1p1<br />             boffl1p2<br />           )<br />           (setq pp1 off_l1p2)<br />           (setq pp2 off_l2p2)<br />           (setq bpp1 boffl1p1)<br />           (setq bpp2 boffl2p1)<br />           (setq l1 off_l1)<br />           (setq l2 off_l2)<br />           (setq bl1 boff_l1)<br />           (setq bl2 boff_l2)<br />          )<br />          ((inters<br />             off_l1p1<br />             off_l1p2<br />             boffl2p1<br />             boffl2p2<br />           )<br />           (setq pp1 off_l1p2)<br />           (setq pp2 off_l2p2)<br />           (setq bpp1 boffl2p1)<br />           (setq bpp2 boffl1p1)<br />           (setq l1 off_l1)<br />           (setq l2 off_l2)<br />           (setq bl1 boff_l2)<br />           (setq bl2 boff_l1)<br />          )<br />          ((inters<br />             off_l2p1<br />             off_l2p2<br />             boffl1p1<br />             boffl1p2<br />           )<br />           (setq pp1 off_l2p2)<br />           (setq pp2 off_l1p2)<br />           (setq bpp1 boffl1p1)<br />           (setq bpp2 boffl2p1)<br />           (setq l1 off_l2)<br />           (setq l2 off_l1)<br />           (setq bl1 boff_l1)<br />           (setq bl2 boff_l2)<br />          )<br />          ((inters<br />             off_l2p1<br />             off_l2p2<br />             boffl2p1<br />             boffl2p2<br />           )<br />           (setq pp1 off_l2p2)<br />           (setq pp2 off_l1p2)<br />           (setq bpp1 boffl2p1)<br />           (setq bpp2 boffl1p1)<br />           (setq l1 off_l2)<br />           (setq l2 off_l1)<br />           (setq bl1 boff_l2)<br />           (setq bl2 boff_l1)<br />          )<br />        )<br />       )<br /> <br />       ((equal bpt2 pt2)<br />        (cond<br />          ((inters<br />             off_l1p1<br />             off_l1p2<br />             boffl1p1<br />             boffl1p2<br />           )<br />           (setq pp1 off_l1p1)<br />           (setq pp2 off_l2p1)<br />           (setq bpp1 boffl1p1)<br />           (setq bpp2 boffl2p1)<br />           (setq l1 off_l1)<br />           (setq l2 off_l2)<br />           (setq bl1 boff_l1)<br />           (setq bl2 boff_l2)<br />          )<br />          ((inters<br />             off_l1p1<br />             off_l1p2<br />             boffl2p1<br />             boffl2p2<br />           )<br />           (setq pp1 off_l1p1)<br />           (setq pp2 off_l2p1)<br />           (setq bpp1 boffl2p1)<br />           (setq bpp2 boffl1p1)<br />           (setq l1 off_l1)<br />           (setq l2 off_l2)<br />           (setq bl1 boff_l2)<br />           (setq bl2 boff_l1)<br />          )<br />          ((inters<br />             off_l2p1<br />             off_l2p2<br />             boffl1p1<br />             boffl1p2<br />           )<br />           (setq pp1 off_l2p1)<br />           (setq pp2 off_l1p1)<br />           (setq bpp1 boffl1p1)<br />           (setq bpp2 boffl2p1)<br />           (setq l1 off_l2)<br />           (setq l2 off_l1)<br />           (setq bl1 boff_l1)<br />           (setq bl2 boff_l2)<br />          )<br />          ((inters<br />             off_l2p1<br />             off_l2p2<br />             boffl2p1<br />             boffl2p2<br />           )<br />           (setq pp1 off_l2p1)<br />           (setq pp2 off_l1p1)<br />           (setq bpp1 boffl2p1)<br />           (setq bpp2 boffl1p1)<br />           (setq l1 off_l2)<br />           (setq l2 off_l1)<br />           (setq bl1 boff_l2)<br />           (setq bl2 boff_l1)<br />          )<br />        )<br />       )<br /> <br />       ((equal bpt1 pt1)<br />        (cond<br />          ((inters<br />             off_l1p1<br />             off_l1p2<br />             boffl1p1<br />             boffl1p2<br />           )<br />           (setq pp1 off_l1p2)<br />           (setq pp2 off_l2p2)<br />           (setq bpp1 boffl1p2)<br />           (setq bpp2 boffl2p2)<br />           (setq l1 off_l1)<br />           (setq l2 off_l2)<br />           (setq bl1 boff_l1)<br />           (setq bl2 boff_l2)<br />          )<br />          ((inters<br />             off_l1p1<br />             off_l1p2<br />             boffl2p1<br />             boffl2p2<br />           )<br />           (setq pp1 off_l1p2)<br />           (setq pp2 off_l2p2)<br />           (setq bpp1 boffl2p2)<br />           (setq bpp2 boffl1p2)<br />           (setq l1 off_l1)<br />           (setq l2 off_l2)<br />           (setq bl1 boff_l2)<br />           (setq bl2 boff_l1)<br />          )<br />          ((inters<br />             off_l2p1<br />             off_l2p2<br />             boffl1p1<br />             boffl1p2<br />           )<br />           (setq pp1 off_l2p2)<br />           (setq pp2 off_l1p2)<br />           (setq bpp1 boffl1p2)<br />           (setq bpp2 boffl2p2)<br />           (setq l1 off_l2)<br />           (setq l2 off_l1)<br />           (setq bl1 boff_l1)<br />           (setq bl2 boff_l2)<br />          )<br />          ((inters<br />             off_l2p1<br />             off_l2p2<br />             boffl2p1<br />             boffl2p2<br />           )<br />           (setq pp1 off_l2p2)<br />           (setq pp2 off_l1p2)<br />           (setq bpp1 boffl2p2)<br />           (setq bpp2 boffl1p2)<br />           (setq l1 off_l2)<br />           (setq l2 off_l1)<br />           (setq bl1 boff_l2)<br />           (setq bl2 boff_l1)<br />          )<br />        )<br />       )<br /> <br />       ((equal bpt1 pt2)<br />        (cond<br />          ((inters<br />             off_l1p1<br />             off_l1p2<br />             boffl1p1<br />             boffl1p2<br />           )<br />           (setq pp1 off_l1p1)<br />           (setq pp2 off_l2p1)<br />           (setq bpp1 boffl1p2)<br />           (setq bpp2 boffl2p2)<br />           (setq l1 off_l1)<br />           (setq l2 off_l2)<br />           (setq bl1 boff_l1)<br />           (setq bl2 boff_l2)<br />          )<br />          ((inters<br />             off_l1p1<br />             off_l1p2<br />             boffl2p1<br />             boffl2p2<br />           )<br />           (setq pp1 off_l1p1)<br />           (setq pp2 off_l2p1)<br />           (setq bpp1 boffl2p2)<br />           (setq bpp2 boffl1p2)<br />           (setq l1 off_l1)<br />           (setq l2 off_l2)<br />           (setq bl1 boff_l2)<br />           (setq bl2 boff_l1)<br />          )<br />          ((inters<br />             off_l2p1<br />             off_l2p2<br />             boffl1p1<br />             boffl1p2<br />           )<br />           (setq pp1 off_l2p1)<br />           (setq pp2 off_l1p1)<br />           (setq bpp1 boffl1p2)<br />           (setq bpp2 boffl2p2)<br />           (setq l1 off_l2)<br />           (setq l2 off_l1)<br />           (setq bl1 boff_l1)<br />           (setq bl2 boff_l2)<br />          )<br />          ((inters<br />             off_l2p1<br />             off_l2p2<br />             boffl2p1<br />             boffl2p2<br />           )<br />           (setq pp1 off_l2p1)<br />           (setq pp2 off_l1p1)<br />           (setq bpp1 boffl2p2)<br />           (setq bpp2 boffl1p2)<br />           (setq l1 off_l2)<br />           (setq l2 off_l1)<br />           (setq bl1 boff_l2)<br />           (setq bl2 boff_l1)<br />          )<br />        )<br />       )<br />     )<br /> <br />     ;; 合并以上所得数据<br />     (setq ll1 (cons l1 (list pp1)))<br />     (setq ll2 (cons l2 (list pp2)))<br />     (setq bll1 (cons bl1 (list bpp1)))<br />     (setq bll2 (cons bl2 (list bpp2)))<br /> <br />     ;; 根据所得数据进行处理<br />     (command "fillet" ll1 bll1)<br />     (command "fillet" ll2 bll2)<br /> <br />     ;; 备份上一次的数据<br />     (setq bpt1 pt1)<br />     (setq bpt2 pt2)<br />     (setq boff_l1 off_l1)<br />     (setq boff_l2 off_l2)<br /> <br />     ;; 读取下一基线<br />     (setq line1 (entsel "\nPlease chooes line:"))<br />     (setq spt (cadr line1))<br />     (setq line1 (car line1))<br />   )<br /> <br />   ;; 全部线段偏移完毕后,恢复系统变量,结束程序.<br />   (setvar "osmode" oldosnap)                ; and xiewer<br />   (setvar "blipmode" sblip)<br />   (setvar "cmdecho" scmde)<br />   (princ)<br /> )<br /> <br /> ;;;<br /> ;;;<br /> ;;; 偏移点计算<br /> ;;;    偏移点用于设定各偏移线的偏移方向<br /> ;;;<br /> <br /> (defun off_pt ()<br />   (cond<br />     ((/= (cadr pt1) (cadr pt2))<br />      (setq p1 (cons (1+ (car pt1)) (cdr pt1)))<br />      (setq p2 (cons (1- (car pt1)) (cdr pt1)))<br />     )<br /> <br />     ((= (cadr pt1) (cadr pt2))<br />      (setq p1 (cons (car pt1) (cons (1+ (cadr pt1)) (cddr pt1))))<br />      (setq p2 (cons (car pt1) (cons (1- (cadr pt1)) (cddr pt1))))<br />     )<br />   )<br /> )<br /> <br /> <br /> ;;;<br /> ;;;<br /> ;;; 数据提取<br /> ;;;  提取内容为 前后两次共四根偏移线的起 止点等<br /> ;;;<br /> ;;;<br /> <br /> (defun get_data        ()<br />   (setq data2 (entget off_l1))<br />   (setq data3 (entget off_l2))<br />   (setq data4 (entget boff_l1))<br />   (setq data5 (entget boff_l2))<br /> <br />   (setq off_l1p1 (cdr (assoc 10 data2)))<br />   (setq off_l1p2 (cdr (assoc 11 data2)))<br /> <br />   (setq off_l2p1 (cdr (assoc 10 data3)))<br />   (setq off_l2p2 (cdr (assoc 11 data3)))<br /> <br />   (setq boffl1p1 (cdr (assoc 10 data4)))<br />   (setq boffl1p2 (cdr (assoc 11 data4)))<br /> <br />   (setq boffl2p1 (cdr (assoc 10 data5)))<br />   (setq boffl2p2 (cdr (assoc 11 data5)))<br /> )<br /> <br />   [/FONT]<br />

zwx123

我早就在找这样的程序，绘制管道时，只得拷贝、偏移，麻烦。

playboy

不错就是程序运行完毕之后不返回空值

长江平子

希望大家都能出力

陌生人

为何我用6楼的程序选线段的时候会进入中断循环呢?

engine258

哇   好复杂哦

dsk

不错，可以使用，不过有和8搂相同的问题

xcajcj

最初由 playboy 发布
[B]不错就是程序运行完毕之后不返回空值 [/B]

把下面语句中的(setvar "osmode" oldosnap)去掉即可。原因是在程序开始并没有用getvar函数将系统变量osmode的值同值给变量oldosnap。

  ;; 全部线段偏移完毕后,恢复系统变量,结束程序.
  (setvar "osmode" oldosnap)                ; and xiewer
  (setvar "blipmode" sblip)
  (setvar "cmdecho" scmde)
  (princ)

crtrccrt

本程序offset直线(line)时,可以连续操作,单offset多义线(lwpolyline或polyline)时,offset第二条多义线(lwpolyline或polyline)就出错.希望楼主修正

n188888888

这个程序不错，很实用，要加入交线自动裁剪就更好了