乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 79|回复: 5

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

[复制链接]

7

主题

11

帖子

2

银币

初来乍到

Rank: 1

铜币
39
发表于 2004-11-30 21:02:00 | 显示全部楼层 |阅读模式
我知道2004中可以通过命令“PASTECLIP”(Ctrl+V),实现对剪切板中的文件进行插入的功能,比如.jpg、.doc、.txt等类型的文件。
我现在想在VBA中实现插入一个图片的功能,请问该调用哪些命令?
回复

使用道具 举报

7

主题

11

帖子

2

银币

初来乍到

Rank: 1

铜币
39
发表于 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" 之后的参数?
谢谢了,各位高手帮帮忙吧!
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-11-30 22:06:00 | 显示全部楼层
这样不就完了
ThisDrawing.SendCommand "_pasteclip" & vbCr & "0,0" & vbCr
回复

使用道具 举报

7

主题

11

帖子

2

银币

初来乍到

Rank: 1

铜币
39
发表于 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)
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-11-30 22:58:00 | 显示全部楼层
晕了,提问题又不说清除,你直接说如何插入图形文件不就完了,和剪切板有什么关系
AddRaster是新方法么?
回复

使用道具 举报

7

主题

11

帖子

2

银币

初来乍到

Rank: 1

铜币
39
发表于 2004-12-1 14:32:00 | 显示全部楼层
应该是AutoCAD2004的新功能
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 18:40 , Processed in 2.438330 second(s), 77 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表