潇湘夜雨 发表于 2003-9-6 18:33:00

请教各位，用VB控制CAD R14作图时，怎样在屏幕上看到画图过程？

用VB控制CAD R14作图，假如有如下代码：
Private Sub Command1_Click()
      Dim AcadApp As AcadApplication
      Dim AcadDoc As AcadDocument
      Set AcadApp = CreateObject("autocad.application.14")
      Set AcadDoc = AcadApp.ActiveDocument
      AcadApp.Visible = True
      Dim LineObj As AcadLine
      Dim StartPoint(0 To 2) As Double
      Dim EndPoint(0 To 2) As Double
      StartPoint(0) = 2000: StartPoint(1) = 2000
      EndPoint(0) = 4000: EndPoint(1) = 4000
      Set LineObj = AcadDoc.ModelSpace.AddLine(StartPoint, EndPoint)
End Sub
则运行程序时在屏幕上什么也看不见，必须用缩放命令才能看到所画图形，请问要怎样才能在屏幕上看到画图过程？

新手上路，望不吝赐教，感激之至！！

efan2000 发表于 2003-9-6 19:06:00

使用屏幕重生成的方法。
AcadDoc.Regen acActiveViewport
这是仅对当前视口进行重生成，速度比下面的语句快。
AcadDoc.Regen acAllViewports
这是对所有的视口进行重生成。

潇湘夜雨 发表于 2003-9-8 17:37:00

版主，我按您的方法添加语句运行之，还是不行。上面程序所画直线端点坐标很大（2000，2000）、（4000，4000），落在可见区域之外。我想使cad打开时可见区域较大（例如（0，0）到（5000，5000）的矩形区域），这样在屏幕上便可看到整个画图过程。另外我用R14（公司都用它，没办法！）。

不知道我说清楚了没有？!请您再指正一下！
谢谢！！

efan2000 发表于 2003-9-8 22:14:00

那就通过程序自动缩放，使用AcadApp.ZoomAll就可以按图纸界限设置显示所有。
如果使用AcadApp.ZoomExtents则显示包含所有对象的最小范围。
页: [1]
查看完整版本: 请教各位，用VB控制CAD R14作图时，怎样在屏幕上看到画图过程？