Selectionset kullanarak seçim ve kaldırma grubu oluşturma

[tiziano69]

İyi sabah, Aşağıdaki problemim var, bir program geliştiriyorum, bu satırları belirli koşulları karşılayan her metin yönünde ortak bir noktadan takip ediyorum. Burada sorun yok.
Şimdi çizilmiş çizgileri kaldırmak zorundayım, onları seçebilmeliyim, tüm ortak bir noktaya sahip olmak, bir seçim grubu oluşturmak, iki diametrally tam tersi puanları kullanmak.

acadselectionset

Seçim nasıl yapılacağını açıklayın.... Bazı kod örneklerine sahipsin

Teşekkür ederim.

 

[rpor66]

disegna le linee nel tabaka tmpline, le puoi selezionare e iptal:

Sub rptestselect()

dim i as Full
dim txt as string
dim acad as object
dim document as acaddocument

dim sset as acadselectionset
dim element as acadline

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

acad = fngetacadapplication()
Eğer isnull (acad) = false o zaman
acad.visible = true
Set belgesi = acad.activedocument

Autocadsetfocus belgesi

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

Filtreleme = 0
Filtredata = “line”
Filtre Tipi (1) = 8
Filtredata(1) = "tmpline"

sset.select acselectionsetall, , filtretip, filtredata

sset.erase

Sonunda, eğer sona erirse

Set belgesi = Hiçbir şey
Set acad = Hiçbir şey

Sonunda alt alt

 

[tiziano69]

Tamam işler, ama iki satır değiştirmek zorunda kaldım:
acad = acadapplication() - kaldırıldı fngetif isnull (acad) = false
acad. görünür = gerçek
Belge seti = acad.activedocument

"autocadsetfocus belgesi -Eğitimi ortadan kaldırmak için apex eklediNeden?

 

[tiziano69]

unuttum, ben de paraları kaldırdım - doğru çizgi acad = acadapplication

 

[rpor66]

Damn özelleştirmeleri, bu yüzden.
Kullanımına bağlı olarak doğru kütüphaneleri yükleyen bir işlev kullanırım.

Yemin ederim