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

HEATS

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

; n" p2 O# p# T5 d3 R- g6 H8 W

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

( l* S$ V+ y6 n; B5 J1 v" o8 Y. k/ a

　　(1)前处理

$ r, v; x# F" q5 p 8 `5 U) _* N* p8 i$ e

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

% O: Z; c& \% A

　　(2)后处理

$ L$ D8 g9 l4 O ' t9 r, {1 ~) }4 {0 A7 J

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

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

: l# i, `, P C& g

　　(defun c:seepmesh()

　　(if fn

& a! y: N3 y% y; ?

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

- Q6 z2 q% j% F$ _1 v7 W5 o

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

7 c, f2 ]2 H O! J0 \: @

　　(setq f (open fn "r"))

　　(setq md (read-line f))

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

, A8 c$ C3 {3 f; ?. b

　　(setq md (read-line f))

　　)；定位单元总数

" F5 O9 Z) m: S& o0 E' Q# X% q8 z

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

　　(setq md (read-line f))

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

& w5 g- y& I$ w

　　(setq md (read-line f))

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

( R, t$ G. d c# t$ j7 n% R; l

　　(setq m 0)

! L* }( p# g$ N3 [1 J6 \

　　(repeat clh

3 x; h% p0 C- ^( {" d* _! E

　　(setq m (+ 1 m))

1 Y5 |; W7 H! R# p1 b

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

( d) x- o( k# ^% B) }

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

1 H" C3 o$ Y; @6 P# ]/ j : N& O# Z( U/ r6 ?+ E# T% g# ]

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

　　(setq m 0 n 0)

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

　　(setq m (+ m 1))

- e$ @, h, v- _9 S5 _# l ) W1 c& f `1 @. o

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

! G' L4 C, `, @) Q v$ _5 @

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

. q8 J4 p4 @ h1 F/ \

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

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

$ `5 W9 p) V) l8 h& l: B

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

& ]: s2 d7 }& O0 b1 ?- B$ O

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

& D, w O' |% d" `" h( S6 v

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

. {8 p% `; p$ w6 U9 l2 y" _

　　(nth jdh1 jdzbb)

! o1 D; G. q/ t, n 3 W5 W; l' T/ E. w

　　(nth jdh2 jdzbb)

　　(nth jdh3 jdzbb)

# P( {4 K$ U( C9 e: U: D! v& R$ K

　　(nth jdh4 jdzbb) "c")

5 Q3 r3 D3 }% C: M& E( y* ^3 N

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

8 }; Q- {& O* c( Z* N

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

7 c7 V/ D& H0 L5 r" d' A: J ]/ ?

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

6 D+ s& i! ]6 B6 M9 |1 c / b: C8 `1 g, _$ o) Z

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

5 s+ o) E2 V- g1 D( P' F : ?" y% l9 C5 A* y

　　；标注单元号

. Y [ @1 @7 O

　　(setq m 0)

　　(repeat jdzs

, s: e' s! t+ Q# {

　　(setq m (+ m 1))

; \$ e1 l/ g/ L& \2 G8 ~7 P0 {

　　(setq bzdzb (nth m jdzbb))

8 A/ r$ b6 m; J6 r$ E1 F* l

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

, ^6 m- y1 O; [" e9 K& B

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

' \- V7 C7 ~& z; {* ?* S* F

　　))；标注节点号

0 L" G% M1 V" `9 c3 q

　　(close f)

; \% l H8 e0 z

　　)

" l0 W7 |4 f+ M. d) W

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

1 Q7 H3 K% ?4 y% z, X& T 0 G. ~) P( {) z, x R7 B

　　3结语

, {" P& D) Z0 p* o5 Z

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

+ A* H6 j/ n+ s4 g 2 A5 u+ {3 c) Y& D) h7 L