lisp中窗选线_autolisp实用编程四例

autolisp

实用编程四例

江苏

崔华明

autocad

是一个功能强大的通用图形设计软件，

其内嵌的

autolisp

语言为用户进行二次开发提供了方便。

下面就介绍几则用

autolisp

编写的实用程序，这些程序相当于新增的

autocad

命令，可以弥补

autocad

本身

的一些不足，为日常使用带来方便。

1

．快速更改文本的大小

在标准的

autocad

中，要更改已有文本的大小，需要使用

change

命令。该命令的缺陷是：即使只更改

文本的大小，也要重新确认文本的插入点、字型、倾斜角等一系列参数。也就是说，除输入文本的新高度

值外，还需要按

5

次回车键才能完成一个文本的更改！而且每次只能修改一个文本。这对于同时更改多个

文本的大小非常不便。本文的

autolisp

程序使这一工作变得十分方便和快捷。使用方法如下：

在

autocad

的

command

提示下，打入命令：

cth

autocad

将提示

“selectobjects

：

”

，这时可以使用

autocad

允许的任意方式选择目标。对于有多个文本需

要更改的情况，使用窗口选择比较方便，而且你不用担心选择窗口中包含了非文本目标，程序能够自动在

选择的目标中查找出文本实体，并只对文本进行更改。

选择目标后，

autocad

提示

“newtextheight

：

”

，这时输入一个新的文本高度值然后回车，则所有选中的

文本被更改成新设定的高度。

2

．延伸直线的长度

在实际使用中，常常要将一条直线延伸指定的长度。通常的做法是：在需要延伸的直线的端点画一个

辅助圆，

圆的半径等于直线要延伸的长度，

然后使用

extend

命令将直线延伸到与圆相交，

最后删除辅助圆。

本文的

autolisp

程序将使你非常容易地实现这一点。你只需选择要延伸的直线并输入要延伸的长度即

可，其余的工作由程序自动完成。使用方法如下：

在

autocad

的

command

提示下，打入命令：

stl

然后根据提示选择要延伸的直线

(选择点要靠近直线需要延伸的端点)

，

并输入延伸的长度。

该程序将

自动在离选择点较近的直线端点，按指定的长度延伸直线。

3

．快速画直线

在画给定坐标点的直线时，需要通过键盘输入坐标值。这样的情况下当然是利用右边的数字键盘输入