监理在工程计量中实现自动绘制横断面图的方法

n = 3

End If

Print #2, '_dimcontinue'

For j = n To i - 2

m = j + 1

If array1(m) <> array1(m + 1) Then

Write #2, array1(m), min - 2

Else

Write #2, array1(m + 1), min - 2

j = m + 1

End If

Next j(以上标注横断面线各拐点之间尺寸)

Print #2,

Print #2,

Print #2, 'ucs'

Print #2, 'o'

Write #2, 0, -50

Print #2, 'pline'

i = 1(以上改变坐标原点,画下一条横断面图)

Else

End If

Loop

Close #1

Close #2

ch = MsgBox('转换成功,谢谢使用!', vbOKOnly)

Exit Sub

End Sub

程序界面如图1,通过运行该程序，便可生成横断面脚本文件。

图1 程序界面

3、 横断面图的生成

进入AutoCAD，首先根据需要对尺寸标注格式进行调整；然后点击下拉菜单Tools中的Run Script，便会弹出一个对话框，在对话框中选中绘制横断面图的脚本文件，单击“打开”按钮，便会自动绘制一系列如图2所示横断面图。当然也可以在AutoCAD提示符“Command”状态下，直接键入Script来运行脚本文件。

图2 横断面图

4、 横断面图的比例调整

通过运行横断面脚本文件，绘制的横断面图其比例为1:1000，需要改变比例时，可用“Scale”命令进行缩放，或出图时控制打印比例也可。

5、 结 语

上述程序代码，笔者已在Visul Basic中调试通过。并在鹧鸪江堤横断面图的绘制，得到了充分的运用。效果良好，省时省事，实用性强，绘制横断面图快捷方便，准确美观。

 2/2   首页 上一页 1 2