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

yichong · 发表于 2004-11-30 21:02:00

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

yichong · 发表于 2004-11-30 22:01:00

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

雪山飞狐_lzh · 发表于 2004-11-30 22:06:00

这样不就完了
ThisDrawing.SendCommand "_pasteclip" & vbCr & "0,0" & vbCr

yichong · 发表于 2004-11-30 22:41:00

版主你试过了没有？结果还是一样，不行的！
我找到了新方法，提供给大家：
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)