CadApp = New AcadApplication
CadApp.ActiveDocument.Close()
CadApp.Documents.Open("d:\System\OneDrive\Спецификация\Обработка\Листы.dwg")
CadApp.Visible = True
CadDoc = CadApp.ActiveDocument
CadUT = CadDoc.Utility
Dim Y As Integer
Dim XY1(0 To 1) As Double
Dim XY2(0 To 1) As Double
X = 0
Do Until X = grdList.RowCount - 1
CadLayot = CadDoc.Layouts.Add("TRex-" & X + 1)
CadDoc.ActiveLayout = CadLayot
CadDoc.SetVariable("PSLTSCALE", 0) ' отключаем "Масштаб в единицах пространства листа" для корректного отображения линий
CadLayot = CadDoc.ActiveLayout
CadLayot.PaperUnits = AcPlotPaperUnits.acMillimeters
Y = CadDoc.PaperSpace.Count - 1 ' удаляю все видовые экраны, обычно один, но лучше циклои пройду
Do Until Y = 0
CadDoc.PaperSpace.Item(Y).Delete()
Y = Y - 1
Loop
CadCenter(0) = 210 : CadCenter(1) = 148.5 : CadCenter(2) = 0
CadVport = CadDoc.PaperSpace.AddPViewport(CadCenter, 420, 297)
CadDoc.ActiveSpace = AcActiveSpace.acPaperSpace
CadDoc.Application.ZoomExtents()
CadVport.ViewportOn = True
CadVport.CustomScale = 1 ' масштаб внутри листа
CadVport.Display(True) ' вхожу в редактирование модели в окне листа
CadDoc.MSpace = True ' вошёл в редактирование модели в окне листа
CadVport.DisplayLocked = True ' блокировка видового экрана
'настройки печати
CadLayot.ConfigName = "DWG To PDF.pc3" ' tsPrint_O.Text ' вписываю принтер так как надо знать форматы бумаги, а с этим пока проблема "DWG To PDF.pc3"
CadLayot.PlotRotation = 2 'поворот 2-книжная 3-альбомная
CadLayot.StandardScale = 16 '16 - 1:1 , 0 - вписать смотри страницы 350-351 книги по автокаду
CadLayot.StyleSheet = "monochrome.ctb" 'стиль печати - монохром
'цветозависимый (хз как настроить, но вроде по умолчанию стоит)
CadLayot.PlotWithPlotStyles = True 'учитывать стили печати
CadLayot.PlotWithLineweights = True 'учитывать вес линий
CadLayot.PaperUnits = 1 'acMillimeters 'ед. измерения
CadLayot.RefreshPlotDeviceInfo() ' не знаю что делает - отключал ни на что не повлияло
X = X + 1
Loop
