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

HEATS

　　1概述

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

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

$ d8 |5 j7 ] E$ `1 `, Q 9 e: ~6 N* A) ~6 b

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

8 [2 `* J. I9 D

　　2应用实例

9 O2 ~. \! s" q, X0 f $ c1 f- n- r& d' V( r) l. T

　　2 .1坐标画线

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

/ ^# \- g- I# Z2 X 2 I! v6 F. @! a7 ~

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

4 \& S; d' w& }$ {5 @& D . G+ _! P) {$ u" l" o9 N6 Y* y7 H! ]

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

: |' [( ?4 u, G; I: @ T4 t6 V3 i7 S2 A

　　Pline

- e, S3 Z. Q+ B; m( T

　　345.66,238.65

1 _8 p, K/ g2 m1 m/ m8 e7 Q- B 3 @" w: t1 }$ s% R: O: @& ^6 U) N

　　213.45,124.56

　　128.44,235.66

( h- [* m# n( l0 G2 E) O

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

5 C0 [9 t' ^ `% m, D; Z

　　(2)利用LSP程序

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

　　“曲线1”

1 }6 M6 v# @* {( S! ]

　　213.45,124.56

: h. ]1 ^% e5 P" d, ]

　　128.44,235.66

/ }. ?+ ~$ h: E% L

　　345.66,231.78

　　“曲线2”

　　433.34,567.23

F3 U+ q) q0 e( I

　　434.12,464.12

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

& ~8 p ?2 _5 V$ t3 x

　　(defun C:drline()

' h) P2 X4 K* V ) s* I# T8 [3 A$ S7 t5 K

　　(if fn

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

# s# I8 V' E4 Q+ z5 n

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

　　)

) f* X i" E; R

　　(setq f (open fn "r"))

: @, K5 a6 [; b- B; E9 g

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

8 R" B# l5 h7 D. c

　　(setq bz 0 mm 1)

8 _- o% K( I7 ~+ T, W) Z Q" _; {' m. P

　　(command "pline")

& O2 W( v* I3 \

　　(while (/= bz 1)

$ D' e, B2 ?& T: r/ D: m 4 M% f3 O% D0 I$ z$ ~, I0 j8 u

　　(setq md (read-line f))

5 l# Q3 Q8 O3 u3 Q

　　(if (/= md nil)

2 q- U8 h5 @/ M4 p2 ? f" |" \

　　(setq zbb (read md))

( B q) s( k; {9 {% g 8 T5 [9 f8 ^9 Z4 n; P6 @) D

　　(setq bz 1)

　　)

! ?3 H- _/ m4 |% @6 s+ g! p

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

4 k6 F) u. ?- X

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

: X" U' E# ^( B& ?; m1 l2 i

　　(+ dy (cadr p0)))

9 v1 S% S- z$ }( ]/ h( I ( A7 P% @0 _; ~, V; i

　　)

4 ?/ L! u/ A6 z

　　(command p1)

! A$ E& ^4 O6 V* b

　　(setq mm (1+ mm))

7 e! X, W1 R* n) Q

　　)

* L0 J( l) |0 b' d1 C. J

　　(command "")

8 \1 o: f/ s' |' r$ j4 M. L t; S0 D

　　(close f)

; B2 e; Z1 l ]: x/ j& W 9 I i6 a( k' x

　　)

7 r" M" m+ }9 E; i; M$ C( ^ ; X5 [$ l/ K. B' n, g* z+ R5 X. o' M

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

# I5 B' w" l! k! W ! K M) D2 k: G' A C, Y! J