创建实体

From AutoCAD ActiveX/VBA

previous page next page

创建多面网格

创建三维对象

在三维空间中编辑

ActiveX/VBA 开发人员手册 > 在三维空间中工作 > 创建三维对象 >

创建实体

实体对象（3DSolid 对象）代表对象的整个体积。实体是信息最完整和最确切的三维建模类型。复杂实体形也比线框和网格更容易构造和编辑。

可以根据基本实体形（长方体、圆锥体、圆柱体、球体、圆环体和楔体）来创建实体，也可以通过沿路径拉伸二维对象或者绕轴旋转二维对象来创建实体。要创建实体，可以使用以下方法之一：

AddBox、AddCone、AddCylinder、AddEllipticalCone、AddEllipticalCylinder、AddExtrudedSolid、AddExtrudedSolidAlongPath、AddRevolvedSolid、AddSolid、AddSphere、AddTorus 或 AddWedge。

与网格类似，在进行消隐、着色或渲染之前，实体显示为线框。此外，用户还可以分析实体的质量特性（体积、惯性矩、重心等等）。以下特性可用于分析实体：MomentOfInertia、PrincipalDirections、PrincipalMoments、ProductOfInertia、RadiiOfGyration 和 Volume。

ContourlinesPerSurface 特性可控制用于直观显示线框曲线部分的镶嵌数。RenderSmoothness 特性用于调整着色对象和隐藏线对象的平滑度。

有关创建实体的详细信息，请参见《用户手册》中的“创建三维对象”。

创建楔体实体

本样例在模型空间中创建一个楔形实体。然后更新活动视口的观察方向，以便于查看楔体的三维情况。

Sub Ch8_CreateWedge()

    Dim wedgeObj As Acad3DSolid

    Dim center(0 To 2) As Double

    Dim length As Double

    Dim width As Double

    Dim height As Double

          ' 定义楔体
          center(0) = 5#: center(1) = 5#: center(2) = 0
          length = 10#: width = 15#: height = 20#
                ' 在模型空间中创建楔体
          Set wedgeObj = ThisDrawing.ModelSpace. _
                         AddWedge(center, length, width, height)
                ' 更改视口的观察方向
          Dim NewDirection(0 To 2) As Double
          NewDirection(0) = -1
          NewDirection(1) = -1
          NewDirection(2) = 1
          ThisDrawing.ActiveViewport.direction = NewDirection
          ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
          ZoomAll
      End Sub

previous page start next page