另一种AutoCAD标注高程的方法(上面标注)

Posted on 2017-5-12 by nys2006

;2.4 ;;;=============================标注高程函数============================== (defun c:nys_bgx1 (/ b k charudian charudian_x charudian_y sjd1 sjd2 sjd3 qsd gaocheng1 gaocheng gaocheng_n gaocheng_l xbd1 x1 x2 x3 x4 x5 x6 y1 y2 y3 y4 y5 y6 zfx zfy OI lj wenben_charudian ) (setq blc1 1000) (setq blc (getdist (strcat "\n 输入比例尺<1:1000> 1:"))) (if (= blc nil) (setq b...

autocad标注高程命令

Posted on 2016-7-18 by nys2006

;2.3 ;;;=============================插入点的四周标注高程函数============================== (defun c:nys_bgx (/ b k charudian charudian_x charudian_y sjd1 sjd2 sjd3 qsd gaocheng1 gaocheng gaocheng_n gaocheng_l xbd1 x1 x2 x3 x4 x5 x6 y1 y2 y3 y4 y5 y6 zfx zfy OI lj wenben_charudian ) (setq blc1 1000) (setq blc (getdist (strcat "\n 输入比例尺<1:1000> 1:"))) (if (= blc nil) (setq blc blc1) ) (...

从UTM直角坐标转换到经纬度坐标

Posted on 2017-10-15 by nys2006

’这个函数在使用UTM坐标的国家很有用,我在南美的玻利维亚使用此函数把我们一条公路线路和一条铁路线路、里程桩号、控制点、涵洞、桥梁以及其它建筑物的坐标都转换成经纬度,再编辑成GPX文件,然后都准确的标注在谷歌地球上,用手机导航就能定位到10米范围内,这个函数与反算函数的差值在2mm左右。但是也要小心,同一个国家,我用此函数计算一个水坝工程的控制点时发现标注到谷歌地图上后XY都差一个改正数,但是没发生旋转。 '计算结果单位为度。 Public Function UTM_BL(输出参数 As Integer, X As Double, Y As Double, 中央子午线_° As Double) As Variant Dim M As Double, A As Double, B As Double, E As Double, e1 As Double Dim j1 As Double, j2 As Double, J3 As Double, J4 As Double Dim fp As Double, C1 As Double, T1 As Doubl...

线路计算-圆曲线反算大地XY坐标

Posted on 2016-7-29 by nys2006

Public Function 圆曲线反算XY(输出参数 As Integer, 圆曲线半径 As Double, 直圆点X As Double, 直圆点Y As Double, 直圆点桩号 As Double, 起点方位角_度分秒 As Double, _ 左右曲线 As Double, 边桩与线路夹角_度 As Double, 计算点桩号 As Double, 计算点偏距 As Double) As Variant Dim X As Double, Y As Double Dim 线路方位角_弧度 As Double Dim 边桩与线路夹角_弧度 As Double 线路方位角_弧度 = 度分秒_弧度(起点方位角_度分秒) 边桩与线路夹角_弧度 = 度_弧(边桩与线路夹角_度) X = 直圆点X + 2 * 圆曲线半径 * Sin((计算点桩号 - 直圆点桩号) / 2 / 圆曲线半径) * Cos(线路方位角_弧度 + 左右曲线 * ((计算点桩号 - 直圆点桩...

线路计算:圆曲线正算桩号和偏距,

Posted on 2016-7-6 by nys2006

'圆曲线正算桩号偏距 '输出参数12为1时输出桩号,输出参数12为2时输出偏距;左右曲线中左曲线为-1,右曲线为1。 Public Function 圆曲线正算(输出参数 As Integer, 圆曲线半径 As Double, 直圆点X As Double, 直圆点Y As Double, 直圆点桩号 As Double, 起点方位角_度分秒 As Double, _ 左右曲线 As Double, 边桩与线路夹角_度 As Double, 计算点X As Double, 计算点Y As Double) As Double Dim 起点方位角 As Double, 计算点方位角 As Double, W As Double Dim 圆心_X As Double, 圆心_Y As Double 起点方位角 = 度分秒_度(起点方位角_度分秒) - 左右曲线 * 90 If 起点方位角 < 0 Then 起点方位角 = 起点方位角 + 360 Else ...

AutoCAD命令-画示坡线

Posted on 2016-9-20 by nys2006

;=================示坡线绘制函数====================== (defun nys_spx (/ changbian1 changbian2 changdu1 changdu2 changdu3 ang1 ang2 changbian2_x changbian2_y d1 d2 d3 d4 d5 d6 d7 d8 ) (setq osnapp (getvar "osmode")) (command "osmode" "137") (setq changbian1 (getpoint "在坡底侧选取长边第一点:")) (setq changbian2 (getpoint changbian1 "在坡顶线上选取垂足点:")) (setq changdu1 (distance changbian1 changbian2)) (command "osmode" "0") (setq ang1 (angle...

EXCEL-VBA坐标系正反算函数

Posted on 2016-6-17 by nys2006

'3.3---坐标系正算,NE=1时计算结果为桩号,其它整数值时计算结果为偏距。 Public Function 坐标系正算(原点_X As Double, 原点_Y As Double, _ X轴方位角_度 As Double, X As Double, _ Y As Double, 起点桩号 As Double, NE As Integer) As Double Dim U As Double U = X轴方位角_度 * pi / 180 If NE = 1 Then 坐标系正算 = (X - 原点_X) * Cos(U) + (Y - 原点_Y) * Sin(U) + 起点桩号 Else 坐标系正算 = -(X - 原点_X) * Sin(U) + (Y - 原点_Y) * Cos(U) End If End Function '3.6---坐标系反算,XY=1时计算结果为X...

AutoCAD-LISP 我的有引线的坐标标注

Posted on 2017-9-10 by nys2006

;;;============================有引线的坐标标注================================== ;|注:此函数在图上标注已知点的X,Y坐标,标注的字体大小根据绘图比例确定。 |; (defun nys_zb2 (/ b k l p1 p1_x p1_y js p2 p3 p4 p5 p6 p7 m1 x n ang ang2 ang3 zb_x zb_y zb_x_l zb_y_l zb_l zb_l_l ) (setq b (getint "\n 绘图比例尺(1:?):")) (setq k (/ b 100.0)) ;k为比例因子 (command "style" "standard" "仿宋_gb2312" "0.0" "1" "0" "n" "n") ;设置字体样式 (setq osnapp (getvar "osmode")) ;提取变量osmode的值 (c...

EXCEL-VBA自定义角度转换函数

Posted on 2017-6-30 by nys2006

'1、角度转换函数 '1.1---“度分秒”化“度”函数 '注:“度分秒”->“度”的角度单位转化 Public Function 度分秒_度(C2 As Double) Dim FuHao As Integer, C1 As Double Dim Du As Integer, Fen As Integer, Miao As Double FuHao = Sgn(C2) C1 = C2 + 0.0000000000001 * FuHao C1 = Abs(C1) Du = Int(C1) Fen = Int(C1 * 100) - Int(C1) * 100 Miao = (C1 * 100 - Int(C1 * 100)) * 100 If Fen >= 60 Or Miao >= 60 Then 度分秒_度 = "输入有误!" Exit Function End If 度分秒_度 = F...

[Excel自定义函数]竖曲线高程精确计算(nys)

Posted on 2017-6-30 by nys2006

'6.3.1---竖曲线高程精确计算(圆曲线精确计算) '此精确计算公式能满足高铁线上施工精度要求,精确到小数点后6位。 Public Function 竖曲线精确计算(交点高程 As Double, 交点桩号 As Double, 竖曲线半径 As Double, _ 坡比1 As Double, 坡比2 As Double, 计算点桩号 As Double) As Double Dim T As Double, TQX_OQX As Double '判断竖曲线为凸曲线或凹曲线,当坡比1-坡比2<0时为凹曲线,反之为凸曲线。 If 坡比1 - 坡比2 < 0 Then TQX_OQX = -1 Else TQX_OQX = 1 End If T = Abs(竖曲线半径 * Tan((Atn(坡比1) - Atn(坡比2)) / 2)) 竖曲线精...


12篇┋页次1/2 分页: [1] [2]

 
友情链接: