阅读下一篇
VBA开发的剖断面的原程序Sub PDM()MsgBox "你现在运行的是在等高线上自动剖取断面的程序，请确定等高线坐标为三维坐标，已绘制用于剖截断面的一条多义线", vbOKOnly, "AutoCAD"Dim SS As AcadSelectionSet '声明选择集变量 Dim Ft(0) As Integer, Fd(0) As Variant '声明选择集过滤器数组变量 Dim P() As Double '声明一个双精度型动态数组,用于保存所有交点坐标
回帖成功
经验值 +10
全部回复（1 ）
只看楼主 我来说两句 抢板凳