VBA如何拆离光栅图像

StartMe

CAD保留不少东东啊。这样的功能VBA都不能实现？真没人知道么？

dchlmz

再顶顶看

3xxx

还是没法解决么?论坛中有C#的代码。

efan2000

1. Sub test()
   
2.     Dim e As AcadEntity
   
3.     Set e = ThisDrawing.ModelSpace(0)
   
4.     If TypeOf e Is AcadRasterImage Then
   
5.         Dim ri As AcadRasterImage
   
6.         Set ri = e
   
7.         Dim c As mccomarx.AcDbRasterImage
   
8.         Set c = New mccomarx.AcDbRasterImage
   
9.         ' 获取光栅图像定义的ObjectId
   
10.         Dim id As Long
    
11.         id = c.imageDefId(ri)
    
12.         If id <> 0 Then
    
13.             Dim o As AcadObject
    
14.             Set o = ThisDrawing.ObjectIdToObject(id)
    
15.             o.Delete
    
16.         End If
    
17.     End If
    
18. End Sub

Sub test()<br />     Dim e As AcadEntity<br />     Set e = ThisDrawing.ModelSpace(0)<br />     If TypeOf e Is AcadRasterImage Then<br />         Dim ri As AcadRasterImage<br />         Set ri = e<br />         Dim c As mccomarx.AcDbRasterImage<br />         Set c = New mccomarx.AcDbRasterImage<br />         ' 获取光栅图像定义的ObjectId<br />         Dim id As Long<br />         id = c.imageDefId(ri)<br />         If id <> 0 Then<br />             Dim o As AcadObject<br />             Set o = ThisDrawing.ObjectIdToObject(id)<br />             o.Delete<br />         End If<br />     End If<br /> End Sub

其中用到了ARX的COM库，需要哪个版本的，我可以发布下。

mycad

顶！！！！！！！！！！！！！！

3xxx

需要2014版啊

3xxx

还没放出来啊。