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

HEATS

　　1概述

: N7 [/ c; Y" v) P* n! Q

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

, q. |' s$ L) o9 N" u' y% H0 f1 U+ h

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

- q* V- }: ?6 V$ |* D) V* {: z

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

0 b5 L! s5 e% y% H+ w% c

　　2应用实例

9 \, g& s+ C$ w9 V

　　2 .1坐标画线

0 u9 l4 y& M p) {- y! z. e7 P

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

" O b A4 G% H l% I 8 c5 ~& ]# q, D2 o

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

$ S5 S u7 M8 f# P$ r* G" S % W/ m) b V9 A- {9 N" C% Z) V

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

! Y9 p3 _8 G" `0 P8 [3 Y2 F& w4 T- g

　　Pline

7 @, ?" S+ p$ Q4 X; H" Q) e # T, t1 E% C; U0 m: W# Z

　　345.66,238.65

8 @( E% K% G# n , b2 f' F3 _" D% G. e, o

　　213.45,124.56

　　128.44,235.66

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

& z, Z2 o( g7 m! l* m. A U) P

　　(2)利用LSP程序

% D2 T/ { j* s

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

: Z) a" a# g& t

　　“曲线1”

& O+ s: t( q+ C" S

　　213.45,124.56

a0 p- u$ s, [ p" r! |8 e 3 H. c2 w: \) l; e5 N; @5 Z

　　128.44,235.66

" p2 v( P3 o$ S- d1 C5 a

　　345.66,231.78

) ]2 {8 i" M6 B/ q% N6 P2 a

　　“曲线2”

5 Q: @& s9 k; t5 U$ x

　　433.34,567.23

3 H* \: E2 J0 j. p0 [; B

　　434.12,464.12

4 {1 F) D/ ^1 W9 F5 p% g 3 L r; T- i) t7 E+ y( A

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

　　(defun C:drline()

　　(if fn

- f8 x, A* }" j2 {( M \

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

7 r$ w$ n, s5 m' S3 R2 f - h6 F) E! u- z$ n

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

　　)

　　(setq f (open fn "r"))

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

　　(setq bz 0 mm 1)

( z" ~. p- _/ m; S% Z$ \+ W$ i% t

　　(command "pline")

2 n5 o8 s* X( @

　　(while (/= bz 1)

8 q) U- B, ]% p' o! R6 j

　　(setq md (read-line f))

　　(if (/= md nil)

# f3 b1 L6 E2 v9 ]! z, T2 r+ c

　　(setq zbb (read md))

$ o% B# Z; f4 ^

　　(setq bz 1)

- s$ l' T& S3 P: l, v 8 T+ f8 v/ t, o

　　)

8 V. x/ m! i- S* X4 M

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

3 m$ i; Z" y( j

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

　　(+ dy (cadr p0)))

) l8 q2 J, C+ @9 M. U 3 ?/ s$ d; V4 Y. |2 W

　　)

5 \ x+ m& L* T, f- d2 A

　　(command p1)

3 @0 n' ^$ G; D5 j( J$ i; n1 x9 R

　　(setq mm (1+ mm))

: [2 P8 l- @4 C: h

　　)

8 ]$ l& B1 ~( x2 W2 J% D; L

　　(command "")

7 t* j' ~1 l+ T' N7 K- p% b

　　(close f)

- W3 p8 w; g" L" h& V, f/ Z/ o3 e

　　)

4 x! d& D. t: s2 L! |, S

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

$ o6 X! l+ r& k3 ?4 m