Kağıt Alanı Görünüm Pencereleri Oluşturma Hakkında (VBA/ActiveX)

3 dakika okuma

İçindekiler

Hareketli bir görüntü alanı oluşturun ve etkinleştirin.
Dört adet kayan görüntüleme penceresi oluşturun.

Kağıt alanı görüntüleme pencereleri şu şekilde oluşturulur:AddPViewportyöntem.

OAddPViewportBu yöntem, bir merkez noktası ile yeni görüntü alanının genişliğini ve yüksekliğini gerektirir. Görüntü alanını oluşturmadan önce şunu kullanın:ActiveSpaceKağıt alanını geçerli alan olarak ayarlama özelliği (normalde TILEMODE’u 0 olarak ayarlayarak yapılır).

Oluşturduktan sonraPViewportNesne aracılığıyla, görüntüleme yönü gibi görünümün kendi özelliklerini ayarlayabilirsiniz (Yön(özellik), perspektif görünümler için lens uzunluğu (LensUzunluğuözellik) ve ızgara görünümü (GridOn(özellik). Ayrıca, katman gibi görünüm alanının özelliklerini de kontrol edebilirsiniz (Katmanözellik), çizgi tipi (Çizgi tipiözellik) ve çizgi tipi ölçeklendirmesi (Çizgi Tipi Ölçeğimülk).

Hareketli bir görüntü alanı oluşturun ve etkinleştirin. #

Bu örnek, AutoCAD’i kağıt alanına geçirir, kayan bir görünüm penceresi oluşturur, görünümü ayarlar ve görünüm penceresini etkinleştirir.

Sub Ch9_SwitchToPaperSpace () ' Etkin alanı kağıt alanına ayarla 
   
    BuÇizim.AktifAlan = acKağıtAlan

   ' Kağıt alanı görünümünü
     oluşturun Dim newVport As AcadPViewport Dim center ( 0 To 2 ) As Double 
    center ( 0 ) = 3.25 
    center ( 1 ) = 3 
    center ( 2 ) = 0 Set newVport = ThisDrawing . PaperSpace . _
  AddPViewport ( center , 6 , 5 )  
              
       

   'Görüntüleme alanının görüş yönünü değiştirin'
    Dim viewDir(0 To 2) As Double
    viewDir(0) = 1
    viewDir(1) = 1
    viewDir(2) = 1
    yeniVport.Yön = görünümYön

   ' Görüntüleme alanını etkinleştir' 
    newVport . Display True 

   'Model alanına geç'
    BuÇizim.MSpace = Doğru

   ' YeniVport'u geçerli olarak
    ayarla ' (her zaman gerekli olmasa da iyi bir fikir) 
    ThisDrawing.ActivePViewport = newVport

   ' Model
     alanında ZoomExtents'i yakınlaştırın ZoomExtents   

   'Model alanı düzenlemeyi kapat'
    BuÇizim.MSpace = Yanlış

    ' ZoomExtents in paperspace
     ZoomExtents End Sub

Önceki kodda yer alan adımların sırası önemlidir. Genel olarak, işlemler AutoCAD komut satırında yapıldığı sırayla yapılmalıdır. Beklenmeyen tek işlemler, görünümü tanımlamak ve görünüm penceresini etkinleştirmekle ilgilidir.

Not: Görüntünün bazı yönlerini (görüş yönü, lens uzunluğu vb.) ayarlamak veya değiştirmek için,Görünüm alanınesneninGörüntülemekBu yöntem kapalı (FALSE) olarak ayarlanmalı ve bir görünüm penceresi geçerli hale getirilmeden önce bu işlemi gerçekleştirmelisiniz.GörüntülemekBu yöntem açık (TRUE) olarak ayarlanmalıdır.

Dört adet kayan görüntüleme penceresi oluşturun. #

Bu örnek, “Yüzer bir görüntü penceresi oluşturma ve etkinleştirme” örneğini temel alarak dört adet yüzer görüntü penceresi oluşturur ve her birinin görünümünü sırasıyla üst, ön, sağ ve izometrik görünümler olarak ayarlar. Her görünüm, kağıt alanının ölçeğinin yarısına göre ölçeklendirilir. Bu görüntü pencerelerinde bir şeyler görülebildiğinden emin olmak için, bu örneği denemeden önce 3 boyutlu katı bir küre oluşturmak isteyebilirsiniz.

Sub Ch9_FourPViewports () Dim topVport , frontVport As AcadPViewport Dim rightVport , isoVport As AcadPViewport Dim pt ( 0 To 2 ) As Double Dim viewDir ( 0 To 2 ) As Double ThisDrawing.ActiveSpace = acPaperSpace ThisDrawing.MSpace =
     True ' Mevcut PViewport'u alıp topVport yap 
     
     
        
        
       

    pt(0) = 2,5: pt(1) = 5,5: pt(2) = 0
    TopVport değerini ThisDrawing.ActivePViewport olarak ayarla.
    ' Üstten görünüm için yön ayarlamaya gerek yok'  
    topVport . center = pt
    topVport.width = 2.5 
    topVport.height = 2.5 topVport.Display True 
    ThisDrawing.MSpace = True ThisDrawing.ActivePViewport = topVport
     ZoomExtents ZoomScaled 0.5 , acZoomScaledRelativePSpace ' Ön görünüm alanını oluştur ve ayarla
   
      
     
     
    nokta(0) = 2,5: nokta(1) = 2,5: nokta(2) = 0
    Set frontVport = ThisDrawing.PaperSpace. _
 AddPViewport(pt, 2.5, 2.5)
    viewDir(0) = 0: viewDir(1) = 1: viewDir(2) = 0
    frontVport.direction = viewDir
    frontVport.Display acOn
    BuÇizim.MSpace = Doğru
    ThisDrawing.ActivePViewport = önVport
    ZoomExtents
    ZoomScaled 0.5, acZoomScaledRelativePSpace
' rightVport'u oluşturun ve kurun 
    pt ( 0 ) = 5.5 : pt ( 1 ) = 5.5 : pt ( 2 ) = 0 Set rightVport = ThisDrawing . PaperSpace . _
  AddPViewport ( pt , 2.5 , 2.5 ) 
    viewDir ( 0 ) = 1 : viewDir ( 1 ) = 0 : viewDir ( 2 ) = 0 
    rightVport . direction = viewDir      
             
    rightVport.Display acOn ThisDrawing.MSpace = True ThisDrawing.ActivePViewport = rightVport ZoomExtents ZoomScaled 0.5 ,
     acZoomScaledRelativePSpace ' isoVport'u oluştur ve ayarla

      
     
     
    pt(0) = 5,5: pt(1) = 2,5: pt(2) = 0
    isoVport'u ThisDrawing.PaperSpace olarak ayarla. _
 AddPViewport(pt, 2.5, 2.5)
    viewDir(0) = 1: viewDir(1) = 1: viewDir(2) = 1
    isoVport.direction = viewDir
    isoVport.Display acOn
    BuÇizim.MSpace = Doğru
    ThisDrawing.ActivePViewport = isoVport
    ZoomExtents
    ZoomScaled 0.5, acZoomScaledRelativePSpace
' Bitir : Tüm görüntü
     alanlarında yeniden oluşturma işlemi gerçekleştirin ThisDrawing.Regen True End Sub