m

这是一个管线采集资料时管孔占用情况整理记录的工具,它可以通过操作AUTOCAD图纸进行图纸信息的操作.

Attribute VB_Name = "m管孔布置器"
Public Const i图纸距离 As Long = 400

Public objAcad As Object
Public Mspace As Object
Public objAcadPrf As Object
Public objExcel As Object
Public AcadRunning As Long
Public objExcelsheet As Object


Sub Main()
Load frm管孔布置器
frm管孔布置器.Show
End Sub