[求助]江湖救急
最近做capp开发 第一次接触vba 有个需求是需要根据autocad的实体 改变绘图窗口大小<br/>代码如下:<br/> Public Sub test()<br/>Dim ss As AcadSelectionSet<br/>Dim i As AcadEntity<br/>Set ss = ThisDrawing.ActiveSelectionSet<br/>ss.Select acSelectionSetAll<br/>ss(0).GetBoundingBox pmin, pmax<br/>For Each i In ss<br/>i.GetBoundingBox p1, p2<br/>If p1(0) < pmin(0) Then pmin(0) = p1(0)<br/>If p1(1) < pmin(1) Then pmin(1) = p1(1)<br/>If p2(0) > pmax(0) Then pmax(0) = p2(0)<br/>If p2(1) > pmax(1) Then pmax(1) = p2(1)<br/>Next i<br/> 'MsgBox pmin(0)<br/> 'MsgBox pmin(1)<br/> 'MsgBox pmax(0)<br/> 'MsgBox pmax(1)<br/> ThisDrawing.Width = pmax(0) - pmin(0)<br/> ThisDrawing.Height = pmax(1) - pmin(1)<br/>Application.ZoomExtents<br/>End Sub<br/>但是出现了个问题第一次运行的时候cad绘图窗体大小是改变了，图形并没有缩放．有部分图是窗口以外<br/>需要再运行一次 才能实现<br/><br/>望各位哪位大侠出手点播下 冒的人啊!~~~~~~~~~~~~~~~~~~
页:
[1]