CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 创建和编辑 AutoCAD 实体› 关于修改对象（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于擦除或删除对象（VBA/ActiveX）

2023-1-5 00:55| 发布者: admin| 查看: 774| 评论: 0|来自: AutoCAD

摘要: 可以使用 Delete 方法擦除或删除单个对象。

您可以使用该方法擦除或删除单个对象。Delete

注意：ActiveX 自动化中的集合对象具有方法，这是由于这些对象在类型库中定义的方式。但是，永远不应删除集合对象，例如集合、集合和集合。如果尝试删除集合，将导致错误。DeleteModelSpaceLayersDictionaries

创建和删除折线

本示例创建一个轻量级折线，然后将其删除。

Sub Ch4_DeletePolyline()
  ' Create the polyline
  Dim lwpolyObj As AcadLWPolyline
  Dim vertices(0 To 5) As Double
  vertices(0) = 2: vertices(1) = 4
  vertices(2) = 4: vertices(3) = 2
  vertices(4) = 6: vertices(5) = 4
  Set lwpolyObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(vertices)
  ZoomAll

  ' Erase the polyline
  lwpolyObj.Delete
  ThisDrawing.Regen acActiveViewport
End Sub