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

HEATS

　　1概述

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

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

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

7 ]3 p- i- k# a, N5 l$ a

　　2应用实例

　　2 .1坐标画线

% O/ Q7 h8 ]6 M( o$ c `, R# Y7 Y1 [

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

H) `! g, o: t- W8 U: c$ t% ^ 0 a, g5 b- ?8 o% l# T4 h

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

n% \9 c& J4 ?7 m1 j' g9 W$ S$ W

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

1 `# [% e# z+ v0 U7 w4 O9 U

　　Pline

+ c/ i3 s) M" U& l1 v- ^& h! |

　　345.66,238.65

( x; k9 T8 J: o2 u: _4 \5 G ; V5 \6 z( ~; ?( Y3 w6 G4 ?+ [

　　213.45,124.56

/ |" K1 ]% p+ B/ ?; ]

　　128.44,235.66

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

B! F& f0 y3 s% ^3 ?# J

　　(2)利用LSP程序

" G8 Z0 N. F. R. V& q4 @6 O

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

, ~* u/ W% N4 W! N+ p& }1 P % H8 Y1 p- {- f4 Z% }6 l

　　“曲线1”

　　213.45,124.56

3 l) Y+ D% T( i" Z& ^+ H, ^0 t6 W : H4 L1 ]! U# n; w* m$ q+ I o

　　128.44,235.66

- c' @+ m K$ R- N7 Y" F/ m& t" s / |! t8 f* E; o

　　345.66,231.78

, i* I4 j8 m' V7 F! [" S% S9 x/ n 4 o! r8 ?6 k: b x& }

　　“曲线2”

　　433.34,567.23

　　434.12,464.12

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

) F* o: }! m! [. \

　　(defun C:drline()

" Y, n% r# D9 d. c4 G6 a

　　(if fn

p2 O# C( p4 e" ?% n3 }" f

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

6 I+ F I( ~. ~$ e

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

' L* p( r6 v6 v

　　)

' H* {) \. I4 i

　　(setq f (open fn "r"))

5 u& I. R. d2 k. ]

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

" @# d/ r4 k$ J+ i % ^3 y; @- S/ T

　　(setq bz 0 mm 1)

　　(command "pline")

' D7 }' ? g+ E) [

　　(while (/= bz 1)

3 p# O; ~ V; X4 X7 D3 o. L

　　(setq md (read-line f))

, E. n- m% C, c% S. n* u

　　(if (/= md nil)

( ^7 x/ L9 v+ }4 Q1 d! }

　　(setq zbb (read md))

4 a4 ^; o) U& @! z6 c, }. R

　　(setq bz 1)

　　)

) O+ a( X0 I* | \ , c+ ~. o* Z, a2 f' B" l' o

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

% K) y- F& K. ?9 s; E' Y

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

1 \) t( [* v) I) a, k1 m 5 ]9 z0 D. A9 t( r: G% P0 m

　　(+ dy (cadr p0)))

　　)

　　(command p1)

* n3 e7 n: Q) s1 q: ?6 e ) t: ?. V- |1 r- i( K

　　(setq mm (1+ mm))

　　)

0 p8 O" ]2 _$ @% K 8 d+ L; t4 ?" L3 A5 T

　　(command "")

　　(close f)

% ~% C u: L4 x& w6 q

　　)

) u( h8 V" q8 L7 V

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

/ W/ o. M5 c* ]0 S 6 C. ^9 y# S0 Z& S) k