Question

CAD中怎么使用VBA在图纸里插入jpg图片?

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

Sub 批量插入图片()
Dim x(0 To 1) As Double
Dim x(0 To 1) As Double

For i = 1 To 1052
x(0) = 2801.4877
x(1) = 25090.6202 - (i - 1) * 500 '坐标X
y(0) = 3481.0352
y(1) = 25571.1574 - (i - 1) * 500 '坐标Y
L = "C:\Windows\Temp\" & Format(i, "0000") & ".jpg" '路径

'问题来了:用VBA在图纸里插入jpg图片的语句怎么写?

Next i
MsgBox "插入完毕", , "提示"
End Sub
自己解决了,百度就是个渣,搜半天搜不到,google一下就出来了!
Sub 批量插入图片()
Dim pic As AcadRasterImage
Dim L As String
Dim x(0 To 2) As Double
For i = 1 To 1208
x(0) = 2801.4877
x(1) = 25090.6202 - (i - 1) * 500
x(2) = 0
L = "C:\Windows\Temp\YLD201412-01" & Format(i, "000") & ".jpg" '路径

'问题来了:用VBA在图纸里插入jpg图片的语句怎么写?
Set pic = ThisDrawing.Application.ActiveDocument.ModelSpace.AddRaster(L, x, 300, 0) '(路径,坐标,大小,旋转角度)

Next i
MsgBox "插入完毕", , "提示"
End Sub

Answer 1

你可以把问题以帖子的形式发到土木在线论坛里 会有行内人士回复的。