Question

求AutoCAD插入图片VBA代码

如题

Answer 1

Sub InsertRaster()     
Dim a As AcadRasterImage     
Dim b(2) As Double     
Dim ly As AcadLayer     
Dim PicFileName As String     
Dim factor As Double     
factor = 2#     
Set ly = ThisDrawing.Application.ActiveDocument.Layers.Add("底图")     
PicFileName = "E:\图片\Bliss.jpg"    
 b(0) = 100    
 b(1) = 100     
b(2) = 0     
Set a = ThisDrawing.Application.ActiveDocument.ModelSpace.AddRaster(PicFileName, b, factor, 45)     
a.Transparency = True     
a.Layer = "底图"          
ThisDrawing.Application.ZoomExtents     
ThisDrawing.SaveAs "E:\yangbiao.dwg" 
End Sub

引用：http://wenku.baidu.com/link?url=vZOVu1yLkjIhQhYqL2OZjd3jlBOl13a8FcAmlKZzsMsFgWLuQ4IdkvYk7BsWuQPca0Y52rvpX9bIi0HM-6BVrieC5TDSig7NNVbye8aqAvO

Answer 2