Reklam

Çizim Paylaş

Bülten Aboneliği
*  E-posta adresiniz:



* Güvenlik kodu:

Seçilen Polyline'ların köşe koordinatları, ara mesafeleri, alan ve çevrelerini tablo halinde yazan AutoLisp fonksiyonu

This AutoLisp function creates a table related to selected polylines, including vertex coordinates, point to point distance, area and perimeter values.
ProhibiT - 11.09.2011 15:31
Yazar: ProhibiT
Kaynak:

(Kontrol panelinizde görünür)
Komut adı: pLgn
RaR şifresi: www.cizimokulu.com

autodacdokulu.com forumlarında daha önce paylaşılan bu fonksiyon, arkadaşlarımızdan gelen
istekler doğrultusunda yeniden düzenlenip geliştirilerek tekrar ilgilerinize sunuldu.

Yazar arkadaşlarımızın inceleyip takip ebebilmeleri için fonksiyon açık kod olarak paylaşıldı.
Arşiv içindeki pLgn.Lsp dosyasını AutoCAD Support klasörüne çıkardıktan sonra, AppLoad kullanarak, Ya da AutoCAD Komut Satırından (load "pLgn.Lsp") girerek yükleyebilirsiniz. Fonksiyonun çalışabilmesi için, kullanıcının AutoCAD klasörlerine yeterli erişim yetki seviyesine sahip olması gerekir.


Belirlenen seçim setindeki tüm LwPoLyLine'lar, sırasıyla işleme alınarak...

Birden fazla poligon seçilmiş ise, her bir poligona bir numara verip poligonların ortasına yazılır. Tek bir poligon seçilmiş ise poligon numarası verilmez.

Her Poligon için köşe noktalarına 1'den başlayarak artan numaralar verilir, hem poligon üzerine, hemde tabloya yazılır. Böylelikle tablodaki koordinatlarla noktaların ilişkisi takip edilebilir.

Her bir poligonun nokta numaraları, nokta koordinatları, ara mesafeleri, Alanları ve Çevre uzunlukları hesaplanıp belirlenen ondalık basamak sayısına uygun olarak tablo halinde yazılır.

Poligon köşe koordinatları geçerli UCS'de hesaplanıp yazılırlar

Birden fazla Poligon seçildiğinde, her bir poligon için söz konusu işlemler tekrarlanır. Her poligona bir numara verilir. Sonunda bir Poligon Özet Tablosu oluşturulup, bu tabloya her polgonun Numarası, Alanı ve Çevresi yazıldıktan sonra, Toplam Alan ve Çevre Uzunlukları yazılır.

Poligon seçimleri yapıldıktan sonra, uygun zoom alınarak bitmiş haldeki tablo sürüklenip istenilen yere bırakılır. Sırası gelen her bir poligon uygun zoom alınarak ekranda gösterilir ve ilgili tablonun yerleştirilmesi için kullanıcıdan yer seçmesi beklenir. Poligon Özet Tablosunun bitmiş vaziyette ekranda gösterilip, yerleştirilmesiyle fonksiyon tamamlanır. Tek bir Polyline seçilmiş ise, Poligon Özet Tablosu oluşturulmaz ve Poligon numarası verilmez.

Kolay gelsin.
Download sayısı: 936, Boyut: 0.003 mb
Yorumlar :
admin   26.09.2017 00:26 #15812  

Arkadaşlar lisp çalışıyor ancak windowsun güvenlik denetimleri dosya oluşturulmasını engelliyor. Lisp dosyasını Appload > Content e ekledikten sonra AutoCAD'i kapatın ve ikonun üzerinde sağ klik yapıp yönetici olarak çalıştır deyin. Ardından komutu yazdığınızda çalışacaktır.

fatiherdogan84   03.11.2014 17:36 #15437  

bad argument type: streamp nil" hatası veriyor.. düzeltebilir misiniz?

hndkck   17.09.2014 14:58 #15424  

çalışmıyor

tncytgc   01.08.2014 16:58 #15385  

lisp çalışmıyor

tncytgc   31.07.2014 17:56 #15383  

komut çalışmıyor

yfkyusuf   23.10.2013 12:12 #15179  

maalesef bende çalıştıramadım. Bu güne kadar çalışmayan bir lispim hiç olmamıştı

varedero   30.07.2013 12:16 #15141  

support içinde attım, toolstan gerektiği gibi ekledim, kulandığım lisp ler var acemi değilim ama komutu girince öyle bir komut yok uyarısı alıyorum. çalıştıramadım.

resat63   15.02.2012 18:15 #14515  

Harika bir lisp metraj çıkartırken kullanmk istiyorum. sadece özet tabloyu ve poligon ismini yazdırma şansımız yokmu acaba.

cios106   09.01.2012 22:22 #14451  

yüksek miktarda nokta içeren polygonlar için excel tablosu şart olduğundan, listenin excel tablosunda da oluşması daha iyi olurdu diye düşündüm ancak bunun için ayrıca bir lisp kullanılarak bu sorun da aşılabilir, çok güzel olmuş, saygılar.

atillaözel6666   21.12.2011 12:45 #14422  

lispiniz çok güzel olmuş kullanıyorum ...acaba şeklin üstüne yazılan rakamları yanına yazdırsanız mümkünmüydü acaba...tşk.

atillaözel6666   13.12.2011 11:21 #14411  

harika bir lisp teşekkür ederim hazırlayan ve sunanlara....

Copyright © 2004-2017 | Tüm Hakları Saklıdır | 2320 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam