ПРОГРАММА ДЛЯ СКЛЕИВАНИЯ НЕСКОЛЬКИХ АВТОКАДОВСКИХ ФАЙЛОВ (ПРОСТАЯ)
Должна быть подключена scrrun.dll
На входе даете путь к текстовому файлу, который содержит полные пути к автокадовским файлам.
Public Sub LoadAllDrawing()
dbFN = ThisDrawing.Utility.GetString(True, "Input path to filename:")
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(dbFN, ForReading, TristateFalse)
Dim insertionPnt(0 To 2) As Double
Dim a As Double
a = 0
Do While f.AtEndOfStream <> True
Set cf = CreateObject("Scripting.FileSystemObject")
PathName = f.ReadLine
Dim blockRefObj As AcadBlockReference
insertionPnt(0) = a: insertionPnt(1) = 0: insertionPnt(2) = 0
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, PathName, 1#, 1#, 1#, 0)
Loop
End Sub
