View Categories

Seçim Kümesi Filtreleme Kriterlerinde Joker Karakter Desenlerinin Kullanımı Hakkında (VBA/ActiveX)

1 dakika okuma

Filtre listelerindeki sembol adları ve dizeler, joker karakter kalıpları içerebilir.

Aşağıdaki tabloda AutoCAD tarafından tanınan joker karakterler ve her birinin bir dize bağlamındaki anlamı açıklanmaktadır:

Joker karakterler
Karakter Tanım
# (pound) Herhangi bir tek rakamla eşleşir.
@ (at) Herhangi bir alfabetik karakterle eşleşir.
. (dönem) Alfanümerik olmayan herhangi bir tek karakterle eşleşir.
* (yıldız işareti) Boş bir karakter dizisi de dahil olmak üzere herhangi bir karakter dizisiyle eşleşir ve arama deseninin herhangi bir yerinde kullanılabilir: başında, ortasında veya sonunda.
? (soru işareti) Herhangi bir tek karakterle eşleşir.
~ (tilde) Desen içindeki ilk karakter ise, desen dışındaki her şeyle eşleşir.
[…] İçindeki karakterlerden herhangi biriyle eşleşir.
[~…] Çevrilmemiş herhangi bir tek karakterle eşleşir.
– (tire) Köşeli parantez içinde, tek bir karakter için bir aralık belirtmek için kullanılır.
, (virgül) İki deseni birbirinden ayırır.
(ters tırnak) Özel karakterlerden kaçar (sonraki karakteri kelimesi kelimesine okur)

Bir karakterin joker karakter olmadığını, kelimesi kelimesine alınması gerektiğini belirtmek için tek tırnak (`) kullanın. Örneğin, seçim kümesine yalnızca “*U2” adlı anonim bir bloğun dahil edilmesini belirtmek için aşağıdaki filtre argümanlarını kullanın:

FiltreTipi ( 0 ) = 2 FiltreVerisi ( 0 ) = "`*U2"  

Metinde belirli bir kelimenin geçtiği Mtext’i seçin. #

Aşağıdaki kod, seçim kriterlerini herhangi bir olarak tanımlar.MtextBu örnekte metin dizisinde “The” kelimesi geçmektedir. Bu örnek aynı zamanda “the” kelimesinin kullanımını da göstermektedir.ÇokgenleSeçSeçim yöntemi:

Sub Ch4_FilterPolygonWildcard () Dim sstext As AcadSelectionSet Dim FilterType ( 1 ) As Integer Dim FilterData ( 1 ) As Variant Dim pointsArray ( 0 To 11 ) As Double Dim mode As Integer 
  mode = acSelectionSetWindowPolygon 
   
     
     
      
   
  pointsArray ( 0 ) = - 12 #: pointsArray(1) = -7#: pointsArray(2) = 0 
  pointsArray ( 3 ) = - 12 #: pointsArray(4) = 10#: pointsArray(5) = 0 
  pointsArray ( 6 ) = 10 #: pointsArray(7) = 10#: pointsArray(8) = 0 
  pointsArray ( 9 ) = 10 #: pointsArray(10) = -7#: pointsArray(11) = 0 Set sstext = ThisDrawing . SelectionSets . Add ( "SS10" )        
   

  FiltreTipi ( 0 ) = 0 FiltreVerisi ( 0 ) = "MTEXT" FiltreTipi ( 1 ) = 1 FiltreVerisi ( 1 ) = "*The*"  
    
    
    

  sstext.SelectByPolygon mode , pointsArray , FilterType , FilterData End Sub  

Tarafından desteklenmektedir BetterDocs

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir