标注两点或直线段、不闭合不带弧的多段线的坐标方位角

Posted on 2013-11-4 by yshf

主要功能:坐标方位角和边长标注 详细用途:在CAD中,标注两点或直线段、不闭合不带弧的轻量多段线的坐标方位角和边长。 如何安装:下载,在CAD中加载"fwjbz.fas",键入fwjbz, [Enter]后标注坐标方位角 [DOWNLOAD][uploadadd]article/200733224818.rar[/DOWNLOAD] ...

距离后方交会计算(CASIO fx-4800P计算器)程序

Posted on 2016-7-24 by yshf

距离后方交会计算(CASIO fx-4800P计算器)程序 一、程序功能 本程序适用于在一个未知点上设测站,观测两到个已知点的距离后,解算该未知坐标。本程序也可以在CASIO fx-4500P计算器及 CASIO fx-4850P计算器上运行。 注意:这种观测两到个已知点的距离后解算该未知坐标的方法,缺少多余观测值,也就缺少检核条件。 二、源程序 Lbl 1:{ABCDEFQ}:A"XA":B” YA”:C"XB":D"YB":E"D1":F"D2":Q:J=0:G=Pol(C-A, D-B) :H=J+QCos[SUP]-1[/SUP]((GG+EE-FF)÷2÷G÷E):X"XP"=A+ECosH◢ Y"YP"=B+ESinH◢ Goto 1←┘ 注:CASIO fx-4850改如下 Lbl 1:{ABCDEFQ}:A"XA":B” YA”:C"XB":D"YB":E"D1":F"D2":Q:J=0:G=Pol(C-A, D-B) :H=J+QCos[SUP]-1[/SUP]((GG+EE-FF)÷2÷G÷E):"XP":X=A+E...

道路逐桩坐标计算[第三稿]

Posted on 2014-5-22 by yshf

;;; by yshf ;;;道路逐桩坐标计算[可读数据库文件(.mdb),或Excel文件(.xls),或读文本文件(.txt或.dat)] ;;;1. 根据“道路设计参数文件”[.txt或.dat(文本文件), ;;; 或者.mdb(Access 2000 数据库), 或者Excel文件(.xls)] ”中的平面曲线线元参数、 ;;; 道路纵断面参数成批地计算所求点坐标和相应中线点的设计高程, ;;; 并在Auto CAD中绘制出逐桩坐标表。 ;;; ;;;2. 必须将下载的文件“zbjgchjs3.fas”存到“E:\\算例文件夹”中, ;;; 如存入其它地方,则程序不会进行计算。 ;;; ;;;3. 运行环境为:Auto CAD 2000以上版,Access 2000以上版数据库,Excel 2000以上版电子表格 。 ;;; ;;;4. 计算前,先准备数据: ;;; (一)平面曲线 ;;; 平面曲线按线元法将各线元要素录入到Access 2000以上版数据 ;;; 库的“道路平面曲线线元参数表”中,Ex...

道路逐桩坐标计算[可读数据库文件(.mdb),或读文本文件(.txt或.dat)

Posted on 2013-9-17 by yshf

;;; by yshf ;;;道路逐桩坐标计算[可读数据库文件(.mdb),或读文本文件(.txt或.dat)] ;;;1. 根据“道路设计参数文件”[.txt或.dat(文本文件), ;;; 或者.mdb(Access 2000 数据库)] ”中的平面曲线线元参数、 ;;; 道路纵断面参数成批地计算所求点坐标和相应中线点的设计高程, ;;; 并在Auto CAD中绘制出逐桩坐标表。 ;;; ;;;2. 必须将下载的文件“zbjgchjsb1.fas”存到“E:\\算例文件夹”中, ;;; 如存入其它地方,则程序不会进行计算。 ;;; ;;;3. 运行环境为:Auto CAD 2000以上版,Access 2000以上版数据库。 ;;; ;;;4. 计算前,先准备数据: ;;; (一)平面曲线 ;;; 平面曲线按线元法将各线元要素录入到Access 2000以上版数据 ;;; 库的“道路平面曲线线元参数表”中,或者录入到文本文件(.txt或 ;;; .dat)。当曲线左偏时,其线元长度输入负值;右偏及直线时...

道路逐桩坐标计算

Posted on 2013-9-22 by yshf

;;; by yshf ;;;道路逐桩坐标计算 ;;;1. 根据“道路设计参数.mdb”(Access 2000 数据库)文件中表: ;;; “道路平面曲线线元参数表”、“道路纵断面参数表” ;;; 的设计参数成批地计算所求点坐标和相应中线点的设计高程, ;;; 并在Auto CAD中绘制出逐桩坐标表。 ;;; ;;;2. 将下载的文件“zbjgchjsa.fas”存到“E:\\算例文件夹”中, ;;; 如存入其它地方,请更改程序中第二行中的相应路径名。 ;;; ;;;3. 运行环境为:Auto CAD 2000以上版,Access 2000以上版数据库。 ;;; ;;;4. 计算前,先准备数据: ;;; (一)平面曲线 ;;; 平面曲线按线元法将各线元要素录入到Access 2000以上版数据 ;;; 库的“道路平面曲线线元参数表”中,当曲线左偏时,其线元长度输 ;;; 入负值;右偏及直线时,其线元长度输入正值。 ;;; 起点切线方位是以度.分分秒秒的形式录入的,例如57°09′13....

在Auot CAD中给文本添加上下标1

Posted on 2010-4-1 by yshf

;;在Auot CAD中给文本添加上下标1 ;;by yshf [code](defun c:wbsb() (vl-load-com) (setq cm (getvar "cmdecho") om (getvar "osmode")) (setvar "cmdecho" 0) (setvar "osmode" 0) (initget "1 2") (setq bz (getkword "\n请输入标记类型[1 上标, 2 下标]:")) (if (= bz "1") (setq tsf "\n请输入上标:") (setq tsf "\n请输入下标:" )) (while (setq ent (car (entsel "\n请选择文本:"))) (setq db (entget ent)) (if (wcmatch (cdr (assoc 0 db)) "TEXT,MTEXT") (progn (setq sb (getstring tsf) z...

对图中的单行文本进行四则运算(支持保留原数字的小数位数或自定义)

Posted on 2006-6-13 by yshf

;;;对图中的单行文本进行四则运算(支持保留原数字的小数位数或自定义) by yshf ;;;1.将下载的文件“wbszys0.fas” ;;; 存到“H”盘中,如存入其它地方, ;;; 请更改程序中第二行中的相应路径名。 ;;;2.在命令行中键入wbszys,即可以对图中所选择 ;;; 范围内的单行文本进行四则运算。 ;;;3.支持小数位数按原数字的小数位数保留或自定义 (defun c:wbszys() (if (null wbszys0)(load "H:wbszys0.fas"));请注意文件wbszys0.fas”存盘路径名 (wbszys0) ) (prompt "\n在命令行中键入wbszys,对图中的单行文本进行四则运算。")[DOWNLOAD][uploadadd]article/2006228135755.rar[/DOWNLOAD] ...

动态坐标标注

Posted on 2013-11-17 by yshf

;;;动态坐标标注 by yshf ;;;1.将下载的文件“zbbz.fas” ;;; 存到“H”盘中,如存入其它地方, ;;; 请更改程序中第二行中的相应路径名。 ;;;2.选取点后,动态地选择标注文字写入点 ;;;3.支持对所数学坐标或者测量坐标的标注 (defun c:zbbz() (if (null zbbz0)(load "H:zbbz.fas"));请注意文件“zbbz.fas”存盘路径名 (zbbz0) ) (prompt "\n在命令行中键入zbbz,进行动态坐标标注。")[DOWNLOAD][uploadadd]article/2006114150637.rar[/DOWNLOAD] ...

动态地使文字的倾角与选取点处曲线的切线方向相同

Posted on 2006-1-13 by yshf

;;;请试用以下程序 ;;;by yshf ;;;1.将下载的文件“wbzhx1.fas” ;;; 存到“G”盘中,如存入其它地方, ;;; 请更改程序中第二行中的相应路径名。 ;;;2.动态地使文字的倾角与选取点处曲线的切线方向相同 ;;; 曲线类型为:“*LINE,RAY,ARC,CIRCLE,ELLIPSE” ;;;3.支持对所选取的文字进行复制。 (defun c:wbzhx() (if (null wbzhx1)(load "g:wbzhx1.fas"));请注意文件“wbzhx1.fas”存盘路径名 (wbzhx1) )[DOWNLOAD][uploadadd]article/2006113171821.rar[/DOWNLOAD] ...

界址点成果表

Posted on 2012-9-10 by yshf

;;;请试用以下程序 ;;;by yshf 2002.02 ;;;1.将下载的文件“gndbg1.fas” ;;; 存到“H”盘中,如存入其它地方, ;;; 请更改程序中第二行中的相应路径名。 ;;;2.支持任选一封闭界址线(多段线)的端点 ;;; 作编号的起点,可按顺时针或逆时针对 ;;; 端点进行编号和标注。 ;;;3.输入的起点编号只能由字母和数字组成 ;;; 且必须由字母开头。 (defun c:gndbg2() (if (null gndbg1)(load "H:gndbg1.fas"));请注意文件“gndbg1.fas”存盘路径名 (gndbg1) )[DOWNLOAD][uploadadd]article/2005125135909.rar[/DOWNLOAD] ...


35篇┋页次1/4 分页: [1] [2] [3] [4]