基于组件的三维CAD系统开发的关键技术研究（一）

HEATS

　　1概述

+ \; ^0 \* \& p 6 `9 W: s8 ?6 E& P- I

　　美国Autodesk公司开发的AutoCAD系统自1982年推出以来，以其使用方便、功能强大和系统开放性一直独领风骚。成为各工程领域首选的CAD系统。

* o) V3 o# e, Q

　　水利水电工程领域利用AutoCAD平台进行二次开发也取得了一系列成果，如90年代以来陆续开发的水电站地面厂房CAD系统、重力坝CAD系统、隧洞CAD系统、水机油汽水CAD系统、地质柱状图CAD等均取得了较好的应用效果。但水电工程设计的复杂性决定了任何现成的CAD软件都有其局限性，设计过程中许多问题还只能用原始的方法解决。本文通过几个实例对AutoCAD二次开发常用的Lisp语言在水电工程设计中的应用进行了初步探讨，希望能够起到抛砖引玉的作用。

　　VisualLisp语言是AutoCADR14版本以后提供的全新的开发环境，是嵌于AutoCAD内部，将Lisp语言与AutoCAD相结合的产物，是一种智能型语言。利用AutoLisp可以灵活方便地增加AutoCAD新命令，几乎无限地扩展AutoCAD新功能，

　　2应用实例

　　2 .1坐标画线

　　利用已知坐标点画线是设计工作中经常遇到的问题，如河道、堤防等实测断面、水位流量关系曲线、堰面曲线等数据的处理，均可归结为坐标画线问题。对于堰面曲线等有函数方程的曲线可以利用EXCEL按照期望的步长自动生成一系列坐标点。对于测量常用的起点距-高程形式的数据，也可以利用EXCEL转化成坐标点形式。

! [% J$ C4 v2 v) [6 b8 Z

　　(1)利用脚本文件(.SCR)

6 k, N" _- {+ Z$ ^5 b

　　利用任何文本编辑器如Note、Uedit、Word、Excel等建立纯文本文件EX1.SCR，注意文本文件后缀必须为.SCR,坐标之间用半角逗号分开，文件中不允许出现空格，文件最后一行必须为空回车。文件建立时，可以直接把EXCEL或其他文件中的坐标表利用拷贝、粘贴功能加入脚本文件中。

7 F- T6 w2 W. ]% |4 N7 @

　　Pline

　　345.66,238.65

　　213.45,124.56

3 z7 V4 s+ _: J H1 |" H& S2 Z

　　128.44,235.66

　　文件保存后，执行AutoCAD中“工具”下的“运行脚本”，在显示的窗口中查找并选中EX1.SCR，屏幕上会立即显示所绘线条。

, Z+ t2 s! _, D% O8 l0 V

　　(2)利用LSP程序

- X- x& d( M& Q

　　建立坐标表文件EX2.DAT，后缀任意，可以依次输入多段曲线，中间用曲线名称分开，程序自动绘制多条曲线并可标注坐标表。

$ q3 u$ {; c4 n/ I

　　“曲线1”

# y2 y* @3 t0 q2 V$ t1 P9 U/ | ; ]+ _0 W$ Q# h: c: y) b

　　213.45,124.56

! w7 e$ ^$ E: f

　　128.44,235.66

5 j3 Q% O7 o# e0 L& c X

　　345.66,231.78

6 O# A( k( ]+ j5 y: |9 Z- x# `' }* ^) r- x 4 c; J) V: M' f$ V0 E$ M- X9 o

　　“曲线2”

/ R! G! I( [& ^9 @: |1 b, O% ?

　　433.34,567.23

, {7 N- t7 J$ b. v, F. E" F

　　434.12,464.12

2 g+ P0 E! q. G) K

　　利用AutoCAD中“工具”菜单下的“VisulLisp编辑器”建立DRLINE.LSP文件如下

　　(defun C:drline()

2 E q) ~. x# U6 c* n2 v) {& n : S& R! Y7 g$ R3 \1 I: B; n

　　(if fn

9 M3 F9 a/ ~: X* a# k6 ]9 R; D

　　(setq fn (getfiled "坐标点文件名" fn "" 2))

& L5 G( Z8 R: M

　　(setq fn (getfiled "坐标点文件名" "" "" 2))

3 [: `8 J7 h- q2 Y' \3 u( x) R/ i & w" d$ [" ]4 B- j7 r; Q

　　)

/ `& {" _2 ^" D! r

　　(setq f (open fn "r"))

# B2 \* d" r" i( Z

　　(setq p0 (getpoint "/n画线起点:"))

% U) a: ~/ k9 L% [1 P. f# B8 g

　　(setq bz 0 mm 1)

. d. `9 w0 d4 I% k6 v3 v

　　(command "pline")

! b4 E/ {: ?( D M

　　(while (/= bz 1)

1 ?% J3 e7 y/ O/ k* n; ^* |/ k$ H( M ' ]7 l, q& w; f

　　(setq md (read-line f))

$ {, |1 K6 J( Q& y

　　(if (/= md nil)

7 d1 l- q( [ U4 W) |2 E* b4 q

　　(setq zbb (read md))

　　(setq bz 1)

0 h4 i' N& x# ]

　　)

. }7 H g1 z; w& @

　　(setq dx (car zbb) dy (cadr zbb))

5 O; L+ {+ i6 r. @0 s+ d

　　(setq p1 (list (+ dx (car p0))

　　(+ dy (cadr p0)))

( z9 \* \: e o8 f' j

　　)

$ z8 U3 a) @% d3 ~' {2 E$ ^ & b% W+ X5 ]9 K- L( r6 G D8 y

　　(command p1)

( L$ ` l4 Z) t4 C" d6 A8 s

　　(setq mm (1+ mm))

. x! ` a( V3 Z6 i* j* J ' N& j9 }1 ]5 S' w

　　)

　　(command "")

# g5 S: o! s# ] U" W ! Y* ]' `2 Q" I

　　(close f)

　　)

　　文件存盘后，加载运行，相当于新增加了坐标画线命令DRLINE，按提示选中存放坐标表的文件即可实现自动绘制曲线。

* S" C/ _2 A+ C 3 Q0 K1 o7 w0 T