Polyline top listesi

[IvanB]

Her şeye yemin ederim,

Hiçbir zaman va kullanmadım ve muhtemelen soru muzdur:
Yaklaşık 700/800 polilines (ve başka bir şey) ile bir tasarıma sahip oldum ve her bir Veritex (poliline gret) koordinatları almak zorunda kalacağım. Başka bir tartışmada koordinat listesini elde eden bir lisp buldum ama onları polilinea ile bölmeyin. Herkesin bunu nasıl yapabileceğimi bir fikri var mı?

(Daha iyi açıklamak için. Olmak istediğim şey bir metin dosyası:
1 1 1
123.2155;125.548
524.256;2541.23658
vs.
2 2
58413.54136;315431.65416
652.65841;564713.315461
vs.
3 3
351.5143;3254.37413
vs.

Teşekkür ederim.

 

[Shape]

Bu iyi olup olmadığını görmeye çalışın...

 

[IvanB]

Üzgünüm. Doğru doğru doğru doğru doğru doğru doğru doğru doğru doğru doğru doğru doğru doğru doğru İhtiyacım olan şey. kodu görmek isterdim (sadece yeni bir şey öğrenmek için) ama aynı zamanda harika. Teşekkür ederim.

 

[Shape]

Üzgünüm. Doğru doğru doğru doğru doğru doğru doğru doğru doğru doğru doğru doğru doğru doğru doğru İhtiyacım olan şey. kodu görmek isterdim (sadece yeni bir şey öğrenmek için) ama aynı zamanda harika. Teşekkür ederim.

chiedi e tià dato... :4441:

e' un adattamento di qlc che avevo già fatto, quindi sistatticamente un po' "scorretto". cmq eğlenceziona


Public sub numera_vertici()

Hatada bir sonraki sefere devam ediyor

dim entobj as acadlwpoliline
dim element as acadentity
dim sset as acadselectionset

dim aord as variable
dim ncoord as Full
dim noktası değişken olarak

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")

dim filtretipi tam olarak tam olarak
dim filterdata, varyant olarak

Filtreleme = 100
filtredata = “acdbpoliline”

sset.selectonscreen filtresi, filtredata


dim x, tam anlamıyla
dim punto as Full
dim i as Full
dim nesne olarak mükemmel
dim excelsheet as object

Hatada bir sonraki sefere devam ediyor

Set Üstün = getobject (, "excel.application")

Eğer err <> 0 Sonra 0
.
Set Üstün = createobject ("excel.application")

Eğer err <> 0 Sonra 0
msgbox "could not load excel", vbexclamation
end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end
Sonunda, eğer sona erirse
Sonunda, eğer sona erirse
Hata goto 0

Üstünlük = gerçek
Mükemmel.workbooks.add
^ "foglio1". seçin
Set Excellencesheet = Üstün.activeworkbook.sheets ("foglio1")

dim y as Full
x = 1
u = 1

Her element için,
element. Gerçek vurgu
dim nome as string
Nome = element. katman tabaka katmanı

Coord = element.coords

ncoord = ubound(coord) - lbound(coord) + 1

Redim noktası (0 to ncoord) çifte

Notlar (u, 1).value = x x
u = u + 1
i = 0 to ncoord - 1 adım 2
= koord (i): nokta (1) = coord (i + 1)
Üst tablo.cells (u, 1).value = point **** & ";" & point(1)
u = u + 1
Bir sonraki i

x = x + 1
Bir sonraki element

Sonunda alt alt

 

[bapenz]

Ve nasıl kullanılacağını... Üzgünüm cehalet....

 

[Shape]

Ve nasıl kullanılacağını... Üzgünüm cehalet....

Dosyayı indirmek, onu Apple'da kurtarmak

Autocad araçları->macro-> projesi yüklemeye başlayın ve indirdiğiniz dosyayı seçin

Ardından makro->makro-> makro hattından ve idam edilenden sonra

Polylinea'yı seçin ve kötü ya daicordo açılmazsa, ihracat yaptığı verileri başarır ve kurtarmalıdır.

Kullanıcı için talimatlarına göre bir ad hoc şeydi.

İhtiyacınız varsa değişebilir.

 

[santolf]

Her şeye yemin ederim,

Bu arada size program için teşekkür ediyorum... çok kullanışlı!

Sadece bir soru, "z" almak mümkün olurdu?

Şu anki aşamada, kişinin x ve y değerlerine ek olarak, alan "elevation" alanında bildirilen bir kota değeri ile karakterize edilir.

"list" komutunu kullanarak, bilgi otomatik olarak kişiye aktarılıyor ve temel olarak, 3 kartesiane koordinatları "x,y,z" (bu benim birincil amacım).

Bu olasılık yukarıdaki makrodan da elde edilebilirse açıkça çok yararlı olacaktır. .

Çok teşekkür ederim!

 

[Shape]

Her şeye yemin ederim,

Bu arada size program için teşekkür ediyorum... çok kullanışlı!

Sadece bir soru, "z" almak mümkün olurdu?

Şu anki aşamada, kişinin x ve y değerlerine ek olarak, alan "elevation" alanında bildirilen bir kota değeri ile karakterize edilir.

"list" komutunu kullanarak, bilgi otomatik olarak kişiye aktarılıyor ve temel olarak, 3 kartesiane koordinatları "x,y,z" (bu benim birincil amacım).

Bu olasılık yukarıdaki makrodan da elde edilebilirse açıkça çok yararlı olacaktır. .

Çok teşekkür ederim!

Yapılabilir, polilinee3d ama polilinee yükselerek dikkat edin.

Yükselt 0'dan farklı ise, diğerleri önceki gibi davranır.

 

[santolf]

Mükemmel!

Çok teşekkür ederim, çok naziksin.


:

Merhaba.

 

[sammi75]

Her şeye merhaba, otocad2002'de bir el yapımı polilinea var ve ben, bu, onu oluşturan tüm faticlerin koordinatlarını içeren bir liste almak istiyorum. Eğer yanılmıyorsam, bunu yapmamı sağlayan otocad'da bir komut var. Onu gördüm ama şimdi ne olduğunu hatırlamıyorum. "list" komutuyla denedim, ancak bu bana noktanın en iyi özelliklerini veriyor.
teşekkürler

 

[Shape]

Her şeye merhaba, otocad2002'de bir el yapımı polilinea var ve ben, bu, onu oluşturan tüm faticlerin koordinatlarını içeren bir liste almak istiyorum. Eğer yanılmıyorsam, bunu yapmamı sağlayan otocad'da bir komut var. Onu gördüm ama şimdi ne olduğunu hatırlamıyorum. "list" komutuyla denedim, ancak bu bana noktanın en iyi özelliklerini veriyor.
teşekkürler

Sınırlı “Ben “list” komutuyla denedim, ama bu bana noktanın özelliklerini veriyor.”Liste komutu bu sözlüğe döndürür:

komut: liste
nesneleri seçin: tam bir perspektifi belirtin: bulundu (s) 1

nesneleri seçin:

lwpoliline katmanı: "0"
Uzay: model uzay
yönetici = 1b07
Açık açık açık açık açık açık
Sürekli genişlik 0.0 0.0 0.0
Alan 24832.0
uzunluğu 448.6

x = 484.7 y = 291.1 z = 0.0
x = 560.5 y = 434.0 z = 0.0
x = 674.9 y = 348.3 z = 0.0
x = 666.4 y = 204.7 z = 0.0

Bunu yapan Veritiklerin koordinatları nerede... İstediğin şey değil mi?

 

[Davide_Marino]

Herkese merhaba
"shape" makro nezaketini indirdim (sayı_vertici_elevation.dvb)
Ama otocad 2016 ile çalışmıyor, ne yapabilirim?

Teşekkür ederim.
davide

 

[dieva]

Herkese merhaba
"shape" makro nezaketini indirdim (sayı_vertici_elevation.dvb)
Ama otocad 2016 ile çalışmıyor, ne yapabilirim?

Teşekkür ederim.
davide

Hata mesajının ne olduğunu söylemelisiniz, aksi takdirde. .

Başka bir alternatif koordinatlar olarak adlandırılan ücretsizware programım olabilir. http://www.domenicoieva.com/coord.htmlBirçok parametresi var ve belki sizin için yapabilirdi.
Merhaba.