打开地形图---工程应用----绘制断面图----根据等高线(里程文件等)具体步骤看命令。
天正cad里面有这个功能
Dim i, j As Integer
Dim str1 As String
Dim p As String = "D"
str1 = ""
For i = 1 To 4
For j = 1 To 20 + 2 * i
str1 = str1 + " "
Next
For j = 1 To 9 - 2 * i
str1 = str1 + p + " "
Next
str1 = str1 + Chr(10)
p = Chr(Asc(p) - 1)
Next
MsgBox(str1)
用打断线