怎么使用VBA在图纸里插入jpg图片?[已解决]

人形百度-

因为有很多很多张图片要插入到CAD里,所以想到用VBA来解决,之前只会excel的VBA,对CAD的不怎么了解,现在问题来了:






自己解决了,百度就是个渣,搜半天搜不到,google一下就出来了!

2. Sub 批量插入图片()
   
3. Dim pic As AcadRasterImage
   
4. Dim L As String
   
5. Dim x(0 To 2) As Double
   
6. For i = 1 To 2108
   
7.         x(0) = 2801.4877
   
8.         x(1) = 25090.6202 - (i - 1) * 500
   
9.         x(2) = 0
   
10. L = "C:\Windows\Temp\YLD201412-01" & Format(i, "0000") & ".jpg"   '路径
    
11.         
    
12. '问题来了:用VBA在图纸里插入jpg图片的语句怎么写?
    
13. Set pic = ThisDrawing.Application.ActiveDocument.ModelSpace.AddRaster(L, x, 300, 0) '路径,坐标,大小,旋转角度
    
14. 
    
15. 
    
16. 
    
17. Next i
    
18. MsgBox "插入完毕", , "提示"
    
19. End Sub
    
20. 
    

Sub 批量插入图片()<br /> Dim pic As AcadRasterImage<br /> Dim L As String<br /> Dim x(0 To 2) As Double<br /> For i = 1 To 2108<br />         x(0) = 2801.4877<br />         x(1) = 25090.6202 - (i - 1) * 500<br />         x(2) = 0<br /> L = "C:\Windows\Temp\YLD201412-01" & Format(i, "0000") & ".jpg"   '路径<br />         <br /> '问题来了:用VBA在图纸里插入jpg图片的语句怎么写?<br /> Set pic = ThisDrawing.Application.ActiveDocument.ModelSpace.AddRaster(L, x, 300, 0) '路径,坐标,大小,旋转角度<br /> <br /> <br /> <br /> Next i<br /> MsgBox "插入完毕", , "提示"<br /> End Sub<br /> <br />

zzyong00

哥们儿你是怎么上的google