Belge Penceresinin Konumlandırılması ve Boyutlandırılması Hakkında (ActiveX)

Belge penceresini konumlandırın #

Bu örnekte şu kullanılmıştır: GenişlikVe YükseklikEtkin belge penceresini 400 piksel genişliğinde ve 400 piksel yüksekliğinde ayarlamak için özellikler.

AutoLISP

( vl - load - com ) ( defun c : Ch3_SizeDocumentWindow () ( setq acadObj ( vlax - get - acad - object ) 
          doc ( vla - get - ActiveDocument acadObj ))
 
    

    ( vla - put - Genişlik doc 400 ) ( vla - put - Yükseklik doc 400 ) )
    

VBA (Sadece AutoCAD için)

Sub Ch3_SizeDocumentWindow ( ) ThisDrawing.Width = 400 ThisDrawing.Height = 400 End Sub​​​ 
    
    

Etkin belge penceresini tam ekran yapın. #

AutoLISP

( vl - load - com ) ( defun c : Ch3_MaximizeDocumentWindow () ( setq acadObj ( vlax - get - acad - object ) 
          doc ( vla - get - ActiveDocument acadObj ))
 
    

    ( vla - put - WindowState doc acMax ) )

VBA (Sadece AutoCAD için)

Sub Ch3_MaximizeDocumentWindow () ThisDrawing . WindowState = acMax
 End Sub 

Etkin belge penceresini simge durumuna küçültün. #

AutoLISP

( vl - load - com ) ( defun c : Ch3_MinimizeDocumentWindow () ( setq acadObj ( vlax - get - acad - object ) 
          doc ( vla - get - ActiveDocument acadObj ))
 
    

    ( vla - put - WindowState doc acMin ) )

VBA (Sadece AutoCAD için)

Sub Ch3_MinimizeDocumentWindow () ThisDrawing . WindowState = acMin
 End Sub 

Etkin Belge penceresinin mevcut durumunu bulun. #

AutoLISP

( vl - load - com ) ( defun c : Ch3_CurrentWindowState () ( setq acadObj ( vlax - get - acad - object ) 
          doc ( vla - get - ActiveDocument acadObj ) CurrWindowState ( vla - get - WindowState doc ) 
          msg ​​"" )

    
           

    ( cond
       ((= CurrWindowState 1 )( setq msg "normal" )) ((= CurrWindowState 2 )( setq msg "minimizasyona uğramış" )) ((= CurrWindowState 3 )( setq msg "maksimize edilmiş" )) )  
        
        
    

    ( alert ( strcat "Belge penceresi " msg )) )

VBA (Sadece AutoCAD için)

Sub Ch3_CurrentWindowState () Dim CurrWindowState As Integer Dim msg As String CurrWindowState = ThisDrawing.WindowState 
  msg = Choose ( CurrWindowState , "normal" , " minimized" , "maximized" ) MsgBox "Belge penceresi " + msg +
 End Sub