三维网

标题: VBA:如何插入光栅图像并隐藏边框？ [打印本页]
作者: 157787698    时间: 2011-7-1 11:07
标题: VBA:如何插入光栅图像并隐藏边框？
两个问题：) N1 u- ^) j+ N
1、VBA如何在图纸中直接插入光栅图像？4 k7 P; z% x3 V9 O: J3 `! Z$ I
     我现在的方法是曲线救国，因为我要插入到每一幅图中的内容是固定的，即公司LOGO，所以我先将图片插入到图纸中并保存，然后每次需要使用的时候，使用Attchexternalreference方法插入事先做好的dwg格式图纸, [1 ~2 E% e0 P5 o- C

1 @6 e# Z6 y$ z, |+ m# o! W% ?2、VBA如何将插入图纸中的光栅图像边框去掉？
1 p) i7 t4 c2 r  M# u9 m( r9 L     这个问题目前没有找到解决办法，只能手动通过菜单修改：修改-对象-图像-边框-0；或者通过或Imagehlt命令修改+ k0 E7 U5 g" e; u' L  w

3 G& [8 q( _, b: I" @2 v0 y" w0 P0 e0 [- i. Z
请高手指点，先谢谢了
作者: woaishuijia    时间: 2011-7-1 12:54
1、VBA如何在图纸中直接插入光栅图像？

3 ^( }7 j1 b' a$ U- oModelSpace 集合, PaperSpace 集合和 Block 对象的 AddRaster 方法
, P" M( L; c7 Y7 Q  Y
2、VBA如何将插入图纸中的光栅图像边框去掉？

* w1 L2 P. }3 Y/ P* ^7 T3 Y是否显示或打印光栅图像的边框取决于 IMAGEFRAME 系统变量的值
7 N. T" F1 }8 ]- P设置系统变量使用 Document 对象的 SetVariable 方法
作者: 157787698    时间: 2011-7-1 16:14
本帖最后由 157787698 于 2011-7-1 16:18 编辑 3 T+ @, f6 n7 W. Q

+ t2 G, r1 P1 u" _$ C7 |IMAGEFRAME 系统变量好像只出现在2010中，06/08中都没有& {/ ?: u" `, b" }) Q+ f

  g4 C- i3 l8 }9 |在06/08中IMAGEFRAME是命令' d- u7 M+ y# B3 w( d

* B7 W' |0 W1 K3 H5 T0 e还有没办法解决？
作者: 157787698    时间: 2011-7-1 16:30
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr' B: S$ `& t7 @# ]2 _4 M: @( l8 o
实现了



欢迎光临 三维网 (http://www.3dportal.cn/discuz/) Powered by Discuz! X3.4