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

lixin82741343

　　1概述
- u, [2 X; {. \# W# W　　美国Autodesk公司开发的AutoCAD系统自1982年推出以来，以其使用方便、功能强大和系统开放性一直独领风骚。成为各工程领域首选的CAD系统。
9 u5 n2 @6 z5 b$ X( ~　　水利水电工程领域利用AutoCAD平台进行二次开发也取得了一系列成果，如90年代以来陆续开发的水电站地面厂房CAD系统、重力坝CAD系统、隧洞CAD系统、水机油汽水CAD系统、地质柱状图CAD等均取得了较好的应用效果。但水电工程设计的复杂性决定了任何现成的CAD软件都有其局限性，设计过程中许多问题还只能用原始的方法解决。本文通过几个实例对AutoCAD二次开发常用的Lisp语言在水电工程设计中的应用进行了初步探讨，希望能够起到抛砖引玉的作用。
　　VisualLisp语言是AutoCADR14版本以后提供的全新的开发环境，是嵌于AutoCAD内部，将Lisp语言与AutoCAD相结合的产物，是一种智能型语言。利用AutoLisp可以灵活方便地增加AutoCAD新命令，几乎无限地扩展AutoCAD新功能，
　　2应用实例
; |' r- `+ p& I4 B, v; L9 V　　2 .1坐标画线
( W, {; f4 M: q. _  }3 s" Z* f6 G. u　　利用已知坐标点画线是设计工作中经常遇到的问题，如河道、堤防等实测断面、水位流量关系曲线、堰面曲线等数据的处理，均可归结为坐标画线问题。对于堰面曲线等有函数方程的曲线可以利用EXCEL按照期望的步长自动生成一系列坐标点。对于测量常用的起点距-高程形式的数据，也可以利用EXCEL转化成坐标点形式。
　　(1)利用脚本文件(.SCR)
2 j, x7 z/ \  h* E/ j　　利用任何文本编辑器如Note、Uedit、Word、Excel等建立纯文本文件EX1.SCR，注意文本文件后缀必须为.SCR,坐标之间用半角逗号分开，文件中不允许出现空格，文件最后一行必须为空回车。文件建立时，可以直接把EXCEL或其他文件中的坐标表利用拷贝、粘贴功能加入脚本文件中。
　　Pline
5 [4 h% X9 _; y, w! V5 p& [, D　　345.66,238.65
5 X& P* w$ _8 x5 w% ]8 R) L3 Z# a　　213.45,124.56
　　128.44,235.66
　　文件保存后，执行AutoCAD中“工具”下的“运行脚本”，在显示的窗口中查找并选中EX1.SCR，屏幕上会立即显示所绘线条。
　　(2)利用LSP程序
% }9 }% O+ w+ N9 V- G　　建立坐标表文件EX2.DAT，后缀任意，可以依次输入多段曲线，中间用曲线名称分开，程序自动绘制多条曲线并可标注坐标表。
2 o2 {6 Q4 t9 K* \: \" I  t# Q8 w　　“曲线1”
) P# [; [% M& s4 a4 V　　213.45,124.56
2 K; G- N& f% [2 _+ u: {4 ~' {9 y) M　　128.44,235.66
　　345.66,231.78
: z! }4 d& `3 r* ?; m　　“曲线2”
0 g2 \- @0 t$ m/ l2 v* s3 z　　433.34,567.23
　　434.12,464.12
$ @; j/ P* C) {  ^　　利用AutoCAD中“工具”菜单下的“VisulLisp编辑器”建立DRLINE.LSP文件如下
8 z6 P" ^+ d, R* k  X8 Q　　(defun C:drline()
/ h8 i; X. w) V7 O: a+ {' M　　(if fn
　　(setq fn (getfiled "坐标点文件名" fn "" 2))
3 n5 ^5 O# O4 O　　(setq fn (getfiled "坐标点文件名" "" "" 2))
7 G2 C# q6 v6 s. l　　)
* S& Z. _, D3 M/ ]# v　　(setq f (open fn "r"))
6 N% Q' u. @1 |: K& W　　(setq p0 (getpoint "/n画线起点:"))
9 g* ]" g/ }$ ^3 U5 d　　(setq bz 0 mm 1)
$ z# t) ^% s/ t  D+ |# x: g　　(command "pline")
　　(while (/= bz 1)
　　(setq md (read-line f))
+ k5 f, ^- l& H  @- H: Q. H5 _, B! ?# f　　(if (/= md nil)
5 o% U! O- i$ i3 B% E1 g4 l* o　　(setq zbb (read md))
- e! s7 [) d9 M3 }1 S& O　　(setq bz 1)
* _5 u/ [6 k$ B- \& G! Y. C" b　　)
% b+ w" G9 j, z5 \: y　　(setq dx (car zbb) dy (cadr zbb))
　　(setq p1 (list (+ dx (car p0))
　　(+ dy (cadr p0)))
: T7 @3 \9 M8 ]6 y( I6 y) }$ P　　)
　　(command p1)
; W  o( X' e0 E- l) w6 c　　(setq mm (1+ mm))
　　)
% O$ d- L9 U  |- g# A$ G! Z　　(command "")
5 k6 ^3 }, W2 ^* ], _　　(close f)
　　)
4 d% t0 w% j/ G; x, D$ ^　　文件存盘后，加载运行，相当于新增加了坐标画线命令DRLINE，按提示选中存放坐标表的文件即可实现自动绘制曲线。
文章关键词：