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

HEATS

　　1概述

1 C* B# G: H3 j J) b# J* |, P

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

* U% V l) @9 J" p& b' I Z5 P

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

0 B; A# L2 Q X/ N- ]

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

5 Y/ u" z' R3 a2 I

　　2应用实例

: w9 ]1 _/ b& | M* i( s 9 w# U9 B( K; M4 g, H3 u4 g

　　2 .1坐标画线

. z6 }" g" q r3 l \' r8 g2 N2 ` 9 F. C8 v( |" G8 u$ `, K

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

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

X* s3 h1 o0 ~* W! R+ Y

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

6 v) \$ D+ c5 N( I( a

　　Pline

. W& }; Q' y. X, Y, `* y+ a+ d3 q5 r ! D. @8 r/ ` b: c9 m; m; E7 E

　　345.66,238.65

: x. a! ~ `# r) |; D$ W" E , S: r9 w$ W4 @) L5 o* S' v" Z

　　213.45,124.56

' A3 R5 a8 [" Q+ j% S+ b. D

　　128.44,235.66

3 j/ a& {( i; O; i : o0 v5 W8 f8 K$ M4 b# _7 O* C C

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

　　(2)利用LSP程序

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

4 Y# B6 c0 `$ }: _1 e8 H

　　“曲线1”

: B; o: U$ X, i& X

　　213.45,124.56

, f, L# H& H, P! X

　　128.44,235.66

8 P5 n+ i( t2 h2 ?1 ~6 X- W

　　345.66,231.78

7 j* y8 [: m' R5 }+ z1 D; q / u0 S* B# @2 n; _& s8 j

　　“曲线2”

. T8 ]% x6 b# y3 d, s

　　433.34,567.23

; Z5 a8 J2 m2 \4 u# @: R/ ]

　　434.12,464.12

* @. _+ ?. r" k

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

. W/ i0 G0 u6 g$ X

　　(defun C:drline()

5 `/ w! c0 ]: p2 ] % G) g2 ~4 n8 Y% C) ^: L- O

　　(if fn

: |! P8 N4 _2 n- T# `& l

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

4 M& e% o+ n6 I, w8 C& @9 ]) ]8 V ( E; Q' W4 f6 c3 k6 a

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

　　)

　　(setq f (open fn "r"))

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

; o+ k, o4 d& M: s: t

　　(setq bz 0 mm 1)

& {; @8 k- l/ }+ Y& D# W" C! i 5 {9 i5 C7 k5 ^) H( g# V. Y0 N. H

　　(command "pline")

g; [/ E Z* e& m

　　(while (/= bz 1)

) m7 S/ ?8 l5 a4 ]$ c9 j _

　　(setq md (read-line f))

2 j! |( s [0 |3 c% z* E

　　(if (/= md nil)

8 s9 }2 \) ]6 X1 ^' l' f8 H. c D 4 ^( r# r) g! }" D* k. e

　　(setq zbb (read md))

　　(setq bz 1)

! g" ^9 S2 O; H0 L; O( _ L

　　)

: h: {5 { O- L; n- g " P3 e9 m, _$ V! a" J$ P

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

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

　　(+ dy (cadr p0)))

C2 R4 o9 \+ Z8 Y2 c, W h5 I/ C. g/ c; r* K; |9 L5 o

　　)

$ C& \1 `( e" t" z( |! G R 3 H: t) b0 [9 K- Z! @

　　(command p1)

7 u3 k7 |! H O. h# \

　　(setq mm (1+ mm))

) X) _. B9 U2 v

　　)

1 E3 {$ c) |9 K X1 v

　　(command "")

0 V8 w) q* Z- b9 T- i4 ~% r

　　(close f)

　　)

1 H# P5 P3 U% `1 m) z) @

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

$ a3 g6 W" J1 w' K* M8 V2 E, s' v ) T6 y7 e. h }# k# K! v