PressCAD注解输出的程序,LISP语言,自己编的其中之一功能

qiannianhuazi

自己编写的,对接另外的自编绘制程序,也可对接PESSCAD的

2. (defun c:n222( / note2_ss11  note2_first_corner note2_other_corner textheight00 jg_zb_wza1 jg_zb_wza2 jg_zb_wza3 jg_zb_wza4
   
3.                               jg_zb_wza5 jg_zb_wza6 jg_zb_wza7 jg_zb_wza8 jg_zb_wza9 jg_zb_wza10 jg_zb_wza11 jg_zb_wza12
   
4.                               jg_zb_wza13 jg_zb_wza14 jg_zb_wza15 jg_zb_wzcgy jg_zb_wzdyx jg_zb_wzdyx1
   
5.                               jg_ls_wz1 jg_ls_wz3 jg_ls_wz4 jg_ls_wz5 jg_ls_wz13 jg_ls_wz6 jg_ls_wz14 jg_ls_wz2 jg_ls_wzdyx
   
6.                               jg_ls_wzdyx1 jg_ls_wz15 jg_ls_wz12 jg_ls_wz7 jg_ls_wz8 jg_ls_wz9 jg_ls_wz10 jg_ls_wzcgy jg_ls_wz11
   
7.                               jg_ls_wz_all1
   
8.                );;
   
9.   (setvar "cmdecho" 0)
   
10.   (SETVAR "osmode" 0)
    
11.   (command "ucs" "w" "limits" "off")
    
12.   (command "-style"  "standard" "txt.shx,gbcbig.shx" 0 0.8 0 "n" "n" "") ;;设置默认字体样式
    
13.   (if(not (tblsearch "layer" "TEXT"))
    
14.     (command "layer" "n" "TEXT" "C" "4" "TEXT" "")
    
15.   )
    
16.   (if(not (tblsearch "layer" "DIM"))
    
17.     (command "layer" "n" "DIM" "C" "1" "DIM" "")
    
18.   )
    
19.   (command "layer" "on" "TEXT" "")
    
20.   (command "layer" "on" "DIM" "")
    
21.   (command "layer" "on" "0" "")
    
22.   (prompt "\n ******输出加工注解程序,选取模板范围******")
    
23.   (setq note2_first_corner (getpoint "\n >>>请点选模板的左下第一角点："))
    
24.   (setq note2_other_corner (getcorner note2_first_corner "\n >>>请点选模板的右上第二角点："))
    
25.   (if (= (type textheight) 'REAL)
    
26.     (progn
    
27.       (setq textheight00 (atof (getstring (strcat "\n >>>请输入标注文字高度<" (rtos textheight 2 0) ">:"))))
    
28.       (if (or (= textheight00 nil)(= textheight00 "")(<= textheight00 0))
    
29.          (setq textheight textheight)
    
30.          (setq textheight textheight00)
    
31.        )
    
32.      )
    
33.    (setq textheight (atof (getstring "\n >>>请输入标注文字高度<6>:")))
    
34.   )
    
35.   (if (or (= textheight nil)(= textheight "")(<= textheight 0)) (setq textheight 6.0))
    
36.   ;(command "zoom" "w" note2_first_corner note2_other_corner)
    
37.   ;(command "zoom" "1.0x")
    
38.   (setq zhakai "NO")
    
39.   (command "undo" "be")
    
40.   (setq note2_ss_insert (ssget "c" note2_first_corner note2_other_corner '((0 . "INSERT"))))
    
41.   (if note2_ss_insert
    
42.     (progn
    
43.      (setq iit 0 zhakai "YES")
    
44.      (repeat (sslength note2_ss_insert)
    
45.         (command "explode" (ssname note2_ss_insert iit))  ;;;炸开图元
    
46.         (setq iit (+ iit 1))
    
47.      )
    
48.    )
    
49.   )
    
50.   (setq note2_ss11 nil note2_ss22 nil  note2_ss33 nil  note2_ss44 nil)
    
51.   ;(setq note2_ss11 (ssget "c" note2_first_corner note2_other_corner '((0 . "CIRCLE,*LINE,INSERT"))))
    
52.   (setq note2_ss11 (ssget "c" note2_first_corner note2_other_corner '((0 . "CIRCLE"))))
    
53.   (setq jg_ls_wz1 nil jg_ls_wz2 nil jg_ls_wz3 nil jg_ls_wz4 nil jg_ls_wz5 nil jg_ls_wz6 nil
    
54.         jg_ls_wz7 nil jg_ls_wz8 nil jg_ls_wz9 nil jg_ls_wz10 nil jg_ls_wzcgy nil jg_ls_wz11 nil
    
55.         jg_ls_wz12 nil jg_ls_wz13 nil jg_ls_wz14 nil jg_ls_wz15 nil jg_ls_wzdyx nil jg_ls_wzdyx1 nil)
    
56.   (setq jg_zb_wza1 nil jg_zb_wza2 nil jg_zb_wza3 nil jg_zb_wza4 nil jg_zb_wza5 nil jg_zb_wza6 nil jg_zb_wza7 nil
    
57.         jg_zb_wza8 nil jg_zb_wza9 nil jg_zb_wza10 nil jg_zb_wza11 nil jg_zb_wza12 nil jg_zb_wza13 nil jg_zb_wza14 nil
    
58.         jg_zb_wza15 nil jg_zb_wzcgy nil jg_zb_wzdyx nil jg_zb_wzdyx1 nil jg_zb_wz_all1 '())
    
59.   (note2_get_biaoqian_ls note2_ss11)
    
60.   (setq jg_zb_wz_all1 (append jg_zb_wza1 jg_zb_wza2 jg_zb_wza3 jg_zb_wza4 jg_zb_wza5 jg_zb_wza6 jg_zb_wza7
    
61.                               jg_zb_wza8 jg_zb_wza9 jg_zb_wza10 jg_zb_wza11 jg_zb_wza12 jg_zb_wza13 jg_zb_wza14
    
62.                               jg_zb_wza15 jg_zb_wzcgy jg_zb_wzdyx jg_zb_wzdyx1));;结合所有坐标/编号列表
    
63.   (setq jg_ls_wz_all1 (append jg_ls_wz1 jg_ls_wz3 jg_ls_wz4 jg_ls_wz5 jg_ls_wz13 jg_ls_wz6 jg_ls_wz14 jg_ls_wz2
    
64.                               jg_ls_wzdyx jg_ls_wzdyx1 jg_ls_wz15  jg_ls_wz12 jg_ls_wz7  jg_ls_wz8 jg_ls_wz9 jg_ls_wz10
    
65.                               jg_ls_wzcgy jg_ls_wz11));;按注解编号子母顺序,结合所有加工文字列表
    
66.   (if (= zhakai "YES")
    
67.     (progn
    
68.      (command "undo" "B");;后退至炸开图元之前
    
69.      (note2_jg_bh_out jg_zb_wz_all1);;写所有图元编号
    
70.     )
    
71.   )
    
72.   (note2_jg_wz_out jg_ls_wz_all1);;动态输出加工注解
    
73.   (SETVAR "osmode" 39)
    
74.   (defun *error* (in_msg)    ;将描述错误的字串存入变数in_msg,还原定义错误后执行程序
    
75.        (princ "返回错误原因:")
    
76.        (princ in_msg)
    
77.    )      ;显示错误资讯
    
78.   (princ)
    
79. )
    
80. 
    
81. 
    
82. (defun note2_get_biaoqian_ls (note2_ss11 / data1_list zjpd_list lsyk_dd lsct_dd ndz_dd dlx_dd zfyk_dd dglsct_dd thk_dd
    
83.                                          wdz_dd  qdy_dd  jzk_dd  nxwz_dd  fsdlx_dd  czk_dd yczk_dd  dyx1_dd
    
84.                                          ss_lswk1 ss_lswk2 aa00 name00 dd00 deep00 jx00 zs00 dh00
    
85.                                          aa name dd deep jx dh zs ) ;;得到群码-3数据列表
    
86. (setq data1_list '() lsct_dd '() lsyk_dd  '() gdx_dd '() ndz_dd '() dlx_dd '() zfyk_dd '() dglsct_dd '() thk_dd '()
    
87.     wdz_dd '() qdy_dd '() jzk_dd '() nxwz_dd '() fsdlx_dd '()  czk_dd '() yczk_dd  '() dyx1_dd '())
    
88. (if note2_ss11
    
89. (while (/= (sslength note2_ss11) 0)
    
90.    (if (zjsx_zz_getx (ssname note2_ss11 0))
    
91.     (if (and (/= (nth 0 (zz_read_zfc qm3_jg_data)) "")(/= (zz_read_zfc qm3_jg_data) nil))
    
92.      (progn
    
93.       (setq aa   (nth 0 zf_list))
    
94.       (setq name (nth 1 zf_list))
    
95.       (setq dd   (nth 2 zf_list))
    
96.       (setq deep (nth 3 zf_list))
    
97.       (setq jx   (nth 4 zf_list))
    
98.       (if (= (setq zs (nth 5 zf_list)) nil)
    
99.          (setq zs "NIL")
    
100.       )
     
101.       (setq zf_list11 zf_list)
     
102.       (if (= (nth 1 (zf_fenli1 name)) "BOX")
     
103.          (if (= (setq zs (nth 8 zf_list11)) nil)
     
104.            (setq zs "NIL")
     
105.          )
     
106.       )
     
107.       (setq mk qm3_pm_data)
     
108.       (if (or (= qm3_dh_data nil) (= qm3_dh_data ""))
     
109.          (setq dh "NIL")
     
110.          (setq dh qm3_dh_data)
     
111.        )
     
112.       (setq aa00 aa)
     
113.       (setq name00 name)
     
114.       (setq dd00 dd)
     
115.       (setq deep00 deep)
     
116.       (setq jx00 jx)
     
117.       (setq zs00 zs)
     
118.       (setq dh00 dh)
     
119. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
120.       (if (= (cdr (assoc 0 (entget (ssname note2_ss11 0)))) "CIRCLE")
     
121.         (progn
     
122.           (setq x_dd (rtos (cdr (assoc 40 (entget (ssname note2_ss11 0)))) 2 3))
     
123.           (setq x_pt (cdr (assoc 10 (entget (ssname note2_ss11 0)))))
     
124. 
     
125. ;;;;;;;;;;;;;;;;;沉头过孔 A*类,********后续增加单独沉头f_sinkTSCR
     
126.           (if (or (= name00 "gen1TSCR+")(= name00 "gen1BSCR+")(= name00 "gen1TSCR")(= name00 "gen1BSCR"))
     
127.              (progn
     
128.                (setq ss_lswk1 nil)
     
129.                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))
     
130.                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉
     
131.                (if (/= (sslength ss_lswk1) 0)
     
132.                 (progn
     
133.                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")
     
134.                   (repeat (sslength ss_lswk1)
     
135.                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))
     
136.                     (if (or (= name "f_sinkTSCR")(= name "f_sinkBSCR")(= name "f_sink_scrTSCR")(= name "f_sink_scrBSCR"))
     
137.                       (progn
     
138.                        (setq gg11 dd)
     
139.                        (setq dep11 deep)
     
140.                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除
     
141.                        (setq run_time "onlyone");;仅抓取一个
     
142.                        )
     
143.                        (if (/= run_time "onlyone")
     
144.                          (progn
     
145.                            (setq gg11 "0.000")
     
146.                            (setq dep11 "0.000")
     
147.                          )
     
148.                        )
     
149.                      )
     
150.                     (setq ssnn (+ ssnn 1))
     
151.                   )
     
152.                 )
     
153.                 (progn
     
154.                   (setq gg11 "0.000")
     
155.                   (setq dep11 "0.000")
     
156.                 )
     
157.                )
     
158.                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)
     
159.                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表
     
160.                (setq lsct_dd (cons zjpd_list lsct_dd))
     
161.              )
     
162.           )
     
163. ;;;;;;;;;;;;;;;;;;
     
164. ;;;;;;;;;;;;;;;;;;牙孔 沉头攻牙 M*类
     
165.           (if (or (= name00 "m_screwTSCR+")(= name00 "m_screwBSCR+")(= name00 "m_screwTSCR")
     
166.                   (= name00 "m_screwBSCR")(= name00 "Fm_screwTSCR")(= name00 "Fm_screwBSCR")
     
167.                   (= name00 "m_screwHO"))
     
168.              (progn
     
169.                (setq ss_lswk2 nil jx001 nil  jx002 nil)
     
170.                (setq ss_lswk2 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "ARC") (cons 10 x_pt) )))
     
171.                (if ss_lswk2
     
172.                 (if (= (sslength ss_lswk2) 0);;判断攻牙正面背面
     
173.                   (setq jx00 "*面")
     
174.                   (progn
     
175.                      (setq zf0 0)
     
176.                      (repeat (sslength ss_lswk2);;
     
177.                        (if (OR (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "HIDDEN")
     
178.                            (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "HIDDEN2")
     
179.                            (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "DASHED"))
     
180.                          (progn
     
181.                            (setq jx001 "背面")
     
182.                            (setq jx00 "背面")
     
183.                          )
     
184.                          (progn
     
185.                            (setq jx002 "正面")
     
186.                            (setq jx00 "正面")
     
187.                          )
     
188.                        )
     
189.                        (if (and (= jx001 "背面") (= jx002 "正面"))
     
190.                           (setq jx00 "正面+背面")
     
191.                         )
     
192.                      (setq zf0 (+ zf0 1))
     
193.                      );;repeat
     
194.                   )
     
195.                 )
     
196.                 (setq jx00 "*面")
     
197.                )
     
198.                (setq ss_lswk1 nil)
     
199.                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))
     
200.                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉
     
201.                (if (/= (sslength ss_lswk1) 0)
     
202.                 (progn
     
203.                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")
     
204.                   (repeat (sslength ss_lswk1)
     
205.                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))
     
206.                     (if (or (= name "f_sink_scrTSCR")(= name "f_sink_scrBSCR"))
     
207.                       (progn
     
208.                        (setq gg11 dd)
     
209.                        (setq dep11 deep)
     
210.                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除
     
211.                        (setq run_time "onlyone");;仅抓取一个
     
212.                        )
     
213.                        (if (/= run_time "onlyone")
     
214.                          (progn
     
215.                            (setq gg11 "0.000")
     
216.                            (setq dep11 "0.000")
     
217.                          )
     
218.                        )
     
219.                      )
     
220.                     (setq ssnn (+ ssnn 1))
     
221.                   )
     
222.                 )
     
223.                 (progn
     
224.                   (setq gg11 "0.000")
     
225.                   (setq dep11 "0.000")
     
226.                 )
     
227.                )
     
228.                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)
     
229.                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表
     
230.                (setq lsyk_dd (cons zjpd_list lsyk_dd))
     
231.              )
     
232.           )
     
233. ;;;;;;;;;;;;;;;;;;
     
234. ;;;;;;;;;;;;;;;;;固定销孔 B*类,********后续增加单独沉头g_sinkTPIN
     
235.           (if (or (= name00 "gen1RTPIN+")(= name00 "gen1RBPIN+")
     
236.                   (= name00 "gen1RTPIN")(= name00 "gen1RBPIN")
     
237.                   (= name00 "posTPIN")(= name00 "posBPIN")
     
238.                   (= name00 "posTPIN+")(= name00 "posBPIN+")
     
239.                   (= name00 "gen1TPIN")(= name00 "gen1BPIN"))
     
240.              (progn
     
241.                (setq ss_lswk1 nil)
     
242.                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))
     
243.                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉
     
244.                (if (/= (sslength ss_lswk1) 0)
     
245.                 (progn
     
246.                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")
     
247.                   (repeat (sslength ss_lswk1)
     
248.                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))
     
249.                     (if (or (= name "g_sinkTPIN")(= name "g_sinkBPIN"))
     
250.                       (progn
     
251.                        (setq gg11 dd)
     
252.                        (setq dep11 deep)
     
253.                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除
     
254.                        (setq run_time "onlyone");;仅抓取一个
     
255.                        )
     
256.                        (if (/= run_time "onlyone")
     
257.                          (progn
     
258.                            (setq gg11 "0.000")
     
259.                            (setq dep11 "0.000")
     
260.                          )
     
261.                        )
     
262.                      )
     
263.                     (setq ssnn (+ ssnn 1))
     
264.                   )
     
265.                 )
     
266.                 (progn
     
267.                   (setq gg11 "0.000")
     
268.                   (setq dep11 "0.000")
     
269.                 )
     
270.                )
     
271.                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)
     
272.                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表
     
273.                (setq gdx_dd (cons zjpd_list gdx_dd))
     
274.              )
     
275.           )
     
276. ;;;;;;;;;;;;;;;;;;
     
277. ;;;;;;;;;;;;;;;;;内导柱孔 C*类,********后续增加单独沉头g_sinkIGPB
     
278.           (if (or (= name00 "posIGPB+")(= name00 "posIGPB")(= name00 "genIGPB"))
     
279.              (progn
     
280.                (setq ss_lswk1 nil)
     
281.                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))
     
282.                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉
     
283.                (if (/= (sslength ss_lswk1) 0)
     
284.                 (progn
     
285.                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")
     
286.                   (repeat (sslength ss_lswk1)
     
287.                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))
     
288.                     (if (= name "g_sinkIGPB")
     
289.                       (progn
     
290.                        (setq gg11 dd)
     
291.                        (setq dep11 deep)
     
292.                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除
     
293.                        (setq run_time "onlyone");;仅抓取一个
     
294.                        )
     
295.                        (if (/= run_time "onlyone")
     
296.                          (progn
     
297.                            (setq gg11 "0.000")
     
298.                            (setq dep11 "0.000")
     
299.                          )
     
300.                        )
     
301.                      )
     
302.                     (setq ssnn (+ ssnn 1))
     
303.                   )
     
304.                 )
     
305.                 (progn
     
306.                   (setq gg11 "0.000")
     
307.                   (setq dep11 "0.000")
     
308.                 )
     
309.                )
     
310.                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)
     
311.                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表
     
312.                (setq ndz_dd (cons zjpd_list ndz_dd))
     
313.              )
     
314.           )
     
315. ;;;;;;;;;;;;;;;;;;
     
316. ;;;;;;;;;;;;;;;;;顶料销孔 D*类,********后续增加单独沉头g_sinkTLPS/g_sinkBLPS
     
317.           (if (or (= name00 "gen0TLPS+")(= name00 "gen0BLPS+")
     
318.                   (= name00 "gen0TLPS")(= name00 "gen0BLPS")
     
319.                   (= name00 "genTLPS")(= name00 "genBLPS"))
     
320.              (progn
     
321.                (setq ss_lswk1 nil)
     
322.                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))
     
323.                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉
     
324.                (if (/= (sslength ss_lswk1) 0)
     
325.                 (progn
     
326.                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")
     
327.                   (repeat (sslength ss_lswk1)
     
328.                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))
     
329.                     (if (or (= name "g_sinkTLPS")(= name "g_sinkBLPS")(= name "set_screwTLPS")(= name "set_screwBLPS"))
     
330.                       (progn
     
331.                        (if (or (= name "set_screwTLPS")(= name "set_screwBLPS"))
     
332.                            (setq jx00 "止付")
     
333.                        )
     
334.                        (setq gg11 dd)
     
335.                        (setq dep11 deep)
     
336.                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除
     
337.                        (setq run_time "onlyone");;仅抓取一个
     
338.                        )
     
339.                        (if (/= run_time "onlyone")
     
340.                          (progn
     
341.                            (setq gg11 "0.000")
     
342.                            (setq dep11 "0.000")
     
343.                          )
     
344.                        )
     
345.                      )
     
346.                     (setq ssnn (+ ssnn 1))
     
347.                   )
     
348.                 )
     
349.                 (progn
     
350.                   (setq gg11 "0.000")
     
351.                   (setq dep11 "0.000")
     
352.                 )
     
353.                )
     
354.                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)
     
355.                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表
     
356.                (setq dlx_dd (cons zjpd_list dlx_dd))
     
357.              )
     
358.           )
     
359. ;;;;;;;;;;;;;;;;;;
     
360. ;;;;;;;;;;;;;;;;;;如果中间有顶针孔则忽略,否则按止付牙 D*类
     
361.           (if (or (= name00 "set_screwTLPS")(= name00 "set_screwBLPS") (= name00 "set_screwBGLS") )
     
362.              (progn
     
363.                (setq ss_lswk1 nil)
     
364.                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))
     
365.                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉
     
366.                (setq name nil ssnn 0 run_time "no_onlyone")
     
367.                (if (/= (sslength ss_lswk1) 0)
     
368.                   (repeat (sslength ss_lswk1)
     
369.                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))
     
370.                     (if (or (= name "gen0TLPS+")(= name "gen0BLPS+")
     
371.                             (= name "gen0TLPS")(= name "gen0BLPS")
     
372.                             (= name "genTLPS")(= name "genBLPS"))
     
373.                        (setq run_time "onlyone");;判断是否有顶料销内孔图元
     
374.                      )
     
375.                      (setq ssnn (+ ssnn 1))
     
376.                     );;repeat
     
377.                  )
     
378.                (if (/= run_time "onlyone")
     
379.                  (progn
     
380.                    (setq ss_lswk2 nil jx001 nil  jx002 nil)
     
381.                    (setq ss_lswk2 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "ARC") (cons 10 x_pt) )))
     
382.                    (if ss_lswk2
     
383.                     (if (= (sslength ss_lswk2) 0);;判断攻牙正面背面
     
384.                       (setq jx00 "*面")
     
385.                       (progn
     
386.                          (setq zf0 0)
     
387.                          (repeat (sslength ss_lswk2);;
     
388.                            (if (OR (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "HIDDEN")
     
389.                                (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "HIDDEN2")
     
390.                                (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "DASHED"))
     
391.                              (progn
     
392.                                (setq jx001 "背面")
     
393.                                (setq jx00 "背面")
     
394.                              )
     
395.                              (progn
     
396.                                (setq jx002 "正面")
     
397.                                (setq jx00 "正面")
     
398.                              )
     
399.                            )
     
400.                            (if (and (= jx001 "背面") (= jx002 "正面"))
     
401.                               (setq jx00 "正面+背面")
     
402.                             )
     
403.                          (setq zf0 (+ zf0 1))
     
404.                          );;repeat
     
405.                       )
     
406.                     )
     
407.                     (setq jx00 "*面")
     
408.                    )
     
409.                    (setq gg11 "0.000")
     
410.                    (setq dep11 "0.000")
     
411.                    (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)
     
412.                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表
     
413.                    (setq zfyk_dd (cons zjpd_list zfyk_dd))
     
414.                  )
     
415.                )
     
416.              )
     
417.           )
     
418. 
     
419. ;;;;;;;;;;;;;;;;;;
     
420. ;;;;;;;;;;;;;;;;;等高套沉头过孔,牙孔 Q*类,********后续增加单独沉头g_sinkCSR
     
421.           (if (or (= name00 "gen0CSR+")(= name00 "gen0CSR")(= name00 "m_screw0CSR"))
     
422.              (progn
     
423.                (setq ss_lswk1 nil)
     
424.                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))
     
425.                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉
     
426.                (if (/= (sslength ss_lswk1) 0)
     
427.                 (progn
     
428.                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")
     
429.                   (repeat (sslength ss_lswk1)
     
430.                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))
     
431.                     (if (= name "g_sinkCSR")
     
432.                       (progn
     
433.                        (setq gg11 dd)
     
434.                        (setq dep11 deep)
     
435.                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除
     
436.                        (setq run_time "onlyone");;仅抓取一个
     
437.                        )
     
438.                        (if (/= run_time "onlyone")
     
439.                          (progn
     
440.                            (setq gg11 "0.000")
     
441.                            (setq dep11 "0.000")
     
442.                          )
     
443.                        )
     
444.                      )
     
445.                     (setq ssnn (+ ssnn 1))
     
446.                   )
     
447.                 )
     
448.                 (progn
     
449.                   (setq gg11 "0.000")
     
450.                   (setq dep11 "0.000")
     
451.                 )
     
452.                )
     
453.                (if (= name00 "m_screw0CSR")
     
454.                  (progn
     
455.                    (setq ss_lswk2 nil jx001 nil  jx002 nil)
     
456.                    (setq ss_lswk2 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "ARC") (cons 10 x_pt) )))
     
457.                    (if ss_lswk2
     
458.                     (if (= (sslength ss_lswk2) 0);;判断攻牙正面背面
     
459.                       (setq jx00 "*面攻")
     
460.                       (progn
     
461.                          (setq zf0 0)
     
462.                          (repeat (sslength ss_lswk2);;
     
463.                            (if (OR (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "HIDDEN")
     
464.                                (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "HIDDEN2")
     
465.                                (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "DASHED"))
     
466.                              (progn
     
467.                                (setq jx001 "背面攻")
     
468.                                (setq jx00 "背面攻")
     
469.                              )
     
470.                              (progn
     
471.                                (setq jx002 "正面攻")
     
472.                                (setq jx00 "正面攻")
     
473.                              )
     
474.                            )
     
475.                            (if (and (= jx001 "背面攻") (= jx002 "正面攻"))
     
476.                               (setq jx00 "正面+背面攻")
     
477.                             )
     
478.                          (setq zf0 (+ zf0 1))
     
479.                          );;repeat
     
480.                       )
     
481.                     )
     
482.                     (setq jx00 "*面攻")
     
483.                    )
     
484.                  )
     
485.                )
     
486.                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)
     
487.                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表
     
488.                (setq dglsct_dd (cons zjpd_list dglsct_dd))
     
489.              )
     
490.           )
     
491. ;;;;;;;;;;;;;;;;;;
     
492. ;;;;;;;;;;;;;;;;;弹簧孔 T*类
     
493.           (if (or (= name00 "f_sinkTSPR")(= name00 "f_sinkBSPR")(= name00 "gen1TSPR")(= name00 "gen1BSPR"))
     
494.              (progn
     
495.                (if (OR (= (cdr (assoc '6 (entget (ssname note2_ss11 0)))) "HIDDEN")
     
496.                    (= (cdr (assoc '6 (entget (ssname note2_ss11 0)))) "HIDDEN2")
     
497.                    (= (cdr (assoc '6 (entget (ssname note2_ss11 0)))) "DASHED"))
     
498.                   (if (> (atof deep00) 0)
     
499.                     (ALERT "存在深度数据与线型不一致的图元,确认后以深度数据为准,请检查!!!")
     
500.                   )
     
501.                   (if (< (atof deep00) 0)
     
502.                     (ALERT "存在深度数据与线型不一致的图元,确认后以深度数据为准,请检查!!!")
     
503.                   )
     
504.                )
     
505.                (setq gg11 "0.000")
     
506.                (setq dep11 "0.000")
     
507.                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)
     
508.                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表
     
509.                (setq thk_dd (cons zjpd_list thk_dd))
     
510.              )
     
511.           )
     
512. ;;;;;;;;;;;;;;;;;;
     
513. ;;;;;;;;;;;;;;;;;外导柱孔 O*类
     
514.           (if (or (= name00 "gen0QOGPB+")(= name00 "genQOGPB")(= name00 "posOGPB+")(= name00 "posOGPB"))
     
515.              (progn
     
516.                (setq ss_lswk1 nil)
     
517.                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))
     
518.                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉
     
519.                (if (/= (sslength ss_lswk1) 0)
     
520.                 (progn
     
521.                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")
     
522.                   (repeat (sslength ss_lswk1)
     
523.                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))
     
524.                     (if (= name "g_sinkOGPB")
     
525.                       (progn
     
526.                        (setq gg11 dd)
     
527.                        (setq dep11 deep)
     
528.                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除
     
529.                        (setq run_time "onlyone");;仅抓取一个
     
530.                        )
     
531.                        (if (/= run_time "onlyone")
     
532.                          (progn
     
533.                            (setq gg11 "0.000")
     
534.                            (setq dep11 "0.000")
     
535.                          )
     
536.                        )
     
537.                      )
     
538.                     (setq ssnn (+ ssnn 1))
     
539.                   )
     
540.                 )
     
541.                 (progn
     
542.                   (setq gg11 "0.000")
     
543.                   (setq dep11 "0.000")
     
544.                 )
     
545.                )
     
546.                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)
     
547.                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表
     
548.                (setq wdz_dd (cons zjpd_list wdz_dd))
     
549.              )
     
550.           )
     
551. ;;;;;;;;;;;;;;;;;;
     
552. ;;;;;;;;;;;;;;;;;起吊牙孔 L*类
     
553.           (if (= name00 "m_screwUSER")
     
554.              (progn
     
555.                (setq ss_lswk1 nil)
     
556.                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))
     
557.                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉
     
558.                (setq gg11 "0.000")
     
559.                (setq dep11 "0.000")
     
560.                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)
     
561.                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表
     
562.                (setq qdy_dd (cons zjpd_list qdy_dd))
     
563.              )
     
564.           )
     
565. ;;;;;;;;;;;;;;;;;;
     
566. ;;;;;;;;;;;;;;;;;基准孔 U*类
     
567.           (if (= name00 "gen1RORG+")
     
568.              (progn
     
569.                (setq ss_lswk1 nil)
     
570.                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))
     
571.                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉
     
572.                (if (/= (sslength ss_lswk1) 0)
     
573.                 (progn
     
574.                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")
     
575.                   (repeat (sslength ss_lswk1)
     
576.                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))
     
577.                     (if (= name "posORG")
     
578.                       (progn
     
579.                        (setq gg11 dd)
     
580.                        (setq dep11 deep)
     
581.                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除
     
582.                        (setq run_time "onlyone");;仅抓取一个
     
583.                        )
     
584.                        (if (/= run_time "onlyone")
     
585.                          (progn
     
586.                            (setq gg11 "0.000")
     
587.                            (setq dep11 "0.000")
     
588.                          )
     
589.                        )
     
590.                      )
     
591.                     (setq ssnn (+ ssnn 1))
     
592.                   )
     
593.                 )
     
594.                 (progn
     
595.                   (setq gg11 "0.000")
     
596.                   (setq dep11 "0.000")
     
597.                 )
     
598.                )
     
599.                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)
     
600.                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表
     
601.                (setq jzk_dd (cons zjpd_list jzk_dd))
     
602.              )
     
603.           )
     
604. ;;;;;;;;;;;;;;;;;;
     
605. ;;;;;;;;;;;;;;;;;内限位孔 N*类
     
606.           (if (or (= name00 "gen1LTH") (= name00 "f_sinkLTH"))
     
607.              (progn
     
608.                (setq ss_lswk1 nil)
     
609.                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))
     
610.                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉
     
611.                (setq gg11 "0.000")
     
612.                (setq dep11 "0.000")
     
613.                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)
     
614.                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表
     
615.                (setq nxwz_dd (cons zjpd_list nxwz_dd))
     
616.              )
     
617.           )
     
618. ;;;;;;;;;;;;;;;;;;
     
619. ;;;;;;;;;;;;;;;;;两用销孔 D*类
     
620.           (if (or (= name00 "posBGLS+")(= name00 "posBGLS")
     
621.                   (= name00 "genBGLS")(= name00 "f_sinkBGLS"))
     
622.              (progn
     
623.                (setq ss_lswk1 nil)
     
624.                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))
     
625.                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉
     
626.                (if (and (/= (sslength ss_lswk1) 0)(or (= name00 "posBGLS+") (= name00 "posBGLS")) )
     
627.                 (progn
     
628.                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")
     
629.                   (repeat (sslength ss_lswk1)
     
630.                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))
     
631.                     (if (= name "f_sinkBGLS")
     
632.                       (progn
     
633.                        (setq gg11 dd)
     
634.                        (setq dep11 deep)
     
635.                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除
     
636.                        (setq run_time "onlyone");;仅抓取一个
     
637.                        )
     
638.                        (if (/= run_time "onlyone")
     
639.                          (progn
     
640.                            (setq gg11 "0.000")
     
641.                            (setq dep11 "0.000")
     
642.                          )
     
643.                        )
     
644.                      )
     
645.                     (setq ssnn (+ ssnn 1))
     
646.                   )
     
647.                 )
     
648.                 (progn
     
649.                   (setq gg11 "0.000")
     
650.                   (setq dep11 "0.000")
     
651.                 )
     
652.                )
     
653.                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)
     
654.                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表
     
655.                (setq fsdlx_dd (cons zjpd_list fsdlx_dd))
     
656.              )
     
657.           )
     
658. ;;;;;;;;;;;;;;;;;;
     
659. ;;;;;;;;;;;;;;;;;插针孔 F*类 +内定位孔 F*类
     
660.           (if (or (= name00 "posBPP+")(= name00 "posBPP")
     
661.                   (= name00 "gen1BPP")
     
662.                   (= name00 "posPPIN+")(= name00 "posPPIN")
     
663.                   (= name00 "genPPIN"))
     
664.              (progn
     
665.                (setq ss_lswk1 nil)
     
666.                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))
     
667.                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉
     
668.                (if (and (/= (sslength ss_lswk1) 0)(or (= name00 "posBPP+") (= name00 "posBPP") (= name00 "posPPIN+")(= name00 "posPPIN")) )
     
669.                 (progn
     
670.                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")
     
671.                   (repeat (sslength ss_lswk1)
     
672.                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))
     
673.                     (if (OR (= name "g_sinkBPP")(= name "g_sinkPPIN"))
     
674.                       (progn
     
675.                        (setq gg11 dd)
     
676.                        (setq dep11 deep)
     
677.                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除
     
678.                        (setq run_time "onlyone");;仅抓取一个
     
679.                        )
     
680.                        (if (/= run_time "onlyone")
     
681.                          (progn
     
682.                            (setq gg11 "0.000")
     
683.                            (setq dep11 "0.000")
     
684.                          )
     
685.                        )
     
686.                      )
     
687.                     (setq ssnn (+ ssnn 1))
     
688.                   )
     
689.                 )
     
690.                 (progn
     
691.                   (setq gg11 "0.000")
     
692.                   (setq dep11 "0.000")
     
693.                 )
     
694.                )
     
695.                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)
     
696.                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表
     
697.                (setq czk_dd (cons zjpd_list czk_dd))
     
698.              )
     
699.           )
     
700. ;;;;;;;;;;;;;;;;;;
     
701. ;;;;;;;;;;;;;;;;;圆冲针孔 P*类
     
702.           (if (or (= name00 "pos1AP0+")(= name00 "pos1AP0")(= name00 "pos1AP")
     
703.                   (= name00 "gen1AP0")(= name00 "gen1AP")(= name00 "gen1"))
     
704.              (progn
     
705.                (setq ss_lswk1 nil)
     
706.                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))
     
707.                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉
     
708.                (if (and (/= (sslength ss_lswk1) 0)(or (= name00 "pos1AP0+") (= name00 "pos1AP0")(= name00 "pos1AP")) )
     
709.                 (progn
     
710.                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")
     
711.                   (repeat (sslength ss_lswk1)
     
712.                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))
     
713.                     (if (or (= name "g_sink1AP0")(= name "s_sink1AP0"))
     
714.                       (progn
     
715.                        (setq gg11 dd)
     
716.                        (setq dep11 deep)
     
717.                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除
     
718.                        (setq run_time "onlyone");;仅抓取一个
     
719.                        )
     
720.                        (if (/= run_time "onlyone")
     
721.                          (progn
     
722.                            (setq gg11 "0.000")
     
723.                            (setq dep11 "0.000")
     
724.                          )
     
725.                        )
     
726.                      )
     
727.                     (setq ssnn (+ ssnn 1))
     
728.                   )
     
729.                 )
     
730.                 (progn
     
731.                   (setq gg11 "0.000")
     
732.                   (setq dep11 "0.000")
     
733.                 )
     
734.                )
     
735.                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)
     
736.                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表
     
737.                (setq yczk_dd (cons zjpd_list yczk_dd))
     
738.              )
     
739.           )
     
740. ;;;;;;;;;;;;;;;;;;
     
741. ;;;;;;;;;;;;;;;;;线割孔,铣孔 K*类 圆孔类
     
742.           (if (or(= name00 "CP1")(= name00 "CP2")(= name00 "CP3")(= name00 "CP4")
     
743.                  (= name00 "CP5")(= name00 "精铣") (= name00 "铣床"))
     
744.           (progn
     
745.              (setq zjpd_list (list dd00 (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/0.000/0.000")
     
746.                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表
     
747.              (setq dyx1_dd (cons zjpd_list dyx1_dd))
     
748.             )
     
749.           )
     
750. ;;;;;;;;;;;;;;;;;;
     
751.         )
     
752.       )
     
753. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
754. 
     
755.       )
     
756.      )
     
757.     );;if/=""
     
758.        (note2_del_yss1 (ssadd (ssname note2_ss11 0)) note2_ss11);;当前图元从note2_ss11中删除
     
759. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
760.   );;while
     
761. );if
     
762. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
763. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
764.   (setq jg_ls_wz1 '() jg_ls_wz2 '()  jg_ls_wz3 '()  jg_ls_wz4 '() jg_ls_wz5 '()  jg_ls_wz6 '()
     
765.         jg_ls_wz7 '() jg_ls_wz8 '()  jg_ls_wz9 '() jg_ls_wz10 '() jg_ls_wz11 '() jg_ls_wz12 '()
     
766.         jg_ls_wz13 '() jg_ls_wz14 '() jg_ls_wz15 '()   )
     
767.   (if lsct_dd
     
768.     (progn
     
769.       (setq data1_list (note2_qm3_to_stlist_px lsct_dd));;对螺丝沉头标准格式列表按半径大小排序
     
770.       (note2_qm3_stlist_jg1 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz1
     
771.      )
     
772.    )
     
773.   (if lsyk_dd
     
774.     (progn
     
775.       (setq data1_list (note2_qm3_to_stlist_px lsyk_dd));;对螺丝牙孔标准格式列表按半径大小排序
     
776.       (note2_qm3_stlist_jg2 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz2
     
777.      )
     
778.    )
     
779.   (if gdx_dd
     
780.     (progn
     
781.       (setq data1_list (note2_qm3_to_stlist_px gdx_dd));;对固定销孔标准格式列表按半径大小排序
     
782.       (note2_qm3_stlist_jg3 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz3
     
783.      )
     
784.    )
     
785.   (if ndz_dd
     
786.     (progn
     
787.       (setq data1_list (note2_qm3_to_stlist_px ndz_dd));;对内导柱孔标准格式列表按半径大小排序
     
788.       (note2_qm3_stlist_jg4 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz4
     
789.      )
     
790.    )
     
791.   (if dlx_dd
     
792.     (progn
     
793.       (setq data1_list (note2_qm3_to_stlist_px dlx_dd));;对顶料销孔标准格式列表按半径大小排序
     
794.       (note2_qm3_stlist_jg5 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz5
     
795.      )
     
796.    )
     
797.   (if zfyk_dd
     
798.     (progn
     
799.       (setq data1_list (note2_qm3_to_stlist_px zfyk_dd));;对止付牙孔标准格式列表按半径大小排序
     
800.       (note2_qm3_stlist_jg6 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz6
     
801.      )
     
802.    )
     
803.   (if dglsct_dd
     
804.     (progn
     
805.       (setq data1_list (note2_qm3_to_stlist_px dglsct_dd));;对等高套孔标准格式列表按半径大小排序
     
806.       (note2_qm3_stlist_jg7 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz7
     
807.      )
     
808.    )
     
809.   (if thk_dd
     
810.     (progn
     
811.       (setq data1_list (note2_qm3_to_stlist_px thk_dd));;对弹簧孔标准格式列表按半径大小排序
     
812.       (note2_qm3_stlist_jg8 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz8
     
813.      )
     
814.    )
     
815.   (if wdz_dd
     
816.     (progn
     
817.       (setq data1_list (note2_qm3_to_stlist_px wdz_dd));;对外导柱孔标准格式列表按半径大小排序
     
818.       (note2_qm3_stlist_jg9 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz9
     
819.      )
     
820.    )
     
821.   (if qdy_dd
     
822.     (progn
     
823.       (setq data1_list (note2_qm3_to_stlist_px qdy_dd));;对起吊孔标准格式列表按半径大小排序
     
824.       (note2_qm3_stlist_jg10 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz10
     
825.      )
     
826.    )
     
827.   (if jzk_dd
     
828.     (progn
     
829.       (setq data1_list (note2_qm3_to_stlist_px jzk_dd));;对基准孔孔标准格式列表按半径大小排序
     
830.       (note2_qm3_stlist_jg11 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz11
     
831.      )
     
832.    )
     
833.   (if nxwz_dd
     
834.     (progn
     
835.       (setq data1_list (note2_qm3_to_stlist_px nxwz_dd));;对内限位孔孔标准格式列表按半径大小排序
     
836.       (note2_qm3_stlist_jg12 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz12
     
837.      )
     
838.    )
     
839.   (if fsdlx_dd
     
840.     (progn
     
841.       (setq data1_list (note2_qm3_to_stlist_px fsdlx_dd));;对两用销孔标准格式列表按半径大小排序
     
842.       (note2_qm3_stlist_jg13 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz13
     
843.      )
     
844.    )
     
845.   (if czk_dd
     
846.     (progn
     
847.       (setq data1_list (note2_qm3_to_stlist_px czk_dd));;对插针孔标准格式列表按半径大小排序
     
848.       (note2_qm3_stlist_jg14 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz14
     
849.      )
     
850.    )
     
851.   (if yczk_dd
     
852.     (progn
     
853.       (setq data1_list (note2_qm3_to_stlist_px yczk_dd));;对圆冲针孔标准格式列表按半径大小排序
     
854.       (note2_qm3_stlist_jg15 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz15
     
855.      )
     
856.    )
     
857.   (if dyx1_dd
     
858.     (progn
     
859.        (setq data1_list (note2_qm3_to_stlist_px dyx1_dd));;对多义线之外的圆孔标准格式列表按半径大小排序
     
860.        (note2_qm3_stlist_jgdyx1 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wzdyx1
     
861.      )
     
862.    )
     
863. 
     
864. 
     
865. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;以下增加侧攻牙
     
866.   (setq note2_ss22 (ssadd) cmgy_dd nil x_pt1_list '())
     
867.   (setq note2_ss22 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "LINE") (cons 6 "CENTER")  )))
     
868.   (if note2_ss22
     
869.     (while (/= (sslength note2_ss22) 0)
     
870.      (if (zjsx_zz_getx (ssname note2_ss22 0))
     
871.       (if (and (/= (nth 0 (zz_read_zfc qm3_jg_data)) "")(/= (zz_read_zfc qm3_jg_data) nil))
     
872.        (progn
     
873.         (setq x_pt (cdr (assoc 10 (entget (ssname note2_ss22 0)))))
     
874.         (setq x_pt1 (cdr (assoc 11 (entget (ssname note2_ss22 0)))))
     
875.         (setq aa00   (nth 0 zf_list))
     
876.         (setq name00 (nth 1 zf_list))
     
877.         (setq dd00   (nth 2 zf_list))
     
878.         (setq deep00 (nth 3 zf_list))
     
879.         (setq jx00 (nth 4 zf_list))
     
880.         (setq zs00 (nth 5 zf_list))
     
881.         (if (or (= qm3_dh_data nil) (= qm3_dh_data ""))
     
882.          (setq dh00 "NIL")
     
883.          (setq dh00 qm3_dh_data)
     
884.         )
     
885.         (if (= name00 "m_screwHO")
     
886.           (progn
     
887.              (setq zjpd_list (list dd00 (strcat aa00 "/" name00 "/" dd00 "/0.000/" deep00 "/" jx00 "/" zs00 "/" dh00  "/0.000/0.000")
     
888.                         (list x_pt x_pt1) (ssname note2_ss22 0) ));;转为标准格式列表
     
889.              (setq cmgy_dd (cons zjpd_list cmgy_dd))
     
890.             )
     
891.          )
     
892.        )
     
893.       )
     
894.      )
     
895.      (del_ss1 (ssadd (ssname note2_ss22 0)) note2_ss22);;当前图元从note2_ss22中删除
     
896.     );;while
     
897.    );;if/=nil
     
898. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
899.   (if cmgy_dd
     
900.     (progn
     
901.        (setq data1_list (note2_qm3_to_stlist_px cmgy_dd));;对侧攻牙孔标准格式列表按半径大小排序
     
902.        (note2_qm3_stlist_jgcgy data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wzcgy
     
903.      )
     
904.    )
     
905. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
906. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;以下增加线割孔,铣孔,多义线扩展数据
     
907.   (setq note2_ss33 (ssadd) dyx_dd nil x_pt1_list '())
     
908.   (setq note2_ss33 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "LWPOLYLINE") )))
     
909.   (if note2_ss33
     
910.     (while (/= (sslength note2_ss33) 0)
     
911.      (if (zjsx_zz_getx (ssname note2_ss33 0))
     
912.       (if (and (/= (nth 0 (zz_read_zfc qm3_jg_data)) "")(/= (zz_read_zfc qm3_jg_data) nil))
     
913.        (progn
     
914.         (get_xy (ssadd (ssname note2_ss33 0)))
     
915.         (setq x_pt (pt_mid (list minx miny) (list maxx maxy)))
     
916.         (setq aa00   (nth 0 zf_list))
     
917.         (setq name00 (nth 1 zf_list))
     
918.         (setq dd00   (nth 2 zf_list))
     
919.         (setq deep00 (nth 3 zf_list))
     
920.         (setq jx00 (nth 4 zf_list))
     
921.         (setq zs00 (nth 5 zf_list))
     
922.         (if (or (= qm3_dh_data nil) (= qm3_dh_data ""))
     
923.          (setq dh00 "NIL")
     
924.          (setq dh00 qm3_dh_data)
     
925.         )
     
926.         (if (or(= name00 "CP1")(= name00 "CP2")(= name00 "CP3")(= name00 "CP4")(= name00 "CP5")
     
927.             (= name00 "精铣") (= name00 "铣床")(= name00 "BUSH"))
     
928.           (progn
     
929.              (setq zjpd_list (list dd00 (strcat aa00 "/" name00 "/" dd00 "/0.000/" deep00 "/" jx00 "/" zs00 "/" dh00  "/0.000/0.000")
     
930.                         x_pt (ssname note2_ss33 0) ));;转为标准格式列表
     
931.              (setq dyx_dd (cons zjpd_list dyx_dd))
     
932.             )
     
933.          )
     
934.        )
     
935.       )
     
936.      )
     
937.      (del_ss1 (ssadd (ssname note2_ss33 0)) note2_ss33);;当前图元从note2_ss33中删除
     
938.     );;while
     
939.    );;if/=nil
     
940. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
941.   (if dyx_dd
     
942.     (progn
     
943.        (setq data1_list (note2_qm3_to_stlist_px dyx_dd));;对多义线孔标准格式列表按半径大小排序
     
944.        (note2_qm3_stlist_jgdyx data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wzdyx
     
945.      )
     
946.    )
     
947. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
948. )
     
949. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:n222( / note2_ss11  note2_first_corner note2_other_corner textheight00 jg_zb_wza1 jg_zb_wza2 jg_zb_wza3 jg_zb_wza4<br />                               jg_zb_wza5 jg_zb_wza6 jg_zb_wza7 jg_zb_wza8 jg_zb_wza9 jg_zb_wza10 jg_zb_wza11 jg_zb_wza12 <br />                               jg_zb_wza13 jg_zb_wza14 jg_zb_wza15 jg_zb_wzcgy jg_zb_wzdyx jg_zb_wzdyx1<br />                               jg_ls_wz1 jg_ls_wz3 jg_ls_wz4 jg_ls_wz5 jg_ls_wz13 jg_ls_wz6 jg_ls_wz14 jg_ls_wz2 jg_ls_wzdyx <br />                               jg_ls_wzdyx1 jg_ls_wz15 jg_ls_wz12 jg_ls_wz7 jg_ls_wz8 jg_ls_wz9 jg_ls_wz10 jg_ls_wzcgy jg_ls_wz11<br />                               jg_ls_wz_all1<br />                );;<br />   (setvar "cmdecho" 0)<br />   (SETVAR "osmode" 0)<br />   (command "ucs" "w" "limits" "off")<br />   (command "-style"  "standard" "txt.shx,gbcbig.shx" 0 0.8 0 "n" "n" "") ;;设置默认字体样式<br />   (if(not (tblsearch "layer" "TEXT"))<br />     (command "layer" "n" "TEXT" "C" "4" "TEXT" "")<br />   )<br />   (if(not (tblsearch "layer" "DIM"))<br />     (command "layer" "n" "DIM" "C" "1" "DIM" "")<br />   )<br />   (command "layer" "on" "TEXT" "")<br />   (command "layer" "on" "DIM" "")<br />   (command "layer" "on" "0" "")<br />   (prompt "\n ******输出加工注解程序,选取模板范围******")<br />   (setq note2_first_corner (getpoint "\n >>>请点选模板的左下第一角点："))<br />   (setq note2_other_corner (getcorner note2_first_corner "\n >>>请点选模板的右上第二角点："))<br />   (if (= (type textheight) 'REAL)<br />     (progn<br />       (setq textheight00 (atof (getstring (strcat "\n >>>请输入标注文字高度<" (rtos textheight 2 0) ">:"))))<br />       (if (or (= textheight00 nil)(= textheight00 "")(<= textheight00 0))<br />          (setq textheight textheight)<br />          (setq textheight textheight00)<br />        )<br />      )<br />    (setq textheight (atof (getstring "\n >>>请输入标注文字高度<6>:")))<br />   )<br />   (if (or (= textheight nil)(= textheight "")(<= textheight 0)) (setq textheight 6.0))<br />   ;(command "zoom" "w" note2_first_corner note2_other_corner)<br />   ;(command "zoom" "1.0x")<br />   (setq zhakai "NO")<br />   (command "undo" "be")<br />   (setq note2_ss_insert (ssget "c" note2_first_corner note2_other_corner '((0 . "INSERT"))))<br />   (if note2_ss_insert<br />     (progn<br />      (setq iit 0 zhakai "YES")<br />      (repeat (sslength note2_ss_insert)<br />         (command "explode" (ssname note2_ss_insert iit))  ;;;炸开图元<br />         (setq iit (+ iit 1))<br />      )<br />    )<br />   )<br />   (setq note2_ss11 nil note2_ss22 nil  note2_ss33 nil  note2_ss44 nil)<br />   ;(setq note2_ss11 (ssget "c" note2_first_corner note2_other_corner '((0 . "CIRCLE,*LINE,INSERT"))))<br />   (setq note2_ss11 (ssget "c" note2_first_corner note2_other_corner '((0 . "CIRCLE"))))<br />   (setq jg_ls_wz1 nil jg_ls_wz2 nil jg_ls_wz3 nil jg_ls_wz4 nil jg_ls_wz5 nil jg_ls_wz6 nil <br />         jg_ls_wz7 nil jg_ls_wz8 nil jg_ls_wz9 nil jg_ls_wz10 nil jg_ls_wzcgy nil jg_ls_wz11 nil<br />         jg_ls_wz12 nil jg_ls_wz13 nil jg_ls_wz14 nil jg_ls_wz15 nil jg_ls_wzdyx nil jg_ls_wzdyx1 nil)<br />   (setq jg_zb_wza1 nil jg_zb_wza2 nil jg_zb_wza3 nil jg_zb_wza4 nil jg_zb_wza5 nil jg_zb_wza6 nil jg_zb_wza7 nil<br />         jg_zb_wza8 nil jg_zb_wza9 nil jg_zb_wza10 nil jg_zb_wza11 nil jg_zb_wza12 nil jg_zb_wza13 nil jg_zb_wza14 nil<br />         jg_zb_wza15 nil jg_zb_wzcgy nil jg_zb_wzdyx nil jg_zb_wzdyx1 nil jg_zb_wz_all1 '())<br />   (note2_get_biaoqian_ls note2_ss11)<br />   (setq jg_zb_wz_all1 (append jg_zb_wza1 jg_zb_wza2 jg_zb_wza3 jg_zb_wza4 jg_zb_wza5 jg_zb_wza6 jg_zb_wza7<br />                               jg_zb_wza8 jg_zb_wza9 jg_zb_wza10 jg_zb_wza11 jg_zb_wza12 jg_zb_wza13 jg_zb_wza14<br />                               jg_zb_wza15 jg_zb_wzcgy jg_zb_wzdyx jg_zb_wzdyx1));;结合所有坐标/编号列表<br />   (setq jg_ls_wz_all1 (append jg_ls_wz1 jg_ls_wz3 jg_ls_wz4 jg_ls_wz5 jg_ls_wz13 jg_ls_wz6 jg_ls_wz14 jg_ls_wz2 <br />                               jg_ls_wzdyx jg_ls_wzdyx1 jg_ls_wz15  jg_ls_wz12 jg_ls_wz7  jg_ls_wz8 jg_ls_wz9 jg_ls_wz10<br />                               jg_ls_wzcgy jg_ls_wz11));;按注解编号子母顺序,结合所有加工文字列表<br />   (if (= zhakai "YES")<br />     (progn<br />      (command "undo" "B");;后退至炸开图元之前<br />      (note2_jg_bh_out jg_zb_wz_all1);;写所有图元编号<br />     )<br />   )<br />   (note2_jg_wz_out jg_ls_wz_all1);;动态输出加工注解<br />   (SETVAR "osmode" 39)<br />   (defun *error* (in_msg)    ;将描述错误的字串存入变数in_msg,还原定义错误后执行程序<br />        (princ "返回错误原因:")<br />        (princ in_msg)<br />    )      ;显示错误资讯<br />   (princ)<br /> )<br /> <br /> <br /> (defun note2_get_biaoqian_ls (note2_ss11 / data1_list zjpd_list lsyk_dd lsct_dd ndz_dd dlx_dd zfyk_dd dglsct_dd thk_dd <br />                                          wdz_dd  qdy_dd  jzk_dd  nxwz_dd  fsdlx_dd  czk_dd yczk_dd  dyx1_dd<br />                                          ss_lswk1 ss_lswk2 aa00 name00 dd00 deep00 jx00 zs00 dh00<br />                                          aa name dd deep jx dh zs ) ;;得到群码-3数据列表 <br /> (setq data1_list '() lsct_dd '() lsyk_dd  '() gdx_dd '() ndz_dd '() dlx_dd '() zfyk_dd '() dglsct_dd '() thk_dd '()<br />     wdz_dd '() qdy_dd '() jzk_dd '() nxwz_dd '() fsdlx_dd '()  czk_dd '() yczk_dd  '() dyx1_dd '())<br /> (if note2_ss11<br /> (while (/= (sslength note2_ss11) 0)<br />    (if (zjsx_zz_getx (ssname note2_ss11 0))<br />     (if (and (/= (nth 0 (zz_read_zfc qm3_jg_data)) "")(/= (zz_read_zfc qm3_jg_data) nil))<br />      (progn<br />       (setq aa   (nth 0 zf_list))<br />       (setq name (nth 1 zf_list))<br />       (setq dd   (nth 2 zf_list))<br />       (setq deep (nth 3 zf_list))<br />       (setq jx   (nth 4 zf_list))<br />       (if (= (setq zs (nth 5 zf_list)) nil)<br />          (setq zs "NIL")<br />       )<br />       (setq zf_list11 zf_list)<br />       (if (= (nth 1 (zf_fenli1 name)) "BOX")<br />          (if (= (setq zs (nth 8 zf_list11)) nil)<br />            (setq zs "NIL")<br />          )<br />       )<br />       (setq mk qm3_pm_data)<br />       (if (or (= qm3_dh_data nil) (= qm3_dh_data ""))<br />          (setq dh "NIL")<br />          (setq dh qm3_dh_data)<br />        )<br />       (setq aa00 aa)<br />       (setq name00 name)<br />       (setq dd00 dd)<br />       (setq deep00 deep)<br />       (setq jx00 jx)<br />       (setq zs00 zs)<br />       (setq dh00 dh)<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />       (if (= (cdr (assoc 0 (entget (ssname note2_ss11 0)))) "CIRCLE")<br />         (progn<br />           (setq x_dd (rtos (cdr (assoc 40 (entget (ssname note2_ss11 0)))) 2 3))<br />           (setq x_pt (cdr (assoc 10 (entget (ssname note2_ss11 0)))))<br /> <br /> ;;;;;;;;;;;;;;;;;沉头过孔 A*类,********后续增加单独沉头f_sinkTSCR<br />           (if (or (= name00 "gen1TSCR+")(= name00 "gen1BSCR+")(= name00 "gen1TSCR")(= name00 "gen1BSCR"))<br />              (progn<br />                (setq ss_lswk1 nil)<br />                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))<br />                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉<br />                (if (/= (sslength ss_lswk1) 0)<br />                 (progn<br />                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")<br />                   (repeat (sslength ss_lswk1)<br />                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))<br />                     (if (or (= name "f_sinkTSCR")(= name "f_sinkBSCR")(= name "f_sink_scrTSCR")(= name "f_sink_scrBSCR"))<br />                       (progn<br />                        (setq gg11 dd)<br />                        (setq dep11 deep)<br />                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除<br />                        (setq run_time "onlyone");;仅抓取一个<br />                        )<br />                        (if (/= run_time "onlyone")<br />                          (progn<br />                            (setq gg11 "0.000")<br />                            (setq dep11 "0.000")<br />                          )<br />                        )<br />                      )<br />                     (setq ssnn (+ ssnn 1))<br />                   )<br />                 )<br />                 (progn<br />                   (setq gg11 "0.000")<br />                   (setq dep11 "0.000")<br />                 )<br />                )<br />                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)<br />                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表<br />                (setq lsct_dd (cons zjpd_list lsct_dd))<br />              )<br />           )<br /> ;;;;;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;;;;;牙孔 沉头攻牙 M*类<br />           (if (or (= name00 "m_screwTSCR+")(= name00 "m_screwBSCR+")(= name00 "m_screwTSCR")<br />                   (= name00 "m_screwBSCR")(= name00 "Fm_screwTSCR")(= name00 "Fm_screwBSCR")<br />                   (= name00 "m_screwHO"))<br />              (progn<br />                (setq ss_lswk2 nil jx001 nil  jx002 nil)<br />                (setq ss_lswk2 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "ARC") (cons 10 x_pt) )))<br />                (if ss_lswk2<br />                 (if (= (sslength ss_lswk2) 0);;判断攻牙正面背面<br />                   (setq jx00 "*面")<br />                   (progn<br />                      (setq zf0 0)<br />                      (repeat (sslength ss_lswk2);;<br />                        (if (OR (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "HIDDEN")<br />                            (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "HIDDEN2")<br />                            (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "DASHED"))<br />                          (progn<br />                            (setq jx001 "背面")<br />                            (setq jx00 "背面")<br />                          )<br />                          (progn<br />                            (setq jx002 "正面")<br />                            (setq jx00 "正面")<br />                          )<br />                        )<br />                        (if (and (= jx001 "背面") (= jx002 "正面"))<br />                           (setq jx00 "正面+背面")<br />                         )<br />                      (setq zf0 (+ zf0 1))<br />                      );;repeat<br />                   )<br />                 )<br />                 (setq jx00 "*面")<br />                )<br />                (setq ss_lswk1 nil)<br />                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))<br />                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉<br />                (if (/= (sslength ss_lswk1) 0)<br />                 (progn<br />                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")<br />                   (repeat (sslength ss_lswk1)<br />                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))<br />                     (if (or (= name "f_sink_scrTSCR")(= name "f_sink_scrBSCR"))<br />                       (progn<br />                        (setq gg11 dd)<br />                        (setq dep11 deep)<br />                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除<br />                        (setq run_time "onlyone");;仅抓取一个<br />                        )<br />                        (if (/= run_time "onlyone")<br />                          (progn<br />                            (setq gg11 "0.000")<br />                            (setq dep11 "0.000")<br />                          )<br />                        )<br />                      )<br />                     (setq ssnn (+ ssnn 1))<br />                   )<br />                 )<br />                 (progn<br />                   (setq gg11 "0.000")<br />                   (setq dep11 "0.000")<br />                 )<br />                )<br />                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)<br />                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表<br />                (setq lsyk_dd (cons zjpd_list lsyk_dd))<br />              )<br />           )<br /> ;;;;;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;;;;固定销孔 B*类,********后续增加单独沉头g_sinkTPIN<br />           (if (or (= name00 "gen1RTPIN+")(= name00 "gen1RBPIN+")<br />                   (= name00 "gen1RTPIN")(= name00 "gen1RBPIN")<br />                   (= name00 "posTPIN")(= name00 "posBPIN")<br />                   (= name00 "posTPIN+")(= name00 "posBPIN+")<br />                   (= name00 "gen1TPIN")(= name00 "gen1BPIN"))<br />              (progn<br />                (setq ss_lswk1 nil)<br />                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))<br />                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉<br />                (if (/= (sslength ss_lswk1) 0)<br />                 (progn<br />                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")<br />                   (repeat (sslength ss_lswk1)<br />                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))<br />                     (if (or (= name "g_sinkTPIN")(= name "g_sinkBPIN"))<br />                       (progn<br />                        (setq gg11 dd)<br />                        (setq dep11 deep)<br />                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除<br />                        (setq run_time "onlyone");;仅抓取一个<br />                        )<br />                        (if (/= run_time "onlyone")<br />                          (progn<br />                            (setq gg11 "0.000")<br />                            (setq dep11 "0.000")<br />                          )<br />                        )<br />                      )<br />                     (setq ssnn (+ ssnn 1))<br />                   )<br />                 )<br />                 (progn<br />                   (setq gg11 "0.000")<br />                   (setq dep11 "0.000")<br />                 )<br />                )<br />                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)<br />                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表<br />                (setq gdx_dd (cons zjpd_list gdx_dd))<br />              )<br />           )<br /> ;;;;;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;;;;内导柱孔 C*类,********后续增加单独沉头g_sinkIGPB<br />           (if (or (= name00 "posIGPB+")(= name00 "posIGPB")(= name00 "genIGPB"))<br />              (progn<br />                (setq ss_lswk1 nil)<br />                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))<br />                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉<br />                (if (/= (sslength ss_lswk1) 0)<br />                 (progn<br />                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")<br />                   (repeat (sslength ss_lswk1)<br />                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))<br />                     (if (= name "g_sinkIGPB")<br />                       (progn<br />                        (setq gg11 dd)<br />                        (setq dep11 deep)<br />                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除<br />                        (setq run_time "onlyone");;仅抓取一个<br />                        )<br />                        (if (/= run_time "onlyone")<br />                          (progn<br />                            (setq gg11 "0.000")<br />                            (setq dep11 "0.000")<br />                          )<br />                        )<br />                      )<br />                     (setq ssnn (+ ssnn 1))<br />                   )<br />                 )<br />                 (progn<br />                   (setq gg11 "0.000")<br />                   (setq dep11 "0.000")<br />                 )<br />                )<br />                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)<br />                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表<br />                (setq ndz_dd (cons zjpd_list ndz_dd))<br />              )<br />           )<br /> ;;;;;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;;;;顶料销孔 D*类,********后续增加单独沉头g_sinkTLPS/g_sinkBLPS<br />           (if (or (= name00 "gen0TLPS+")(= name00 "gen0BLPS+")<br />                   (= name00 "gen0TLPS")(= name00 "gen0BLPS")<br />                   (= name00 "genTLPS")(= name00 "genBLPS"))<br />              (progn<br />                (setq ss_lswk1 nil)<br />                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))<br />                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉<br />                (if (/= (sslength ss_lswk1) 0)<br />                 (progn<br />                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")<br />                   (repeat (sslength ss_lswk1)<br />                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))<br />                     (if (or (= name "g_sinkTLPS")(= name "g_sinkBLPS")(= name "set_screwTLPS")(= name "set_screwBLPS"))<br />                       (progn<br />                        (if (or (= name "set_screwTLPS")(= name "set_screwBLPS"))<br />                            (setq jx00 "止付")<br />                        )<br />                        (setq gg11 dd)<br />                        (setq dep11 deep)<br />                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除<br />                        (setq run_time "onlyone");;仅抓取一个<br />                        )<br />                        (if (/= run_time "onlyone")<br />                          (progn<br />                            (setq gg11 "0.000")<br />                            (setq dep11 "0.000")<br />                          )<br />                        )<br />                      )<br />                     (setq ssnn (+ ssnn 1))<br />                   )<br />                 )<br />                 (progn<br />                   (setq gg11 "0.000")<br />                   (setq dep11 "0.000")<br />                 )<br />                )<br />                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)<br />                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表<br />                (setq dlx_dd (cons zjpd_list dlx_dd))<br />              )<br />           )<br /> ;;;;;;;;;;;;;;;;;; <br /> ;;;;;;;;;;;;;;;;;;如果中间有顶针孔则忽略,否则按止付牙 D*类 <br />           (if (or (= name00 "set_screwTLPS")(= name00 "set_screwBLPS") (= name00 "set_screwBGLS") )<br />              (progn<br />                (setq ss_lswk1 nil)<br />                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))<br />                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉<br />                (setq name nil ssnn 0 run_time "no_onlyone")<br />                (if (/= (sslength ss_lswk1) 0)<br />                   (repeat (sslength ss_lswk1)<br />                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))<br />                     (if (or (= name "gen0TLPS+")(= name "gen0BLPS+")<br />                             (= name "gen0TLPS")(= name "gen0BLPS")<br />                             (= name "genTLPS")(= name "genBLPS"))<br />                        (setq run_time "onlyone");;判断是否有顶料销内孔图元<br />                      )<br />                      (setq ssnn (+ ssnn 1))<br />                     );;repeat<br />                  )<br />                (if (/= run_time "onlyone")<br />                  (progn<br />                    (setq ss_lswk2 nil jx001 nil  jx002 nil)<br />                    (setq ss_lswk2 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "ARC") (cons 10 x_pt) )))<br />                    (if ss_lswk2<br />                     (if (= (sslength ss_lswk2) 0);;判断攻牙正面背面<br />                       (setq jx00 "*面")<br />                       (progn<br />                          (setq zf0 0)<br />                          (repeat (sslength ss_lswk2);;<br />                            (if (OR (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "HIDDEN")<br />                                (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "HIDDEN2")<br />                                (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "DASHED"))<br />                              (progn<br />                                (setq jx001 "背面")<br />                                (setq jx00 "背面")<br />                              )<br />                              (progn<br />                                (setq jx002 "正面")<br />                                (setq jx00 "正面")<br />                              )<br />                            )<br />                            (if (and (= jx001 "背面") (= jx002 "正面"))<br />                               (setq jx00 "正面+背面")<br />                             )<br />                          (setq zf0 (+ zf0 1))<br />                          );;repeat<br />                       )<br />                     )<br />                     (setq jx00 "*面")<br />                    )<br />                    (setq gg11 "0.000")<br />                    (setq dep11 "0.000")<br />                    (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)<br />                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表<br />                    (setq zfyk_dd (cons zjpd_list zfyk_dd))<br />                  )<br />                )<br />              )<br />           )<br /> <br /> ;;;;;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;;;;等高套沉头过孔,牙孔 Q*类,********后续增加单独沉头g_sinkCSR<br />           (if (or (= name00 "gen0CSR+")(= name00 "gen0CSR")(= name00 "m_screw0CSR"))<br />              (progn<br />                (setq ss_lswk1 nil)<br />                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))<br />                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉<br />                (if (/= (sslength ss_lswk1) 0)<br />                 (progn<br />                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")<br />                   (repeat (sslength ss_lswk1)<br />                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))<br />                     (if (= name "g_sinkCSR")<br />                       (progn<br />                        (setq gg11 dd)<br />                        (setq dep11 deep)<br />                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除<br />                        (setq run_time "onlyone");;仅抓取一个<br />                        )<br />                        (if (/= run_time "onlyone")<br />                          (progn<br />                            (setq gg11 "0.000")<br />                            (setq dep11 "0.000")<br />                          )<br />                        )<br />                      )<br />                     (setq ssnn (+ ssnn 1))<br />                   )<br />                 )<br />                 (progn<br />                   (setq gg11 "0.000")<br />                   (setq dep11 "0.000")<br />                 )<br />                )<br />                (if (= name00 "m_screw0CSR")<br />                  (progn<br />                    (setq ss_lswk2 nil jx001 nil  jx002 nil)<br />                    (setq ss_lswk2 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "ARC") (cons 10 x_pt) )))<br />                    (if ss_lswk2<br />                     (if (= (sslength ss_lswk2) 0);;判断攻牙正面背面<br />                       (setq jx00 "*面攻")<br />                       (progn<br />                          (setq zf0 0)<br />                          (repeat (sslength ss_lswk2);;<br />                            (if (OR (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "HIDDEN")<br />                                (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "HIDDEN2")<br />                                (= (cdr (assoc '6 (entget (ssname ss_lswk2 zf0)))) "DASHED"))<br />                              (progn<br />                                (setq jx001 "背面攻")<br />                                (setq jx00 "背面攻")<br />                              )<br />                              (progn<br />                                (setq jx002 "正面攻")<br />                                (setq jx00 "正面攻")<br />                              )<br />                            )<br />                            (if (and (= jx001 "背面攻") (= jx002 "正面攻"))<br />                               (setq jx00 "正面+背面攻")<br />                             )<br />                          (setq zf0 (+ zf0 1))<br />                          );;repeat<br />                       )<br />                     )<br />                     (setq jx00 "*面攻")<br />                    )<br />                  )<br />                )<br />                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)<br />                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表<br />                (setq dglsct_dd (cons zjpd_list dglsct_dd))<br />              )<br />           )<br /> ;;;;;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;;;;弹簧孔 T*类<br />           (if (or (= name00 "f_sinkTSPR")(= name00 "f_sinkBSPR")(= name00 "gen1TSPR")(= name00 "gen1BSPR"))<br />              (progn<br />                (if (OR (= (cdr (assoc '6 (entget (ssname note2_ss11 0)))) "HIDDEN")<br />                    (= (cdr (assoc '6 (entget (ssname note2_ss11 0)))) "HIDDEN2")<br />                    (= (cdr (assoc '6 (entget (ssname note2_ss11 0)))) "DASHED"))<br />                   (if (> (atof deep00) 0)<br />                     (ALERT "存在深度数据与线型不一致的图元,确认后以深度数据为准,请检查!!!")<br />                   )<br />                   (if (< (atof deep00) 0)<br />                     (ALERT "存在深度数据与线型不一致的图元,确认后以深度数据为准,请检查!!!")<br />                   )<br />                )<br />                (setq gg11 "0.000")<br />                (setq dep11 "0.000")<br />                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)<br />                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表<br />                (setq thk_dd (cons zjpd_list thk_dd))<br />              )<br />           )<br /> ;;;;;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;;;;外导柱孔 O*类<br />           (if (or (= name00 "gen0QOGPB+")(= name00 "genQOGPB")(= name00 "posOGPB+")(= name00 "posOGPB"))<br />              (progn<br />                (setq ss_lswk1 nil)<br />                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))<br />                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉<br />                (if (/= (sslength ss_lswk1) 0)<br />                 (progn<br />                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")<br />                   (repeat (sslength ss_lswk1)<br />                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))<br />                     (if (= name "g_sinkOGPB")<br />                       (progn<br />                        (setq gg11 dd)<br />                        (setq dep11 deep)<br />                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除<br />                        (setq run_time "onlyone");;仅抓取一个<br />                        )<br />                        (if (/= run_time "onlyone")<br />                          (progn<br />                            (setq gg11 "0.000")<br />                            (setq dep11 "0.000")<br />                          )<br />                        )<br />                      )<br />                     (setq ssnn (+ ssnn 1))<br />                   )<br />                 )<br />                 (progn<br />                   (setq gg11 "0.000")<br />                   (setq dep11 "0.000")<br />                 )<br />                )<br />                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)<br />                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表<br />                (setq wdz_dd (cons zjpd_list wdz_dd))<br />              )<br />           )<br /> ;;;;;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;;;;起吊牙孔 L*类<br />           (if (= name00 "m_screwUSER")<br />              (progn<br />                (setq ss_lswk1 nil)<br />                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))<br />                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉<br />                (setq gg11 "0.000")<br />                (setq dep11 "0.000")<br />                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)<br />                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表<br />                (setq qdy_dd (cons zjpd_list qdy_dd))<br />              )<br />           )<br /> ;;;;;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;;;;基准孔 U*类<br />           (if (= name00 "gen1RORG+")<br />              (progn<br />                (setq ss_lswk1 nil)<br />                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))<br />                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉<br />                (if (/= (sslength ss_lswk1) 0)<br />                 (progn<br />                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")<br />                   (repeat (sslength ss_lswk1)<br />                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))<br />                     (if (= name "posORG")<br />                       (progn<br />                        (setq gg11 dd)<br />                        (setq dep11 deep)<br />                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除<br />                        (setq run_time "onlyone");;仅抓取一个<br />                        )<br />                        (if (/= run_time "onlyone")<br />                          (progn<br />                            (setq gg11 "0.000")<br />                            (setq dep11 "0.000")<br />                          )<br />                        )<br />                      )<br />                     (setq ssnn (+ ssnn 1))<br />                   )<br />                 )<br />                 (progn<br />                   (setq gg11 "0.000")<br />                   (setq dep11 "0.000")<br />                 )<br />                )<br />                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)<br />                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表<br />                (setq jzk_dd (cons zjpd_list jzk_dd))<br />              )<br />           )<br /> ;;;;;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;;;;内限位孔 N*类<br />           (if (or (= name00 "gen1LTH") (= name00 "f_sinkLTH"))<br />              (progn<br />                (setq ss_lswk1 nil)<br />                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))<br />                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉<br />                (setq gg11 "0.000")<br />                (setq dep11 "0.000")<br />                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)<br />                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表<br />                (setq nxwz_dd (cons zjpd_list nxwz_dd))<br />              )<br />           )<br /> ;;;;;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;;;;两用销孔 D*类<br />           (if (or (= name00 "posBGLS+")(= name00 "posBGLS")<br />                   (= name00 "genBGLS")(= name00 "f_sinkBGLS"))<br />              (progn<br />                (setq ss_lswk1 nil)<br />                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))<br />                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉<br />                (if (and (/= (sslength ss_lswk1) 0)(or (= name00 "posBGLS+") (= name00 "posBGLS")) )<br />                 (progn<br />                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")<br />                   (repeat (sslength ss_lswk1)<br />                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))<br />                     (if (= name "f_sinkBGLS")<br />                       (progn<br />                        (setq gg11 dd)<br />                        (setq dep11 deep)<br />                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除<br />                        (setq run_time "onlyone");;仅抓取一个<br />                        )<br />                        (if (/= run_time "onlyone")<br />                          (progn<br />                            (setq gg11 "0.000")<br />                            (setq dep11 "0.000")<br />                          )<br />                        )<br />                      )<br />                     (setq ssnn (+ ssnn 1))<br />                   )<br />                 )<br />                 (progn<br />                   (setq gg11 "0.000")<br />                   (setq dep11 "0.000")<br />                 )<br />                )<br />                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)<br />                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表<br />                (setq fsdlx_dd (cons zjpd_list fsdlx_dd))<br />              )<br />           )<br /> ;;;;;;;;;;;;;;;;;; <br /> ;;;;;;;;;;;;;;;;;插针孔 F*类 +内定位孔 F*类<br />           (if (or (= name00 "posBPP+")(= name00 "posBPP")<br />                   (= name00 "gen1BPP")<br />                   (= name00 "posPPIN+")(= name00 "posPPIN")<br />                   (= name00 "genPPIN"))<br />              (progn<br />                (setq ss_lswk1 nil)<br />                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))<br />                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉<br />                (if (and (/= (sslength ss_lswk1) 0)(or (= name00 "posBPP+") (= name00 "posBPP") (= name00 "posPPIN+")(= name00 "posPPIN")) )<br />                 (progn<br />                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")<br />                   (repeat (sslength ss_lswk1)<br />                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))<br />                     (if (OR (= name "g_sinkBPP")(= name "g_sinkPPIN"))<br />                       (progn<br />                        (setq gg11 dd)<br />                        (setq dep11 deep)<br />                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除<br />                        (setq run_time "onlyone");;仅抓取一个<br />                        )<br />                        (if (/= run_time "onlyone")<br />                          (progn<br />                            (setq gg11 "0.000")<br />                            (setq dep11 "0.000")<br />                          )<br />                        )<br />                      )<br />                     (setq ssnn (+ ssnn 1))<br />                   )<br />                 )<br />                 (progn<br />                   (setq gg11 "0.000")<br />                   (setq dep11 "0.000")<br />                 )<br />                )<br />                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)<br />                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表<br />                (setq czk_dd (cons zjpd_list czk_dd))<br />              )<br />           )<br /> ;;;;;;;;;;;;;;;;;; <br /> ;;;;;;;;;;;;;;;;;圆冲针孔 P*类<br />           (if (or (= name00 "pos1AP0+")(= name00 "pos1AP0")(= name00 "pos1AP")<br />                   (= name00 "gen1AP0")(= name00 "gen1AP")(= name00 "gen1"))<br />              (progn<br />                (setq ss_lswk1 nil)<br />                (setq ss_lswk1 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "CIRCLE") (cons 10 x_pt) )))<br />                (note2_del_yss1 (ssadd (ssname note2_ss11 0)) ss_lswk1);;把当前图元和一样半径的选择集从ss_lswk1中删掉<br />                (if (and (/= (sslength ss_lswk1) 0)(or (= name00 "pos1AP0+") (= name00 "pos1AP0")(= name00 "pos1AP")) )<br />                 (progn<br />                   (setq dd nil deep nil ssnn 0 run_time "no_onlyone")<br />                   (repeat (sslength ss_lswk1)<br />                     (zjsx_get_biaoqian (ssadd (ssname ss_lswk1 ssnn)))<br />                     (if (or (= name "g_sink1AP0")(= name "s_sink1AP0"))<br />                       (progn<br />                        (setq gg11 dd)<br />                        (setq dep11 deep)<br />                        (note2_del_yss1 ss_lswk1 note2_ss11);;如果存在外圆,从把当前图元和一样半径的选择集从note2_ss11中删除<br />                        (setq run_time "onlyone");;仅抓取一个<br />                        )<br />                        (if (/= run_time "onlyone")<br />                          (progn<br />                            (setq gg11 "0.000")<br />                            (setq dep11 "0.000")<br />                          )<br />                        )<br />                      )<br />                     (setq ssnn (+ ssnn 1))<br />                   )<br />                 )<br />                 (progn<br />                   (setq gg11 "0.000")<br />                   (setq dep11 "0.000")<br />                 )<br />                )<br />                (setq zjpd_list (list x_dd (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/" gg11 "/" dep11)<br />                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表<br />                (setq yczk_dd (cons zjpd_list yczk_dd))<br />              )<br />           )<br /> ;;;;;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;;;;线割孔,铣孔 K*类 圆孔类<br />           (if (or(= name00 "CP1")(= name00 "CP2")(= name00 "CP3")(= name00 "CP4")<br />                  (= name00 "CP5")(= name00 "精铣") (= name00 "铣床"))<br />           (progn<br />              (setq zjpd_list (list dd00 (strcat aa00 "/" name00 "/" dd00 "/" x_dd "/" deep00 "/" jx00 "/" zs00 "/" dh00  "/0.000/0.000")<br />                         x_pt (ssname note2_ss11 0) ));;转为标准格式列表<br />              (setq dyx1_dd (cons zjpd_list dyx1_dd))<br />             )<br />           )<br /> ;;;;;;;;;;;;;;;;;;<br />         )<br />       )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> <br />       )<br />      )<br />     );;if/=""<br />        (note2_del_yss1 (ssadd (ssname note2_ss11 0)) note2_ss11);;当前图元从note2_ss11中删除<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   );;while<br /> );if<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (setq jg_ls_wz1 '() jg_ls_wz2 '()  jg_ls_wz3 '()  jg_ls_wz4 '() jg_ls_wz5 '()  jg_ls_wz6 '()<br />         jg_ls_wz7 '() jg_ls_wz8 '()  jg_ls_wz9 '() jg_ls_wz10 '() jg_ls_wz11 '() jg_ls_wz12 '() <br />         jg_ls_wz13 '() jg_ls_wz14 '() jg_ls_wz15 '()   )<br />   (if lsct_dd<br />     (progn<br />       (setq data1_list (note2_qm3_to_stlist_px lsct_dd));;对螺丝沉头标准格式列表按半径大小排序<br />       (note2_qm3_stlist_jg1 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz1<br />      )<br />    )<br />   (if lsyk_dd<br />     (progn<br />       (setq data1_list (note2_qm3_to_stlist_px lsyk_dd));;对螺丝牙孔标准格式列表按半径大小排序<br />       (note2_qm3_stlist_jg2 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz2<br />      )<br />    )<br />   (if gdx_dd<br />     (progn<br />       (setq data1_list (note2_qm3_to_stlist_px gdx_dd));;对固定销孔标准格式列表按半径大小排序<br />       (note2_qm3_stlist_jg3 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz3<br />      )<br />    )<br />   (if ndz_dd<br />     (progn<br />       (setq data1_list (note2_qm3_to_stlist_px ndz_dd));;对内导柱孔标准格式列表按半径大小排序<br />       (note2_qm3_stlist_jg4 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz4<br />      )<br />    )<br />   (if dlx_dd<br />     (progn<br />       (setq data1_list (note2_qm3_to_stlist_px dlx_dd));;对顶料销孔标准格式列表按半径大小排序<br />       (note2_qm3_stlist_jg5 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz5<br />      )<br />    )<br />   (if zfyk_dd<br />     (progn<br />       (setq data1_list (note2_qm3_to_stlist_px zfyk_dd));;对止付牙孔标准格式列表按半径大小排序<br />       (note2_qm3_stlist_jg6 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz6<br />      )<br />    )<br />   (if dglsct_dd<br />     (progn<br />       (setq data1_list (note2_qm3_to_stlist_px dglsct_dd));;对等高套孔标准格式列表按半径大小排序<br />       (note2_qm3_stlist_jg7 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz7<br />      )<br />    )<br />   (if thk_dd<br />     (progn<br />       (setq data1_list (note2_qm3_to_stlist_px thk_dd));;对弹簧孔标准格式列表按半径大小排序<br />       (note2_qm3_stlist_jg8 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz8<br />      )<br />    )<br />   (if wdz_dd<br />     (progn<br />       (setq data1_list (note2_qm3_to_stlist_px wdz_dd));;对外导柱孔标准格式列表按半径大小排序<br />       (note2_qm3_stlist_jg9 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz9<br />      )<br />    )<br />   (if qdy_dd<br />     (progn<br />       (setq data1_list (note2_qm3_to_stlist_px qdy_dd));;对起吊孔标准格式列表按半径大小排序<br />       (note2_qm3_stlist_jg10 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz10<br />      )<br />    )<br />   (if jzk_dd<br />     (progn<br />       (setq data1_list (note2_qm3_to_stlist_px jzk_dd));;对基准孔孔标准格式列表按半径大小排序<br />       (note2_qm3_stlist_jg11 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz11<br />      )<br />    )<br />   (if nxwz_dd<br />     (progn<br />       (setq data1_list (note2_qm3_to_stlist_px nxwz_dd));;对内限位孔孔标准格式列表按半径大小排序<br />       (note2_qm3_stlist_jg12 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz12<br />      )<br />    )<br />   (if fsdlx_dd<br />     (progn<br />       (setq data1_list (note2_qm3_to_stlist_px fsdlx_dd));;对两用销孔标准格式列表按半径大小排序<br />       (note2_qm3_stlist_jg13 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz13<br />      )<br />    )<br />   (if czk_dd<br />     (progn<br />       (setq data1_list (note2_qm3_to_stlist_px czk_dd));;对插针孔标准格式列表按半径大小排序<br />       (note2_qm3_stlist_jg14 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz14<br />      )<br />    )<br />   (if yczk_dd<br />     (progn<br />       (setq data1_list (note2_qm3_to_stlist_px yczk_dd));;对圆冲针孔标准格式列表按半径大小排序<br />       (note2_qm3_stlist_jg15 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wz15<br />      )<br />    )<br />   (if dyx1_dd<br />     (progn<br />        (setq data1_list (note2_qm3_to_stlist_px dyx1_dd));;对多义线之外的圆孔标准格式列表按半径大小排序<br />        (note2_qm3_stlist_jgdyx1 data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wzdyx1<br />      )<br />    )<br /> <br /> <br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;以下增加侧攻牙<br />   (setq note2_ss22 (ssadd) cmgy_dd nil x_pt1_list '())<br />   (setq note2_ss22 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "LINE") (cons 6 "CENTER")  )))<br />   (if note2_ss22<br />     (while (/= (sslength note2_ss22) 0)<br />      (if (zjsx_zz_getx (ssname note2_ss22 0))<br />       (if (and (/= (nth 0 (zz_read_zfc qm3_jg_data)) "")(/= (zz_read_zfc qm3_jg_data) nil))<br />        (progn<br />         (setq x_pt (cdr (assoc 10 (entget (ssname note2_ss22 0)))))<br />         (setq x_pt1 (cdr (assoc 11 (entget (ssname note2_ss22 0)))))<br />         (setq aa00   (nth 0 zf_list))<br />         (setq name00 (nth 1 zf_list))<br />         (setq dd00   (nth 2 zf_list))<br />         (setq deep00 (nth 3 zf_list))<br />         (setq jx00 (nth 4 zf_list))<br />         (setq zs00 (nth 5 zf_list))<br />         (if (or (= qm3_dh_data nil) (= qm3_dh_data ""))<br />          (setq dh00 "NIL")<br />          (setq dh00 qm3_dh_data)<br />         )<br />         (if (= name00 "m_screwHO")<br />           (progn<br />              (setq zjpd_list (list dd00 (strcat aa00 "/" name00 "/" dd00 "/0.000/" deep00 "/" jx00 "/" zs00 "/" dh00  "/0.000/0.000")<br />                         (list x_pt x_pt1) (ssname note2_ss22 0) ));;转为标准格式列表<br />              (setq cmgy_dd (cons zjpd_list cmgy_dd))<br />             )<br />          )<br />        )<br />       )<br />      )<br />      (del_ss1 (ssadd (ssname note2_ss22 0)) note2_ss22);;当前图元从note2_ss22中删除<br />     );;while<br />    );;if/=nil<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (if cmgy_dd<br />     (progn<br />        (setq data1_list (note2_qm3_to_stlist_px cmgy_dd));;对侧攻牙孔标准格式列表按半径大小排序<br />        (note2_qm3_stlist_jgcgy data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wzcgy<br />      )<br />    )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;以下增加线割孔,铣孔,多义线扩展数据<br />   (setq note2_ss33 (ssadd) dyx_dd nil x_pt1_list '())<br />   (setq note2_ss33 (ssget "c" note2_first_corner note2_other_corner (list (cons 0 "LWPOLYLINE") )))<br />   (if note2_ss33<br />     (while (/= (sslength note2_ss33) 0)<br />      (if (zjsx_zz_getx (ssname note2_ss33 0))<br />       (if (and (/= (nth 0 (zz_read_zfc qm3_jg_data)) "")(/= (zz_read_zfc qm3_jg_data) nil))<br />        (progn<br />         (get_xy (ssadd (ssname note2_ss33 0)))<br />         (setq x_pt (pt_mid (list minx miny) (list maxx maxy)))<br />         (setq aa00   (nth 0 zf_list))<br />         (setq name00 (nth 1 zf_list))<br />         (setq dd00   (nth 2 zf_list))<br />         (setq deep00 (nth 3 zf_list))<br />         (setq jx00 (nth 4 zf_list))<br />         (setq zs00 (nth 5 zf_list))<br />         (if (or (= qm3_dh_data nil) (= qm3_dh_data ""))<br />          (setq dh00 "NIL")<br />          (setq dh00 qm3_dh_data)<br />         )<br />         (if (or(= name00 "CP1")(= name00 "CP2")(= name00 "CP3")(= name00 "CP4")(= name00 "CP5")<br />             (= name00 "精铣") (= name00 "铣床")(= name00 "BUSH"))<br />           (progn<br />              (setq zjpd_list (list dd00 (strcat aa00 "/" name00 "/" dd00 "/0.000/" deep00 "/" jx00 "/" zs00 "/" dh00  "/0.000/0.000")<br />                         x_pt (ssname note2_ss33 0) ));;转为标准格式列表<br />              (setq dyx_dd (cons zjpd_list dyx_dd))<br />             )<br />          )<br />        )<br />       )<br />      )<br />      (del_ss1 (ssadd (ssname note2_ss33 0)) note2_ss33);;当前图元从note2_ss33中删除<br />     );;while<br />    );;if/=nil<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (if dyx_dd<br />     (progn<br />        (setq data1_list (note2_qm3_to_stlist_px dyx_dd));;对多义线孔标准格式列表按半径大小排序<br />        (note2_qm3_stlist_jgdyx data1_list);;用排好序的列表数据,先写全部的编号,再生成加工文字列表jg_ls_wzdyx<br />      )<br />    )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

qiannianhuazi

xiongqunan 发表于 2021-4-6 18:56
在这终于看到有人用PRESSCAD这个软件的了。

模具厂现在大多用UG画了,偶尔还是用2D画的,主要是没有64位系统CAD2007能用的破解版PRESSCAD输出注解,所以就自己编写了整理LISP按厂里的习惯输出.模具厂都辛苦,码农也辛苦

qiannianhuazi

paulpipi 发表于 2021-4-6 18:50
zjsx_zz_getx缺少这个函数，麻烦补齐，谢谢

下载note2.fas这个可以用,源代码粘贴不是很全,有子程序,有问题也可以加微信号 QQ269707064  讨论

zxj168

怎么联系你

qiannianhuazi

zxj168 发表于 2021-4-2 23:59
怎么联系你

有什么讨论,在帖子回复就行,我没权限发消息:D

paulpipi

zjsx_zz_getx没有定义这个函数，用不了

paulpipi

qiannianhuazi 发表于 2021-4-5 11:03
有什么讨论,在帖子回复就行,我没权限发消息

zjsx_zz_getx缺少这个函数，麻烦补齐，谢谢

xiongqunan

在这终于看到有人用PRESSCAD这个软件的了。

paulpipi

xiongqunan 发表于 2021-4-6 18:56
在这终于看到有人用PRESSCAD这个软件的了。

你是同行吗，

xiongqunan

对，做模具设计的。一个苦逼的干业。