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

QQ375930253

　　2 .7应用软件前、后处理
. _: b1 O$ }( z5 V# p7 w0 `　　由于软件升级滞后，一些常用软件后处理功能很弱或没有，可以利用LSP程序结合AutoCAD增加或简化前后处理功能。下面结合平面渗流分析程序STSE软件对其前、后处理功能的实现进行介绍：
　　(1)前处理
　　STSE为平面渗流有限元程序，单元划分和单元、节点编号工作量最大，可以借助其它通用有限元软件的前处理功能如Ansis、Algor、SAP84等进行初步处理，生成单元、节点编号和节点坐标，而后按照STSE数据文件的格式要求对数据文件进行编辑。
6 L- v+ c& M( @  W　　(2)后处理
　　后处理成果主要为：单元网格图，浸润线和等势线。单元网格图中有节点和单元编号，不同渗透系数的单元采用不同的颜色，以便根据网格图直观地判断数据文件中几何参数和材料特性的正误；
　　首先分析STSE的输出结果文件的格式，搜索并筛选其中主要参数如单元总数、节点总数和材料总数，把节点坐标和单元信息分别存储，通过对单元循环生成单元网格图。
　　(defun c:seepmesh()
' z# M5 b  i& G, V! x5 I1 K　　(if fn
# v0 d, l* A% q$ G8 }　　(setq fn (getfiled "渗流结果文件名" fn "" 2))
　　(setq fn (getfiled "渗流结果文件名" "" "" 2)))
　　(setq f (open fn "r"))
& `# h+ l, x/ U5 @  Y: E9 ^7 w　　(setq md (read-line f))
3 j) d' z  `# {3 S! l  G! ^　　(while (/= (substr md 25 8) "单元总数")
! B2 E* v) x. E; K# A2 Z0 m　　(setq md (read-line f))
! i5 r$ g0 R$ ]7 O" ?4 l, d6 G　　)；定位单元总数
. @8 G2 u7 B6 [* v5 J! ^　　(setq dyzs (atoi (substr md 58 5)))；读单元总数
( v$ j# ]2 b* C: B: R# c$ g  E1 n　　(setq md (read-line f))
　　(setq jdzs (atoi (substr md 58 5)))；读节点总数
& \* t) n% V( f7 e+ L! x4 m　　(setq md (read-line f))
  Y9 S: K2 U# J5 r　　(setq clh (atoi (substr md 58 5)))；读材料总数
　　(setq m 0)
　　(repeat clh
　　(setq m (+ 1 m))
5 l  W  j5 K4 w* L, P& x/ q　　(setq tcm (strcat "zclh" (itoa m)))
7 i* G: S1 x' o  T　　(command "layer" "m" tcm "c" (itoa m) tcm "")
1 A7 P3 Z4 Z: |* z' b　　)；按材料种类生成图层名称
# ~1 ^3 l5 r# J# F1 Q: F　　(setq m 0 n 0)
% m# }& E4 M+ M- Z1 }# o　　(repeat dyzs；对单元循环，dycfb中存放单元信息
8 v$ `: _  i6 p' t! k6 j- W　　(setq m (+ m 1))
* J! E( m, Z9 c( X# U' [; R; ?　　(setq clh (nth 0 (nth m dycfb)))
　　(setq jdh1 (nth 1 (nth m dycfb)))
$ ]  w% z7 y* n/ E　　(setq jdh2 (nth 2 (nth m dycfb)))
  k' }" c6 N* k; m8 h# _8 Z　　(setq jdh3 (nth 3 (nth m dycfb)))
　　(setq jdh4 (nth 4 (nth m dycfb)))
　　(command "layer" "s" (strcat "zclh" (itoa clh)) "")
; i2 F( R8 T5 l" l& T% g　　(command "pline"；绘制单元网格
　　(nth jdh1 jdzbb)
　　(nth jdh2 jdzbb)
6 r% S) h( r2 I　　(nth jdh3 jdzbb)
　　(nth jdh4 jdzbb) "c")
. |7 d" u" k( t& Y0 w+ A) k: Y　　(setq bzdzb (mapcar '+ (nth jdh1 jdzbb) (nth jdh2 jdzbb)
　　(nth jdh3 jdzbb) (nth jdh4 jdzbb)))
　　(setq bzdzb (list (/ (car bzdzb) 4.0) (/ (cadr bzdzb) 4.0)))
　　(command "text" "m" bzdzb "0.5" "0" (itoa m))
" v1 S4 W% P$ x# }$ m" h　　；标注单元号
　　(setq m 0)
3 Z! o; L  g. l4 d# D! z) l2 h3 @　　(repeat jdzs
　　(setq m (+ m 1))
8 h$ O& _7 e: v, c+ h2 c6 C7 L　　(setq bzdzb (nth m jdzbb))
2 O6 c& ^: J) ^7 r0 [8 f. R  {　　(setq bzdzb (list (+ (car bzdzb) 0.0) (+ (cadr bzdzb) 0.0)))
　　(command "text" "m" bzdzb "0.5" "0" (itoa m))
　　))；标注节点号
8 k3 U5 v! Z+ j9 m　　(close f)
7 a* C  {5 @) h; b　　)
, ~) E- s- n! E. I8 G　　限于篇幅，等势线和浸润线生成程序不再赘述。同样，对工程设计中遇到的其它软件如：STAB边坡稳定分析、SAP84的输出文件均可进行类似后处理工作。
/ J* q, T( {5 \( E　　3结语
) u- \% N- b: @* \! m& o　　AutoCAD软件应用已经在设计单位普及，VisualLisp的出现对于提高Lisp语言的编程效率和AutoCAD应用水平具有重要意义。本文涉及的几个实例已经在实际工作中发挥很大作用，充分说明在工程设计当中结合本专业要求开发一些简单实用的Lisp小程序可以有效减轻设计人员的劳动强度，使AutoCAD不仅仅是绘图工具，而真正成为设计人员得心应手的高效设计平台。
文章关键词：