AutoCAD计较地质缸筒界面产状画剖面表示线措施
时间:2017-02-24 10:01来源:天圆网站 作者:admin 点击:
次
1 媒介 我们在画地质剖面图时，常常要画断层。我所见的大部门同仁都是操作计较器或Excel电子表格措施计较其视倾角，弱点是不能判定出断层的倾向与剖面偏向的相关。而我们在判定断层倾向与剖面偏向的相关时，偶然辰轻易犯简朴的、想虽然的错误。为了快速、
(setq angb (getreal "\n请输入断层走向(度): "))
((= qx "NW") (setq d (+ angb 270)))
(setq bk (tan (- 90 angb)))
加载该措施，按照AutoCAD窗口下面呼吁行的提醒输入响应的数据，即可刹时画出断层剖面表示线，液压油缸，并以单项文本的情势写出断层的编号和产状，而且在文本窗口中列出断层在该剖面图中的视倾角，以及断层倾向与剖面偏向的相关。好比剖面偏向为30°，断层编号是f20，产状为45°NW∠60°（留意产状的誊写方法），X偏向的比例为“1:1000”，Y偏向的比例为“1:500”。
(princ "，断层倾向与剖面偏向")(princ yy)
2 源措施代码
因为篇幅有限，略去了一些步调，好比判定输入的断层数据的正确性等。不外凭证AutoCAD窗口下面呼吁行的提醒，正确输入数据，其绘图功效是一样的。假如必要完全版可发Email至“xjdzydl@126.com”，液压油缸，本人将尽快给你发出。若有不敷之处，接待高人指教。
(setq f (angtos (atan (* (abs (sin e)) (tan angc) (/ yxbl yybl))) 0 10))
(if (and (> g 90)(< g 270))
（3）输入断层编号“f20” ，回车；
（2）输入剖面偏向“30”（单元为度），回车；
(princ "\n请输入Y偏向的比例< ") (princ yyblf) (princ " >: ")
(setq yyblf yybl)
我们在画地质剖面图时，常常要画断层。我所见的大部门同仁都是操作计较器或Excel电子表格措施计较其视倾角，弱点是不能判定出断层的倾向与剖面偏向的相关。而我们在判定断层倾向与剖面偏向的相关时，偶然辰轻易犯简朴的、想虽然的错误。为了快速、精确地在剖面图中画断层，本人特编辑出此措施供各人分享。它是直接在AutoCAD中，不借助于其余措施，只需用短短的几秒钟就能完成计较断层的视倾角，判定出断层倾向与剖面偏向的相关，并画出其剖面表示线，标出断层的编号和产状。
（6）输入断层的倾角“60”（单元为度），回车；
)
(setvar "cmdecho" 0)
(setq yxbl (getreal ))
(setq ak (tan (- 90 anga)))
(setq g (abs (- d anga)))
4 竣事语
(princ "视倾角")(princ f)(princ "度")
1 媒介
(setvar "osmode" 0)
3 举例
(setq yy "平行"))
(setq anga (getreal "\n请输入剖面偏向(度): "))
(setq ang (/ (sin ang) (cos ang)))
(setvar "osmode" os)
(if (null yxbl) (setq yxbl yxblf))
((= qx "SW") (setq d (- angb 90)))
(setq yxblf yxbl)
(setq yybl (getreal ))
(setq pt2 (polar pt1 (/ (* pi 7) 4) 5))
（7）输入剖面图在X偏向上比例的分母，回车。如比例为“1:1000”，则输入“1000”。初次默以为“1000”，而且该变量具有影象成果（即直接回车，则该变量数值为上一次输入的数值）；
(if (null yybl) (setq yybl yyblf))
(setq angc (getreal "\n请输入断层倾角(度): "))
(setq os (getvar "osmode"))
)
（5）输入断层的倾向“nw”（巨细写都行，措施自动转为大写），回车；
（4）输入断层走向“45”（单元为度），回车；
（9）在图上指定一点，该点为断层通过的某一点，一样平常点在剖面图的地形线上。
(setq fanu (getstring "\n请输入断层编号: "))
（1）输入呼吁“yfapm”后，回车；
((= qx "E") (setq d 90))
(setq qx (strcase (getstring "\n请输入断层倾向(NE、NW、SE、SW、N、E、S、W): ")))
(princ "\n请输入X偏向的比例< ") (princ yxblf) (princ " >: ")
(setq yy "相反")
(setq e (atan (abs (/ (- ak bk) (1+ (* ak bk))))))
((= qx "S") (setq d 180))
（8）输入剖面图在Y偏向上比例的分母“500”，回车。用法同上；
(setq ptt (polar (polar pt2 0 1) (/ pi 2) 1))
(setq fa (strcat fanu "：" (rtos angb) "%%d" qx "∠" (rtos angc) "%%d" ))
((= qx "N") (setq d 0))
(defun c:yfapm (/ anga angb fanu angc pt ptt pt1 pt2 pt3 os qx ak bk e f d g yy fa)
(setq yy "同等" ))
(if (or (= g 90)(= g 270))
(setq pt1 (polar pt (+ (- pi (angtof f)) pi) 100)))
(defun tan (ang / nn n nabc)
(if (null yyblf) (setq yyblf 1000))
)
(if (null yxblf) (setq yxblf 1000))
(prin1)
(if (= yy "相反")
((= qx "NE") (setq d (- angb 270)))
(setq ang (/ (* ang pi) 180))
(command "pline" pt1 pt2 pt3 "" "")
(command "pline" pt "w" 0.3 0.3 pt1 "w" 0 0 "" "")
((= qx "SE") (setq d (+ angb 90)))
((= qx "W") (setq d 270))
(setq pt (getpoint "\n请指定断层通过点： "))
(setq pt3 (polar pt2 0 31))
(setq pt1 (polar pt (+ (angtof f) pi) 100))
(cond
(command "text" ptt 2.5 0 fa "" "")
(责任编辑：admin) |
分享按钮
------分隔线----------------------------
