[LISP程序]：双向OFFSET加强版

iVox

SNSJ的原码见
http://www.xdcad.net/forum/showthread.php?s=&threadid=150210

我原来也有个低级的双向OFFSET，只能处理LINE和ARC。
但有选择目标图层，选择是否删除原实体等选项，并通过对话框设置，很方便。

看到SNSJ这个基于VL、很精简的代码，就拿来和我的程序做了一下组合。

我在文件里保留了SNSJ的申明 ：）
我还不熟悉VLAX，请达人多多指教！

LISP:

2. [php]
   
3.   [FONT=courier new]
   
4. 
   
5. (defun 2of_option (/ dcl_id layer_list next_step)
   
6.   (setq next_step 2)
   
7.   (while (>= next_step 2)
   
8.     (if        (and (not dcl_id)
   
9.              (minusp (setq dcl_id (load_dialog "DD2OF")))
   
10.         )
    
11.       (exit)
    
12.     )
    
13.     (if        (not (new_dialog "DD2OF" dcl_id))
    
14.       (exit)
    
15.     )
    
16. 
    
17. ;;; ========= initialize dialogue ===========
    
18. 
    
19.     (if        of_lay
    
20.       (progn
    
21.         (set_tile "chlay" "1")
    
22.         (mode_tile "layerlist" 0)
    
23.         (mk_list)
    
24.       )
    
25.       (progn
    
26.         (set_tile "chlay" "0")
    
27.         (mode_tile "layerlist" 1)
    
28.       )
    
29.     )
    
30.     (if        of_e
    
31.       (set_tile "delold" "1")
    
32.       (set_tile "delold" "0")
    
33.     )
    
34.     (if        of_dist
    
35.       (set_tile "ofdist" (rtos of_dist))
    
36.     )
    
37. 
    
38. ;;; ============== actions ===================
    
39. 
    
40.     (action_tile "chlay" "(chlay_act)")
    
41.     (action_tile "accept" "(accept_option)")
    
42.     (action_tile "no" "(done_dialog 0)")
    
43.     (action_tile "pickdis" "(done_dialog 4)")
    
44.     (setq next_step (start_dialog))
    
45.     (if        (= next_step 4)
    
46.       (setq of_dist (getdist "\nOffset distanc: "))
    
47.     )
    
48.   )
    
49. )
    
50. 
    
51. (defun chlay_act ()
    
52.   (if (= (get_tile "chlay") "0")
    
53.     (progn
    
54.       (start_list "layerlist")
    
55.       (end_list)
    
56.       (mode_tile "layerlist" 1)
    
57.     )
    
58.     (progn
    
59.       (mode_tile "layerlist" 0)
    
60.       (mk_list)
    
61.     )
    
62.   )
    
63. )
    
64. 
    
65. (defun accept_option ()
    
66.   (if (= (get_tile "chlay") "0")
    
67.     (setq of_lay nil)
    
68.     (setq of_lay (nth (atoi (get_tile "layerlist")) layer_list))
    
69.   )
    
70.   (if (= (get_tile "delold") "1")
    
71.     (setq of_e 1)
    
72.     (setq of_e nil)
    
73.   )
    
74.   (setq dist (distof (get_tile "ofdist")))
    
75.   (done_dialog 1)
    
76. )
    
77. 
    
78. (defun mk_list (/ layer_name)
    
79.   (setq layer_list (list))
    
80.   (setq layer_name (cdr (assoc 2 (tblnext "layer" t))))
    
81.   (while layer_name
    
82.     (if        (= layer_name of_lay)
    
83.       nil
    
84.       (setq layer_list (append layer_list (list layer_name)))
    
85.     )
    
86.     (setq layer_name (cdr (assoc 2 (tblnext "layer"))))
    
87.   )
    
88.   (setq layer_list (acad_strlsort layer_list))
    
89.   (if of_lay
    
90.     (setq layer_list (append (list of_lay) layer_list))
    
91.   )
    
92.   (start_list "layerlist")
    
93.   (mapcar 'add_list layer_list)
    
94.   (end_list)
    
95. )
    
96. 
    
97. ;;;|双向偏移 SNSJ 2004.3.8
    
98. (defun ptlay (x y)
    
99.   (if y
    
100.     (vla-put-layer
     
101.       (car (vlax-safearray->list (vlax-variant-value x)))
     
102.       y
     
103.     )
     
104.   )
     
105. )
     
106. (defun c:2of (/ obj ss)
     
107.   (vl-load-com)
     
108.   (princ "\nby SNSJ and Little Fish. Offset object(s) to double side.")
     
109.   (if of_dist
     
110.     (progn
     
111.       (if of_lay
     
112.         (princ (strcat "\nTarget layer: " (strcase of_lay) ", "))
     
113.         (princ "\nKeep layer, ")
     
114.       )
     
115.       (if of_e
     
116.         (princ "Delete old line(s), ")
     
117.         (princ "Keep old line(s), ")
     
118.       )
     
119.       (princ "Distance: ")
     
120.       (if of_dist
     
121.         (princ of_dist)
     
122.         (princ "0.0")
     
123.       )
     
124.       (initget "Option")
     
125.       (setq kwd (getkword "\nOption/<select>: "))
     
126.       (if (= kwd "Option")
     
127.         (2of_option)
     
128.       )
     
129.     )
     
130.     (2of_option)
     
131.   )
     
132.   (setq ss (ssget '((0 . "Arc,Circle,Ellipse,*Line"))))
     
133.   (if ss
     
134.     (progn
     
135.       (vlax-for        obj (vla-get-activeselectionset
     
136.                       (vla-get-activedocument (vlax-get-acad-object))
     
137.                     )
     
138.         (ptlay (vla-offset obj dist) of_lay)
     
139.         (ptlay (vla-offset obj (* dist -1)) of_lay)
     
140.       )
     
141.       (setq of_dist dist)
     
142.       (if of_e
     
143.         (progn
     
144.           (setvar "cmdecho" 0)
     
145.           (command "erase" ss "")
     
146.           (setvar "cmdecho" 1)
     
147.         )
     
148.       )
     
149.     )
     
150.   )
     
151.   (princ)
     
152. )[/php]
     
153.   [/FONT]
     

[php]<br />   [FONT=courier new]<br /> <br /> (defun 2of_option (/ dcl_id layer_list next_step)<br />   (setq next_step 2)<br />   (while (>= next_step 2)<br />     (if        (and (not dcl_id)<br />              (minusp (setq dcl_id (load_dialog "DD2OF")))<br />         )<br />       (exit)<br />     )<br />     (if        (not (new_dialog "DD2OF" dcl_id))<br />       (exit)<br />     )<br /> <br /> ;;; ========= initialize dialogue ===========<br /> <br />     (if        of_lay<br />       (progn<br />         (set_tile "chlay" "1")<br />         (mode_tile "layerlist" 0)<br />         (mk_list)<br />       )<br />       (progn<br />         (set_tile "chlay" "0")<br />         (mode_tile "layerlist" 1)<br />       )<br />     )<br />     (if        of_e<br />       (set_tile "delold" "1")<br />       (set_tile "delold" "0")<br />     )<br />     (if        of_dist<br />       (set_tile "ofdist" (rtos of_dist))<br />     )<br /> <br /> ;;; ============== actions ===================<br /> <br />     (action_tile "chlay" "(chlay_act)")<br />     (action_tile "accept" "(accept_option)")<br />     (action_tile "no" "(done_dialog 0)")<br />     (action_tile "pickdis" "(done_dialog 4)")<br />     (setq next_step (start_dialog))<br />     (if        (= next_step 4)<br />       (setq of_dist (getdist "\nOffset distanc: "))<br />     )<br />   )<br /> )<br /> <br /> (defun chlay_act ()<br />   (if (= (get_tile "chlay") "0")<br />     (progn<br />       (start_list "layerlist")<br />       (end_list)<br />       (mode_tile "layerlist" 1)<br />     )<br />     (progn<br />       (mode_tile "layerlist" 0)<br />       (mk_list)<br />     )<br />   )<br /> )<br /> <br /> (defun accept_option ()<br />   (if (= (get_tile "chlay") "0")<br />     (setq of_lay nil)<br />     (setq of_lay (nth (atoi (get_tile "layerlist")) layer_list))<br />   )<br />   (if (= (get_tile "delold") "1")<br />     (setq of_e 1)<br />     (setq of_e nil)<br />   )<br />   (setq dist (distof (get_tile "ofdist")))<br />   (done_dialog 1)<br /> )<br /> <br /> (defun mk_list (/ layer_name)<br />   (setq layer_list (list))<br />   (setq layer_name (cdr (assoc 2 (tblnext "layer" t))))<br />   (while layer_name<br />     (if        (= layer_name of_lay)<br />       nil<br />       (setq layer_list (append layer_list (list layer_name)))<br />     )<br />     (setq layer_name (cdr (assoc 2 (tblnext "layer"))))<br />   )<br />   (setq layer_list (acad_strlsort layer_list))<br />   (if of_lay<br />     (setq layer_list (append (list of_lay) layer_list))<br />   )<br />   (start_list "layerlist")<br />   (mapcar 'add_list layer_list)<br />   (end_list)<br /> )<br /> <br /> ;;;|双向偏移 SNSJ 2004.3.8<br /> (defun ptlay (x y)<br />   (if y<br />     (vla-put-layer<br />       (car (vlax-safearray->list (vlax-variant-value x)))<br />       y<br />     )<br />   )<br /> )<br /> (defun c:2of (/ obj ss)<br />   (vl-load-com)<br />   (princ "\nby SNSJ and Little Fish. Offset object(s) to double side.")<br />   (if of_dist<br />     (progn<br />       (if of_lay<br />         (princ (strcat "\nTarget layer: " (strcase of_lay) ", "))<br />         (princ "\nKeep layer, ")<br />       )<br />       (if of_e<br />         (princ "Delete old line(s), ")<br />         (princ "Keep old line(s), ")<br />       )<br />       (princ "Distance: ")<br />       (if of_dist<br />         (princ of_dist)<br />         (princ "0.0")<br />       )<br />       (initget "Option")<br />       (setq kwd (getkword "\nOption/<select>: "))<br />       (if (= kwd "Option")<br />         (2of_option)<br />       )<br />     )<br />     (2of_option)<br />   )<br />   (setq ss (ssget '((0 . "Arc,Circle,Ellipse,*Line"))))<br />   (if ss<br />     (progn<br />       (vlax-for        obj (vla-get-activeselectionset<br />                       (vla-get-activedocument (vlax-get-acad-object))<br />                     )<br />         (ptlay (vla-offset obj dist) of_lay)<br />         (ptlay (vla-offset obj (* dist -1)) of_lay)<br />       )<br />       (setq of_dist dist)<br />       (if of_e<br />         (progn<br />           (setvar "cmdecho" 0)<br />           (command "erase" ss "")<br />           (setvar "cmdecho" 1)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )[/php]<br />   [/FONT]<br />

DCL:

2. 
   
3.   [FONT=courier new]
   
4. DD2OF : dialog {
   
5.     label = "DD2OF Options";
   
6.     initial_focus = "accept";
   
7.     : row {
   
8.       : boxed_column {
   
9.         label="Layer setting";
   
10.         : toggle {
    
11.           label = "Change layer";
    
12.           mnemonic= "C";
    
13.           key = "chlay";
    
14.         }
    
15.         : popup_list {
    
16.           label = "Layer name: ";
    
17.           mnemonic= "L";
    
18.           key = "layerlist";
    
19.           width=27;
    
20.         }
    
21.       }
    
22.       : boxed_column {
    
23.         : row {
    
24.           : toggle {
    
25.             label = "Delete old objects";
    
26.             mnemonic= "D";
    
27.             key = "delold";
    
28.           }
    
29.         }
    
30.         : row {
    
31.           : column {
    
32.             : edit_box {
    
33.               label = "Offset distance: ";
    
34.               mnemonic = "O";
    
35.               key = "ofdist";
    
36.             }
    
37.           }
    
38.           : column {
    
39.             : button {
    
40.                 label = "<";
    
41.               mnemonic = "<";
    
42.               key = "pickdis";
    
43.             }
    
44.           }
    
45.         }
    
46.       }
    
47.     }
    
48.     : row {
    
49.       alignment=centered;
    
50.       fixed_width=true;
    
51.       ok_cancel;
    
52.     }
    
53. }
    
54.   [/FONT]
    

<br />   [FONT=courier new]<br /> DD2OF : dialog {<br />     label = "DD2OF Options";<br />     initial_focus = "accept";<br />     : row {<br />       : boxed_column {<br />         label="Layer setting";<br />         : toggle {<br />           label = "Change layer";<br />           mnemonic= "C";<br />           key = "chlay";<br />         }<br />         : popup_list {<br />           label = "Layer name: ";<br />           mnemonic= "L";<br />           key = "layerlist";<br />           width=27;<br />         }<br />       }<br />       : boxed_column {<br />         : row {<br />           : toggle {<br />             label = "Delete old objects";<br />             mnemonic= "D";<br />             key = "delold";<br />           }<br />         }<br />         : row {<br />           : column {<br />             : edit_box {<br />               label = "Offset distance: ";<br />               mnemonic = "O";<br />               key = "ofdist";<br />             }<br />           }<br />           : column {<br />             : button {<br />                 label = "<";<br />               mnemonic = "<";<br />               key = "pickdis";<br />             }<br />           }<br />         }<br />       }<br />     }<br />     : row {<br />       alignment=centered;<br />       fixed_width=true;<br />       ok_cancel;<br />     }<br /> }<br />   [/FONT]<br />

e2002

这是我的程序,可以随时切换选项:

Command: lk-command:Offset
Specify offset distance or [Exit/Remove source/Double side/Layer/Through]
<Through>:

其实命令行交互得易用性是最好的... 8-)

iVox

最初由 e2002 发布
其实命令行交互得易用性是最好的... 8-) [/B]

同意！
我也是能不用对话框就尽量不用。
这里之所以用，是因为有选择目标图层的需要，在命令行上就不方便了。

conn

好早：）r14能用吗？什么命令调用

e2002

选择图层也不需要用DCL,右键菜单选择图层更方便,请看:

Command: lk-select:InLayer
Specify an object or [in
Current/Dialog/Select/0(1)/DEFPOINTS(2)/XXX-图框(3)/XXX-院标(4)/板.填充(5)/尺寸
标注(6)/构造柱(7)/剪力墙(8)/剪力墙.填充(9)/梁.实线(10)/梁.虚线(11)/楼梯洞口(12)/
文字(13)/虚图框(14)/轴标(15)/轴线(16)/柱.填充(17)]:


Command: lk-command:Offset
Specify offset distance or [Exit/Remove source/Double side/Layer/Through]
<Through>:L

Specify an object or select
[0(0)/DEFPOINTS(1)/XXX-图框(2)/XXX-院标(3)/板.填充(4)/尺寸标注(5)/构造柱(6)/剪力
墙(7)/剪力墙.填充(8)/梁.实线(9)/梁.虚线(10)/楼梯洞口(11)/文字(12)/虚图框(13)/轴
标(14)/轴线(15)/柱.填充(16)]:

andyhua5240

这什么是什么呀，程序太多，好心的人能不能整理一下子，我等门外汉就是看不懂呀？

ywx0576

不错，有了窗口比没窗口的直观多了。谢谢楼主!

wpcn

我用2004，没办法用.

ywx0576

最初由 wpcn 发布
[B]我用2004，没办法用. [/B]

你把解压后的二个文件复制到2004的support文件夹下，用appload加载，输入2of就行了(你是不是输了dd2of？我刚下载时就是这样，后来看了原程序才发现原来是2of。)
建议iVox 把“(defun c:2of (/ obj ss)”改为“(defun c:dd2of (/ obj ss)
”，与文件名对应。

JOSDENNIS

這個以對話框進行設計的很有用. 好程序值得推廣.

conn

我怎么用不了

Qlin

目前类似的程序有个弱点：对3D Polyline无效。

andyhua5240

各位大侠，能整理成个附件让我们这些小鸟下载吗？
我们不懂呀！
谢谢！

ywx0576

最初由 andyhua5240 发布
[B]各位大侠，能整理成个附件让我们这些小鸟下载吗？
我们不懂呀！
谢谢！ [/B]

附件不是在一楼吗？你没看到？

conn

我这r14用不了