StartMe 发表于 2009-7-31 21:36:00

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

dchlmz 发表于 2009-8-7 21:41:00

再顶顶看

3xxx 发表于 2013-12-4 12:54:57

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

efan2000 发表于 2013-12-4 16:20:36

Sub test()
    Dim e As AcadEntity
    Set e = ThisDrawing.ModelSpace(0)
    If TypeOf e Is AcadRasterImage Then
      Dim ri As AcadRasterImage
      Set ri = e
      Dim c As mccomarx.AcDbRasterImage
      Set c = New mccomarx.AcDbRasterImage
      ' 获取光栅图像定义的ObjectId
      Dim id As Long
      id = c.imageDefId(ri)
      If id <> 0 Then
            Dim o As AcadObject
            Set o = ThisDrawing.ObjectIdToObject(id)
            o.Delete
      End If
    End If
End Sub
其中用到了ARX的COM库，需要哪个版本的，我可以发布下。

mycad 发表于 2013-12-7 07:49:05

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

3xxx 发表于 2013-12-10 18:19:03

需要2014版啊

3xxx 发表于 2013-12-21 13:26:45

还没放出来啊。
页: 1 [2]
查看完整版本: VBA如何拆离光栅图像