看了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行。不知为何 ，我用的是
2004
置顶卡
