[源码]明细表，逐步添加程序

菡萏

cabinsummer 发表于 2012-4-9 20:21
今天再来几个通用函数。说明一下，由于公司内部的块属性不足，所以我添加了扩展数据，所以本程序是属性块和 ...

1. ;;;提取表中所有图元的某个DXF组码
   
2. (defun entlist->dxflist (entlist dxf / dxflist)
   
3.   (foreach x entlist (setq dxflist (append dxflist (list (entdxf x dxf)))))
   
4.   dxflist
   
5. )
   
6. ;;修改如下，更精简，效率更高
   
7. (defun entlist->dxflist (entlist dxf)
   
8.   (mapcar '(lambda (x) (entdxf x dxf)) entlist)
   
9.   )
   

;;;提取表中所有图元的某个DXF组码<br /> (defun entlist->dxflist (entlist dxf / dxflist)<br />   (foreach x entlist (setq dxflist (append dxflist (list (entdxf x dxf)))))<br />   dxflist<br /> )<br /> ;;修改如下，更精简，效率更高<br /> (defun entlist->dxflist (entlist dxf)<br />   (mapcar '(lambda (x) (entdxf x dxf)) entlist)<br />   )<br />

tm20038175

好多子函数呀，如果能整理并介绍下用法，将会使很多人收益。。。。

cabinsummer

今天贴出对话框文件label.dcl

1. Label:dialog
   
2. {
   
3.   label="Developed by cabinsummer";
   
4.   :row
   
5.   {
   
6.     :boxed_radio_column
   
7.     {
   
8.       label="TYPE";
   
9.       set_reason=1;
   
10.       :radio_button
    
11.       {
    
12.         label="Assembly";
    
13.         key="ASM";
    
14.       }
    
15.       :radio_button
    
16.       {
    
17.         label="Incl Assy";
    
18.         key="IAM";
    
19.       }
    
20.       :radio_button
    
21.       {
    
22.         label="Comn Assy";
    
23.         key="CAM";
    
24.       }
    
25.       :radio_button
    
26.       {
    
27.         label="Detail";
    
28.         key="DTL";
    
29.       }
    
30.       :radio_button
    
31.       {
    
32.         label="Incl Detail";
    
33.         key="IDT";
    
34.       }
    
35.       :radio_button
    
36.       {
    
37.         label="Comn Detail";
    
38.         key="CMN";
    
39.       }
    
40.       :radio_button
    
41.       {
    
42.         label="Annex";
    
43.         key="ANX";
    
44.       }
    
45.       :radio_button
    
46.       {
    
47.         label="Standard";
    
48.         key="STD";
    
49.       }
    
50.       :radio_button
    
51.       {
    
52.         label="Purchase";
    
53.         key="PUR";
    
54.       }
    
55.     }
    
56.     :boxed_column
    
57.     {
    
58.       label="Item";
    
59.       :edit_box
    
60.       {
    
61.         key="COM";
    
62.         label="Comau Code";
    
63.         edit_width=25;
    
64.         edit_limit=20;
    
65.         allow_accept=true;
    
66.       }
    
67.       :edit_box
    
68.       {
    
69.         key="SPL";
    
70.         label="Supplier";
    
71.         edit_width=25;
    
72.         edit_limit=15;
    
73.         allow_accept=true;
    
74.       }
    
75.       :edit_box
    
76.       {
    
77.         key="DSC";
    
78.         label="Description";
    
79.         edit_width=25;
    
80.         edit_limit=45;
    
81.         allow_accept=true;
    
82.       }
    
83.       :edit_box
    
84.       {
    
85.         key="CMC";
    
86.         label="Commercial Code";
    
87.         edit_width=25;
    
88.         edit_limit=20;
    
89.         allow_accept=true;
    
90.       }
    
91.       :edit_box
    
92.       {
    
93.         key="SPC";
    
94.         label="Specifications";
    
95.         edit_width=25;
    
96.         edit_limit=45;
    
97.         allow_accept=true;
    
98.       }
    
99.       :edit_box
    
100.       {
     
101.         key="AMT";
     
102.         label="Amount";
     
103.         edit_width=25;
     
104.         edit_limit=4;
     
105.         allow_accept=true;
     
106.       }
     
107.       :edit_box
     
108.       {
     
109.         key="RMK";
     
110.         label="Remark";
     
111.         edit_width=25;
     
112.         edit_limit=45;
     
113.         allow_accept=true;
     
114.       }
     
115.       spacer;
     
116.       :row
     
117.       {
     
118.         :button
     
119.         {
     
120.           key="CFG";
     
121.           label="Config";
     
122.           width=8;
     
123.         }
     
124.         :edit_box
     
125.         {
     
126.           key="PAR";
     
127.           edit_width=25;
     
128.           edit_limit=45;
     
129.           allow_accept=true;
     
130.         }
     
131.       }
     
132.     }
     
133.     :list_box
     
134.     {
     
135.       label="ITEM_LIB";
     
136.       key="LIB";
     
137.       width=30;
     
138.     }
     
139.   }
     
140.   :row
     
141.   {
     
142.     :toggle
     
143.     {
     
144.       key="CON";
     
145.       label="Continue";
     
146.       width="10";
     
147.     }
     
148.     :button
     
149.     {
     
150.       key="SEL";
     
151.       label="Select <";
     
152.       width=8;
     
153.     }
     
154.     :radio_row
     
155.     {
     
156.       key="SPR_TYP";
     
157.       :radio_button
     
158.       {
     
159.         label="N";
     
160.         key="N";
     
161.       }
     
162.       :radio_button
     
163.       {
     
164.         label="R";
     
165.         key="R";
     
166.       }
     
167.       :radio_button
     
168.       {
     
169.         label="C";
     
170.         key="C";
     
171.       }
     
172.       :radio_button
     
173.       {
     
174.         label="U";
     
175.         key="U";
     
176.       }
     
177.       :radio_button
     
178.       {
     
179.         label="P";
     
180.         key="P";
     
181.       }
     
182.     }
     
183.     ok_cancel;
     
184.   }
     
185. }

Label:dialog<br /> {<br />   label="Developed by cabinsummer";<br />   :row<br />   {<br />     :boxed_radio_column<br />     {<br />       label="TYPE";<br />       set_reason=1;<br />       :radio_button<br />       {<br />         label="Assembly";<br />         key="ASM";<br />       }<br />       :radio_button<br />       {<br />         label="Incl Assy";<br />         key="IAM";<br />       }<br />       :radio_button<br />       {<br />         label="Comn Assy";<br />         key="CAM";<br />       }<br />       :radio_button<br />       {<br />         label="Detail";<br />         key="DTL";<br />       }<br />       :radio_button<br />       {<br />         label="Incl Detail";<br />         key="IDT";<br />       }<br />       :radio_button<br />       {<br />         label="Comn Detail";<br />         key="CMN";<br />       }<br />       :radio_button<br />       {<br />         label="Annex";<br />         key="ANX";<br />       }<br />       :radio_button<br />       {<br />         label="Standard";<br />         key="STD";<br />       }<br />       :radio_button<br />       {<br />         label="Purchase";<br />         key="PUR";<br />       }<br />     }<br />     :boxed_column<br />     {<br />       label="Item";<br />       :edit_box<br />       {<br />         key="COM";<br />         label="Comau Code";<br />         edit_width=25;<br />         edit_limit=20;<br />         allow_accept=true;<br />       }<br />       :edit_box<br />       {<br />         key="SPL";<br />         label="Supplier";<br />         edit_width=25;<br />         edit_limit=15;<br />         allow_accept=true;<br />       }<br />       :edit_box<br />       {<br />         key="DSC";<br />         label="Description";<br />         edit_width=25;<br />         edit_limit=45;<br />         allow_accept=true;<br />       }<br />       :edit_box<br />       {<br />         key="CMC";<br />         label="Commercial Code";<br />         edit_width=25;<br />         edit_limit=20;<br />         allow_accept=true;<br />       }<br />       :edit_box<br />       {<br />         key="SPC";<br />         label="Specifications";<br />         edit_width=25;<br />         edit_limit=45;<br />         allow_accept=true;<br />       }<br />       :edit_box<br />       {<br />         key="AMT";<br />         label="Amount";<br />         edit_width=25;<br />         edit_limit=4;<br />         allow_accept=true;<br />       }<br />       :edit_box<br />       {<br />         key="RMK";<br />         label="Remark";<br />         edit_width=25;<br />         edit_limit=45;<br />         allow_accept=true;<br />       }<br />       spacer;<br />       :row<br />       {<br />         :button<br />         {<br />           key="CFG";<br />           label="Config";<br />           width=8;<br />         }<br />         :edit_box<br />         {<br />           key="PAR";<br />           edit_width=25;<br />           edit_limit=45;<br />           allow_accept=true;<br />         }<br />       }<br />     }<br />     :list_box<br />     {<br />       label="ITEM_LIB";<br />       key="LIB";<br />       width=30;<br />     }<br />   }<br />   :row<br />   {<br />     :toggle<br />     {<br />       key="CON";<br />       label="Continue";<br />       width="10";<br />     }<br />     :button<br />     {<br />       key="SEL";<br />       label="Select <";<br />       width=8;<br />     }<br />     :radio_row<br />     {<br />       key="SPR_TYP";<br />       :radio_button<br />       {<br />         label="N";<br />         key="N";<br />       }<br />       :radio_button<br />       {<br />         label="R";<br />         key="R";<br />       }<br />       :radio_button<br />       {<br />         label="C";<br />         key="C";<br />       }<br />       :radio_button<br />       {<br />         label="U";<br />         key="U";<br />       }<br />       :radio_button<br />       {<br />         label="P";<br />         key="P";<br />       }<br />     }<br />     ok_cancel;<br />   }<br /> }

cabinsummer

先把对话框驱动起来，填编辑框确认后生成标号

1. (defun C:BLN ()
   
2.   (defun labelerr (msg)
   
3.     (setq *error* syserr syserr nil)
   
4.     (setvar "OSMODE" os)
   
5.     (setvar "ORTHOMODE" ot)
   
6.     (setvar "CLAYER" cl)
   
7.     (setq con "0")
   
8.     (setvar "DIMLDRBLK" ".")
   
9.     (princ)
   
10.   )
    
11.   (if (not (tblsearch "APPID" "WZ_APP"))(regapp "WZ_APP"))
    
12.   (setvar "CMDECHO" 0)
    
13.   (setq os (getvar "OSMODE"))
    
14.   (setq ot (getvar "ORTHOMODE"))
    
15.   (setq cl (getvar "CLAYER"))
    
16.   (setvar "DIMLDRBLK" "_dotsmall")
    
17.   (setvar "OSMODE" 0)
    
18.   (setvar "ORTHOMODE" 0)
    
19.   (setvar "CLAYER" "DIM")
    
20.   (setq syserr *error*)
    
21.   (setq *error* labelerr)
    
22.   (setq scl (getvar "dimscale"))
    
23.   (setq p0 (getpoint "Please Select Leader Start Point:\n"))
    
24.   (setq p1 (getpoint p0 "Please Select Label Position:\n"))
    
25.   (do_prog)
    
26.   (setvar "OSMODE" os)
    
27.   (setvar "ORTHOMODE" ot)
    
28.   (setvar "CLAYER" cl)
    
29.   (setvar "DIMLDRBLK" ".")
    
30.   (princ)
    
31. )
    
32. (defun do_prog()
    
33.   (setq DLG_ID (load_dialog (findfile "WZ_LABEL.DCL")))
    
34.   (do_dialog)
    
35.   (unload_dialog DLG_ID)
    
36.   (if (= TAG 1)
    
37.     (progn
    
38.       (cond
    
39.         ((or (= typ "ASM")(= typ "IAM")(= typ "CAM"))
    
40.          ((eval (read (strcat "INS_IAY_0-" ID_SIDE))) p1 com dsc spc amt)
    
41.         )
    
42.         ((or (= typ "IDT")(= typ "CMN"))
    
43.          ((eval (read (strcat "INS_IDT_0-" ID_SIDE))) p1 com amt)
    
44.         )
    
45.         ((or (= typ "DTL")(= typ "ANX"))
    
46.          ((eval (read (strcat "INS_DTL_0-" ID_SIDE))) p1 com dsc amt spr)
    
47.         )
    
48.         ((= typ "STD")
    
49.          ((eval (read (strcat "INS_STD_0-" ID_SIDE))) p1 com dsc (strcat cmc "  " (vl-string-right-trim " " spc)) amt spr)
    
50.         )
    
51.         ((= typ "PUR")
    
52.          ((eval (read (strcat "INS_STD_0-" ID_SIDE))) p1 cmc dsc spl amt spr)
    
53.         )
    
54.       )
    
55.       (label)
    
56.       (setq TAG nil)
    
57.     )
    
58.   )
    
59. )
    
60. (defun do_dialog ()
    
61.   (if (new_dialog "WZ_Label" DLG_ID)
    
62.     (progn
    
63.       (foreach x '("ASM" "IAM" "CAM" "DTL" "IDT" "CMN" "ANX" "STD" "PUR")(action_tile x "(setq typ $key)(do_list)"))
    
64.       (foreach x '("SPL" "CMC" "COM" "DSC" "SPC" "AMT" "RMK" "PAR")(action_tile x "(set (read $key) $value)"))
    
65.       (action_tile "accept" "(done_dialog 1)(setq TAG 1)")
    
66.       (action_tile "cancel" "(done_dialog 0)")
    
67.       (start_dialog)
    
68.     )
    
69.     (princ "\nCan't display dialog.")
    
70.   )
    
71. )
    
72. (defun label (/ blk)
    
73.   (ADD_XDATA (entlast) "WZ_APP" "TYP")
    
74.   (ADD_XDATA (entlast) "WZ_APP" typ)
    
75.   (ADD_XDATA (entlast) "WZ_APP" "RMK")
    
76.   (ADD_XDATA (entlast) "WZ_APP" rmk)
    
77.   (setq blk (entlast))
    
78.   (BOM_LEADER p0 p1 blk)
    
79.   (vlax-put (vlax-ename->vla-object (entlast)) "Annotation" (vlax-ename->vla-object blk))
    
80.   (vla-update (vlax-ename->vla-object (entlast)))
    
81.   (vla-update (vlax-ename->vla-object blk))
    
82. )
    
83. (defun do_list ()
    
84.   (mtyp typ)
    
85.   (if (= typ "DTL")
    
86.     (progn
    
87.       (if (max_code)(setq com (max_code))(setq com "001"))
    
88.       (set_tile "COM" com)
    
89.       (mode_tile "COM" 2)
    
90.     )
    
91.   )
    
92.   (foreach x '(spl_list cmc_list com_list dsc_list spc_list rmk_list)(set x nil))
    
93.   (foreach x (eval (read (strcat typ "_list"))) (set (car x) (cdr x)))
    
94.   (start_list "LIB")
    
95.   (cond
    
96.     ((= typ "STD")(mapcar 'add_list cmc_list)(mode_tile "CMC" 2))
    
97.     ((= typ "PUR")(mapcar 'add_list spl_list)(mode_tile "SPL" 2))
    
98.     (T (mapcar 'add_list com_list)(mode_tile "COM" 2))
    
99.   )
    
100.   (end_list)
     
101. )
     
102. (defun mtyp (typ)
     
103.   (set_tile "AMT" "1")(setq amt "1" spr "N")
     
104.   (foreach x '("COM" "SPL" "DSC" "CMC" "SPC" "RMK")(set (read x) "")(set_tile x ""))
     
105.   (cond
     
106.     ((= typ "ASM")(mkey 0 1 0 1 1 1 1 1))
     
107.     ((= typ "IAM")(mkey 0 1 0 1 1 1 1 1))
     
108.     ((= typ "CAM")(mkey 0 1 0 1 0 0 1 0))
     
109.     ((= typ "DTL")(mkey 0 1 0 1 1 1 1 1))
     
110.     ((= typ "IDT")(mkey 0 1 1 1 1 1 1 1))
     
111.     ((= typ "CMN")(mkey 0 1 1 1 1 0 1 0))
     
112.     ((= typ "ANX")(mkey 0 1 1 0 1 0 1 1))
     
113.     ((= typ "STD")(mkey 0 1 0 0 0 1 0 0))
     
114.     ((= typ "PUR")(mkey 1 0 0 0 1 0 0 0))
     
115.   )
     
116. )
     
117. (defun mkey (c1 c2 c3 c4 c5 c6 c7 c8)
     
118.   (mode_tile "COM" c1)(mode_tile "SPL" c2)(mode_tile "DSC" c3)(mode_tile "CMC" c4)
     
119.   (mode_tile "SPC" c5)(mode_tile "RMK" c6)(mode_tile "PAR" c7)(mode_tile "SEL" c8)
     
120. )

(defun C:BLN ()<br />   (defun labelerr (msg)<br />     (setq *error* syserr syserr nil)<br />     (setvar "OSMODE" os)<br />     (setvar "ORTHOMODE" ot)<br />     (setvar "CLAYER" cl)<br />     (setq con "0")<br />     (setvar "DIMLDRBLK" ".")<br />     (princ)<br />   )<br />   (if (not (tblsearch "APPID" "WZ_APP"))(regapp "WZ_APP"))<br />   (setvar "CMDECHO" 0)<br />   (setq os (getvar "OSMODE"))<br />   (setq ot (getvar "ORTHOMODE"))<br />   (setq cl (getvar "CLAYER"))<br />   (setvar "DIMLDRBLK" "_dotsmall")<br />   (setvar "OSMODE" 0)<br />   (setvar "ORTHOMODE" 0)<br />   (setvar "CLAYER" "DIM")<br />   (setq syserr *error*)<br />   (setq *error* labelerr)<br />   (setq scl (getvar "dimscale"))<br />   (setq p0 (getpoint "Please Select Leader Start Point:\n"))<br />   (setq p1 (getpoint p0 "Please Select Label Position:\n"))<br />   (do_prog)<br />   (setvar "OSMODE" os)<br />   (setvar "ORTHOMODE" ot)<br />   (setvar "CLAYER" cl)<br />   (setvar "DIMLDRBLK" ".")<br />   (princ)<br /> )<br /> (defun do_prog()<br />   (setq DLG_ID (load_dialog (findfile "WZ_LABEL.DCL")))<br />   (do_dialog)<br />   (unload_dialog DLG_ID)<br />   (if (= TAG 1)<br />     (progn<br />       (cond<br />         ((or (= typ "ASM")(= typ "IAM")(= typ "CAM"))<br />          ((eval (read (strcat "INS_IAY_0-" ID_SIDE))) p1 com dsc spc amt)<br />         )<br />         ((or (= typ "IDT")(= typ "CMN"))<br />          ((eval (read (strcat "INS_IDT_0-" ID_SIDE))) p1 com amt)<br />         )<br />         ((or (= typ "DTL")(= typ "ANX"))<br />          ((eval (read (strcat "INS_DTL_0-" ID_SIDE))) p1 com dsc amt spr)<br />         )<br />         ((= typ "STD")<br />          ((eval (read (strcat "INS_STD_0-" ID_SIDE))) p1 com dsc (strcat cmc "  " (vl-string-right-trim " " spc)) amt spr)<br />         )<br />         ((= typ "PUR")<br />          ((eval (read (strcat "INS_STD_0-" ID_SIDE))) p1 cmc dsc spl amt spr)<br />         )<br />       )<br />       (label)<br />       (setq TAG nil)<br />     )<br />   )<br /> )<br /> (defun do_dialog ()<br />   (if (new_dialog "WZ_Label" DLG_ID)<br />     (progn<br />       (foreach x '("ASM" "IAM" "CAM" "DTL" "IDT" "CMN" "ANX" "STD" "PUR")(action_tile x "(setq typ $key)(do_list)"))<br />       (foreach x '("SPL" "CMC" "COM" "DSC" "SPC" "AMT" "RMK" "PAR")(action_tile x "(set (read $key) $value)"))<br />       (action_tile "accept" "(done_dialog 1)(setq TAG 1)")<br />       (action_tile "cancel" "(done_dialog 0)")<br />       (start_dialog)<br />     )<br />     (princ "\nCan't display dialog.")<br />   )<br /> )<br /> (defun label (/ blk)<br />   (ADD_XDATA (entlast) "WZ_APP" "TYP")<br />   (ADD_XDATA (entlast) "WZ_APP" typ)<br />   (ADD_XDATA (entlast) "WZ_APP" "RMK")<br />   (ADD_XDATA (entlast) "WZ_APP" rmk)<br />   (setq blk (entlast))<br />   (BOM_LEADER p0 p1 blk)<br />   (vlax-put (vlax-ename->vla-object (entlast)) "Annotation" (vlax-ename->vla-object blk))<br />   (vla-update (vlax-ename->vla-object (entlast)))<br />   (vla-update (vlax-ename->vla-object blk))<br /> )<br /> (defun do_list ()<br />   (mtyp typ)<br />   (if (= typ "DTL")<br />     (progn<br />       (if (max_code)(setq com (max_code))(setq com "001"))<br />       (set_tile "COM" com)<br />       (mode_tile "COM" 2)<br />     )<br />   )<br />   (foreach x '(spl_list cmc_list com_list dsc_list spc_list rmk_list)(set x nil))<br />   (foreach x (eval (read (strcat typ "_list"))) (set (car x) (cdr x)))<br />   (start_list "LIB")<br />   (cond<br />     ((= typ "STD")(mapcar 'add_list cmc_list)(mode_tile "CMC" 2))<br />     ((= typ "PUR")(mapcar 'add_list spl_list)(mode_tile "SPL" 2))<br />     (T (mapcar 'add_list com_list)(mode_tile "COM" 2))<br />   )<br />   (end_list)<br /> )<br /> (defun mtyp (typ)<br />   (set_tile "AMT" "1")(setq amt "1" spr "N")<br />   (foreach x '("COM" "SPL" "DSC" "CMC" "SPC" "RMK")(set (read x) "")(set_tile x ""))<br />   (cond<br />     ((= typ "ASM")(mkey 0 1 0 1 1 1 1 1))<br />     ((= typ "IAM")(mkey 0 1 0 1 1 1 1 1))<br />     ((= typ "CAM")(mkey 0 1 0 1 0 0 1 0))<br />     ((= typ "DTL")(mkey 0 1 0 1 1 1 1 1))<br />     ((= typ "IDT")(mkey 0 1 1 1 1 1 1 1))<br />     ((= typ "CMN")(mkey 0 1 1 1 1 0 1 0))<br />     ((= typ "ANX")(mkey 0 1 1 0 1 0 1 1))<br />     ((= typ "STD")(mkey 0 1 0 0 0 1 0 0))<br />     ((= typ "PUR")(mkey 1 0 0 0 1 0 0 0))<br />   )<br /> )<br /> (defun mkey (c1 c2 c3 c4 c5 c6 c7 c8)<br />   (mode_tile "COM" c1)(mode_tile "SPL" c2)(mode_tile "DSC" c3)(mode_tile "CMC" c4)<br />   (mode_tile "SPC" c5)(mode_tile "RMK" c6)(mode_tile "PAR" c7)(mode_tile "SEL" c8)<br /> )

langjs

风版大作面世了,跟风版和G版学习了好多,动态粗糙度

fundoll

支持楼主提供好工具!

longer1000

精神可嘉！

snddd2000

楼主真是公司的宝贝啊。
不知有关此明细表的程序最终需要实现什么样的功能？

露草

有点深奥 没有看懂

chshsl

本人也在做这方面的程序，仅用属性块不是很方便，在学扩展数据，这块是我的弱项