CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2024 开发者帮助 › 查看内容

AutoCAD 2024 开发者帮助

关于在文档窗口中更新几何图形（ActiveX）

2024-5-18 19:06| 发布者: admin| 查看: 162| 评论: 0|原作者: admin|来自: AutoCAD

通过 AutoCAD ActiveX Automation 执行的许多操作都会修改 AutoCAD 图形中显示的内容。

并非所有这些操作都会立即更新图形的显示。这样，您就可以对绘图进行多次更改，而无需在每次操作后等待显示更新。相反，您可以将操作捆绑在一起，并在完成后进行单个调用以更新显示。

将更新显示的方法为和。UpdateRegen

该方法仅更新单个对象的显示。该方法将重新生成整个图形，并重新计算所有对象的屏幕坐标和视图分辨率。它还会重新索引图形数据库，以实现最佳显示和对象选择性能。UpdateRegen

更新单个对象的显示

本示例创建一个圆圈。然后，它使用该方法更新圆，以便圆在AutoCAD中可见。Update

AutoLISP

(vl-load-com)
(defun c:Ch3_UpdateDisplay()
    (setq acadObj (vlax-get-acad-object)
          doc (vla-get-ActiveDocument acadObj)
          moSpace (vla-get-ModelSpace doc))
    
    (setq center (vlax-3d-point 1 1 0)
          radius 1)

    ;; Create the circle
    (setq circleObj (vla-AddCircle moSpace center radius))

    ;; Update the circle
    (vla-Update circleObj)
)

VBA（仅限 AutoCAD）

Sub Ch3_UpdateDisplay()
  Dim circleObj As AcadCircle
  Dim center(0 To 2) As Double
  Dim radius As Double
  center(0) = 1: center(1) = 1: center(2) = 0
  radius = 1

  ' Create the circle
  Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius)

  ' Update the circle
  circleObj.Update
End Sub