
編程資料
文章平均质量分 76
Gdzhou
这个作者很懒,什么都没留下…
展开
-
CAD变量说明
STANDARDSVIOLATION 指定当创建或修改非标准对象时,是否通知用户当前图形中存在标准违规。STARTUP 控制当使用 NEW 和 QNEW 命令创建新图形时是否显示“创建新图形”对话框。SURFTAB1 为 RULESURF 和 TABSURF 命令设置生成的列表数目。SURFTAB2 为 REVSURF 和 EDGESURF 命令设置在 N 方向上的网格密度。SUR转载 2008-10-18 13:58:00 · 991 阅读 · 0 评论 -
TIN不规则三角网连接程序
转自一个成都山地所的同学:) Imports System.DataImports ESRI.MapObjects2.CoreImports System.DrawingImports System.IOImports System.Data.OleDbImports System.MathPublic Structure dVertexDim x A转载 2012-09-11 21:14:54 · 2177 阅读 · 1 评论 -
获取字符串中的汉字拼音首字母
public class CLetter 2{ 3 private string _string; 4 public CLetter(string IndexTxt) 5 { 6 _string = string.Empty; 7 if (IndexTxt.Length == 0) return; 8转载 2012-09-11 21:11:38 · 1046 阅读 · 0 评论 -
地图裁剪程序(转贴)
看到篇文章,马上要用,先贴过来再说:) 地图的裁减,主要功能是通过一个任意形状的裁减多边形,可以将目标要素类,无论是点、线、多边形还是标注图层,都可以进行裁减。裁减后的要素类形状与多边形一致。在这个过程中,需要裁减所有在多边形内部的要素,还要处理在多边形边界的polyline或polygon。为了实现这个功能,我找到了三种方式:1.使用ESRI自己提供的IBasicGeoproce转载 2012-09-11 20:59:11 · 912 阅读 · 0 评论 -
已知三角形三个顶点的坐标a(x1,y1),b(x2,y2),c(x3,y3)求三角形中心点即内接圆的圆心
已知三角形三个顶点的坐标a(x1,y1),b(x2,y2),c(x3,y3)求三角形中心点即内接圆的圆心设线段bc的中点为d(x4,y4)、线段ac的中心为e(x5,y5)其中d点 x4=(x1+x2)/2、y4=(y1+y2)/2e点 x5=(x1+x3)/2、y5=(y1+y3)/2则直线cd与直线be的交点即为所求根据直线方程式y=kx+b分别求出直线be、cd的常数项k1,b1原创 2009-04-02 17:48:00 · 7704 阅读 · 1 评论 -
日文系统下在MS中半角转全角 宏源代码
sub main() ########################################### ####Convert the half Char to Wide Char##### ########################################### Dim elemSet as New MbeElementSet Dim el原创 2009-04-02 17:50:00 · 809 阅读 · 0 评论 -
三角网及绘等高线函数
[转帖]三角网及绘等高线函数,0,数据结构:Private Const M_Count_Const = 100 初始分配内存Private Const M_Point_Const = 20 初始两排点分配内存Private Type Line 自定义类型X() As Single x坐标列Y() As Single y坐标列Count As Long 当前个数M_Cou转载 2009-04-02 17:43:00 · 2263 阅读 · 0 评论 -
VB资源文件的使用
调用资源文件中资源的函数有: LoadResString 返回一个文本字符串。语法:LoadResString(index) index必需是一个整数,它用来指定资源文件中数据的标识符(即经常提到的ID号),如果ID号为1的资源保留给应用程序图标。 LoadResPicture 用以从资源 (.res) 文件装载位图、图标或光标。它的语法: LoadResPicture(转载 2008-10-18 14:27:00 · 976 阅读 · 0 评论 -
读取DXF格式文件
读取DXF格式文件OpenGL是美国SGI公司最新推出的一套开放式的三维图形软件接口,适用于广泛的计算机环境,从个人计算机到工作站,OpenGL都能实现高性能的三维图形功能。OpenGL本身不仅提供对简单图元的操作和控制,还提供了许多函数用于复杂物体的建模。但是,我们通常喜欢使用AutoCAD和3DS及3Dmax等工具来建立模型,并且我们已经有了很多这样的模型,那么我们如何才能资源共享,避免转载 2008-10-18 14:25:00 · 892 阅读 · 0 评论 -
ADODB.Stream组件Charset属性值
ADODB.Stream组件Charset属性值翻了半天MSDN后找到的,|后边是别名ANSI_X3.4-1968|iso-8859-1ANSI_X3.4-1986|iso-8859-1arabic|iso-8859-6ascii|iso-8859-1ASMO-708Big5chinese|gb2312CN-GB|gb2312cp1256|windows-1256cp367|iso-88转载 2008-10-18 14:24:00 · 856 阅读 · 0 评论 -
JIS编码转换(DM格式与JIS)
Function JisToStr(ByVal Str As String, Nbr As Integer) As StringOn Error Resume NextDim Stm As ADODB.StreamDim StrByt() As ByteDim n01 As IntegerDim m01 As IntegerDim Asr01Str As StringSet Stm = Ne原创 2008-10-18 14:21:00 · 2338 阅读 · 0 评论 -
VB_Format自定义格式
用户自定义数值格式 (Format 函数) 下面表格标识了一些可用来创建用户自定义数值格式的字符: 字符 说明 无 显示没有格式的数值。 (0) 数字占位符。显示一位数字或是零。如果表达式在格式字符串中 0 的位置上有一位数字存在,那么就显示出来;否则,就以零显示。如果数值的位数少转载 2008-10-18 14:05:00 · 3015 阅读 · 3 评论 -
AE矢量数据裁剪 (群:64150589,群友大鹏实现的)
使用IBasicGeoprocessor接口就可以实现的 呵呵代码如下所示://Using IBasicGeoprocessing to Clip two shapefile //2009.2.11 IBasicGeoprocessor pBGeop = new BasicGeoprocessorClass();转载 2012-09-11 21:00:36 · 2125 阅读 · 0 评论