Seçilen çizgilerin toplam uzunluklarını bulma.

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 492, Üye: 2
allperto, mateus

Detaylar »

Forumlar > AutoLISP > Seçilen çizgilerin toplam uzunluklarını bulma.

Bu başlığı inceleyenler : 3 ziyaretçi, 0 üye : ---

İleti	Yazar
20.06.2008 15:09 37992	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Çizim içerisinde bulunan LINE, POLYLINE, 3DPOLYLINE, ARC, SPLINE, ELIPS,CIRCLE nesnelerinin uzunluklarını bulup toplama yapar. Komut ismi UO Kod: (defun c:uo () (setvar "modemacro" "Archme Design by --> EhYa <--") (vl-load-com) (setq secim (ssget '((-4 . "<OR") (0 . "LINE") (0 . "LWPOLYLINE") (0 . "ARC") (0 . "ELLIPSE") (0 . "SPLINE") (0 . "CIRCLE") (-4 . "OR>") ) ) ) (if (= secim nil) (progn ) (progn (setq sayim (sslength secim)) (setq toplami 0 c 0 ) (while (< c sayim) (setq teksecim (ssname secim c)) (setq tanimi (cdr (assoc 0 (entget teksecim)))) (if (= tanimi "ARC") (progn (setq data (vlax-ename->vla-object teksecim)) (setq uz-bul (vla-get-arclength data)) (setq toplami (+ toplami uz-bul)) )) (if (or (= tanimi "LINE")(= tanimi "LWPOLYLINE")(= tanimi "POLYLINE")) (progn (setq data (vlax-ename->vla-object teksecim)) (setq uz-bul (vla-get-length data)) (setq toplami (+ toplami uz-bul)) ) ) (if (= tanimi "CIRCLE") (progn (setq data (vlax-ename->vla-object teksecim)) (setq uz-bul (vla-get-circumference data)) (setq toplami (+ toplami uz-bul)))) (if (or (= tanimi "ELLIPSE")(= tanimi "SPLINE")) (progn (command "._area" "e" teksecim) (setq uz-bul (getvar "perimeter")) (setq toplami (+ toplami uz-bul)))) (setq c (+ c 1)) ) (alert (strcat "\nToplam Uzunluk : " (rtos toplami 2 3))) ) ) (princ) ) ehya (23.06.2008 06:55 GMT)

20.06.2008 15:37 37993	SENDUR Üstad 380 ileti Mak. Res. Konst. Öğrt. & Makina Müh. Ankara
eline sağlık

21.06.2008 15:48 38008	simsek77 Girişimci 6 ileti İnşaat Mühendisi Muğla
ellerin dert görmesin ehya. yine çok güzel olmuş. bi de bu toplam değeri text olarak tıkladığımız bir yere yazdırabilsek o da güzel olurdu hani :)

23.06.2008 06:14 38041	starder Yeni üye 13 ileti Memur Elazığ
bu tür örnekleri resimlerle destekleseniz çok daha güzel olacak elinize saglık ama yinede çözemedim...

23.06.2008 06:27 38046	infiniyt Yeni üye 3 ileti Teknik Ressam istanbul
Ellerine sağlık ehya bi an autocad message karşıma çıkınca yanlış mı var diye irkildim ama sonuç oada yazıyormuş:) yalnız spline ve ellipese sorun çıkarıyor demiştin ama cricle'yi de görmüyor onda da mı sorun çıkartıyor. gerçi arc'ı görüyor o bile yeter. tekrar tekrar emeğine sağlık...

23.06.2008 06:56 38052	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Sorun çıkaran nesneleri şimdilik çözdüm. Daha iyi bir çözüm bulduğumda tekrar güncelleme yapacağım. SPLINE, ELIPS ve CIRCLE nesnelerini de ekledim. Yukarıdaki kodları tekrar indirebilirsiniz..

23.06.2008 12:35 38075	infiniyt Yeni üye 3 ileti Teknik Ressam istanbul
ehya süpersin, ellerine sağlık gerçekten mükemmel olmuş...

25.06.2008 07:21 38104	carbine Yeni üye 31 ileti makina müh. adana
Merhaba ehya eline saglık güzel çalişma

25.06.2008 09:01 38106	caga Girişimci 1 ileti serbest istanbul
AutoCad de cok yeniyim. Cok güzel bir site. Ayrıca sizin gibi bilgili ve paylaşımcı arkadaşlarada cook teşekkürler etmek istiyorum. Sayenizde AutoCad de ilerleyebilecegiz. İyi calışmalar.

25.06.2008 14:18 38135	öğrenci66 Uzman 65 ileti teknik ressam adana
Ben bunu hemen evde denedim ama olmadı.komut satırınamı UO yazacam?

25.06.2008 14:26 38137	ayhan53ismail Kıdemli Uzman 190 ileti ELK.TEKN + ELEKTRİKÇİDE CEO istanbul-rize
ehya daha önceki ply toplama lispini kullanıyorum bi farkı yoksa ben aynısına devam ve sağolasın bu toplama komutu sayesinde metrajları hemen çıkarabiliyorum. anca hakediş yaparken karşındakide senin gibi olmadığında tek tek göstererek ölçüyorum ama çok teşekkür ederim teklif verirken daha da hızlandım . arkadaşlar lispi ilk önce yükleyin oda nasıl autocad 2004 için örnek veriyorum. autocad 2004 support dan bir tane lisp kopyalaın masa üstüne sonra onun ismini ilk anlayacanız sekilde isimlendirin.sonra içindeki lisp komutlarını silin ehyanın dediklerini yapışdırın ve kaydet diyin .(tabi bunu xp de yapın)vistada yapılmıyor nedense. sonra o lispi autocad 2004 /support da ekleyin. sonra autocad 2004 açın ve sırasıyla appload yazın,sonra altda contein suite onu işaretliyin ve add diyin ordan yüklediğiniz lispi bulun ve cancel diyerek çıkın . autocadi tekrar açın koutu girin olacakdır. Bir kişiye daha autocadi sevdirdik. Ne Mutlu Bize...

25.06.2008 14:28 38138	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Yukarıdaki lispi eksiksiz olarak seçip CTRL+C yapın. . Boş bir metin belgesine yapıştırın. Metin belgesi dosyasının uzantısını LSP olarak değiştirin. Bu oluşan dosyayı bilgisayarınızda yeri değiştirilmeyecek bi yere taşıyın. Autocad'i açıp komut satırına APPLOAD yazın. Ekrana gelecek tablodan bu oluşturulan dosyayı seçip LOAD butonuna basın. Tabloyu kapatın. Komut satırına UO yazın. Nesnelerinizi seçin. Toplam uzunluklarını verecektir.

07.07.2008 05:46 38603	yorukefe Girişimci 10 ileti Teknik Öğretmen İzmir
ehya süper bir lisp hazırlamışsın sana önce teşekkür etmek istedim. Bu çalışmanın aynısını alan içinde yapman mümkün mü ? Area komutunda add yardımı ile yapıyorum aslında ama ön hazırlık sırasında ben zaten metraj yapıcagım kısımları polyline yapmış oluyorum. Senin bu lisp alan içinde olursa bir kerede hepsini secip toplam alanı bulucam. Yardımcı olursan süper olur şimdiden teşekkürler... Küçük insanlar büyük işler başarır.

07.07.2008 05:51 38604	ehya Yönetici 3554 ileti Teknik Ressam Ankara
İstediğiniz lisp sitede zaten mevcut. Aşağıdaki linkten indirebilirsiniz. Seçilen nesnelerin alanlarını toplayıp yazan lisp

07.07.2008 06:39 38606	yorukefe Girişimci 10 ileti Teknik Öğretmen İzmir
Onu kullanmaya çalıştım alan hesabını hep 0 buluyor. Ehya alan lispini uzunluk lispi gibi yapman mümkün mü ? direk sonuç versin, m , cm , yazılacak metin sorularını sormasın. cok zaman alıcak birseyse unut gitsin , yardımın için teşekkürler. Küçük insanlar büyük işler başarır.

07.07.2008 07:00 38609	SENDUR Üstad 380 ileti Mak. Res. Konst. Öğrt. & Makina Müh. Ankara
valla bende hak veriyorum yarukefe ye yazı yükseklği ve yazılacak metin sormasına gerek yok bencede

07.07.2008 07:12 38613	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Linkini verdiğim lisp, istek üzerine yazılıp siteye eklenmişti. İstemiş olduğunuz lispi yazmak sorun değil. Hatta düzenlemesini yaptım bile :) Komut ismi yine M2. Komutu çalıştırdığnızda her dosya açılışında bir defalık çizim birimini soracak. Ardından Seçilen nesnelerin alanını hesaplayıp ekrana uyarı olarak çıkartacaktır. Kod: (defun m2_br_sec () (if (= cizim_birim nil) (progn (initget 1 "mEtre Cm Mm") (setq cizim_birim (getkword " Çizim Birimini seçiniz [mEtre / Cm / Mm]:"))))) (defun c:m2 () (setvar "modemacro" "Archme Design 2008 © by --> EhYa <--") (setvar "cmdecho" 0) (m2_br_sec) (if (= cizim_birim "mEtre") (progn (setq m2_bol 1))) (if (= cizim_birim "Cm") (progn (setq m2_bol 10000))) (if (= cizim_birim "Mm") (progn (setq m2_bol 1000000))) (setq m2_secim (ssget '((-4 . "<OR") (0 . "LWPOLYLINE") (0 . "POLYLINE") (0 . "CIRCLE") (0 . "ELLIPSE") (0 . "SPLINE") (0 . "REGION") (0 . "3DSOLID") (-4 . "OR>")))) (if (= m2_secim nil) (progn (princ)) (progn (setq m2_secim_say (sslength m2_secim)) (setq m2_c 0) (setq m2_toplam 0) (while (< m2_c m2_secim_say) (setq m2_secim_tek (ssname m2_secim m2_c)) (command "area" "e" m2_secim_tek) (setq m2_tek_alan (/ (getvar "area") m2_bol)) (setq m2_toplam (+ m2_toplam m2_tek_alan)) (setq m2_c (+ m2_c 1))) (alert (Strcat "\nToplam : " (rtos m2_toplam 2 2) "m2")) ))(princ)) ehya (07.07.2008 08:08 GMT)
mateus
07.07.2008 08:04 38618	yorukefe Girişimci 10 ileti Teknik Öğretmen İzmir
ben biryerlerde hata yapiyorum galiba, m olarak cizdigim polyline parcacıkların alanını topluca seciyorum sonuc 0 veriyor. İlk soruya m demeyide unutmuyorum tabi )))) Küçük insanlar büyük işler başarır.

07.07.2008 08:10 38619	ehya Yönetici 3554 ileti Teknik Ressam Ankara
küçük bi düzenleme yaptım ama seninle alakalı değil. Mesajına göre bakıyorum, metre çizimi yapıyorsun ama seçim olarak mm seçiyorsun.. Allta birim seçmeni isterken, hangi harf büyük ise onu seçmelisin. Yani metre çizdiğine göre "E" demelisin...

07.07.2008 08:43 38622	yorukefe Girişimci 10 ileti Teknik Öğretmen İzmir
Problem o değil sanırım çözdüm olayı. Sanada anlatayım çünki problemi uygulamaya geçiricek olan sensin. AutoCAD te 1m ye 1m kare çizdim. mm vede cm de 0 verdi m de ise 0.01 m2 verdi. Büyük olasılıklada 0.0001 cm2 vede 0.000001 mm2 olarak görüyor ölçümleri. Demek istediğim 0 lar tam tersi gidiyor. Birde şu çok önemli, normalde 1 e 1 karenin alanı 1 m2 dir, lispte ise 0,01 m2 olarak sonuç çıkıyor. Yazdıklarımı dikkate alıp almamak sana kalmış, şuana kadar bana çok yardımcı oldun, tekrar çok teşekkürler. Not: Uzunluk ölçen lispin süper demiştim onu boşuna söğlemedim, çizim birimi ne olursa olsun direk sonuç veriyor. Bence bu lispide onun gibi yap mükemmel olur. Küçük insanlar büyük işler başarır.

> 1 < [2]

Sonraki Sayfa