Excel VBA在工程测量上的应用

p(1) = p1(1)

Call Set_layer("ZDH")

Call Draw_Point(p1)

 fontHight = TextBox5.Value

If Cells(i + 1, 2) = "" Then GoTo oo

Set txt = acadDoc.ModelSpace.AddText(Cells(i + 1, 2), p, fontHight)

txt.Color = acMagenta

oo:

If Cells(i + 1, 5) = "" Then GoTo II

Set_layer ("GCD")

p(1) = p1(1) - fontHight

Set txt = acadDoc.ModelSpace.AddText(Format(Cells(i + 1, 5), "00.0"), p, fontHight)

txt.Color = acMagenta

II:

i = i + 1

 Loop

End Sub

　　当然，你在Excel上同样可以再加个工具按钮，比如叫“展点”，指定宏为“显示对话框”，只要你的Excel有了X,Y或者X,Y，Z（格式如下表），点击“展点” 就可以自动启动A utoCAD展点啦！当然,如果A utoCAD已经启动,就直接在已经打开的A utoCAD文档中展点，展点完毕后，会显示一个对话框，提示“展点完毕“，再切换到A utoCAD看看，你所要展的点是否已经出现了？如果没有输入错误，应该可以得到满意的结果。如果有点号,还可以显示点号，并且可以输入字体的高度。

　　下面是坐标格式，其中第一列为点名，第二列为编码（可以为空），第三列为X，第四列为Y，第五列为高程。注意，X，Y是A utoCAD的横坐标和纵坐标，与测量坐标系不同。

　　Excel的功能是非常强大的，如果有兴趣，你还可以在AutoCAD中直接与Excel通讯，比如一条三维多段线的所有结点的三维坐标直接导入到Excel，比在AutoCAD中用列表的方法要方便的多，限于篇幅，无法在此详细叙述了。如果读者有兴趣，可以深入的学习和探讨。

上一页  [1] [2] [3] [4] [5] [6] [7]