CAD技术在水利水电工程中的应用

由机电之家行业门户网运行

	\| 首页 \| 业内资讯 \| 设备管理 \| 设备维修 \| 监测诊断 \| 润滑密封 \| 安全生产 \| 专业术语 \| 变频技术 \|
	\| 论坛 \| 学术论文 \| 管理天地 \| 专业培训 \| 会展信息 \| 现代理论 \| 采购中心 \| 资料下载 \| PLC技术 \|

文章下载

最新公告：

没有公告

您现在的位置：设备维修与管理 >> 设备管理 >> 基础管理 >> 维修管理 >> 资讯正文

赞助商

客户服务

如果您有设备方面好的文章或见解,您可以送到我们的投稿信箱
客服电话：0571-87774297
信　箱：88ctv@163.com
我们保证在48小时内回复

设

备

管

理

网

CAD技术在水利水电工程中的应用

作者：佚名文章来源：不详点击数：更新时间：2008-9-24 9:23:30

)
(setq p4 (list (car p2) (- (cadr p2) (* rows rowh))))
(setq p3 (list (car p1) (- (cadr p2) (* rows rowh))))
  "C" )
(setq n 1)
(while (< n rows)；绘水平线表格
   (command "pline" (list (car p1) (- (cadr p1) (* n rowh)))  "w" "0" "0"
   (list (car p2) (- (cadr p2) (* rowh n))) "")
   (setq n (+ n 1))
)
(setq n 1)
(while (< n cols) ；绘垂直表格线
(command "pline" (list (+ (car p1) (* n colw)) (cadr p1)) "w" "0" "0" (list (+ (car p1) (* n colw)) (cadr p3))
   "")
   (setq n (+ n 1))
)
(command "text" "m" (list (+ (car p1) (* 0.5 cols colw))
(+ (cadr p1) 5))  "3" "0" "TITLE" )
(setq n 0)
(while (< n rows)
    (setq m 0)
    (while (< m cols)
      (cond
        ((< m 26) (setq bzstr (chr (+ 65 m))))
        ((>= m 26) (setq bzstr (strcat (chr (+ 64 (/ m 26))) (chr (+ 65 (- m (* 26 (/ m 26))))))))
      )
      (command "text" "m" (list (+ (car p1) (* 0.5 colw) (* m colw))；表格内容标注
      (- (cadr p1) (* 0.5 rowh) (* n rowh)))
      (getvar"TEXTSIZE") "0" (strcat bzstr (itoa (+ n 1))))
      (setq m (+ m 1))
    )
   (setq n (+ n 1))
))

（3）生成钢筋表

钢筋表和材料表生成是施工图设计中比较繁琐的一项工作，很容易出错，此处介绍利用程序进行钢筋表和材料表自动生成的方法。利用造字程序增加I、II级钢筋的直径标注符号和，以后在其它电脑上只要把EUDC.TTE和E

见下表，增加3个命令：生成钢筋表、钢筋表添加和自动生成材料表。

生成钢筋表时按指定表格位置生成钢筋表表头，根据提示输入钢筋编号（可以不连续）、钢筋等级和直径如20、16，交互绘制钢筋简图和标注长度（标注长度可以输入多种形式如50~200表示长度等差变化；30,40,50表示一个编号多个钢筋长度，），钢筋根数，构件组数，程序自动完成表格其余各项（总长度、重量，对于I级钢筋长度中自动计入弯钩长度）的填写，备注栏中自动填入等差变化钢筋的等差值。

采集钢筋表中直径、等级和总长信息，经过自动分类汇总，生成钢筋表的材料表。

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软件对其前、后处理功能的实现进行介绍：

（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)
  (nth jdh4 jdzbb) "c")
  (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))
；标注单元号
  (setq m 0)
  (repeat jdzs
    (setq m (+ m 1))
    (setq bzdzb (nth m jdzbb))
    (setq bzdzb (list (+ (car bzdzb) 0.0) (+ (cadr bzdzb) 0.0)))
    (command "text" "m" bzdzb "0.5" "0" (itoa m))
  ))；标注节点号
(close f)
)

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

3 结语

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

作者简介

耿振云  男  高级工程师中水北方勘测设计研究有限责任公司  天津  300222

上一页 [1] [2]

PLC，机器人编程，变频器，挖机，电气，电子--行业培训比蓝X强...

资讯录入：admin 责任编辑：admin

上一篇资讯：国内外洁净煤技术发展动态

下一篇资讯：黎河四级水电站流道工程施工技术

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）