插入光栅和刻度

T.Willey · 发表于 2007-11-5 18:43:41

嗨，我的光栅图像插入很好……等等。等等。我制作了scalefactor=12#
但是，它一直在18.82插入。有人知道为什么会发生这种情况吗
谢谢
马克

Dim RastImg As AcadRasterImage
Dim InsertPnt(0 To 2) As Double, Scalefactor As Double, RotAngle As Double
Dim lpt(0 To 2) As Double
Dim rpt(0 To 2) As Double
Dim mdpt(0 To 2) As Double
  
   
InsertPnt(0) = 0#: InsertPnt(1) = 0#: InsertPnt(2) = 0#
Scalefactor = 12   <-------------------   :lol:
RotAngle = 0
On Error GoTo Errorhandler
Set RastImg = ThisDrawing.PaperSpace.AddRaster(Imgpth & Imgname, InsertPnt, Scalefactor, RotAngle)
RastImg.Name = Imgname
Errorhandler:
   If Err.Description = "File access error" Then
    If MsgBox("No files were selected " & vbCrLf & "Would you like to select a file? ", vbYesNo) = vbYes Then
     LocMap
    Else
     Exit Sub
   End If
   End If

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

T.Willey · 发表于 2007-11-5 19:37:19

当我通过Lisp插入带有ActiveX的图像时，我不得不将比例更改为1，但它会将其缩放为2.0933333（这是我想要的）。所以也许你得把它改成1，然后改成12。这只是个想法。

T.Willey · 发表于 2007-11-6 09:46:47

嘿Tim，
如果你在1处插入它，它怎么知道缩放到2.09？
就像我将比例更改为1一样，光栅怎么知道缩放到12？
我是否会假装说缩放因子=1，缩放因子=12？
谢谢
Mark

T.Willey · 发表于 2007-11-6 12:52:15

是的
我会尝试
VBA肯定不是没有怪癖的，但至少我们可以找到解决这些问题的方法
此外，您是否注意到，当您使用VBA插入光栅时，它会给它一个OAIM名称
那么，你也必须解决这个问题
谢谢，蒂姆

Bryco · 发表于 2007-11-6 13:07:42

看看这个Tim
ScaleFactor=7.65'以12比例插入光栅
上面的工作原理，但WTF？
我甚至想不出一个比率来验证这一点。
我的老板告诉我，插入的比例受到光栅分辨率的影响...
如果这是真的，我的光栅是600 dpi，那么一定有一些比率可以用来在代码中获得正确的比例因子。
Mark

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

是的，VBA处理一些非常奇怪的事情，但我想这是最终结果，
对于像这样的论坛来说，
上帝很重要。

T.Willey · 发表于 2007-11-6 13:38:47

这是一个很大的痛苦在屁股

Bryco · 发表于 2007-11-6 15:59:16

我的老板用LISP在30分钟内完成了同一个项目，这是肯定的。我喜欢VBA，但是如果它可以用1/5的时间用LISP完成，并且不需要连接其他支持VBA的程序，那就用LISP吧

Bryco · 发表于 2007-11-6 16:53:28

不知道你会不会说我口齿不清，但是

Bryco · 发表于 2007-11-6 18:21:08

我以12倍的比例插入的每张图像最终的宽度都是12英寸，
所以这个误导性的比例实际上指的是宽度。
设置R = ThisDrawing。ModelSpace.AddRaster(p，Zero，1，0)
R.ScaleFactor = 12
比例因子适用于我，但可能不适用于Ml

插入光栅和刻度

发表回复

精选推荐