Sağ Tıklama Menüsüne Öğe Ekleme Hakkında (VBA/ActiveX)

< 1 dakika okuma

İçindekiler

Sağ tıklama menüsünün sonuna bir menü öğesi ekleyin.

Sağ tıklama menüsü veya kısayol menüsü, AutoCAD temel menü grubunda yer alan özel bir menüdür. Bu menü, kullanıcı Shift tuşunu basılı tutarken sağ fare düğmesine tıkladığında görünür.

AutoCAD, kısayol menüsünü temel menü grubunda “.” işaretiyle başlayan bir menü arayarak bulur.Kısayol MenüsüÖzellik TRUE’ya eşittir.

Yeni menü gruplarında kısayol menüsü bulunabilir veya bulunmayabilir. Bir menü grubu için kısayol menüsü oluşturmak için yeni bir menü oluşturun ve yeni menü için etiket olarak POP0’ı kullanın.

Sağ tıklama menüsünün sonuna bir menü öğesi ekleyin. #

Bu örnek, sağ tıklama menüsünün sonuna “OpenDWG” menü öğesini ekler.

Sub Ch6_AddMenuItemToshortcutMenu () Dim currMenuGroup As AcadMenuGroup Set currMenuGroup = ThisDrawing . Application . MenuGroups . Item ( 0 ) 
  
  

 'Kısayol menüsünü bulun ve onu şuraya atayın:'
 ' kısayolMenü değişkeni
  Dim scMenu As AcadPopupMenu Dim entry As AcadPopupMenu For Each entry In currMenuGroup . Menus If entry . shortcutMenu = True Then Set scMenu = entry
  End If Next entry 
  
  
   
  
 

 'Kısayol menüsüne bir menü öğesi ekle'
 Dim newMenuItem As AcadPopupMenuItem
 Dim openMacro As String
 ' Makroya "ESC ESC _open " komutunun VBA karşılığını atayın: 
 openMacro = Chr ( 3 ) + Chr ( 3 ) + "_open "      

 Set newMenuItem = scMenu . AddMenuItem _
  ( "" , Chr ( Asc ( "&" )) _
  + "OpenDWG" , openMacro ) End Sub