因为有很多很多张图片要插入到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
| 
置顶卡
