为何设置DockedVisibleLines属性没用

atm2000

看了CAD对象模型后写了以下VBA程序

Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint  As Variant)
 Dim preferences As AcadPreferences
  Set preferences = ThisDrawing.Application.preferences
  preferences.Display.DockedVisibleLines = 8
 msgbox "xxxx"
End Sub

加载运行后，能出现“XXXX”的显示框，表明程序运行到最后一行
但CAD的命令窗口所显示的文字行数还是没变，不是8行。不知为何 ，我用的是

AutoCAD2004