Check blok seçimi

[Principiante87]

İyi sabaha,
Ek programlamanın otocad 2011 ile gerekli olduğu konusunda uzman bir tez yapıyorum. Mevcut problemim makroa başlamak, seçilmiş bir blok olduğunu doğrulamak, adını almak ve zaten uyguladığım diğer işlemleri gerçekleştirmek. İlk bölümde çok fazla zorluk var. Hiçbiriniz bana yardım edebilir mi? Cevap vermek isteyen herkese teşekkür ederim ve soru için özür dilerim, birçoğunuz için önemsiz olacağını biliyorum, ama bu sorunu çözemem.

 

[paolomath]

ciao, la selezione puoi usare:

sub seleziona_blocco()

dim ssetmia as acadselectionset
dim filtretipi tam olarak tam olarak
dim filterdata, varyant olarak

Filtreleme = 0
filtredata = “insert”
"filtertype (1) = 2
‘filterdata (1) = inserire il nome del blokco

if not isnull (budrawing.selectionsets.item ("miaselezione")
Budrawing.selectionsets.item ("miaselezione). silinir
Sonunda, eğer sona erirse

Set ssetmia = budrawing.selectionsets.add("miaselezione")
ssetmia.selectonscreen filtresi, filtredata

Eğer ssetmia.count > 0 Sonra 0
msgbox "hai selezionato " & ssetmia.count & " blokchi", vb.
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
msgbox "non hai selezionato nessun blockco.", vbexclamation
Sonunda, eğer sona erirse

Set ssetmia = hiçbir şey

Sonunda alt alt

richiami vsa con sun+ [F11]kodu girin
makro çalıştırın
( ofiste olduğu gibi)

Zaten yorumları kaldırmak için blok adı varsa

"filtertype (1) = 2
‘filterdata (1) = Blok adı girin

seçmek ve koymak istediğiniz blok adı girin:

dim filtre tipi (1) tam tam tam olarak
dim filterdata(1) olarak

Değişkenlerin tanımlarında.

msgboxes nerede yapmak istediğiniz kodları koydu.
Size hataların yönetimi ve elçilikler. .

Bye.