[Surrogate]

AutoCAD 2011. Пытаюсь программно сделать PURGE ALL

Код:

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

Function ChangeTempFile() As Variant
On Error Resume Next
Dim DWDOC2 As AcadDocument
Dim AppDWG As AcadApplication
Set AppDWG = GetObject(, "Autocad.application")
Set DWDOC2 = AppDWG.ActiveDocument
DWDOC2.SendCommand "-PURGE a *" & vbCrLf & "n " & vbCrLf
DWDOC2.Save
DWDOC2.Close ' , savechanges:=False
Set DWDOC2 = Nothing
AppDWG.Quit
Set AppDWG = Nothing
End Function

почему то последний параметр не меняется с YES на NO где надо

Command: -PURGE Enter type of unused objects to purge [Blocks/Dimstyles/LAyers/LTypes/MAterials/MUltileaderstyles/Plotstyles/SHapes/te xtSTyles/Mlinestyles/Tablestyles/Visualstyles/Regapps/Zero-length geometry/Empty text objects/All]: a Enter name(s) to purge <*>: * Verify each name to be purged? [Yes/No] <Y>: Purge block "*U154"? <N> _n Purge block "vr-1000"? <N> Purge block "монитор"? <N>

зато где не надо передается аж три раза

[Boxa]

Справка к автокаду:

Код:

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

VBA Example 
Sub Example_PurgeAll()
    ' This example removes all unused named references from the database
    
    ThisDrawing.PurgeAll
    
End Sub

[Surrogate]

спасибо ! А ларчик просто открывался