利用
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