[求助]请问版主如何在VBA中执行AutoCAD命令PASTECLIP？？

yichong

我知道AutoCAD2004中可以通过命令“PASTECLIP”（Ctrl+V），实现对剪切板中的文件进行插入的功能，比如.jpg、.doc、.txt等类型的文件。
我现在想在VBA中实现插入一个图片的功能，请问该调用哪些命令？

yichong

我已经将一个jpg文件复制到剪贴板中了，可是执行以下程序仍有问题：（提示“指定插入点 <0,0>:”）
ThisDrawing.SendCommand "_pasteclip" & vbCr & "0,0" & vbCr & "10" & vbCr & "0" & vbCr
可是我根据画圆命令的参考：
ThisDrawing.SendCommand "_cricle" & vbCr & "2,2,0" & vbCr & "50" & vbCr，就没有出现问题，这是怎么回事？
我该如何改SendCommand "_pasteclip" 之后的参数？ 谢谢了，各位高手帮帮忙吧！

雪山飞狐_lzh

这样不就完了


ThisDrawing.SendCommand "_pasteclip" &amp; vbCr &amp; "0,0" &amp; vbCr

yichong

版主你试过了没有？结果还是一样，不行的！ 我找到了新方法，提供给大家： Dim insertionPoint(0 To 2) As Double
insertionPoint(0) = 0#: insertionPoint(1) = 0#: insertionPoint(2) = 0#
ThisDrawing.ModelSpace.AddRaster("C:\my.jpg", insertionPoint, 1, 0)

雪山飞狐_lzh

晕了，提问题又不说清除，你直接说如何插入图形文件不就完了，和剪切板有什么关系


AddRaster是新方法么？

yichong

应该是AutoCAD2004的新功能