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

核心提示： 2 .6 高程小数位数处理尺寸标注小数位数很容易调整，但诸如高程、表格中数字要调整则很困难，基于组件的三维CAD系统开发的关键技术研究(6)，借助LSP程序的调整很方便，只要选取需要调整的数字，(defun entsgc()(setq n 0)(setq sh (sslength e1))

2 .6 高程小数位数处理

尺寸标注小数位数很容易调整，但诸如高程、表格中数字要调整则很困难，借助LSP程序的调整很方便，只要选取需要调整的数字，根据提示输入需要保留的小数位数，则程序自动对所有选种数字进行修改。

(defun entsgc()
(setq n 0)
(setq sh (sslength e1))
(while (< n sh) (setq x (entget (ssname e1 n)))
(if (= (fld 0 x) "TEXT")
　(progn
　 (setq agc (fld 1 x))
　 (setq c (substr agc 1 1))
　 (if (or (= c "+") (= c "-") (and (>= c "0") (<= c "9")))
　 (progn
　　 (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软件对其前、后处理功能的实现进行介绍：