科技信息

一

、

引言

ＬＩＳＰ

(

Ｌｉｓｔ

Ｐｒｏｃｅｓｓｏｒ

)

程序语言是由

Ａｕｔｏｄｅｓｋ

公司开发的一种程序

语言

。

ＡｕｔｏＣＡＤ

软件包中包含大多数用于产生图形

、

处理图形的命令，

但仍有某些命令末被提供

。

通过

ＡｕｔｏＬＩＳＰ，

可以使用

ＡｕｔｏＬＩＳＰ

程序语

言编制能够在图形文本对象内编写工具或作全局选择性改变程序

。

在工程测量中，

内业资料计算占有很重要的比重，

内业资料计算的

速度直接决定了测量工作的快速

、

顺利地完成

。

计算机辅助设计

(

Ｃｏｍｐｕｔｅｒ

Ａｉｄ

Ｄｅｓｉｇｎ

简写

ＣＡＤ，

常称

ＡｕｔｏＣＡＤ

)

是

２０

世纪

８０

年代初

发展起来的一门新兴技术型应用软件

。

如今在各个领域均得到了普遍

的应用

。

而

ＡｕｔｏＣＡＤ

配合

ＡｕｔｏＬＩＳＰ

语言编制出的程序，

使测量内业资

料整理更加有效的顺利进行，

从而大大减少内业工作量

。

以下通过编写

“

图块过滤

”

的

ＬＩＳＰ

程序工具来说明程序在制图中的应用

。

二

、

工程制图

ＬＩＳＰ

实用程序

１

、

主程序

(ｄｅｆｕｎ

ｃ：ｇｌｔｋ

()

(ｐｒｉｎｃ

＂＊＊

使用此程序时必须全图显示

＊＊＂)

(ｓｅｔｖａｒ

＂ｃｍｄｅｃｈｏ＂

０)

(ＳＥＴＶＡＲ

＂ｐｉｃｋｓｔｙｌｅ＂

０)

(ｓｅｔｑ

Ｂ

(ａｓｓｏｃ

２

(ｅｎｔｇｅｔ

(ｃａｒ

(ｅｎｔｓｅｌ

＂＜

请选择需要过滤图块：＞＂)))))

(ｓｅｔｑ

ｘｉｓｉｊｌ

(／

(＊

(ｇｅｔｄｉｓｔ

＂＜

请输入新距离

＊

在屏幕上定点：＞＂)

２)

(ＳＱＲＴ

２))

)

(ｓｅｔｑ

Ａ

(ｓｓｇｅｔ

＂ｘ＂

(ｌｉｓｔ

Ｂ)))

(ｓｅｔｑ

Ｃ

(ＳＳＬＥＮＧＴＨ

Ａ))

(ｓｅｔｑ

Ｃ

(１－

Ｃ))

(ｗｈｉｌｅ

(＞＝

Ｃ

０)

(ｓｅｔｑ

Ｄ

(ｃｄｒ

(ａｓｓｏｃ

１０

(ｅｎｔｇｅｔ

(ＳＳＮＡＭＥ

Ａ

０)))))

(ｓｅｔｑ

Ｅ

(ｓｓｎａｍｅ

Ａ

０))

(ｓｅｔｑ

ＰＯＩＮＴ１

(ＰＯＬＡＲ

Ｄ

(／

ｐｉ

４)

ｘｉｓｉｊｌ))

(ｓｅｔｑ

ＰＯＩＮＴ２

(ＰＯＬＡＲ

Ｄ

(＊

(／

ｐｉ

４)

３)

ｘｉｓｉｊｌ))

(ｓｅｔｑ

ＰＯＩＮＴ３

(ＰＯＬＡＲ

Ｄ

(／

ｐｉ

４)

(＊

－１

ｘｉｓｉｊｌ)))

(ｓｅｔｑ

ＰＯＩＮＴ４

(ＰＯＬＡＲ

Ｄ

(＊

３

(／

ｐｉ

４))

(＊

－１

ｘｉｓｉｊｌ)))；

(ｃｏｍｍａｎｄ

＂ｐｌｉｎｅ＂

ＰＯＩＮＴ１

ＰＯＩＮＴ２

ＰＯＩＮＴ３

ＰＯＩＮＴ４

＂ｃ＂)

(ｓｅｔｑ

Ｆ

(ｓｓｇｅｔ

＂ｗｐ＂

(ｌｉｓｔ

ＰＯＩＮＴ１

ＰＯＩＮＴ２

ＰＯＩＮＴ３

ＰＯＩＮＴ４)

(ｌｉｓｔ

Ｂ))

)

(ｉｆ

(／＝

Ｆ

ｎｉｌ)

(ｐｒｏｇｎ

(ｓｅｔｑ

ｎｅｍｂｅｒ

(ＳＳＬＥＮＧＴＨ

Ｆ))

(ｓｅｔｑ

ｄｄ

０)

(ＲＥＰＥＡＴ

ｎｅｍｂｅｒ

(ｓｅｔｑ

ｓｈｕｓｈｕ１

(ＳＳＮＡＭＥ

Ｆ

ｄｄ))

(ｓｅｔｑ

ｈｈｈ

(ｓｓｄｅｌ

(ｓｓｎａｍｅ

Ｆ

ｄｄ)

Ａ))

(ｅｎｔｄｅｌ

ｓｈｕｓｈｕ１)

(ｉｆ

(／＝

ｈｈｈ

ｎｉｌ)

(ｓｅｔｑ

Ａ

ｈｈｈ)

)

(ｓｅｔｑ

ｄｄ

(＋

ｄｄ

１))

)

)

)

(ｅｎｔｄｅｌ

Ｅ)

(ｓｅｔｑ

Ｃ

(－

Ｃ

ｎｅｍｂｅｒ))

)

(ＳＥＴＶＡＲ

＂ｐｉｃｋｓｔｙｌｅ＂

１)

)

２

、

函数说明

(

１

)

ｓｅｔｖａｒ

函数用于给

ＡｕｔｏＣＡＤ

系统变量赋值

。

系统变量名必须置

于双引号中

。

ｓｅｔｖａｒ

函数格式为：

(

ｓｅｔｖａｒ

ｖａｒｉａｂｌｅ－ｎａｍｅ

ｖａｌｕｅ

)

其中

ｖａｒｉａｂｌｅ

ｎａｍｅ

…………

ＡｕｔｏＣＡＤ

系统变量

ｖａｌｕｅ

……………………

赋予系统变量的值

(

２

)

ｃｍｄｅｃｈｏ

系统变量：

控制

ＡｕｔｏＬＩＳＰ

的

ｃｏｍｍａｎｄ

函数运行时

Ａｕ－

ｔｏＣＡＤ

是否回显提示和输入

。

(

３

)

ｓｅｔｑ

函数用于给变量赋值，

其格式如下：

(

ｓｅｔｑ

ｎａｍｅ

ｖａｌｕｅ

［

Ｎａｍｅ

ｖａｌｕｅ

］

…

)

其中

Ｎａｍｅ

…………………

变量名

ｖａｌｕｅ

…………………

赋予变量的值

(

４

)

ｇｅｔｄｉｓｔ

函数暂停程序的运行，

等候用户输入距离，

随后以实数

形式返回该距离

。

ｇｅｔｄｉｓｔ

函数格式为：

(

ｇｅｔｄｉｓｔ

［

Ｐｏｉｎｔ

］

［

Ｐｒｏｍｐｔ

］

)

其中

Ｐｏｉｎｔ

…………………

距离的第一点坐标

Ｐｒｏｍｐｔ

………………

须在屏幕上显示的提示信息

(

５

)

ｐｒｏｇｎ

函数用于与

ｉｆ

函数搭配，

以求解多个表达式

。

其格式为：

(

ｐｒｏｇｎ

表达式

)

当测试条件返回

“

真

”

时，

证函数只能求解一个表达式

。

ｐｒｏｇｎ

函数

可用于与

ｉｆ

函数搭配以求解多个表达式

。

３

、

程序使用方法

假设有一片果园，

填充符号过密，

通过使用本程序实现以

３０

米间

距填充

。

(

１

)

打开基于

ＣＡＤ

基础开发的

ＣＡＳＳ

软件，

绘制一片果园，

图

１

所

示

。

图

１

图

２

(

２

)

加载本程序

。

(

３

)

在命令提示栏键入

ＧＬＴＫ，

在命令栏提示

“

请选择需要过滤图

块

”

时，

选择任一果园符号；

提示

“

＜

请输入新距离

＊

在屏幕上定点：＞

”

时，

输入间距

３０

米并确定，

最后成果如图

２

所示

。

三

、

总结

ＡｕｔｏＣＡＤ

二

次

开

发

的

主

要

工

具

有

ＬＩＳＰ

、

ＶＢ／ＶＢＡ

的

ＡｃｔｉｖｅＸ

及

Ｃ／Ｃ＋＋

的

ＯｂｊｅｃｔＡＲＸ

。

这里推荐使用

ＬＩＳＰ

语言是因为在

ＡｕｔｏＣＡＤ

中集

成了两种语言的开发环境，

并且有详细的帮助文件

。

ＬＩＳＰ

语言是人工智

能学科领域中广泛采用的一种程序设计符号语言

。

这种语言在参数化

绘图中有很大的灵活性，

并且可以实现一定的人工智能

。

ＬＩＳＰ

开发出的

程序可以像运行

ＣＡＤ

普通命令一样在命令行中直接键入自己定义的

命令运行，

保持了用户的绘图习惯

。

工程制图人员采用

ＬＩＳＰ

语言编写出适合工作需要的工具，

使工程制

图人员如虎添翼，大大提高了工作效率，

在更加广阔的天地里施展才华

。

参考文献

［

１］

《

ＡｕｔｏＬＩＳＰ

程序员参考手册

》

［

２］

《

ＡＵＴＯＣＡＤ

使用手册

》

［

３］

《

南方

ＣＡＳＳ

使用手册

》

LISP

语言在

CAD

工程制图中的应用

辽宁省第六地质大队

谢

威

辽宁省第二水文地质工程地质大队

杨

娇

［

摘

要

］

针对

ＣＡＤ

技术在测量制图工作中的重要性，

而

ＬＩＳＰ

程序是

ＣＡＤ

技术的重要拓展，

结合自已的工作体会，

提出一种工具

程序设计，

并用

ＬＩＳＰ

语言编程，

实现计算机的自动设计

、

计算

、

制图功能，

使工程制图工作更有效的顺利进行

。

［

关键词

］

ＬＩＳＰ

工程制图

ＣＡＤ