poliline sayılar saymak için Routines

[Pepi65]

Her şeye yemin ederim,
Birisi sorunumu çözmeme yardımcı olabilir. Seçilmiş bir alan içindeki polilines sayısını “eşfetme” izin veren bir makro bulmak istiyorum (bu seçim her zaman makro yoluyla yapılmalıdır).
Teşekkür ederim. .

 

[Shape]

Yani, bir pencere seçimi sormak için makrodan hoşlanıyorsunuz ve sonra size seçimde kaç tane polilin bulunduğunu söyleyin mi?

Sadece bu tam olarak anlaşılmış veya hatta bu kısmen seçime dahil edilmiştir?

 

[Pepi65]

Evet, mükemmel istediğim şey. Teşekkür ederim.

 

[Shape]

Sadece bu tam olarak anlaşılmış veya hatta bu kısmen seçime dahil edilmiştir?

 

[Pepi65]

Üzgünüm, sadece bu tamamen anladı. .

 

[Tristan]

Ama böyle bir şey için bir makroa ihtiyacınız yok. .. Just use a normal seçim penceresi and read the count in the property palette. .

 

[Shape]

makroa bağlı olarak, çok basit bir şey.

Bu temeldir, sonra tadı değiştirmek istiyorsanız.

Public sub pl_count()
dim sset as acadselectionset
dim element as acadentity
dim filtretipi tam olarak tam olarak
dim filterdata, varyant olarak

Hatada bir sonraki sefere devam ediyor
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 = “lwpoliline”

sset.selectonscreen filtresi, filtredata

msgbox ("polilinee comprese nella selazione: " & sset.count)

Sonunda alt alt

 

[Pepi65]

Teşekkür ederim, çok nazik.