• На форуме с 4 апреля 2008г.
  • Сообщений: 76
  • Спасибо: 0

Тема: Как сохранить копию чертежа с заданными "Cвойствами чертежа"?

Помогите изменить код, пожалуйста!
Необходимо сохранить копию чертежа в файле с именем,  в котором указана дата сохранения: copyfile_<time>.dwg
Public Sub auto()
     Dim savName As String
With ThisDrawing.SummaryInfo
.Author = "БВ"
.Subject = "111111"
.Title = "111"
End With
savName = "C:\Documents and Settings\All Users\Application Data\Autodesk\copyfile_<time>.dwg"
      Close
End Sub

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Как сохранить копию чертежа с заданными "Cвойствами чертежа"?

> KyCOK
Можно сделать несколькими способами
Этот - самый простой:

Sub try()
     Dim thisname As String
     Dim savName As String
On error GoTo Err_Control
With ThisDrawing.SummaryInfo
.Author = "BB"
.Subject = "111111"
.Title = "111"
End with
     thisname = ThisDrawing.FullName
     savName = "C:\Documents and Settings\All Users\Application Data\Autodesk\copyfile_" & Format(Now, "DD-MM-YYYY") & ".dwg"
     With Application
          .ActiveDocument.Save
          .ActiveDocument.SaveAs savName
          .ActiveDocument.Close
          .Documents.Open thisname
     End With
Err_Control:
MsgBox Err.Description
end sub

  • На форуме с 4 апреля 2008г.
  • Сообщений: 76
  • Спасибо: 0

Re: Как сохранить копию чертежа с заданными "Cвойствами чертежа"?

БОльшое вам "Благодарю"!

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Как сохранить копию чертежа с заданными "Cвойствами чертежа"?

> KyCOK
Успехов :)
~'J'~