[求助]：[求助]如何在关闭并保存图形时执行命令？

neteasy

我在文档层事件BeginDocClose或BeginSave中写了代码，比如画了一条线，在关闭时并没有保存在文件中，为什么？请高人指点！！！

雪山飞狐(lzh)

Private pSaved As Boolean

Private Sub AcadDocument_BeginSave(ByVal FileName As String)
Dim p1(2) As Double, p2(2) As Double
p2(1) = 10
If Not pSaved Then
    pSaved = True
    ThisDrawing.ModelSpace.AddLine(p1, p2).Update
    ThisDrawing.Save
    pSaved = False
End If
End Sub

neteasy

谢谢版主，我回去试试。

evaporated

借问一下版主：
上面的程序中psaved变量是什么作用呢？
作为标志位？
Private Sub AcadDocument_BeginSave(ByVal FileName As String)
Dim p1(2) As Double, p2(2) As Double
p2(1) = 10
ThisDrawing.ModelSpace.AddLine(p1, p2).Update
thisDrawing.Save
End Sub
单纯这样不可以吗？
我是新手，请指教！