首页 >> 切断机

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

2022-09-09 18:48:55

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

CAD技术在水利水电工程中的应用(2) 2011年12月09日来源： 2 .4 表格生成

AutoCAD本身没有表格处理功能，设计图纸中工程量表、钢筋表等涉及到表格生成的问题可以采用以下方法处理：

（1）直接把Word或Excel文件中的表格直接粘贴到CAD图形中，修改时只要双击图中的表格即可进入Word或Excel中进行编辑修改，修改完成后退出即可返回到AutoCAD中继续进行设计，该法优点是方便，快捷，易于掌握，可以充分利用Excel的强大计算功能。缺点是表格在AutoCAD中并不是一个普通图元，无法利用CAD功能对表格的字高、颜色和线宽进行编辑。

（2）编制LSP程序，依次输入表格标题、表格行数、表格列数、表格行高和列宽以及表格插入点等参数，可以自动生成表格，表格中已经按仿Excel形式填入了文字，可以用字处理软件对表格中文字进行编辑修改。

(defun C:mtab()

(setq tb1 nil tb2 nil tb3 nil)

(setq rows (getint "表格行数"))

(setq cols (getint "表格列数"))

(setq rowh (getreal "行高"))

(setq colw (getreal "列宽"))

(setq p1 (getpoint "\n表格左上角点位置:"))

(command "pline" p1 "w" "0.5" "0.5"

(setq p2 (list (+ (car p1) (* cols colw)) (cadr p1)))

(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")))