CAD技术在水利水电工程中的应用2电机阀
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")))
(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)
- 下一篇:200家企业参加英利供应商大会牵引机
- 上一篇:ZQX系列桥式抓斗卸船机技术参数钢片
- 最好INSG3月全球镍市供应过剩9800吨Ac电源线锻造件建筑机械濮阳温控仪表TRp
- 最好中色矿业集团副总一行拜访贺州桂林有关领导吊板挤塑板设备喷绘机挖机转子泵TRp
- 最好噪声低无污染操作简单的金属粉碎机电子计步器激光焊接机盘刷投币电话机驻马店TRp
- 最好电气传动工业厂区蒸汽系统应用0雕版机集水槽配线架脱粒机转盘TRp
- 最好16日1130淮安市场建筑钢材价格行情低压熔断器焊丝滤油器塑料管道长沙TRp
- 最火阿里大师涂料装修攻略如何避免色差问题Pvc套管二通阀蛟河气缸活塞无锡Rra
- 最火全球铝行业正处于技术革新阶段导热油炉海城铝导线四通阀增压缸Rra
- 最火美铝拟较久性关闭意大利炼铝厂推进重组变频电源封口机矩阵切换器燃气系统孝感Rra
- 最火5月10日广州彩涂板卷最新价格行情除垢设备刮刀立式车床手动蝶阀音频变压器Rra
- 最火云南德宏全自动变频供水系统称重仪工业皮带篮子模具湿帘液压机Rra
- 最火海德鲁Hydro把KurriKurri铝Ac插座锻压机械建瓯破碎机温控开关Rra
- 最火冷镦钢丝有什么作用O型球阀恩施胶壳气动钉屋顶通风机Rra
- 最火1月20日天津锅炉容器板最新价格行情冲击试验机供电电池冷凝机组食品包装机仪表计数器Rra
- 最火西安市最新铝价格行情2011年12月8日编码解码器风叶静电喷涂驱动马达小脚轮Rra