(if (or (= c "+") (= c "-"))
(setq bgc (substr agc 2))
(setq bgc agc)
)
(setq cgc (atof bgc))
(setq zh (rtos cgc 2 gcws))
(if (or (= c "+") (= c "-"))
(setq zh (strcat c zh)))
(setq x (subst (cons 1 zh) (assoc 1 x) x))
(entmod x)
)
))
))
(setq n (+ n 1)))
)
(defun c:yxws()
(setq e1 (ssget))
(setvar "dimzin" 0)
(setq gcws (getint "保留小数位数:"))
(if e1 (entsgc) (print "/n not found"))
(setq x nil)
)
2 .7 应用软件前、后处理
由于软件升级滞后，一些常用软件后处理功能很弱或没有，可以利用LSP程序结合AutoCAD增加或简化前后处理功能。下面结合平面渗流分析程序STSE软件对其前、后处理功能的实现进行介绍：
（1）前处理
STSE为平面渗流有限元程序，单元划分和单元、节点编号工作量最大，可以借助其它通用有限元软件的前处理功能如Ansis、Algor、SAP84等进行初步处理，生成单元、节点编号和节点坐标，而后按照STSE数据文件的格式要求对数据文件进行编辑。
（2）后处理
后处理成果主要为：单元网格图，浸润线和等势线。单元网格图中有节点和单元编号，不同渗透系数的单元采用不同的颜色，以便根据网格图直观地判断数据文件中几何参数和材料特性的正误；
首先分析STSE的输出结果文件的格式，搜索并筛选其中主要参数如单元总数、节点总数和材料总数，把节点坐标和单元信息分别存储，通过对单元循环生成单元网格图。
(defun c:seepmesh()
(if fn
(setq fn (getfiled "渗流结果文件名" fn "" 2))
(setq fn (getfiled "渗流结果文件名" "" "" 2)))
(setq f (open fn "r"))
(setq md (read-line f))
(while (/= (substr md 25 8) "单元总数")
(setq md (read-line f))
)；定位单元总数
(setq dyzs (atoi (substr md 58 5)))；读单元总数
(setq md (read-line f))
(setq jdzs (atoi (substr md 58 5)))；读节点总数
(setq md (read-line f))
(setq clh (atoi (substr md 58 5)))；读材料总数
(setq m 0)
(repeat clh
(setq m (+ 1 m))
(setq tcm (strcat "zclh" (itoa m)))
(command "layer" "m" tcm "c" (itoa m) tcm "")
)；按材料种类生成图层名称
(setq m 0 n 0)
(repeat dyzs；对单元循环，dycfb中存放单元信息
(setq m (+ m 1))
(setq clh (nth 0 (nth m dycfb)))
(setq jdh1 (nth 1 (nth m dycfb)))
(setq jdh2 (nth 2 (nth m dycfb)))
(setq jdh3 (nth 3 (nth m dycfb)))
(setq jdh4 (nth 4 (nth m dycfb)))
(command "layer" "s" (strcat "zclh" (itoa clh)) "")
(command "pline"；绘制单元网格
(nth jdh1 jdzbb)
(nth jdh2 jdzbb)
(nth jdh3 jdzbb)
