[编程申请]：AutoCAD中数据处理技术

hero325

AutoCAD中数据处理技术
1 数据的类型
    数据资料有多种形式的表格，有一维数表、二维数表（分简单二维数表和复杂二维数表）、三维数表，不同类型的数表有不同的数据结构和检索方法。

2 数据处理方法
2.1一维数表处理方法
    一维数表就是一个主参数对应一组参数，较为复杂的一维数表是主参数为一个范围对应一组参数[6]，如平键的尺寸表（见表1），轴径是主参数。
表1 平键的公称尺寸
轴径d        键宽b        键高h
>30-38        10        8
>38-44        12        8
>44-50        14        9
>50-58        16        10
>58-65        18        12
>65-75        20        12
>75-85        22        14
>85-95        25        14
一维数表的查找，是根据指定的主参数（如d=40），产生对应的一组参数的数据表（b=12、h=8），用来给多个变量赋值（b、h），上述一维数表在AutoCAD内部使用AutoLISP编程的处理方法如下：
(defun c:list1 ()
   (setq d (getreal "\n输入轴径：d=")
        l (Cond ((<= d 30) '())
               ((<= d 38)  '(10 8))
               ((<= d 44)  '(12 8))
               ((<= d 50)  '(14 9))
               ((<= d 58)  '(16 10))
               ((<= d 65)  '(18 12))
                   ((<= d 75)  '(20 12))
                   ((<= d 85)  '(22 14))
               ((<= d 95)  '(25 14))
               (T  '())  
         );cond
   );setq
   (SetQ b (Nth 0 l) h (Nth 1 l))
   (princ "b=")
   (prin1 b)
   (princ "; h=")
   (prin1 h)
   (prin1)
);defun
   这样每给一个d值，就自动产生对应的一组数据b (键宽)、h（键高），之后就可使用这些参数了。
2.2二维数表处理方法
2.2.1简单二维数表处理方法
简单二维数表就是由两个主参数才能确定唯一参数的数表，如公法线长度变动公差Fw值（见表2），分度圆直径和精度等级是主参数[7]。
   表2 公法线长度变动公差Fw值
分度圆直径（d）        精度等级（jd）
        7        8        9        10
  0~125        28        40        56        80
125~400        36        50        71        100
400~800        45        63        90        125
800~1600        56        80        116        160
1600~2500        71        100        140        200
2500~4000        90        125        180        250
简单二维数表在AutoCAD内部使用AutoLISP编程的处理方法如下：
(defun c:list2 ()
(setq d  (getreal "\n输入轴径：d=")
     l  (Cond ((< d 125) '(28 40 56 80))   ；数据的存储与检索由同一函数完成
             ((< d 400) '(36 50 71 100))
             ((< d 800) '(45 63 90 125))
             ((< d 1600) '(56 80 116 160))
             ((< d 2500) '(71 100 140 200))
             ((< d 4000) '(90 125 180 250))
                     (T  '())  
       ) ;cond
);setq
(setq h (getint "\n输入精度等级jd(7-10):")
      n (- h 7)
      Fw (Nth n l)    ；提取数据
);setq
);defun
根据提示输入分度圆直径d和精度等级jd，就能自动得到公法线长度变动公差Fw值，之后就可使用这个参数了。
2.2.1复杂二维数表处理方法
复杂二维数表就是由三个以上主参数才能确定唯一参数的数表，如弦齿深极限偏差Eh值（见表3），精度等级、发向模数和是主参数[7]。
      表3 弦齿深极限偏差Eh
精度等级jd        发向模数    m        分度圆直径d
                ≤50        >50
~80        >80
~120        >120~200

5、6        2~3.5        16        18        19        21
        >3.5~6.3        20        21        23        25
        >6.3~10        -        25        27        30

7、8        2~3.5        20        22        24        27
        >3.5~6.3        25        26        28        30
        >6.3~10        -        32        34        36
        >10~16        -        -        32        45
    复杂二维数表在AutoCAD内部使用AutoLISP编程的处理方法如下：
        ;数据存储
        (setq  l1 '(16 18 19 21)
              l2 '(20 21 23 25)
              l3 '( 0 25 27 30)
              l4 '(20 22 24 27)
              l5 '(25 26 28 30)
              l6 '( 0 32 34 36)
              l7 '( 0  0 32 45)
        );setq
       ;数据检索
(defun c:list3 ()
        (setq jd (getint "\n输入精度等级jd(5-8):")
                m (getreal "\n输入发向模数m:")
             l (Cond ((< m 2) '())
                        ((and (or (= jd 5) (= jd 6)) (< m 3.5)) l1)
                ((and (or (= jd 5) (= jd 6)) (< m 6.3)) l2)
                        ((and (or (= jd 5) (= jd 6)) (< m 10.0)) l3)
                        ((and (or (= jd 7) (= jd 8)) (< m 3.5)) l4)
                        ((and (or (= jd 7) (= jd 8)) (< m 6.3)) l5)
                ((and (or (= jd 7) (= jd 8)) (< m 10.0)) l6)
                        ((and (or (= jd 7) (= jd 8)) (< m 16.0)) l7)
                    (T  '())  
              );cond
        );setq
            (setq d  (getreal "\n输入分度圆直径d:")
             n  (cond ((<= d 50) 0)
                              ((<= d 80) 1)
                      ((<= d 120) 2)
                              ((<= d 200) 3)
                              (T nil)
                      );cond
              Eh  (nth n l)     ；提取数据
         );setq
);defun
根据提示输入输入精度等级jd、发向模数m以及分度圆直径d，就能自动得到弦齿深极限偏差Eh值，之后就可使用这个参数了。
可见，不管示简单二维数表或复杂二维数表只要数据结构定义清晰、有明确检索项、参数按顺序排列，检索方法就会相当简洁和方便。
2.3三维数表处理方法
在主参数（型号），序号的基础上又加入“规格”参数，也就是三个主参数确定唯一的一组数据，可称为三维数表。印在书本中：行是一维，列是二维，页是第三维。对于这样的参数表，可参考二维表的处理方法，再加上一层判断处理[2]。