序号生成------------苦闷中

自贡黄明儒

今天X版对我说，好几天没发贴了，确实,因为一直在苦闷中。
对于序号是图中简单繁琐的一件事情，我想应该有如下三个功能
1 生成
2 排序（http://bbs.mjtd.com/thread-108678-1-1.html）
3 修改
对于后两者，好象好解决
对于前者，谁有比较完善的程序？

【KAIXIN】

这个自己写写，这么多项，工作量比较大

憨厚的木头

生成序号的同时可以生成明细栏就好了

菜卷鱼

可惜我还没学对话框啊

linshiyin2

如何区分编写的序号，在dxf中加入特殊的标记？或者使用块，序号就是块属性？我现在使用的是字体颜色进行区分，一个比较少用的颜色区分哪些是自己的编号，至于编号的增减、排序，最好是删除某一个自动的调整其他的编号，增加某一个其他的也自动调整序号，这样比较自动并且不容易出错。我想块属性可能解决起来最方便。目前我将就着使用“序号铲子”删除一个序号其他比它大的自动减少一个。

linshiyin2

另外我有一部分序号生成的程序，别人的，基本还行，

2. (defun ljxh (/ DIA DX DXX DY K KEEP LAB_NO N OS_OLD TE WHAT)
   
3.   (msave '("cmdecho" "blipmode" "aunits" "clayer" "cecolor" "PLINEWID" "CELTYPE" "osmode"))
   
4.   (setvar "cmdecho" 0)
   
5.   (setq        n 0
   
6.         what 3
   
7.         lab_no 1
   
8.   )
   
9. ;;;  (setq ucs_name "ljh")
   
10. ;;;  (command "ucs" "del" ucs_name)
    
11. ;;;  (command "ucs" "save" ucs_name)
    
12.   (command "ucs" "w")
    
13.   (setvar "measurement" 1)
    
14.   (setq os_old (getvar "osmode"))
    
15.   (setvar "osmode" 0)
    
16.   (command "layer" "s" "0" "c" "white" "" "")
    
17.   (command "layer" "m" "draw" "c" "white" "" "")
    
18.   (command "layer" "m" "center"        "c" "red" "" "l" "center" "" "")
    
19.   (command "layer" "m" "dashed"        "c" "white" "" "l" "dashed" "" "")
    
20.   (command "layer" "m" "bhatch" "c" "blue" "" "")
    
21.   (command "layer" "m" "dim" "c" "white" "" "")
    
22.   (command "layer" "m" "data" "lo" "data" "")
    
23.   (command "layer" "s" "0" "")
    
24. 
    
25. 
    
26.   (defun do_help()
    
27.     (help "cadhelp.hlp" "ljxh")
    
28.     )
    
29.   
    
30.   (defun label_draw (/ ty pp pp1 pt an num m mm ss)
    
31.     (setq an 0)
    
32.     (setq ty lab_no)
    
33.     (while (/= ty 0)
    
34.       (setq dx 20
    
35.             dy 10
    
36.             dxx        5
    
37.             m  (get_m)
    
38.       )
    
39.       (prompt "\n请选择标注零件")
    
40.       (princ)
    
41.       (setq pp (getpoint))
    
42.       (prompt "\n请选择标注位置")
    
43.       (princ)
    
44.       (setq pp1 (getpoint pp))
    
45.       (setq pt pp1)
    
46.       (command "layer" "s" "标注" "")
    
47.       (command "line" pp pp1 "")
    
48.       (if (> (car pp) (car pp1))
    
49.         (setq an pi)
    
50.         (setq an 0.0)
    
51.       )
    
52.       (setq pp (cdr (assoc 11 (entget (entlast)))))
    
53.       (setq k 0)
    
54.       (setq num lab_no)
    
55.       (if (>= lab_no 4) (setq num (- lab_no 2)))
    
56.       (repeat num
    
57.         (setq k (1+ k))
    
58.         (setq ss (ssadd));;将 ss 设为空选择集
    
59.         (if (/= k 1)
    
60.           (progn
    
61.           (if (>= lab_no 4)
    
62.             (command "line" pp (setq pp (polar pp (/ pi 2.0) dy)) "")
    
63.             (progn
    
64.               (setq pp (polar pp an dx))
    
65.               (setq pp1 (polar pp an dxx))
    
66.               (command "pline"
    
67.                        pp
    
68.                        "w"
    
69.                        0
    
70.                        ""
    
71.                        (polar (polar pp an (/ dxx 2)) (/ pi -2) 1)
    
72.                        pp1
    
73.                        ""
    
74.               )
    
75.               (setq pp pp1)
    
76.             )
    
77.           )
    
78.           (ssadd (entlast) ss);;添加这个图元到选择集
    
79.           )
    
80.         )
    
81.         (command "pline" pp "w" 0.3 "" (polar pp an dx) "")
    
82.         (ssadd (entlast) ss);;添加这个图元到选择集
    
83.         (COMMAND "style" "ljxh_st" "Times New Roman" 4.0 0.8 10 "" "")
    
84.         (setq te (getstring "\n输入零件序号:"))
    
85.         (command "text")
    
86.         (if (= an 0)
    
87.           (command (polar pp (/ pi 6.0) 4.0) ""  te)
    
88.           (command (polar (polar pp an dx) (/ pi 6.0) 4.0) "" te)
    
89.         )
    
90.         (ssadd (entlast) ss);;添加这个图元到选择集
    
91.         (COMMAND "scale" ss "" pt (rtos m 2 6));;缩放
    
92.       )
    
93.       (setq keep (getstring "\n按X键退出当前标注\\其他任意键继续标注:"))
    
94.       (if (or (= keep "x") (= keep "X"))
    
95.         (setq ty 0)
    
96.       )
    
97.     )
    
98.   (if (not (new_dialog "bom_label" dia))
    
99.     (exit)
    
100.   )
     
101.   )
     
102.   (defun vslide        (key s_name n / x y)
     
103.     (setq x (dimx_tile key))                    
     
104.     (setq y (dimy_tile key))
     
105.     (start_image key)
     
106.     (fill_image n -5 x y 2)
     
107.     (slide_image n -5 x y (strcat "lable(" s_name ")"))
     
108.     (end_image)
     
109.   )
     
110.   (setq dia (load_dialog "ljxh.dcl"))
     
111.   (if (not (new_dialog "bom_label" dia))
     
112.     (exit)
     
113.   )
     
114.   (while (> what 0)
     
115.     (vslide "k_lable1" "lable1" 0)
     
116.     (vslide "k_lable2" "lable2" 0)
     
117.     (vslide "k_lable3" "lable3" 0)
     
118.     (vslide "k_lable4" "lable4" 0)
     
119.     (vslide "k_lable5" "lable5" 0)
     
120.     (vslide "k_lable6" "lable6" 0)
     
121.     (action_tile "k_lable1" "(setq lab_no 1)")
     
122.     (action_tile "k_lable2" "(setq lab_no 2)")
     
123.     (action_tile "k_lable3" "(setq lab_no 3)")
     
124.     (action_tile "k_lable4" "(setq lab_no 4)")
     
125.     (action_tile "k_lable5" "(setq lab_no 5)")
     
126.     (action_tile "help" "(do_help)")
     
127.     (action_tile "accept" "(done_dialog 2)")
     
128.     (setq what (start_dialog))
     
129.     (if        (= what 2)
     
130.       (label_draw)
     
131.     )
     
132.   )
     
133.   (unload_dialog dia)
     
134.   (mrsave)
     
135. ;;;  (command "layer" "s" "draw" "")
     
136. ;;;  (command "ucs" "r" ucs_name)
     
137. ;;;  (command "ucs" "del" ucs_name)
     
138.   (setvar "cmdecho" 1)
     
139.   (setvar "osmode" os_old)
     
140. )

(defun ljxh (/ DIA DX DXX DY K KEEP LAB_NO N OS_OLD TE WHAT)<br />   (msave '("cmdecho" "blipmode" "aunits" "clayer" "cecolor" "PLINEWID" "CELTYPE" "osmode"))<br />   (setvar "cmdecho" 0)<br />   (setq        n 0<br />         what 3<br />         lab_no 1<br />   )<br /> ;;;  (setq ucs_name "ljh")<br /> ;;;  (command "ucs" "del" ucs_name)<br /> ;;;  (command "ucs" "save" ucs_name)<br />   (command "ucs" "w")<br />   (setvar "measurement" 1)<br />   (setq os_old (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (command "layer" "s" "0" "c" "white" "" "")<br />   (command "layer" "m" "draw" "c" "white" "" "")<br />   (command "layer" "m" "center"        "c" "red" "" "l" "center" "" "")<br />   (command "layer" "m" "dashed"        "c" "white" "" "l" "dashed" "" "")<br />   (command "layer" "m" "bhatch" "c" "blue" "" "")<br />   (command "layer" "m" "dim" "c" "white" "" "")<br />   (command "layer" "m" "data" "lo" "data" "")<br />   (command "layer" "s" "0" "")<br /> <br /> <br />   (defun do_help()<br />     (help "cadhelp.hlp" "ljxh")<br />     )<br />   <br />   (defun label_draw (/ ty pp pp1 pt an num m mm ss)<br />     (setq an 0)<br />     (setq ty lab_no)<br />     (while (/= ty 0)<br />       (setq dx 20<br />             dy 10<br />             dxx        5<br />             m  (get_m)<br />       )<br />       (prompt "\n请选择标注零件")<br />       (princ)<br />       (setq pp (getpoint))<br />       (prompt "\n请选择标注位置")<br />       (princ)<br />       (setq pp1 (getpoint pp))<br />       (setq pt pp1)<br />       (command "layer" "s" "标注" "")<br />       (command "line" pp pp1 "")<br />       (if (> (car pp) (car pp1))<br />         (setq an pi)<br />         (setq an 0.0)<br />       )<br />       (setq pp (cdr (assoc 11 (entget (entlast)))))<br />       (setq k 0)<br />       (setq num lab_no)<br />       (if (>= lab_no 4) (setq num (- lab_no 2)))<br />       (repeat num<br />         (setq k (1+ k))<br />         (setq ss (ssadd));;将 ss 设为空选择集<br />         (if (/= k 1)<br />           (progn<br />           (if (>= lab_no 4)<br />             (command "line" pp (setq pp (polar pp (/ pi 2.0) dy)) "")<br />             (progn<br />               (setq pp (polar pp an dx))<br />               (setq pp1 (polar pp an dxx))<br />               (command "pline"<br />                        pp<br />                        "w"<br />                        0<br />                        ""<br />                        (polar (polar pp an (/ dxx 2)) (/ pi -2) 1)<br />                        pp1<br />                        ""<br />               )<br />               (setq pp pp1)<br />             )<br />           )<br />           (ssadd (entlast) ss);;添加这个图元到选择集<br />           )<br />         )<br />         (command "pline" pp "w" 0.3 "" (polar pp an dx) "")<br />         (ssadd (entlast) ss);;添加这个图元到选择集<br />         (COMMAND "style" "ljxh_st" "Times New Roman" 4.0 0.8 10 "" "")<br />         (setq te (getstring "\n输入零件序号:"))<br />         (command "text")<br />         (if (= an 0)<br />           (command (polar pp (/ pi 6.0) 4.0) ""  te)<br />           (command (polar (polar pp an dx) (/ pi 6.0) 4.0) "" te)<br />         )<br />         (ssadd (entlast) ss);;添加这个图元到选择集<br />         (COMMAND "scale" ss "" pt (rtos m 2 6));;缩放<br />       )<br />       (setq keep (getstring "\n按X键退出当前标注\\其他任意键继续标注:"))<br />       (if (or (= keep "x") (= keep "X"))<br />         (setq ty 0)<br />       )<br />     )<br />   (if (not (new_dialog "bom_label" dia))<br />     (exit)<br />   )<br />   )<br />   (defun vslide        (key s_name n / x y)<br />     (setq x (dimx_tile key))                    <br />     (setq y (dimy_tile key))<br />     (start_image key)<br />     (fill_image n -5 x y 2)<br />     (slide_image n -5 x y (strcat "lable(" s_name ")"))<br />     (end_image)<br />   )<br />   (setq dia (load_dialog "ljxh.dcl"))<br />   (if (not (new_dialog "bom_label" dia))<br />     (exit)<br />   )<br />   (while (> what 0)<br />     (vslide "k_lable1" "lable1" 0)<br />     (vslide "k_lable2" "lable2" 0)<br />     (vslide "k_lable3" "lable3" 0)<br />     (vslide "k_lable4" "lable4" 0)<br />     (vslide "k_lable5" "lable5" 0)<br />     (vslide "k_lable6" "lable6" 0)<br />     (action_tile "k_lable1" "(setq lab_no 1)")<br />     (action_tile "k_lable2" "(setq lab_no 2)")<br />     (action_tile "k_lable3" "(setq lab_no 3)")<br />     (action_tile "k_lable4" "(setq lab_no 4)")<br />     (action_tile "k_lable5" "(setq lab_no 5)")<br />     (action_tile "help" "(do_help)")<br />     (action_tile "accept" "(done_dialog 2)")<br />     (setq what (start_dialog))<br />     (if        (= what 2)<br />       (label_draw)<br />     )<br />   )<br />   (unload_dialog dia)<br />   (mrsave)<br /> ;;;  (command "layer" "s" "draw" "")<br /> ;;;  (command "ucs" "r" ucs_name)<br /> ;;;  (command "ucs" "del" ucs_name)<br />   (setvar "cmdecho" 1)<br />   (setvar "osmode" os_old)<br /> )

自贡黄明儒

linshiyin2 发表于 2014-2-28 09:24
如何区分编写的序号，在dxf中加入特殊的标记？或者使用块，序号就是块属性？我现在使用的是字体颜色进行区分 ...

使用带属性的块也行呀。即使带反应，删除一个，其它减少这好办，但增加呢？我觉得反应器麻烦且易出错，还是用text好些。目前我都是用的leader

linshiyin2

自贡黄明儒 发表于 2014-2-28 10:02
使用带属性的块也行呀。即使带反应，删除一个，其它减少这好办，但增加呢？我觉得反应器麻烦且易出错，还 ...

减少好做了增加也就好做了，增加的时候选择到所有的标记的编号，根据序号大小大于的增加1个即可，关键是我现在没有做成集成了，都是一个一个的散乱程序。

xyp1964

;; 自动序号

自贡黄明儒

xyp1964 发表于 2014-2-28 11:45
;; 自动序号

刚才我做了一个界面，觉得比你的界面要友好些
其实应该只有两类，根据鼠标动判断垂直或者水平

1. HHXHSC : dialog {label = "自贡运机集团 序号(黄明儒HHXH)";
   
2.         : boxed_column {           
   
3.           : edit_box {label = "前    缀(&Q)"; key = "HHqz"; mnemonic = "Q";edit_width=9;}
   
4.           : edit_box {label = "起始编号(&B)"; key = "HHbh"; mnemonic = "B"; edit_width=9;value="01";}
   
5.           : edit_box {label = "后    缀(&H)"; key = "HHhz"; mnemonic = "H";edit_width=9;}
   
6.         }
   
7.         : row{
   
8.           : button {label = "取----消(&C)";key = "but_Cancel";is_cancel=true;}
   
9.           : button {label = "球形序号(&E)";mnemonic = "E";key = "but_o";}
   
10.           : button {label = "常规序号(&O)";key = "but_OK";is_default=true;}
    
11.        }
    
12.     }

HHXHSC : dialog {label = "自贡运机集团 序号(黄明儒HHXH)";<br />         : boxed_column {           <br />           : edit_box {label = "前    缀(&Q)"; key = "HHqz"; mnemonic = "Q";edit_width=9;}<br />           : edit_box {label = "起始编号(&B)"; key = "HHbh"; mnemonic = "B"; edit_width=9;value="01";} <br />           : edit_box {label = "后    缀(&H)"; key = "HHhz"; mnemonic = "H";edit_width=9;}<br />         }<br />         : row{<br />           : button {label = "取----消(&C)";key = "but_Cancel";is_cancel=true;}<br />           : button {label = "球形序号(&E)";mnemonic = "E";key = "but_o";}<br />           : button {label = "常规序号(&O)";key = "but_OK";is_default=true;}<br />        }<br />     }