图生活吧

博客园 首页 新随笔 联系 订阅 管理

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)

下载地址:http://bbs.mjtd.com/thread-109091-1-1.html

posted on 2014-06-11 16:34  图生活吧  阅读(531)  评论(0编辑  收藏  举报