天圆液压产品中心
AutoCAD计较地质不锈钢缸筒界面产状画剖面表示线措施
| (setq yyblf yybl) (setvar "osmode" 0) (if (= yy "相反") (princ "\n请输入X偏向的比例< ") (princ yxblf) (princ " >: ") (if (null yyblf) (setq yyblf 1000)) (setq yy "同等" )) (setq yxblf yxbl) (setq e (atan (abs (/ (- ak bk) (1+ (* ak bk)))))) (defun tan (ang / nn n nabc) (defun c:yfapm (/ anga angb fanu angc pt ptt pt1 pt2 pt3 os qx ak bk e f d g yy fa) (princ "，断层倾向与剖面偏向")(princ yy) (princ "视倾角")(princ f)(princ "度") (if (null yxblf) (setq yxblf 1000)) (if (null yxbl) (setq yxbl yxblf)) 因为篇幅有限，略去了一些步调，好比判定输入的断层数据的正确性等。不外凭证AutoCAD窗口下面呼吁行的提醒，正确输入数据，其绘图功效是一样的。假如必要完全版可发Email至“xjdzydl@126.com”，本人将尽快给你发出。若有不敷之处，接待高人指教。 ((= qx "E") (setq d 90)) (setq yxbl (getreal )) (setq bk (tan (- 90 angb))) ) (setq pt3 (polar pt2 0 31)) (setq os (getvar "osmode")) （6）输入断层的倾角“60”（单元为度），回车； (setq angc (getreal "\n请输入断层倾角(度): ")) (if (null yybl) (setq yybl yyblf)) ((= qx "SW") (setq d (- angb 90))) （4）输入断层走向“45”（单元为度），回车； ((= qx "W") (setq d 270)) ((= qx "S") (setq d 180)) (command "text" ptt 2.5 0 fa "" "") (setq qx (strcase (getstring "\n请输入断层倾向(NE、NW、SE、SW、N、E、S、W): "))) (setq fanu (getstring "\n请输入断层编号: ")) (prin1) (setvar "osmode" os) (setq pt1 (polar pt (+ (angtof f) pi) 100)) (princ "\n请输入Y偏向的比例< ") (princ yyblf) (princ " >: ") 2 源措施代码 ((= qx "NW") (setq d (+ angb 270))) (setq ang (/ (* ang pi) 180)) （2）输入剖面偏向“30”（单元为度），回车； (setq yy "平行")) (setq yybl (getreal )) 我们在画地质剖面图时，常常要画断层。我所见的大部门同仁都是操作计较器或Excel电子表格措施计较其视倾角，弱点是不能判定出断层的倾向与剖面偏向的相关。而我们在判定断层倾向与剖面偏向的相关时，偶然辰轻易犯简朴的、想虽然的错误。为了快速、精确地在剖面图中画断层，本人特编辑出此措施供各人分享。它是直接在AutoCAD中，不借助于其余措施，只需用短短的几秒钟就能完成计较断层的视倾角，判定出断层倾向与剖面偏向的相关，并画出其剖面表示线，标出断层的编号和产状。 (cond (setq ptt (polar (polar pt2 0 1) (/ pi 2) 1)) (command "pline" pt1 pt2 pt3 "" "") (setq pt2 (polar pt1 (/ (* pi 7) 4) 5)) (setq ang (/ (sin ang) (cos ang))) （5）输入断层的倾向“nw”（巨细写都行，措施自动转为大写），回车； 4 竣事语 （8）输入剖面图在Y偏向上比例的分母“500”，回车。用法同上； (setq pt (getpoint "\n请指定断层通过点： ")) ((= qx "NE") (setq d (- angb 270))) (setq fa (strcat fanu "：" (rtos angb) "%%d" qx "∠" (rtos angc) "%%d" )) (if (and (> g 90)(< g 270)) (command "pline" pt "w" 0.3 0.3 pt1 "w" 0 0 "" "") ((= qx "SE") (setq d (+ angb 90))) (setq ak (tan (- 90 anga))) 1 媒介 |
- [ 18-11-06 ]换向阀中位性液压站能特点及应用留意
- [ 18-10-09 ]公制螺纹、BS液压油缸PP螺纹ED密封油
- [ 18-09-11 ]很是具体的液液压站压阀块计划履历总
- [ 18-09-11 ]液压节液压站制技能的革命
- [ 16-09-14 ]联轴珩磨管器选择方法
- [ 16-07-17 ]怎样避免缸筒液压站冲击危害？
- [ 16-07-17 ]液压动力单元液不锈钢缸筒压齿轮泵的