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

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

我知道AutoCAD2004中可以通过命令“PASTECLIP”（Ctrl+V），实现对剪切板中的文件进行插入的功能，比如.jpg、.doc、.txt等类型的文件。


<BR>我现在想在VBA中实现插入一个图片的功能，请问该调用哪些命令？<BR>

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

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


谢谢了，各位高手帮帮忙吧！

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

这样不就完了


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

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

版主你试过了没有？结果还是一样，不行的！


我找到了新方法，提供给大家：


Dim insertionPoint(0 To 2) As Double<BR>insertionPoint(0) = 0#: insertionPoint(1) = 0#: insertionPoint(2) = 0#<BR>ThisDrawing.ModelSpace.AddRaster("C:\my.jpg", insertionPoint, 1, 0)<BR>

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

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


AddRaster是新方法么？

yichong 发表于 2004-12-1 14:32:00

应该是AutoCAD2004的新功能
页: [1]
查看完整版本: [求助]请问版主如何在VBA中执行AutoCAD命令PASTECLIP？？