插入光栅和刻度

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

嘿Bry

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

Bry，我认为p是您的光栅的名称？
零是0,0？并且您正在以1的比例插入。
那么，您尝试过以12的比例插入并且工作正常吗？
插入后，您是否列出了对象并返回了12的比例？
您有任何建议吗？
此外，我们在这篇文章中讨论了插入的光栅（通过vba）如何在OAIM上获得唯一的名称****
当我看到我说，WTF！
我用代码解决了它：
RastImg.Name=Imgname'imgname=选择的文件名
然而，我的老板提出了一个很好的观点，Xrefs也是如此；
如果您手动插入它们，它会选择文件名，但您不必将文件名保留为xref名称。
为什么你会改变它有点超出我的能力，但这是可能的。
显然，同样的原则也适用于光栅图像。
如果我说：
RastImg.Name="Bryco"
那么我插入的光栅肯定是Bryco的名字。
Mark

Bryco · 发表于 2007-11-6 23:19:56

大家好＜br＞我遇到一个错误：无法分配到数组＜br＞有人能告诉我我哪里出错了吗
马克

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 10:09:56

我试图指出这一点。ScaleFactor工作和缩放字段。AddRaster指的是宽度。（完全不同的thangs）
无法分配给数组-某些项目需要变体而不是双精度数组。
dim Pt
Pt=midpnt
yada yada

插入光栅和刻度

发表回复

精选推荐