Anahtar Kelime İsteme Hakkında (ActiveX)

1 dakika okuma

İçindekiler

AutoCAD komut isteminde kullanıcıdan bir anahtar kelime alın.

O Anahtar Kelimeyi AlBu yöntem, AutoCAD komut isteminde kullanıcıdan bir anahtar kelime girmesini ister.

Bu yöntem yalnızca tek bir parametre kabul eder, o da istem dizesidir. Anahtar kelimeler ve giriş parametreleri, bir çağrı ile tanımlanır. Kullanıcı Girişini Başlatyöntem.

AutoCAD komut isteminde kullanıcıdan bir anahtar kelime alın. #

Aşağıdaki örnek, ilk parametreyi ayarlayarak kullanıcının bir anahtar kelime girmesini zorunlu kılar. Kullanıcı Girişini Başlat1’e ayarlanarak NULL girişi (Enter tuşuna basılması) engellenir. İkinci parametre ise geçerli anahtar kelimelerin listesini belirler.

AutoLISP

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

    

    ( vla - InitializeUserInput utilityObj 1 "Çizgi Daire Yay" ) ( setq keyWord ( vla - GetKeyword utilityObj "\nBir seçenek girin [Çizgi/Daire/Yay]: " )) ( alert ( strcat "Anahtar Kelime: " keyWord )) )

VBA (Sadece AutoCAD için)

Sub Ch3_KeyWord () Dim keyWord As String ThisDrawing.Utility.InitializeUserInput 1 , "Çizgi Daire Yay" keyWord = ThisDrawing.Utility.GetKeyword(vbCrLf & 
  " Bir seçenek girin [ Çizgi / Daire/Yay]: " ) MsgBox " Anahtar Kelime: " & keyWord , , " GetKeyword Örneği " End Sub

Kullanıcı dostu bir anahtar kelime istemi, kullanıcının Enter tuşuna basması durumunda varsayılan bir değer (NULL girişi) sağlayan bir istemdir. Aşağıdaki örnekte yapılan küçük değişikliklere dikkat edin:

AutoLISP

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

    

    ( vla - InitializeUserInput utilityObj 0 "Çizgi Daire Yay" ) ( setq keyWord ( vla - GetKeyword utilityObj "\nBir seçenek girin [Çizgi/Daire/Yay] <Yay>: " )) ( if (= keyWord "" )( setq keyWord "Yay" )) ( alert ( strcat "Anahtar Kelime: " keyWord )) )

VBA (Sadece AutoCAD için)

Sub Ch3_KeyWord2 () Dim keyWord As String ThisDrawing . Utility . InitializeUserInput 0 , "Çizgi Daire Yay" 
  keyWord = ThisDrawing . Utility . GetKeyword ( vbCrLf & "Bir seçenek girin [Çizgi/Daire/Yay] <Yay>: " ) If keyWord = "" Then keyWord = "Yay" MsgBox "Anahtar Kelime: " & keyWord , , "GetKeyword Örneği" End Sub