实体对象（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