AUTOCAD计算地质界面产状画剖面示意线程序.pdf

维普资讯 38 2006年 第 4期 总 44期 AutoCAD计算地质界面产状画剖面示意线程序 袁道陇(新疆水利水电勘测设计研究院地质勘察研究所乌鲁木齐830091) 【摘要】本程序可以直接在AutoCAD中只需用短短几秒钟的时间，’完成计算断层在剖面图中的视 倾角：判断出断层倾向与剖面方向的关系；画出断层剖面示意线；标出断层编号和产状． 【关键词】断层 岩层 视倾角 倾向 快速 准确 1前言 我们在画地质剖面图时，经常要画断层。我所见的大部分同仁都是利用计算器或 Excel 电子表格程序计算其视倾角，缺点是不能判断出断层的倾向与剖面方向的关系。而我们在判 断断层倾向与剖面方向的关系时，有时候容易犯简单的、想当然的错误。为了快速、准确地 在剖面图中画断层，本人特编辑出此程序供大家分享。它是直接在AutoCAD中，不借助于其 它程序，只需用短短的几秒钟就能完成计算断层的视倾角，判断出断层倾向与剖面方向的关 系，并画出其剖面示意线，标出断层的编号和产状。 2源程序代码 (defunc：yfapm (／angaangbfanuangcptpttptlpt2pt3osqxakbkefdgyyfa) (se~var cmdecho 0) (setqanga(getreal ＼n请输入剖面方向(度)： )) (setqfanu(getstring ＼n请输入断层编号： )) (setqangb(getreal ＼n请输入断层走向(度)： )) (setqqx(strcase(getstring ＼n请输入断层倾向(NE、NW、SE、SW、N、E、S、w)： ))) (setqangc(getreal ＼n请输入断层倾角(度)： )) (setqyxblfyxb1) (if (nullyxblf) (setqyxblf1000)) (princ ＼n请输入x方向的比例 )(princyxblf)(princ ：) (setqyxbl(getrea1)) (if (nul1yxb1) (setqyxblyxblf)) (setqyyblfyyb1) (if(nullyyblf)(setqyyblf1000)) (princ ＼n请输入Y方向的比例 )(princyyblf)(princ ：) (setqyybl(getrea1)) (if(nullyyb1) (setqyyblyyblf)) (setqpt(getpoint ＼n请指定断层通过点： )) (setqos(getvar osmode)) (setvar osmode 0) (setqak (tan (一90anga))) (setqbk (tan (一90angb))) (setqe (atan (abs(／(一akbk)(1+(车akbk)))))) (setqf(angtos(atan (幸 (abs(sine))(tanangc)(／yxblyyb1)))0lo)) (cond ((=qx N1】『) (setqd (+angb270))) 维普资讯 工程 地 质 计 算 机应 用 2006年 第 4期 总 44期 39 (setqd (+angb90))) (setqd (一angb270))) (setqd (一angb90))) ， ，l ， ， ， 、， ， ，l ， ， ， = ll }l = = II lI(setqd0)) q q q q q q q X X X X X X X (setqd90)) ， ， (setqd180)) }；j 、} 、，