komut açın ve verileri kurtarın

[yag]

Merhaba, kodun kodundan nasıl başlayacağımı bilmek istiyorum
Ve sonuçları kurtarın mı?

 

[rpor66]

Sanırım yapamazsın, .find yöntemine baktım ama var değil.
Baktığın tüm varlıkların ve filtrenin bir döngüsü oluşturur, sanırım bu aynı şey bulmakta.

Yemin ederim

 

[yag]

denedim ama herhangi bir kod noktası bulamadım mı?

 

[yag]

Sanırım yapamazsın, .find yöntemine baktım ama var değil.
Baktığın tüm varlıkların ve filtrenin bir döngüsü oluşturur, sanırım bu aynı şey bulmakta.

Yemin ederim

Meta kanıtndo arayışı, vade olmayan bir vade

dim filtretipi tam olarak tam olarak
dim filterdata, varyant olarak

dim sset as acadselectionset
dim element as acadtext

Hatada bir sonraki sefere devam ediyor
“Eğer varsa seçim seti silin
if not isnull (budrawing.selectionsets.item ("element) sonra
Set sset = budrawing.selectionsets.item ("element")
sset.delete
Sonunda, eğer sona erirse


Set sset = budrawing.selectionsets.add("element")


Filtreleme = 0
filtredata = "text"

sset.select acselectionsetall, , filtre tipi, filtredata


Her element için,
msgbox (element.textstring)
Bir sonraki element

 

[rpor66]

Prima controllare che element sia un testo, quindi:
dim enttext as acadtext
...
Eğer element.objectname= "acdbtext" o zaman
Set enttext = element
msgbox enttext.textstring
Sonunda, eğer sona erirse