Restitution seçilmiş eşyaları ve karşılaştırmalarını koordine eder

[piratabobo]

Herkese merhaba
Bir program yapmak istiyorum ama nereden başlayacağımı bilmiyorum, bir tasarımda, polilinea gibi birkaç dikdörtgen tasarladım, şimdi onları seçerek her bir dikdörtgenin koordinatlarını kodlayarak bilmek istiyorum.
Ya da va ile ne yapmak ve mümkün olmak istiyorum?
Ve yapabileceğim gibi mümkün ise, herhangi bir öneri için minnettar olurdum.
Size önceden teşekkür ederim.
Merhaba.

 

[rpor66]

sub ka3d_poli()

dim aord as variable
dim sset as acadselectionset
Set sset = budrawing.selectionsets.add("s1")

sset.selectonscreen

strtxt = sset.item(0).objectname
Eğer strtxt = "acdbpoliline" o zaman
plineobj = sset.item
Sonunda, eğer sona erirse

Coord = plineobj.coord
msgbox "koord 1° vertice " & coord **** & ", " & coord(2)
msgbox "coord 2° vertice " & coord(3) & ", " & coord(4) & ", " & coord(5)
"...
Sonunda alt alt

ciao

 

[piratabobo]

Her şeyden önce cevap için teşekkürler
Kod denedim ve tanımlanmamış değişkenler, tip strtxt ve plineobj gibi bazı hataları çıkardım. sset.selectonscreen Hatayı alıyorum görünmeyen otocad ana pencere.
İki değişken için ne tür bir değişkenin ilan edileceğini bilmiyorum, sset hatasıyla ilgili olarak.selectonscreen Anlamıyorum.
Dahası, bu kodu iyi anlarsam, videoya giden her şeyin otomatik bir seçim yapması gerekir, ancak retangles'ı manuel olarak yapmak istiyorum.

 

[rpor66]

1) 1) 1) seçeneği açık Değişkenleri ilan etmek için sizi zorlar.

2) dim strtxt as string
3) dim plineobj nesne olarak

4) selectonscreen, videoya “on ekranını” seçer, sonra neyi gösterirsiniz.

Bir şey unuttum ama karşılaştığınız sorunlar hakkında değil:
Budrawing.selectionsets.item("s1).
Daha önce ekleyin "end sub"

Bu olmadan sadece ilk kez çalışır.

Aktif tasarım ile makro hatırlıyor, ödüller alt+f8.

Merhaba.

 

[piratabobo]

Kodunuzu yönlerinize göre düzelttim ama her zaman aynı hatayı alıyorum: görünmeyen otocad ana pencere Bu hatanın neden bana geldiğini anlayamıyorum: Refüzyon:

 

[PlannerRoad]

Bunu görmek: ihracatçılarBir metin dosyasında seçtiğiniz nesne koordinatlarını ihraç etmenize izin verir.
http://www.cadforum.cz/cadforum/lessons/lesson15.htm

 

[PlannerRoad]

Ayrıca belirttiğim ihracatçılar dışında, Yukarıda yukarıda yukarıda yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda Yukarıda YukarıdaBu iki lisp buldum.
İlki ilki plist

http://cadtips.cadalyst.com/points/export-point-coordengs

http:// management.cadalyst.com/cad...asyons/article standart/article/detail/171635İkincisi ise ikinci Vertext (Ben de yemin ederim).

 

[piratabobo]

Planlayıcıroad ipucu için teşekkürler
Sizin için önerilen örnekler mükemmel, teoride bu metin ve sadece ihtiyacım olan şey, tek sorun ve ben de aynı şeyi yapmak zorunda ve bir zamanlar bir polilinea seçmek yerine, tanımlanmamış bir dizi polilinese seçme şansım var.
Eğer herkes bana bununla yardım edebilirse gerçekten minnettar olurdum.

 

[PlannerRoad]

Planlayıcıroad ipucu için teşekkürler
Sizin için önerilen örnekler mükemmel, teoride bu metin ve sadece ihtiyacım olan şey, tek sorun ve ben de aynı şeyi yapmak zorunda ve bir zamanlar bir polilinea seçmek yerine, tanımlanmamış bir dizi polilinese seçme şansım var.
Eğer herkes bana bununla yardım edebilirse gerçekten minnettar olurdum.

Ancak plist birden çok polilines seçmenize izin verir. Bunun yerine daha polilinee üzerinde ihracat yapmak denedim.

 

[rpor66]

Tekrar deneyeceğim.

Eğer işe yaramıyorsanız...:mixe:

Ben dwg ve dvb dosyaları ekleyin, onları ve parçaları dwg'den indirin, dvb yükleyin ve makro at.

Daha poliline seçebilirsiniz.

p.s.: Bu, size vsa'yı öğrenmek için hizmet etmesi gereken bir örnek, bunu ihtiyaçlarınıza adapte etmek için size kalmış.

Merhaba.

 

[piratabobo]

Sana rpor66 teşekkür ederim ve sadece yapmak istediğim şey.
Yakında:finger:

 

[piratabobo]

Merhaba.
Satın alabilmek için gerekli olanı sormak için fırsatı alıyorum, zaten " jeffrey e. clark" satın aldım.

 

[piratabobo]

p.s.
Ben sizin iyiliğinizi kötüye kullanmak istedim, örneğin 10 retangül, 4 eşit boyutta ve fatices, toplam sayıda eşit beton elde etmek için aralarındaki dikdörtgenleri karşılaştırmak mümkün mü?

 

[piratabobo]

İlk önce tüm dikdörtgenleri saklamam ve sonra onları çizimden okuduğumda karşılaştırmam veya karşılaştırmam gerekir

 

[Shape]

İlk önce tüm dikdörtgenleri saklamam ve sonra onları çizimden okuduğumda karşılaştırmam veya karşılaştırmam gerekir

Tartışmayı baştan takip etmedim, ancak bu problem için, ilk önce, faticlerin tüm değerlerini bir dizide ezberlemeniz gerektiğini düşünüyorum ve sonra confontarli daha sonra. .

Bu, seçimde "eşit" sipariş aldıkları ve bu nedenle bir yerde değerleri ezberlemeden istediğiniz şeyleri yapmak imkansız.

 

[piratabobo]

Ancak her şeyi bir dizide ezberlemek zorunda olduğum kontrol, koordinatlar, alan, sayıda vertices veya her şeye dayanıyor mu? Ve sonra, bu prosedürü yapmak için gideceğimi düşünün, aynı zamanda yüz tane dikdörtgene sahip olabilirim, bu yüzden hataları çalıştırmamak ve daha sonra sorun yaşamamak için en uygun bir çözüm bulmak istiyorum.

 

[Shape]

Ancak her şeyi bir dizide ezberlemek zorunda olduğum kontrol, koordinatlar, alan, sayıda vertices veya her şeye dayanıyor mu? Ve sonra, bu prosedürü yapmak için gideceğimi düşünün, aynı zamanda yüz tane dikdörtgene sahip olabilirim, bu yüzden hataları çalıştırmamak ve daha sonra sorun yaşamamak için en uygun bir çözüm bulmak istiyorum.

Bölgede bhè bunu dışlayacağım, çünkü b*h oranıdır ve iki tarafta yaptığınız kontrol ve puanlara sahip olmayan iki somuttur.

noktaların sırasına dikkat edin, tüm retttların aynı kriter kullanılarak yaratıldığı söylenmiyor....

Bildiğiniz tek şey, 90°'ye inandığım 4 tane detik var çünkü retangles hakkında konuşuyorsunuz... oradan ayrılmak zorundasınız...

Yani... p0,p1,p2,p3

p1-p0 size bir yan taşıyıcı verir
p2-p1 size diğerini verir...

Onları sakla ve sonra iki taşıyıcının eşit olduğu savaş

 

[piratabobo]

Düşündüm ve onları size ve aynı ya da değil bir ızgaraya koyarsam ve kontrol bunu ızgaraya taşırım ve aynı konsepte ve aynısına rağmen bir dizide olmasam da, daha iyi ne olacak?

 

[rpor66]

Düşündüm ve onları size ve aynı ya da değil bir ızgaraya koyarsam ve kontrol bunu ızgaraya taşırım ve aynı konsepte ve aynısına rağmen bir dizide olmasam da, daha iyi ne olacak?

dvb'de bulunan değişkenlere atıfta bulunuyorum.Karşılaştırılması gereken rakamlar sadece aynı x-y uçaktaki dikdörtgendir..
Hesaplanmış temel ve dikdörtgen yükseklik:
1 ve 3 dikdörtgen veya polilinea
baz=abs(coord ****-coord(4)
yükseklik =abs(coord(1)-coord (5))
Kullanımı abs Yönelme sorununu çözer.
Onları bir matrixe koyun:
dim matrix (1 ila 200, 1 to 2) çift olarak
matrix (1,1) =base
matrix (1,2)=height

Aynı olanları bulmak için:
matrike (1,1)=matrice(2,1) ve matrix (1,2)=matrike(2,2) sonra
"equal"
Sonunda, eğer sona erirse

Bu nokta, genişlemenin yüküne.

Merhaba.

 

[piratabobo]

Ne söylediğine göre mükemmel bir şekilde katılıyorum, ama benim ikilem, ilki ikinci ile karşılaştırdığımda, ilk olarak üçüncü ile, dördüncü vs. Ve sonra üçüncü ile ikinci, dördüncü vs. Örneğin, ilk ve ilk karşılaştırmaya üçüncü ret boğma ve eşit olursa, ilk önce 2 tane dikdörtgen olduğunu söylüyorum, üçüncü ret çemberinin doğrulamasından nasıl dışlıyorum ve bunu ilk kez nasıl yaptım?
Umarım ne demek istediğim hakkında biraz açık oldum.
Tekrar teşekkürler