Создание нового чертежа dxf

Автор Тема: Создание нового чертежа dxf  (Прочитано 4013 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн AnatolyАвтор темы

  • ADN OPEN
  • **
  • Сообщений: 62
  • Карма: 3
  • Skype: ant_nkh
Надо из открытого документа dwg взять нужные объекты и сохранить как dxf.
Или сначала создать dxf, а потом скопировать объекты.

Онлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13829
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Создание нового чертежа dxf
« Ответ #1 : 17-03-2021, 18:02:35 »
Document.Export в dxf - но насколько я помню экспортируется все из чертежа. Поэтому лишнее придётся в чертеже предварительно стереть. Ну или забыть про VBA.
Можно еще Document.SaveAs если нужно в формат определённой версии DXF.
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн AnatolyАвтор темы

  • ADN OPEN
  • **
  • Сообщений: 62
  • Карма: 3
  • Skype: ant_nkh
Re: Создание нового чертежа dxf
« Ответ #2 : 19-03-2021, 23:30:52 »
Если кому-то нужно, то вот.
Код - Visual Basic [Выбрать]
  1. Sub test()
  2. Dim ent As AcadEntity
  3. Dim sset As AcadSelectionSet
  4. Dim intData() As Integer, varData() As Variant
  5. Dim objCollection() As Object
  6. Dim activeDoc As AcadDocument
  7. '..............................................
  8. 'dxfnam=.....
  9. 'intData
  10. 'varData
  11. '..............................................
  12. Set sset = ThisDrawing.SelectionSets.Add("SS1")
  13. sset.Select acSelectionSetAll, , , intData, varData
  14. If sset.Count = 0 Then Exit Sub
  15.  
  16. Set activeDoc = ThisDrawing.Application.ActiveDocument
  17. docpath = activeDoc.Path
  18.  
  19. ReDim objCollection(0 To sset.Count - 1)
  20. i = 0
  21.  
  22. For Each ent In sset
  23.   Set objCollection(i) = ent
  24.     i = i + 1
  25. Next
  26.  
  27. CopyObjects activeDoc, objCollection, docpath, dxfnam
  28.  
  29. ThisDrawing.SelectionSets.Item("SS1").Delete:    Set sset = Nothing
  30. Exit Sub
  31. End Sub
  32. '######################################################################################
  33. Sub CopyObjects(activeDoc As AcadDocument, objCollection() As Object, docpath, dxfnam)
  34. Dim ent As AcadEntity
  35. Dim newDoc As AcadDocument
  36.  
  37. Set newDoc = Documents.Add    ' Create a new drawing
  38.        
  39. retObjects = activeDoc.CopyObjects(objCollection, newDoc.ModelSpace)
  40.  
  41. ' retObjects что-то делаем со скопированными объектами
  42.  
  43. ThisDrawing.SaveAs docpath & "\" & dxfnam, ac2007_dxf
  44. newDoc.Close
  45. Exit Sub
  46. End Sub

Онлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13829
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Создание нового чертежа dxf
« Ответ #3 : 19-03-2021, 23:34:34 »
А почему ThisDrawing.SaveAs, а не newDoc.SaveAs? Ты же копируешь сохраняешь полный исходный чертеж.
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн AnatolyАвтор темы

  • ADN OPEN
  • **
  • Сообщений: 62
  • Карма: 3
  • Skype: ant_nkh
Re: Создание нового чертежа dxf
« Ответ #4 : 19-03-2021, 23:43:26 »
Нет, я копирую только то, что нужно, что предварительно выбрано SelectionSet'ом.
А ThisDrawing это в данный момент новый документ.
Наверное можно и newDoc.

Онлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13829
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Создание нового чертежа dxf
« Ответ #5 : 19-03-2021, 23:45:35 »
Нет, я копирую только то, что нужно, что предварительно выбрано SelectionSet'ом.
Но сохраняешь старый чертеж, а не тот в который копируешь выбранное.
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн AnatolyАвтор темы

  • ADN OPEN
  • **
  • Сообщений: 62
  • Карма: 3
  • Skype: ant_nkh
Re: Создание нового чертежа dxf
« Ответ #6 : 19-03-2021, 23:46:59 »
Со старым ничего не происходит. Новый документ сохраняется как dxf.

Оффлайн AnatolyАвтор темы

  • ADN OPEN
  • **
  • Сообщений: 62
  • Карма: 3
  • Skype: ant_nkh
Re: Создание нового чертежа dxf
« Ответ #7 : 19-03-2021, 23:49:27 »
Вообще-то в реальном коде я в цикле из исходного dwg делаю разные dxf с разным содержанием.

Оффлайн AnatolyАвтор темы

  • ADN OPEN
  • **
  • Сообщений: 62
  • Карма: 3
  • Skype: ant_nkh
Re: Создание нового чертежа dxf
« Ответ #8 : 19-03-2021, 23:54:58 »
Попробовал newDoc.SaveAs вместо ThisDrawing.SaveAs. Результат тот-же.
Но наверное логичнее newDoc.SaveAs.
Спасибо.

Онлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13829
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Создание нового чертежа dxf
« Ответ #9 : 19-03-2021, 23:58:23 »
Попробовал newDoc.SaveAs вместо ThisDrawing.SaveAs. Результат тот-же.
Но наверное логичнее newDoc.SaveAs.
Спасибо.
Значит у тебя происходит переключение на новый чертеж и он становится ThisDrawing. Не помню как это на VBA работает.
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн AnatolyАвтор темы

  • ADN OPEN
  • **
  • Сообщений: 62
  • Карма: 3
  • Skype: ant_nkh
Re: Создание нового чертежа dxf
« Ответ #10 : 19-03-2021, 23:59:20 »
Да, так и происходит.
В новом чертеже делаю разные вещи, для которых нужен ThisDrawing, типа
Код - Visual Basic [Выбрать]
  1. ThisDrawing.Application.ZoomExtents
  2. ThisDrawing.PurgeAll
  3.  
Поэтому и написал ThisDrawing.SaveAs