AutoLISP语言与Excel文本文件接口处理

1、文本文件接口处理3A u toL ISP 语言与 E x ce l彭江丰 关键词 A u toL ISP; E xce l; 文本文件; 参数化绘图; 极限偏差 摘要 用极限偏差标注程序为例, 说明 A u toL ISP 程序如何读取 E xce l 数据库文件。 中图分类号 T P 391. 72 文献标识码 A 文章编号 1001 29855 (2000) 04200602003On the in terfac in g of A utoL ISP lan guage an d Exce l tex t f ileP en g J ian gfenKeyword s: A u to L

2、ISP; E x ce l; tex t f ile; p a ram e t r ic d raw in g; dev ia t io n lim itA bstra c t: T h e p ap e r exp la in s how th e A u toL ISP p ro g ram read th e da ta f rom E x ce l da tab a se f ile b a sed o n an ex am p le o f ex t rem e dev ia t io n no ta t io n p ro g ram.用 A u toL ISP 语 言 编 写 参

3、 数 化 绘 图 程 序 是A u toCA D 二次开发中常用的方法。 在机械制图中,国家标准件的绘制大部分采用参数化绘图程序来实 现, 用户按程序提示输入所需的规格型号, 程序从数据文件中读取相应的数据, 处理后绘制出所需要的图形。因此, 从数据文件中读取数据是参数化绘图程 序编写的重要内容。随着 E x ce l 软件的应用, 大量的 数据文件都采用它来编制。 下面以极限偏差标注程 序说明 A u toL ISP 编程读取 E x ce l 数据库文件。名为 tx t。在以空格分隔的文本文件中, 每个数据占据相 同数量的字符位置, 例如 Gb 1801- 79. p rn 文件中,每个数

4、据占据 8 个字符位置, 数据之间以空格分隔,用 read- lin e 函数读出的数据行和文本文件的数据 格式一致。(12345678123456781234567812345678123456781234567812345678. . . . . . )00 0 00 0 00000 0 dm in 0 0 0 0 dm ax 0 0 00 0 c110首先用 E x ce l 将GB 1801-79 基本尺寸至 500c1100 0 0 0 0d900 0 0 0 0d900mm 孔、轴的极限偏差建成一数据文件, 格式如下:f7. . . . . .以 制 表 符 来 分 隔 表 格 的

5、 文 本 文 件 在 用A u toL ISP 处理数据库文件时, 列与列之间的数据 用字 符“ t ”分 隔, 用 read - lin e 函 数 读 Gb 1801 -79. tx t 文件, 其一行的格式为:“dm in tdm ax tc11tc11 td9 t d9 t f7 t. . . . . . ”, 在字符串中“ t”只代 表一个字符。用 E x ce l 将数据库转换成 p rn 文件时, 如果数 据 库 文 件 太 大, 列 太 多, E x ce l 会 把 数 据 库 截 为 几段, 这样造成 A u toL ISP 很难处理数据, 因此建议采 用 tx t 方式转

6、换数据库文件。dm in dm ax c11c11220522402240d9250265265d929321172117f7216220220f7234241241g6262727g621722022018 29524 211030 2110141824其含义是: 第一行中的 dm in , dm ax 为基本尺寸的 范围 ( 即基本尺寸大于 dm in 小于等于 dm ax ) , c11、d9、f7 等为公差带代号 ( 第一个公差带表示上 偏差, 第二个表示下偏差)。 例如尺寸 5 20d9 的上、下偏差分别为- 65、- 117。E x ce l 可 以 将 数 据 库 文 件 转 换

7、 为 两 种 A u toL ISP 语言能够方便读取的文本文件: 一种是 以 空 格 分 隔 的 带 格 式 的 文 本 文 件, 文 件 扩 展 名 为 p rn; 另一种是以制表符分隔的文本文件, 文件扩展极限偏差标注程序见下页, 其子程序“ge tda te”根据给定的基本尺寸值和公差带检索数据库文件 3 收稿日期 1999- 10- 18 作者简介 彭江丰 ( 1971. 7- ) , 男, 汉族, 江西人, 工程师, 从事机械设计工作。“GB 1801 -tx t ”, 读 取 所 需 要 标 注 的 极 限 偏 差79.(w h ile (o r (= dh n il) (= d

8、h " " ) )( se tq dh (ge t st r in g " n 输 入 公 差 带 代 号如 H 7, h 8: " ) )( if (= dh " " ) (p r in c " 输入不正确, 请重新输入! " ) ) ; w h ile(ge tda te)( if (o r (= p c l n il) (= p c2 n il) ) (p ro gn( se tq tfac (ge tva r " d im tfac" ) ) ( se tq to l (ge tva r

9、" d im to l" ) )( se tq lim (ge tva r " d im lim " ) ) ( se tq tp (ge tva r " d im tp " ) )( se tq tm (ge tva r " d im tm " ) )( if (o r ( < p c2 0 ) ( > p c2 0 ) ) ( se tq p c2 ( - 0 p c2) ) )(comm an d " d im " " " " se tva r&q

10、uot; " d im tfac" " 0. 5" " d im to l" " 1 " " d im lim " " 0 " " d im tp " p c1 " d im tm "p c2 " up " ss " " " e" )值。该程序首先确定指定的公差带所在的列位, 然后根据输入的尺寸确定所在的行位, 在检索到满足要 求的纪录后, 就可在对其处理后进行极限偏差标注。在

11、程序中, 根据 t 来判断一个数据的结束, 一 行的结束以“”来判断。程序应用实例: 现用 A u toCA D 画好了一零件 图且尺寸 标 注 完 毕, 图 中 轴 径 5 20 需 标 注 极 限 偏差。用 L o ad 命令将 L d.令行中如下操作: Comm an d: ld lsp 装入, 在 Comm an d 命选择需要标注极限偏差的尺寸: ( 用鼠标选取尺寸 5 20) Se lec t o b jec t s: 1 fo u n d Se lec t o b jec t s: 输入轴径或孔径: 20 输入公差带代号< 如 H 7, h 8> : d 9 ( co

12、mm an d " d im "Comm an d:程序自动将尺寸 5 20 改变成 5 20- 0. 065。" "" se tva r " " d im tfac " tfac "d im to l" to l " d im lim " lim " d im tp " tp " d im tm " tm "e" ) ; p ro gn) ; if( se tva r " b lipm o de"

13、; bm ) ( se tva r " cm decho " ce) (p r in t) ; defu n- 0. 117由 于 E x ce l 具 有 强 大 的 数 据 处 理 功 能, 而A u toL ISP 具有强大的图形处理功能, 因此二者结 合起来就可以完成复杂的工程设计任务。; 基本尺寸至 500 mm 孔、轴的极限偏差 (GB 1801-79) 标注程序 彭江丰(defu n c: ld (bm ce ss d dh p c1 p c2 tfac to l limtm f il lin n b mm n n dd j dm ax dm in )tp(

14、se tq bm (ge tva r " b lipm o de" ) )cm decho " ) )(w h ile (= ss n il)( se tq ce(ge tva r "(defu n ge tda te()( se tq f il (op en " d: p jflisp GB 1801 -r" ) )( se tq lin ( read- L IN E f il) )79.tx t ""(p r in c " 选择需要标注极限偏差的尺寸: " )( se tq ss ( ssg

15、e t) )( se tq n 1)( se tq b 1) ( se tq mm " t" ) ( se tq n n 0)mm " t" )ss n il) (p r in c " 所 需 尺 寸 没 选 着, 请 重 新 选( =(w h ile(=if择! " ) ) ; w h ile(w h ile (= d n il)( se tq d (ge t rea " n 输入轴径或孔径: " ) )( if (= d " " ) (p r in c " 输入不正确, 请重新输入

16、! " ) )(w h ile ( an d (=( su b st r lin n 1 ) " t " ) (=( su b st r lin n 1) " " ) )( se tq n) ; w h ile(1+ n ) )( if (= (1-( st r len lin ) ) ( se tq mm " t1"(p ro gnn )( if (o r (d 500)(< d 0) )(p ro gn(p r in c " 输入不正确, 请重新输入! " )( se tq d n il) )

17、; if)w h ile;( se tq dd j ( su b st r lin b(-n b ) ) )( if (= dd j dh ) ( se tq mm " t1" ) )( se tq n(1+ n ) )( se tq b n ) ( se tq n n (1+ n n ) )61电话: (0556) 5542812E-ma il: d js12M a il. hf. ah. cn法人代表: 周鲁惠洛阳河柴发动机有限公司传真: (0556) 5516944联系人: 陆正友无锡蓝海船舶舾装设备有限公司无锡蓝海船舶舾装设备有限公司, 地处风景秀丽的太湖之滨, 旅

18、游、交通十分便利。公司占地面积 3 万多平方米, 生产设备和配套设施齐全, 技术力量雄厚。现有职工 150 余人, 其中高级技术人员 28 人, 试验、检测手段完备。工厂还具有一整套科学、全面的质保体系, 并通过 ISO 9002 质量体系认证。生产的产品有船用门、窗、盖、梯、厨房设备、浴室单元、通风设备、拖曳设备、系泊设备、甲板机械等船用舾装产品, 品种、规格达 1600 多种。每年还开发一定数量的新产品。本公司始终本着“质量第一, 用户至上”的宗旨, 热忱为海内外客商 服务, 洽谈业务, 合作生产, 共同为发展世界造船航运事业作出更大的贡献。公司 1985 年以前, 以生产轻 122180

19、 型柴油机和轻 422160 型柴油机为主, 这两种产品主要作为导弹快艇、鱼雷快艇、护卫艇和扫雷艇等水面舰艇的主机, 为国防建设作出了贡献, 并出口到亚洲、非洲、东欧十几个国家。1985 年从德国 D en tz2M WM 公司引进了 D 234 系列、D 604B 系列柴油机制造技术; 1998 年引进俄罗斯M 419、M 470 系列柴油机制造。目前 D 234、D 604B 系列柴油机广泛用于各类船舶主动力及船舶电站, 交通艇主动力, 挖泥船主动力及辅助动力, 渔船主机等领域, 受到用户好评。地址: 江苏省锡山市石塘湾镇天石路 4 号电话: (0510) 3260965E-ma il:

20、W XL anha ip ub. w x. jsinfo. ne t法人代表: 陈建进安庆船用柴油机厂邮编: 214185传真: (0510) 3260908联系人: 蔡二奎地址: 河南省洛阳市中州西路 173 号电话: (0379) 4211696法人代表: 周 全江南造船 (集团) 有限责任公司邮编: 471039传真: (0379) 4214287联系人: 董学军具有 130 多年历史的江南造船厂, 为发展我国近代工业和造船工业作出了重要贡献, 被誉为“中国第一厂”。 作为中国首批百家现代企业制度改革的试点, 于 1996 年 6 月 3 日正式成立“江南造船 (集团) 有限责任公司”。

21、公司作为中国船舶工业集团公司所属规模最大的军民结合型船厂之一, 不仅建造了各型具有国际先进水平的民用船舶, 还为国际领域建造了具有高精尖技术的科学考察船队及海军舰艇, 建造的船舶产品不断 走向国际市场。此外, 为冶金、石化、航天、水利、电力、港口和市政建设等领域提供了大量优质的产品。在同行业率先完成了产品结构由常规散货船向高技术、高附加值船安庆船用柴油机厂创建于 1960 年, 隶属中国船舶工业集团公司, 是船用柴油机专业定点生产厂。现有职工 990 余人, 各类专业技术人员 300多人 (其中高级职称 37 人, 中级职称 84 人)。固定资产 5127 万元, 各类设备 477 台, 其中

22、大型卧式加工中心 1 台。工厂 80 年代初引进日本国大发柴油机株式会社制造技术, 专利生产 D K 220、DL 220、D S218A 、P S226H 系 列“安 庆2大 发”柴 油 机 及 发 电 机组, 功率覆盖范围 350 至 1 280 kW , 现形成了年产 60 台的生产能力, 该机除满足国内各大船厂、远洋公司、海运局、海军后勤部及有关单位的需求, 广泛用于船用主机、船舶电站、陆用电站, 还随众多出口船远销到欧美、东南亚, 并有单机销往日本、英国、意大利、美国、香港等国家和地区。与此同时, 工厂还大力开发非船产品, 先后研制成功了淀粉分离机、浓缩分离机、胶乳分离机、卧式螺旋分

23、离机、针磨、大型分离机及与之配 套的消沫泵、过滤器等食品加工设备。 目前已形成了年产 200 台的生产能力, 畅销全国 20 多个省市及东南亚国家, 整机销售已达 1000 余台。工厂正在积极开 发 新 型 柴 油 机、多 级 旋 流 器 等 新 产 品, 并 在 进 行ISO 9001 产品质量认证工作。的调整, 提高了在竞争激烈的国际船舶市场的竞争能力。液化气船系列、大型自卸船、快速无舱口盖集装箱船等高技术、高附加值船系替补国内空白, 达到当今国际先进水平的产品, 使中国船舶工业跻身于世界造船 强国垄断的高技术、高附加值船舶市场, 引发国内企业竞相研制、开发,承建高技术、高附加值船的热潮。地址: 上海市高雄路 2 号电话: (021) 63151818法人代表: 陈金海邮编: 200011联系人: 刘若雄地址: 安徽省安庆市渡江路 18 号邮编: 246003) ; p ro gn) ; if) ; w h ile( if (= dd j dh )( se tq n(1+ n ) )( se tq b n )( if (an d (> = d dm in ) (< = d dm ax ) ) ( se tq mm" t1" ) ) ; w h ile(p r in t " 数据库中不含该公差带, 增加后再用本程序. "