CAD在水利水电工程中的应用Word文档格式.docx
- 文档编号:14984238
- 上传时间:2022-10-26
- 格式:DOCX
- 页数:14
- 大小:23.81KB
CAD在水利水电工程中的应用Word文档格式.docx
《CAD在水利水电工程中的应用Word文档格式.docx》由会员分享,可在线阅读,更多相关《CAD在水利水电工程中的应用Word文档格式.docx(14页珍藏版)》请在冰豆网上搜索。
对于测量常用的起点距-高程形式的数据,也可以利用EXCEL转化成坐标点形式。
(1)利用脚本文件(.SCR)
利用任何文本编辑器如Note、Uedit、Word、Excel等建立纯文本文件EX1.SCR,注意文本文件后缀必须为.SCR,坐标之间用半角逗号分开,文件中不允许出现空格,文件最后一行必须为空回车。
文件建立时,可以直接把EXCEL或其他文件中的坐标表利用拷贝、粘贴功能加入脚本文件中。
Pline
345.66,238.65
213.45,124.56
128.44,235.66
文件保存后,执行AutoCAD中“工具”下的“运行脚本”,在显示的窗口中查找并选中EX1.SCR,屏幕上会立即显示所绘线条。
(2)利用LSP程序
建立坐标表文件EX2.DAT,后缀任意,可以依次输入多段曲线,中间用曲线名称分开,程序自动绘制多条曲线并可标注坐标表。
“曲线1”
345.66,231.78
“曲线2”
433.34,567.23
434.12,464.12
利用AutoCAD中“工具”菜单下的“VisulLisp编辑器”建立DRLINE.LSP文件如下
(defunC:
drline()
(iffn
(setqfn(getfiled"
坐标点文件名"
fn"
"
2))
"
)
(setqf(openfn"
r"
))
(setqp0(getpoint"
n画线起点:
(setqbz0mm1)
(command"
pline"
(while(/=bz1)
(setqmd(read-linef))
(if(/=mdnil)
(setqzbb(readmd))
(setqbz1)
(setqdx(carzbb)dy(cadrzbb))
(setqp1(list(+dx(carp0))
(+dy(cadrp0)))
(commandp1)
(setqmm(1+mm))
(closef)
)
文件存盘后,加载运行,相当于新增加了坐标画线命令DRLINE,按提示选中存放坐标表的文件即可实现自动绘制曲线。
2.2地形切剖面
水电工程设计中经常遇到在地形图上切剖面的问题,借助VisualLisp可以实现快速切剖面。
(1)
初始地形图处理
把带z坐标的地形平面图进行变换,变换后z坐标值成为层名,为加快切剖面运行速度,把“LWPOLYLINE”和”SPLINE”均转化为”LINE“线,程序如下
(defunc:
pltol()
;
LWPOLYLINE转化为LINE
(setqn0)
(setqe(ssget"
X"
(list(cons0"
LWPOLYLINE"
))))
(setqsh(sslengthe))
(ife
(while(<
nsh)
(setqe1(ssnameen))
pedit"
e1"
d"
(setqx(entgete1))
(setqngc(atof(setqla(fld8x))))
explode"
e1)
(setqn(+n1))
)))
(defunfld(numlst)
(cdr(assocnumlst))
spltol()
SPLINE转化为LINE
(setqe(ssget"
SPLINE"
(setqx(entget(setqe1(ssnameen))))
(setqnla(itoa(fix(caddr(fld10x)))))
(if(=(fld0x)"
(progn
layer"
n"
nla"
c"
6"
nla"
s"
(command"
line"
(setq
nm
(lengthx)
dzs
(fld73x)
dzs1(fld74x))
(while(>
nm5)
(if
(=(car(nthnmx))10)
(progn
(setqb1(nthnmx))
(setqx1(cadrb1))
(setqy1(caddrb1))
(setqz1(cadddrb1))
(setqglb(listx1y1))
(commandglb)
))
(setqnm(-nm1))
)))
)))
(2)切剖面
输入剖面编号,在平面地形图上指定两点确定剖面剖切线位置,指定剖面图起点,利用AutoCAD的inters函数搜索剖切线与地形图的全部交点,自动计算交点坐标,计算交点与剖面位置起点的距离,按各交点高程和与起点的距离形成剖面图各点坐标,即可用本文实例1坐标画线生成地形图的剖面。
(defundxtent1()
(setqn0xdzbnil)
(setqxds0)
(setqsh(sslengthe1))
(setqx(entget(ssnamee1n)))
LINE"
(setqdxtgcgc(fld8x))
(setqdxtgcgc(atoidxtgcgc))
(if(>
dxtgcgc10)
(setqpst(fld10x))
(setqpet(fld11x))
(setqzb(listgc
(list(carpst)(cadrpst))
(list(carpet)(cadrpet))
(setqxdzb(conszbxdzb))
(setqxds(+xds1))
dxtsec
()
(setqpmh(+pmh1))
(setqpmh(getstring"
n剖面号"
(setqpt1(getpoint"
n剖切位置起点:
(setqpt2(getpointpt1"
n剖切位置终点:
(setqpt3(getpoint"
n剖面图布置:
(setqp01pt3)
(setqe1(ssget"
F"
(listpt1pt2)));
利用AutoCAD的目标选择“F”方式选取与剖切线相交的地形线。
(dxtent);
获取与剖切线相交地形线的坐标
(setqmxgc-100)
(setqmngc10000)
(setqm0pmpnil)
(setqnxdsi0)
in)
(setqcrosp
(interspt1pt2(nth1(nthixdzb))(nth2(nthixdzb))1)
);
求剖切线与地形线的交点
(if(/=crospnil)
(setqdxtgcgc(nth0(nthixdzb)))
(setqmxgc(maxmxgcdxtgcgc))
(setqmngc(minmngcdxtgcgc))
(setqdst(distancept1crosp));
剖切线起点与交点的距离
(setqdst(*(/blczdxthtbl)dst))
(setqpmp(cons(listmdstdxtgcgc)pmp))
(setqm(+m1))
(setqi(+i1))
2.3沿曲线标注
在设计中会遇到沿给定曲线进行标注问题,如平面布置图中的开挖线符号沿开挖轮廓的标注,剖面图中岩石符号沿轮廓线标注、点筋标注、沿任意曲线进行汉字标注等。
此类问题主要应用AutoCAD的Measure或divide命令来解决。
两个命令的主要差别是前者按指定的长度在曲线上标注,后者按给定的分段数等分曲线并在等分点处进行标注。
要标注的轮廓曲线最好用pline线,要标注的符号预先做成图块,图块采用单位块,执行measure或divide命令,选取要标注的曲线,指定标注符号,分段长度或分段数即可完成标
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- CAD 水利水电工程 中的 应用