Bir Raster Görüntüsünü Ekleme ve Ölçeklendirme Hakkında (VBA/ActiveX)

Resimler bir çizim dosyasına yerleştirilebilir, ancak dosyanın gerçek bir parçası değildirler. Resim, bir yol adı veya veri yönetim belgesi kimliği aracılığıyla çizim dosyasına bağlanır.

Bağlantılı resim yolları her zaman değiştirilebilir veya kaldırılabilir. Bir resim eklemek için, çiziminizde aşağıdaki komutu kullanarak bir Raster nesnesi oluşturursunuz:AddRasterBu yöntem, girdi olarak dört değer alır: eklenecek resim dosyasının adı, resmin yerleştirileceği çizimdeki ekleme noktası, resmin ölçek faktörü ve resmin döndürme açısı. Unutmayın, Raster nesnesi resmin kendisini değil, resme bağımsız bir bağlantıyı temsil eder.

Bir görsel ekledikten sonra, onu birçok kez yeniden ekleyerek yeni bir görsel oluşturabilirsiniz.RasterHer bir eklenti için ayrı bir nesne bulunur. Her eklentinin kendi kırpma sınırı ve parlaklık, kontrast, solma ve şeffaflık için kendi ayarları vardır. Tek bir görüntü, çiziminizde birden fazla parçaya bölünebilir ve bağımsız olarak yeniden düzenlenebilir.

Raster nesnesini oluştururken, görüntünün geometri ölçeğinin AutoCAD çiziminde oluşturulan geometrinin ölçeğiyle eşleşmesi için raster görüntü ölçek faktörünü ayarlayabilirsiniz. Eklemek için bir görüntü seçtiğinizde, görüntü 1 görüntü ölçü birimi ile 1 AutoCAD ölçü birimi arasında bir ölçek faktörüyle eklenir. Görüntü ölçek faktörünü ayarlamak için, görüntüdeki geometrinin ölçeğini ve 1 AutoCAD birimini tanımlamak için hangi ölçü birimini (inç, fit vb.) kullanmak istediğinizi bilmeniz gerekir. Görüntü dosyası, DPI (inç başına nokta) ve görüntüdeki piksel sayısını tanımlayan çözünürlük bilgilerini içermelidir.

Bir görüntü çözünürlük bilgisine sahipse, AutoCAD bunu ölçek faktörü ve sağladığınız AutoCAD ölçü birimiyle birleştirerek çiziminizdeki görüntüyü ölçeklendirir. Örneğin, raster görüntünüz ölçeği 1 inç = 50 fit veya 1:600 ​​olan taranmış bir plan ise ve AutoCAD çiziminiz 1 birim 1 inç’i temsil edecek şekilde ayarlanmışsa, görüntünün ölçek faktörünü ayarlamak için ScaleFactor parametresine 600 girersiniz.AddRasterBu yöntemde AutoCAD, görüntüdeki geometrinin çizimdeki vektör geometrisiyle hizalanmasını sağlayacak bir ölçekte görüntüyü ekler.

Sub Ch10_AttachingARaster () Dim insertionPoint ( 0 To 2 ) As Double Dim scalefactor As Double Dim rotationAngle As Double Dim imageName As String Dim rasterObj As AcadRasterImage 
  imageName = "C:/Program Files/AutoCAD Directory/sample/watch.jpg' 
      
   
   
   
    
  insertionPoint(0) = 5
  insertionPoint(1) = 5
  insertionPoint(2) = 0
  ölçek faktörü = 2
  dönüşAçısı = 0

  On Error GoTo ERRORHANDLER
  'Raster görüntüyü model alanına ekleyin'
  Set rasterObj = ThisDrawing.ModelSpace.AddRaster(imageName, insertionPoint, scalefactor, rotationAngle)
  ZoomAll
  Çıkış Alt Programı

HATA İŞLEYİCİ:
  MsgBox Err.Description
Son Alt Yordam