图形实体是指所有CAD的图元物体，如点(point)、线(Line)、圆(Circle)、弧(Arc)、文字(Text)等，它们包含于ModelSpace和PaperSpace集合对象中。对实体的操作总要从这两个集合开始，向下查找相应实体所属的方法或属性。而图形实体的操作包括实体的生成、编辑和查询。 ModelSpace与PaperSpace是所有图形实体的集合，因此要取得图中的某一实体，一般采用遍历查找的方法，下面代码是CAD图形实体的生成、编辑实体或查询。

　　生成一条直线的代码：

　　Dim lineobj As Object

　　Dim pt1(0 To 2) As Double

　　Dim pt2(0 to 2) as double

　　Pt1(0)=0#

　　Pt1(1)=0#

　　Pt1(2)=0#

　　Pt2(0)=100#

　　Pt2(1)=50#

　　Pt2(2)=0#

　　SetlineObj = moSpace.Addline(pt1,pt2)

　　‘画从坐标点pt1至坐标点pt2的直线

　　改变这条直线的颜色(假设直线实体句柄为"4C")的代码：

　　Dim tobj As object

　　Set tobj=aCADdoc.HandletoObject("4C")

　　tobj.Color=acRed ‘

　　tobj.Update

　　查询图形文件中所有实体的实体名、实体句柄、颜色、所在层、线形等参数,如下面的代码所示：

　　Dim ent As Object

　　Dim msgStr, NL As String

　　Dim I as Integer

　　NL = Chr(13) & Chr(10) ‘回车与换行

　　I=1

　　For Each ent in mospace

　　msgStr = "第" & Format(I) & "个实体信息" & NL & NL

　　msgStr = msgStr & "实体名: " & ent.EntityName & NL

　　msgStr = msgStr & "所在层: " & ent.Layer & NL

　　msgStr = msgStr & "颜色: " & Str(ent.Color) & NL

　　msgStr = msgStr & "线形: " & ent.Linetype & NL

　　msgStr = msgStr & "句柄: " & ent.Handle & NL

　　MsgBox msgStr

　　I=I+1

　　Next