插入光栅和比例

T.Willey · 发表于 2007-11-6 19:26:39

唐#039；我不知道你是否会说我的口齿不清，但是

T.Willey · 发表于 2007-11-6 23:19:56

我在比例12处插入的每个图像的宽度都是12
因此，误导性尺度实际上是指宽度
设置R=ThisDrawing.ModelSpace。添加光栅（p，Zero，1，0）
R。比例因子=12
；ScaleFactor适用于我，但可能不适用于Ml

T.Willey · 发表于 2007-11-7 10:09:56

嘿，布莱

Set R = ThisDrawing.ModelSpace.AddRaster(p, Zero, 1, 0)
R.ScaleFactor = 12

布莱，我想p是你的光栅的名字
0是0,0？你以1的比例插入。那么，你试着以12的比例插入，效果很好
插入后，是否列出了对象，并返回12作为比例
你有什么建议吗
此外，我们在这篇文章中讨论了插入的光栅（通过vba）如何在OAIM上获得唯一的名称，当我看到我说的时候，WTF
我用代码解决了这个问题：RastImg。名称=Imgname&#039；imgname=picked文件名
然而，我的老板提出了一个很好的观点，对于外部参照也是如此
如果手动插入，它将拾取文件名，但不必将文件名保留为外部参照名
你为什么要改变，我有点不懂，但这是可能的
同样的原理明显适用于光栅图像
如果我说：拉斯蒂姆。名称=“”；“Bryco”
然后，我插入的光栅肯定会被命名为Bryco
标记

T.Willey · 发表于 2007-11-7 10:34:59

大家好，我收到一个错误：Can&#039；t分配到数组
谁能告诉我我哪里出错了吗
谢谢你，马克

copy

Dim llpnt(0 To 2) As Double
Dim urpnt(0 To 2) As Double
Dim mdpnt(0 To 2) As Double
mdpnt(0) = llpnt(0) + ((urpnt(0) - llpnt(0)) / 2) 'Midpoint (X) = The point in the far left direction - the point in the far right direction / 2
mdpnt(1) = llpnt(1) + ((urpnt(1) - llpnt(1)) / 2) 'Midpoint (Y) = The point in the far top direction - the point in the far bottom direction / 2
mdpnt(2) = 0

T.Willey · 发表于 2007-11-7 12:13:20

我想指出的是。ScaleFactor有效，中的scale字段。AddRaster指的是宽度。（完全不同）
可以#039；t分配给数组-某些项需要变量而不是双精度数组
dim PtPt=midpntyada-yada

插入光栅和比例

发表回复

精选推荐