[原创]不要错过机会哦,自动查询尺寸公差标注

池塘花香

提供一个思路，纯属抛砖引玉。
读取到标注的尺寸后利用COND函数进行处理，比如H7啊，g6啊，公差自动标注上去就行了。
程序未深究， 可能有不当之处，请大家指出。

2. (DEFUN C:KH7 (/)
   
3.   (tolerance)
   
4.   (cond ((and (> tol_num 0) (<= tol_num 3))
   
5.          (tole2 "0.01" "0" tol_nam))
   
6.         ((and (> tol_num 3) (<= tol_num 6))
   
7.          (tole2 "0.012" "0" tol_nam))
   
8.         ((and (> tol_num 6) (<= tol_num 10))
   
9.          (tole2 "0.015" "0" tol_nam))
   
10.         ((and (> tol_num 10) (<= tol_num 18))
    
11.          (tole2 "0.018" "0" tol_nam))
    
12.         ((and (> tol_num 18) (<= tol_num 30))
    
13.          (tole2 "0.021" "0" tol_nam))
    
14.         ((and (> tol_num 30) (<= tol_num 50))
    
15.          (tole2 "0.025" "0" tol_nam))
    
16.         ((and (> tol_num 50) (<= tol_num 80))
    
17.          (tole2 "0.030" "0" tol_nam))
    
18.         ((and (> tol_num 80) (<= tol_num 120))
    
19.          (tole2 "0.035" "0" tol_nam))
    
20.         ((and (> tol_num 120) (<= tol_num 180))
    
21.          (tole2 "0.040" "0" tol_nam))
    
22.         ((and (> tol_num 180) (<= tol_num 250))
    
23.          (tole2 "0.046" "0" tol_nam))
    
24.         ((and (> tol_num 250) (<= tol_num 315))
    
25.          (tole2 "0.052" "0" tol_nam))
    
26.         ((and (> tol_num 315) (<= tol_num 400))
    
27.          (tole2 "0.057" "0" tol_nam))
    
28.         ((and (> tol_num 400) (<= tol_num 500))
    
29.          (tole2 "0.063" "0" tol_nam))
    
30.         ((> tol_num 500)
    
31.          (alert "\nRange out!"))
    
32.   ) ;end of cond
    
33.   (princ)
    
34. )
    
35. (DEFUN tolerance (/ tol vla-obj la)
    
36.   (if (not (setq tol (ssget "_i" '((0 . "DIMENSION")))))
    
37.     (setq tol_nam (car (entsel "\nSelect a Dimension:")))
    
38.     (setq tol_nam (ssname tol 0))
    
39.   ) ;end of if
    
40.   (if tol_nam
    
41.     (progn
    
42.       (setq la (cdr (assoc 8 (entget tol_nam))))
    
43.       (setvar "cmdecho" 0)
    
44.       (command "layer" "u" la "")
    
45.     ) ;end of progn
    
46.     (progn
    
47.       (setvar "cmdecho" 1)
    
48.       (vl-exit-with-error (alert "\nNo selection!"))
    
49.     ) ;end of progn
    
50.   ) ;end of if
    
51.   (vl-load-com)
    
52.   (setq vla-obj (vlax-ename->vla-object
    
53.                   tol_nam
    
54.                 ) ;end of vlax-ename->vla-object
    
55.         tol_num (vla-get-Measurement vla-obj)
    
56.   ) ;end of setq
    
57.   (setvar "cmdecho" 1)
    
58. )

(DEFUN C:KH7 (/)<br />   (tolerance)<br />   (cond ((and (> tol_num 0) (<= tol_num 3))<br />          (tole2 "0.01" "0" tol_nam))<br />         ((and (> tol_num 3) (<= tol_num 6))<br />          (tole2 "0.012" "0" tol_nam))<br />         ((and (> tol_num 6) (<= tol_num 10))<br />          (tole2 "0.015" "0" tol_nam))<br />         ((and (> tol_num 10) (<= tol_num 18))<br />          (tole2 "0.018" "0" tol_nam))<br />         ((and (> tol_num 18) (<= tol_num 30))<br />          (tole2 "0.021" "0" tol_nam))<br />         ((and (> tol_num 30) (<= tol_num 50))<br />          (tole2 "0.025" "0" tol_nam))<br />         ((and (> tol_num 50) (<= tol_num 80))<br />          (tole2 "0.030" "0" tol_nam))<br />         ((and (> tol_num 80) (<= tol_num 120))<br />          (tole2 "0.035" "0" tol_nam))<br />         ((and (> tol_num 120) (<= tol_num 180))<br />          (tole2 "0.040" "0" tol_nam))<br />         ((and (> tol_num 180) (<= tol_num 250))<br />          (tole2 "0.046" "0" tol_nam))<br />         ((and (> tol_num 250) (<= tol_num 315))<br />          (tole2 "0.052" "0" tol_nam))<br />         ((and (> tol_num 315) (<= tol_num 400))<br />          (tole2 "0.057" "0" tol_nam))<br />         ((and (> tol_num 400) (<= tol_num 500))<br />          (tole2 "0.063" "0" tol_nam))<br />         ((> tol_num 500)<br />          (alert "\nRange out!"))<br />   ) ;end of cond<br />   (princ)<br /> )<br /> (DEFUN tolerance (/ tol vla-obj la)<br />   (if (not (setq tol (ssget "_i" '((0 . "DIMENSION")))))<br />     (setq tol_nam (car (entsel "\nSelect a Dimension:")))<br />     (setq tol_nam (ssname tol 0))<br />   ) ;end of if<br />   (if tol_nam<br />     (progn<br />       (setq la (cdr (assoc 8 (entget tol_nam))))<br />       (setvar "cmdecho" 0)<br />       (command "layer" "u" la "")<br />     ) ;end of progn<br />     (progn<br />       (setvar "cmdecho" 1)<br />       (vl-exit-with-error (alert "\nNo selection!"))<br />     ) ;end of progn<br />   ) ;end of if<br />   (vl-load-com)<br />   (setq vla-obj (vlax-ename->vla-object<br />                   tol_nam<br />                 ) ;end of vlax-ename->vla-object<br />         tol_num (vla-get-Measurement vla-obj)<br />   ) ;end of setq<br />   (setvar "cmdecho" 1)<br /> )

kwwong6

学习了。。。。