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

HEATS

　　2 .7应用软件前、后处理

　　由于软件升级滞后，一些常用软件后处理功能很弱或没有，可以利用LSP程序结合AutoCAD增加或简化前后处理功能。下面结合平面渗流分析程序STSE软件对其前、后处理功能的实现进行介绍：

A* ^$ y8 ~9 N1 t! B! E1 A& j. C

　　(1)前处理

5 V8 ^0 O2 X) J) V) P - n$ J( C- T+ u d2 j

　　STSE为平面渗流有限元程序，单元划分和单元、节点编号工作量最大，可以借助其它通用有限元软件的前处理功能如Ansis、Algor、SAP84等进行初步处理，生成单元、节点编号和节点坐标，而后按照STSE数据文件的格式要求对数据文件进行编辑。

3 @; `! b D4 {7 f! O

　　(2)后处理

/ l5 Z. G8 R6 F

　　后处理成果主要为：单元网格图，浸润线和等势线。单元网格图中有节点和单元编号，不同渗透系数的单元采用不同的颜色，以便根据网格图直观地判断数据文件中几何参数和材料特性的正误；

7 o9 l' y; f$ u/ r 5 h7 H+ U( v' ^' v7 u! c& q7 M

　　首先分析STSE的输出结果文件的格式，搜索并筛选其中主要参数如单元总数、节点总数和材料总数，把节点坐标和单元信息分别存储，通过对单元循环生成单元网格图。

　　(defun c:seepmesh()

, v1 E* ~5 B% T* O |( ]: r

　　(if fn

+ t- {- D- H$ W a

　　(setq fn (getfiled "渗流结果文件名" fn "" 2))

# W' ^8 v. S6 l' u; P1 t

　　(setq fn (getfiled "渗流结果文件名" "" "" 2)))

1 h% Y( Y& }" q% p

　　(setq f (open fn "r"))

　　(setq md (read-line f))

9 E; O2 P* ~) T+ E4 u/ o

　　(while (/= (substr md 25 8) "单元总数")

# W+ v- w# b+ c& W! l. ?, Q+ c

　　(setq md (read-line f))

! a6 o; H. \7 e5 m

　　)；定位单元总数

3 k, _1 G4 N( K: q0 G4 \: u

　　(setq dyzs (atoi (substr md 58 5)))；读单元总数

4 p3 H5 C A: z; ^ s

　　(setq md (read-line f))

, } U0 e4 c2 V% \

　　(setq jdzs (atoi (substr md 58 5)))；读节点总数

　　(setq md (read-line f))

+ v& K) g: a5 b7 c% m2 w ' L( l2 M' r! w" v( G1 g2 G

　　(setq clh (atoi (substr md 58 5)))；读材料总数

: v( P/ I# M9 u: y

　　(setq m 0)

" X4 m+ o+ V, g% d& Z o 0 j6 b. i2 r- m7 P* s; A, \7 H3 C& n

　　(repeat clh

4 N: U: p. s9 r

　　(setq m (+ 1 m))

5 C3 B8 [% |" J1 y+ ^1 j0 X9 ^8 }

　　(setq tcm (strcat "zclh" (itoa m)))

　　(command "layer" "m" tcm "c" (itoa m) tcm "")

: A7 y( H) Q% O9 \

　　)；按材料种类生成图层名称

2 n* G/ E. \# k7 _; | 6 M0 X9 G' E$ Z; i Z& b

　　(setq m 0 n 0)

, p! a; A( l% ~/ V. R2 l! ~

　　(repeat dyzs；对单元循环，dycfb中存放单元信息

, D9 Z4 K7 ~ x

　　(setq m (+ m 1))

8 A1 K% k. H) g/ k/ [ {

　　(setq clh (nth 0 (nth m dycfb)))

& N3 X. V" B8 `- d9 L4 Z9 s" f6 s b

　　(setq jdh1 (nth 1 (nth m dycfb)))

. S" ~* n( a% N/ J

　　(setq jdh2 (nth 2 (nth m dycfb)))

　　(setq jdh3 (nth 3 (nth m dycfb)))

9 g/ }, P5 S7 G. l$ b# {

　　(setq jdh4 (nth 4 (nth m dycfb)))

　　(command "layer" "s" (strcat "zclh" (itoa clh)) "")

5 h2 D, t F$ S 0 f6 ?' a& Y& v/ b8 ]

　　(command "pline"；绘制单元网格

- Q. c8 Q( n" D$ {" K: U) l1 [

　　(nth jdh1 jdzbb)

- W# T; @/ L1 z, V

　　(nth jdh2 jdzbb)

- f- X0 f* O4 [ * ?: w# |0 \7 ` _1 A

　　(nth jdh3 jdzbb)

4 W# j2 p5 S S; O

　　(nth jdh4 jdzbb) "c")

# X0 R" ^5 p# L ?5 ~( v6 k. w

　　(setq bzdzb (mapcar '+ (nth jdh1 jdzbb) (nth jdh2 jdzbb)

; i0 W$ O6 M. H6 }! U. u& g1 r

　　(nth jdh3 jdzbb) (nth jdh4 jdzbb)))

- d& C( t, F7 n/ z% {

　　(setq bzdzb (list (/ (car bzdzb) 4.0) (/ (cadr bzdzb) 4.0)))

% ]9 v! ?6 Z1 U1 H9 \8 k

　　(command "text" "m" bzdzb "0.5" "0" (itoa m))

M; h( n2 W! ?- l. O$ K+ F C3 H& r0 m H2 F' G' p' {% U

　　；标注单元号

9 I' X" R+ ~$ j1 J' ]& S6 x

　　(setq m 0)

6 X/ f% I2 M4 C' d o' l6 f1 a

　　(repeat jdzs

% C, \6 I- ?; \3 @: } ; G8 Z d/ n- k' N% w

　　(setq m (+ m 1))

3 D- r2 t& O7 [ R8 C4 K " k7 K# Q3 s4 [: u: }

　　(setq bzdzb (nth m jdzbb))

　　(setq bzdzb (list (+ (car bzdzb) 0.0) (+ (cadr bzdzb) 0.0)))

& e; }" h1 k! T' }/ z8 A 9 h6 D/ O8 B9 R& n. i; Y/ z

　　(command "text" "m" bzdzb "0.5" "0" (itoa m))

　　))；标注节点号

　　(close f)

. o6 m' @: I" v" M& b2 [* n* R

　　)

; L, ]- d( h1 t, k! S, G3 {

　　限于篇幅，等势线和浸润线生成程序不再赘述。同样，对工程设计中遇到的其它软件如：STAB边坡稳定分析、SAP84的输出文件均可进行类似后处理工作。

　　3结语

　　AutoCAD软件应用已经在设计单位普及，VisualLisp的出现对于提高Lisp语言的编程效率和AutoCAD应用水平具有重要意义。本文涉及的几个实例已经在实际工作中发挥很大作用，充分说明在工程设计当中结合本专业要求开发一些简单实用的Lisp小程序可以有效减轻设计人员的劳动强度，使AutoCAD不仅仅是绘图工具，而真正成为设计人员得心应手的高效设计平台。

* u3 W6 y8 G4 {7 h* L. @ , x4 w0 V. ]) v& P2 q' R