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

HEATS

　　1概述

5 c* p' E( k5 L5 ^8 x. O . C" l" j8 o- c T9 J

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

. y3 U# E4 a, m% ?) X7 w

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

( |" A; e1 b5 g0 N* P

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

　　2应用实例

) _3 F5 `( V$ ]$ S$ X3 h: Z( r N

　　2 .1坐标画线

5 h" b/ ]$ g) t2 a5 O9 _! B8 ?

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

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

0 Y6 P8 n u, A. z A: Z d* ^

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

2 ^$ t' `5 J- {& |, ^ 9 i b& F! ]5 u& s; ~5 K

　　Pline

　　345.66,238.65

i: ]' j5 I; V- v! E" Z" ~1 C

　　213.45,124.56

, L+ q- ^) m8 c; W6 H8 N

　　128.44,235.66

: g k2 q* P `2 h4 n3 M

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

+ B0 T% ^8 p( L' F! | 2 w8 x* P) x. W& a7 x0 T: Z7 }

　　(2)利用LSP程序

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

　　“曲线1”

4 V+ E2 }" y' K4 N/ G0 h

　　213.45,124.56

　　128.44,235.66

4 y6 Q( t" J8 n7 @) V5 ?3 C3 o; V5 h 3 u8 I( B$ p8 X3 D1 h$ @

　　345.66,231.78

. P" g1 L0 v9 G' Z

　　“曲线2”

! ?2 a* w1 u; {8 n- q- I# n! i

　　433.34,567.23

9 m U$ Y: @# x1 x* c ( _* a3 U; H& h4 @' ^

　　434.12,464.12

+ m4 R/ ^) Z- o! H/ ]# W

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

* C5 O7 a1 g* S- @

　　(defun C:drline()

　　(if fn

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

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

. N: h( B: c6 }0 L

　　)

) [; I( |. u- z3 q& Y% J ; A8 v# Q b2 Z, w5 p" {/ M

　　(setq f (open fn "r"))

% _6 {7 g P% ?. E p & o. h9 v- d0 n5 }; h/ [& H

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

1 o3 Y9 u9 u; I) v* L

　　(setq bz 0 mm 1)

　　(command "pline")

6 W4 f- W7 P a0 r+ H/ C6 Y9 b- i

　　(while (/= bz 1)

5 _; X" l0 R" ^9 ~$ S. z

　　(setq md (read-line f))

* W: t; ^6 e9 [. P3 l" V

　　(if (/= md nil)

; G3 V/ C0 t2 g% Y1 a/ x3 U! f

　　(setq zbb (read md))

　　(setq bz 1)

9 k7 M3 n4 S8 i6 x8 t" f

　　)

g& F7 i. B8 z |

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

0 R1 X6 @! l. ~) a

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

5 N( J4 S) _# ?* _- \% e

　　(+ dy (cadr p0)))

7 a$ \- y9 F7 ]! N( p( @ , o- \: [: c# \5 E3 a$ U3 N( d

　　)

' M+ ?! A% c1 Y7 ]6 r 9 w4 U) j1 D' p* ~; g

　　(command p1)

) l$ D, W5 @" T4 ^! V* q 3 v' _/ K/ m+ \! K1 R/ H' M3 V0 v

　　(setq mm (1+ mm))

- x) C% i2 |! Q6 i4 z9 ?

　　)

2 {$ v9 K6 D, s7 i4 Z h5 C

　　(command "")

: b( G- V# S- H$ {- p0 f% b

　　(close f)

' M1 ]3 E2 w% |; F

　　)

+ N& M2 Z C. D/ [7 j

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

5 `( w2 k$ g1 z, _' y% u , Z9 U' M/ f- `. m8 |2 J: r