社区 › VB › 插入光栅和比例

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

插入光栅和比例

嗨，我的光栅图像插入得很好……等等。我把比例因子设为12。但是，它一直在18.82插入。有人知道为什么会发生这种情况吗
谢谢MarkDim 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，那么一定有一些比率可以用来在代码中获得正确的比例因子
标记

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

是的，我也看到了奇怪的名字&nbsp；我也用我做的代码修改了这个&nbsp；我还试图找到要使用的比例，直到我试图将比例改为1，然后看看发生了什么&nbsp；我不知道&#039；我不明白，但我&#039；我很高兴你有工作要做&nbsp；你&#039；再次欢迎Mark。

T.Willey 发表于 2007-11-6 15:59:16

是的，VBA处理一些事情真的很奇怪，但我想这是最终的结果，重要的是感谢上帝为这样的论坛

T.Willey 发表于 2007-11-6 16:53:28

这是个大麻烦

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

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

查看完整版本: 插入光栅和比例