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

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

用VB控制CAD R14作图，假如有如下代码：
  Private Sub Command1_Click()
   Dim AcadApp As AcadApplication
   Dim AcadDoc As AcadDocument
   Set AcadApp = CreateObject(".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则显示包含所有对象的最小范围。

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

发表回复

精选推荐

浏览过的版块