ARX的NET函数库之实体篇

efan2000

通过C++/CLI实现ARX的托管函数在NET里调用，示例如下：

1. '创建文字实体
   
2. Dim rb As ResultBuffer = New ResultBuffer
   
3. rb.Add(New TypedValue(DxfCode.Start, "TEXT"))
   
4. rb.Add(New TypedValue(10, New Point3d(0, 0, 0)))
   
5. rb.Add(New TypedValue(40, 2.5))
   
6. rb.Add(New TypedValue(DxfCode.Text, "Hello World"))
   
7. mcnetarx.GlobalFunctions.AcdbEntMake(rb)
   
8. '定义保存实体的变量
   
9. Dim ent() As Integer = New Integer() {}   
   
10. '获取最后一个实体
    
11. mcnetarx.GlobalFunctions.AcdbEntLast(ent)
    
12. '获取实体的DXF组码
    
13. rb = mcnetarx.GlobalFunctions.AcdbEntGet(ent)
    
14. Dim tvs() As TypedValue = rb.AsArray()
    
15. rb = New ResultBuffer
    
16. For Each tv As TypedValue In tvs
    
17.     If tv.TypeCode = 1 Then
    
18.         rb.Add(New TypedValue(tv.TypeCode, "晓东家园"))
    
19.     Else
    
20.         rb.Add(New TypedValue(tv.TypeCode, tv.Value))
    
21.     End If
    
22. Next
    
23. '修改实体，如果实体是文字，改为
    
24. mcnetarx.GlobalFunctions.AcdbEntMod(rb)

'创建文字实体<br /> Dim rb As ResultBuffer = New ResultBuffer<br /> rb.Add(New TypedValue(DxfCode.Start, "TEXT"))<br /> rb.Add(New TypedValue(10, New Point3d(0, 0, 0)))<br /> rb.Add(New TypedValue(40, 2.5))<br /> rb.Add(New TypedValue(DxfCode.Text, "Hello World"))<br /> mcnetarx.GlobalFunctions.AcdbEntMake(rb)<br /> '定义保存实体的变量<br /> Dim ent() As Integer = New Integer() {}   <br /> '获取最后一个实体<br /> mcnetarx.GlobalFunctions.AcdbEntLast(ent)<br /> '获取实体的DXF组码<br /> rb = mcnetarx.GlobalFunctions.AcdbEntGet(ent)<br /> Dim tvs() As TypedValue = rb.AsArray()<br /> rb = New ResultBuffer<br /> For Each tv As TypedValue In tvs<br />     If tv.TypeCode = 1 Then<br />         rb.Add(New TypedValue(tv.TypeCode, "晓东家园"))<br />     Else<br />         rb.Add(New TypedValue(tv.TypeCode, tv.Value))<br />     End If<br /> Next<br /> '修改实体，如果实体是文字，改为<br /> mcnetarx.GlobalFunctions.AcdbEntMod(rb)

注：附件基于AutoCAD2007和VS2005开发，理论上同时支持32位的2008和2009，没做进一步测试
更新：基于AutoCAD2010的32位，理论上同时支持32位的2011和2012，没做进一步测试。
          基于AutoCAD2013，理论上同时支持2014和2015，没做进一步测试。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:mcnetarx.zip 
下载次数:554  文件大小:3.64 MB 
下载权限: 不限 以上  [免费赚D豆]

小妖妖

顶一下吧  支持.NET

st788796

有aotolisp的感觉

qq1254582201

好东西，你值得拥有

xxchemkin

感谢源代码分享！

SHUNDocker

感谢楼主分享！！！！！