插入光栅和比例

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

嗨，我的光栅图像插入得很好……等等。我把比例因子设为12。但是，它一直在18.82插入。有人知道为什么会发生这种情况吗
谢谢Mark

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（这是我想要的）&nbsp；因此，您可能需要将其更改为1，然后将其改为12；只是一个想法。

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

嘿，蒂姆，如果你把它插入1，它怎么知道可以扩展到2.09
就像我将比例更改为1一样，光栅如何知道缩放为12
我是不是要假装说Scalefactor=1，Scalefactor=12
谢谢Mark

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

我会假装出来，将ScaleFactor设置为1，然后将其更改为12（将该值赋给光栅图像两次）&nbsp；我不知道&#039；我不知道它是如何正确地按比例缩放的，但我知道它做到了&nbsp；也许我应该报告，但我&#039；我不知道怎么去或去哪里。

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

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

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

检查这个TimScalefactor=7.65#039；以12个比例插入光栅。上述方法可行，但WTF
我可以&#039；我甚至想不出一个比率来验证这一点
我的老板告诉我，插入的比例受光栅分辨率的影响…
如果这是真的，并且我的光栅是600 dpi，那么一定有一些比率可以用来在代码中获得正确的比例因子
标记