1、创建一个结果缓冲区。
2、调用AcdbEntMake创建对象。
示例:
' 创建文字实体 Dim rb As ResultBuffer = New ResultBuffer rb.Add(New TypedValue(DxfCode.Start, "TEXT")) rb.Add(New TypedValue(10, New Point3d(0, 0, 0))) rb.Add(New TypedValue(40, 2.5)) rb.Add(New TypedValue(DxfCode.Text, "Hello World")) mcnetarx.GlobalFunctions.AcdbEntMake(rb)