dtm文件生成等高线 lisp_利用AUTOLISP自动绘制等高线的尝试

利用

A

U

T

O

L

ISP

自动绘制等高线的尝试

吕坚明

(

金华市测绘院

,

浙江

金华

321000)

摘 要

:

本文简述了在

A

U

T

O

CAD

中自动绘制等高线的方法

,

并给出了简易的数据格

式和相应

A

U

T

O

L

ISP

处理程

序。

关键词

:

等高线 数据格式

A

U

T

O

L

ISP

1

序  言

AUT

O

CAD

是微机上广泛应用的绘图软件

,

其

绘图功能十分强劲

,

尤其是从

R

13

版后增加了绘制非

均

匀

B

样条曲线的命令

(

SPLINE)

,

这为我们在测绘

应用中的曲线绘制提供了有力的手段

,

在等高线的绘

制中使曲线光滑也便于局部点的修理。由于实际测量

中数据量较大

,

单靠交互方式输入点是不现实的。

幸好

AUT

O

CAD

内嵌了编程功能——

AUT

O

LISP

语言

,

利用该功能可自动处理重复性的操作

,

等高线的自动

绘制便是一例。

2

数据文件格式

等高线实际上是在相互平行的水平面上的曲线

簇

,

为编程处理方便

,

假定每条等高线都是封闭曲线

,

则可建立以下数据文件格式

:

等高线条数

m

第

1

条等高线的点数

n1

第

1

条等高线的高度坐标

z

1

第

1

点的平面坐标

(

x

11,

y

11)

第

2

点的平面坐标

(

x

12,

y

12)

..

....

第

n

1

点的平面坐标

(

x

1

n

1,

y

1

n

1)

第

2

条等高线的点数

n

2

第

2

条等高线的高度坐标

z2

第

1

点的平面坐标

(

x

21,

y

21)

第

2

点的平面坐标

(

x

22,

y

22)

..

....

第

n

2

点的平面坐标

(

x

2

n

2,

y

2

n

2)

..

....

..

....

第

m

条等高线的点数

nm

第

m

条等高线的高度坐标

zm

第

1

点的平面坐标

(

x

m1,

ym1)

第

2

点的平面坐标

(

x

m

2,

ym

2)

..

....

第

nm

点的平面坐标

(

xm

nm

,

ym

nm

)

3

A

U

T

O

LISP

程序

针对上述数据文件

,

绘制等高线的程序可编制如

下

:

程序文件名

:

dgx.

lsp

(

defun

C

:

DGX

(

/

f

x

y

z

str

tem

crvnum

i

pntnum

j

pnt2d

pnt3d)

;

打开数据文件

(

setq

f

(

open

"c:

/

dg

x.

tx

t"

"r")

)

;

读取等高线条数

(

setq

strtem

(

read-

line

f)

)

(

setq

cr

vnum

(

read

strtem

)

)

;

循环读取各条曲线的数据并绘制

(

setq

i