为了大家在测量方面的方便，更是为了提高测绘朋友们的工作效率，本版块提出“上传测绘软件或资料”赢积分的活动，上传的软件或资料不要重复，最好是免费版本，附带教程的，上传的朋友最后使用后上传，以可以解答网友们的疑难问题！我先带个头空间数据处理系统免费版
为了大家在测量方面的方便，更是为了提高测绘朋友们的工作效率，本版块提出“上传测绘软件或资料”赢积分的活动，上传的软件或资料不要重复，最好是免费版本，附带教程的，上传的朋友最后使用后上传，以可以解答网友们的疑难问题！
我先带个头
空间数据处理系统免费版
42楼
楼主辛苦了，非常感谢你对本站的支持和无私奉献
回复
43楼
很不错，谢谢!
回复
44楼
看各位都传这么好东西了,我也小试一把吧!希望各位不要见笑!
回复
45楼
谢谢，版主。
回复
46楼
楼主,厉害!!!
回复
47楼
45楼的楼主你好，你上传的是5.1的，有6.1的吗？传一个上来。谢谢！
回复
48楼
应鼓励，加油！
回复
49楼
找了这么长时间也没找到渠道测量内业处理软件,也没人帮我啊,~~~~~~~~~
回复
50楼
很眼熟
回复
51楼
在AutoCAD中展坐标点源程序(VBA for AutoCAD)
Public Sub ZanGaoCeng() ’展高程点
’并不是所有变量都有用，请自行删除不需要的变量
’文件格式如下
’“点号”，“编码（可为空）”，“X 坐标“,“Y 坐标”，“Z 坐标"
’ ........
’“点号”，“编码（可为空）”，“X 坐标“,“Y 坐标”，“Z 坐标"
’1,,398479.466 ,2064432.397 ,283.398
’2,,398476.899 ,2064432.489 ,282.677
Dim inspoint(0 To 2) As Double
Dim point(0 To 2) As Double
Dim xupoint() As Variant
Dim i As Long
Dim n As Long
Dim no As Variant
Dim j As Long
Dim k As Long
Dim you As Boolean
Dim pointx, pointy, pointh As Double
Dim sanjiao(0 To 2) As Variant
Dim dingdian As Long
Dim polyobj As Acad3DPolyline
Dim juzy, juzx, juzh As Double
Dim textstr As String
Dim insobj As AcadPoint
Dim textobj As AcadText
Dim zhpoint() As Double
Dim height As Variant
Dim yuan As Boolean
Dim zongsu() As sanbian
Dim fangwenzizen As Long
Dim dindian As Long
Dim sangjie As Long
Dim dangqianzizen As Long
Dim lihua As Long
Dim starttime As Date, endtime As Date
Dim data As String
Dim bianma As Variant
Dim OpenFile As CommonDialog
Set OpenFile = New CommonDialog
OpenFile.DialogTitle = "请输入数据文件"
OpenFile.Filter = "*.dat"
OpenFile.ShowOpen
’****************************
Dim blockObj As AcadBlock
Dim insertionPnt(0 To 2) As Double
insertionPnt(0) = 0
insertionPnt(1) = 0
insertionPnt(2) = 0
Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "Blpoint")
Set insobj = blockObj.AddPoint(insertionPnt)
’定义块
On Error Resume Next
data = OpenFile.FileName
If data = "" Then End
Open data For Input As #3
height = ThisDrawing.Utility.GetString(0, vbCrLf & "输入高程标签高度:")
’从AUTOCAD命令行得到标签高度
Do
Input #3, no, bianma, juzy, juzx, juzh
If no = " " Then Exit Do
inspoint(0) = juzy
inspoint(1) = juzx
inspoint(2) = juzh
’X、Y、Z to inspoint 三元组
height = CSng(height)
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(inspoint, "Blpoint", 1#, 1#, 1#, 0)
’插入点
juzh = CLng(juzh * 1000) / 1000
textstr = Str(juzh)
Set textobj = ThisDrawing.ModelSpace.AddText(textstr, inspoint, height)
’插入标签
Loop Until EOF(3)
Close
ThisDrawing.SetVariable "PDMODE", 34
ThisDrawing.SetVariable "PDSIZE", height
’设置点格式
ZoomExtents
End Sub
回复
