怎么使用VBA在图纸里插入jpg图片?[已解决]
本帖最后由 人形百度- 于 2015-3-9 16:44 编辑因为有很多很多张图片要插入到CAD里,所以想到用VBA来解决,之前只会excel的VBA,对CAD的不怎么了解,现在问题来了:
自己解决了,百度就是个渣,搜半天搜不到,google一下就出来了!Sub 批量插入图片()
Dim pic As AcadRasterImage
Dim L As String
Dim x(0 To 2) As Double
For i = 1 To 2108
x(0) = 2801.4877
x(1) = 25090.6202 - (i - 1) * 500
x(2) = 0
L = "C:\Windows\Temp\YLD201412-01" & Format(i, "0000") & ".jpg" '路径
'问题来了:用VBA在图纸里插入jpg图片的语句怎么写?
Set pic = ThisDrawing.Application.ActiveDocument.ModelSpace.AddRaster(L, x, 300, 0) '路径,坐标,大小,旋转角度
Next i
MsgBox "插入完毕", , "提示"
End Sub
哥们儿你是怎么上的google
页:
[1]