atm2000 发表于 2006-3-1 01:09:00

为何设置DockedVisibleLines属性没用

<P>看了CAD对象模型后写了以下VBA程序</P>
<P>Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint&nbsp; As Variant)<BR>&nbsp;Dim preferences As AcadPreferences<BR>&nbsp; Set preferences = ThisDrawing.Application.preferences<BR>&nbsp; preferences.Display.DockedVisibleLines = 8<BR>&nbsp;msgbox "xxxx"<BR>End Sub</P>
<P>加载运行后，能出现“XXXX”的显示框，表明程序运行到最后一行<BR>但CAD的命令窗口所显示的文字行数还是没变，不是8行。不知为何 ，我用的是</P>
<P>AUTOCAD2004</P>
页: [1]
查看完整版本: 为何设置DockedVisibleLines属性没用