[Konstruktiv54]

Очень надоедает при работе с подложками постоянные попытки сохранить dxf файлы в формате dwg.

[Taracka]

Вопрос уже поднимался, поищите. Вот только не помню нашли ли ли решение

[trir]

https://knowledge.autodesk.com/ru/su...n-AutoCAD.html

[AlexCondor]

trir, Это для всех. а ТС желает, НЯП, чтобы только для dxf

[Konstruktiv54]

Сообщение от AlexCondor trir, Это для всех. а ТС желает, НЯП, чтобы только для dxf

всё правильно.
Хотелось, что бы по дефолту dwg сохранялся в dwg, а dxf сохранялся в dxf.
И не выскакивало это идиотское окошко ))
но видимо это возможно только с помощью макросов или отдельной программы.

[Konstruktiv54]

Попробовал написать макрос, но не выходит каменный цветок.

Код:

[Выделить все]

Sub SaveDxf()
    Dim name As String
    Set objApp = GetObject(, "AutoCAD.Application")
    Set ThisDrawing = objApp.ActiveDocument
        
    name = ThisDrawing.FullName
    ThisDrawing.SaveAs name, ac2004_dxf
'    ThisDrawing.SaveAs "D:\1.dxf", ac2004_dxf - норм работает
        
End Sub

В таком виде работает только для сохранение с новым именем файла, с сохранить под тем же именем не дает, видимо файл заблокирован или что-то в этом роде. Выдает ошибку "Run-time error '-2145320861 (80210063)': Error saving the document"
google не дал полезных результатов
Может кто знает решение?

[Кулик Алексей aka kpblc]

Посмотри, что у тебя в name. Возможно, там существует расширение ".dwg", которое и воспринимается как неверное.

[Konstruktiv54]

Нет, он почему-то просто не хочет сохранять dxf как dxf. Пришлось вот так выходить из ситуации.
Offtop: Вроде работает, поставил на быстрый вызов альт+контрол+шифт+s ) доволен

Код:

[Выделить все]

Sub SaveDxf()
    Dim fullName, newName, docType As String
    Set objApp = GetObject(, "AutoCAD.Application")
    Set ThisDrawing = objApp.ActiveDocument
        
    fullName = ThisDrawing.fullName
    newName = Left(fullName, Len(fullName) - 4)
    docType= Right(fullName, 3)
    If (docType = "dxf") Then
        ThisDrawing.SaveAs newName, AcSaveAsType.ac2010_dwg
        ThisDrawing.SaveAs newName, AcSaveAsType.ac2010_dxf
    Else
        ThisDrawing.SaveAs newName, AcSaveAsType.ac2010_dxf
    End If
End Sub

[DMSskop]

Это лисп или что? Окно с изменением формата сохранения достало

[Konstruktiv54]

Это вба макрос