• AlexKGNT
  • Восстановленный участник
  • На форуме с 7 декабря 2004г.
  • Сообщений: 4
  • Спасибо: 0

Тема: Как разделить чертежи Autocad

Вопрос по VBA Autocad. Имеются файлы Autocad dwg и в каждом по много листов чертежей. А как разбить такой файл на разные по одному листу? Помогите plz.

  • Leonid
  • Восстановленный участник
  • На форуме с 16 июня 2003г.
  • Сообщений: 389
  • Спасибо: 0

Re: Как разделить чертежи Autocad

Если речь идет о программном разделении на файлы по Раскладкам (Layout'ам), то это решается достаточно просто:

Sub DrawSeparation()
     Dim PATH As String
     Dim LayoutName As String
     Dim DrawName As String
     PATH = InputBox("Enter folder name:", , "D:\Work\DWG\")
     Dim i As Integer
     For i = 0 To (ThisDrawing.Layouts.Count - 2)
          LayoutName = ThisDrawing.Layouts.Item(i).Name
          DrawName = PATH & LayoutName
          ThisDrawing.SaveAs DrawName
     Next i
End Sub

Если же нужно что-то другое, то задание д\б более определенным и детальным.