Bölüm indeksi
Makaleler Sık Sorulan Sorular Download
İzle Öğren Eğitim Videoları
3ds Max Videoları AutoCAD Kursu Ders Videoları AutoCAD Kursu 2 Boyut Dersleri Proje Dökümanları Çizimler Mimari Çizimler Elektrik Doğalgaz Harita Çizimleri Tesisat Ferforje Makine 3 Boyut 3ds Max ArchiCAD Solidworks Diğer Çizimler Revit Family Lispler Menüler Fontlar FreeMUST Eğitim Dökümanları Genel Kategori Çizim Programları IES Dökümanları AutoCAD AutoLISP Konu Anlatımları
Örnek Lispler
2D Polyline 'ı 3D... 3d polyline'ı 2d... 3D Yay çizen lisp... Artan sırayla num... Autocad içinden e... Civata ve Somun Ç... Çizgileri toplayı... Çizime Tarih Yaza... Daire ortasına ak... Duvar çizen lisp Harita ve pafta k... İşaretlenen 2 nok... Merdiven çizen lisp Nokta koordinatla...
Noktanın koordina... Parabol çizen lisp ... Sürümler Menüler DWF Dosyaları Programlama AutoCAD Püfleri Eğitim AutoCAD Eğitimi Karma 3 Boyut Dersleri Adım Adım AutoCAD Eğitimi 01.Bölüm 02.Bölüm 03.Bölüm 04.Bölüm 05.Bölüm 06.Bölüm 07.Bölüm 08.Bölüm 09.Bölüm 10.Bölüm 11.Bölüm 12.Bölüm Uygulamalar Adım Adım 3 Boyut Eğitimi Kariyer 3ds Max Attribute lar
- aLd Fonksiyonu
- TCad Metraj
- FacadeCAD
- Cephe Kot
- HQ Library
- FreeMUST
- ALS/Pasdoc.A
- Excele Tablo Aktaran Lisp
- Nokta Koordinat Tablosu
- Plana İç Ölçü Verme
- Toplam Alanı Yazan Lisp
- Alan ve Çevre Yazan Lisp
- Koordinat, Alan ve Çevre Tablo Halinde Yazma
- AutoCAD'de Nokta Dökümü
- Hava Kanalı Metraj Fonksiyonu
- Boru Metrajı Fonksiyonu
- OptiCAD
- Özel Çizgi Tipi Oluşturmak
- AutoCAD te Koni Açılımı Nasıl Yapılır?
- PolyLine & Point Objelerinden Aplikasyon Çizelgesi
- Z değerini sıfırlama
- AutoCAD te Polyline üzerine uzunluk yazdırma
- Sıralı numaralandırma
- Yazı içindeki sayıları toplama
- Karmaşık Path ile Loft Uygulaması
- Çoklu Fillet Fonksiyonu
- Ölçekli Türk Bayrağı çizen lisp
- Duvar-Lento-Kapı-Pencere Metraj Programı
Demir (Donatı) Metraj LISP'i
Noktanın koordinatlarını yazan lisp
fumay - 25.02.2006 06:38
Labeling x,y,z Coordinates with Leader - David B. Stewart
modify jlc
Bu içeriğin yayınlanmasını sağlayan fumay 'a teşekkürler.
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
(setq PNT1 (getpoint "nNoktayı işaretleyiniz: "))
(setq P1X (car pnt1))
(setq P1Y (cadr pnt1))
(setq P1Z (caddr pnt1))
(setq STDX (rtos P1X 2 2))
(setq STDY (rtos P1Y 2 2))
(setq STDZ (rtos P1Z 2 2))
(setq COORDN (strcat "Y= " STDY ))
(setq COORDE (strcat "X= " STDX ))
(setq COORDZ (strcat "Z= " STDz ))
(setq PTXT (getpoint
"nYazının yazılacağı yeri işaretleyiniz: "))
(command "LEADER" PNT1 PTXT ""COORDE COORDN COORDZ ""))
(Princ "Komutu çalıştırmk için [LP] yazınız!")
(PRINC " --> 'cizimokulu.com' Çizim yardımları yüklendi !")
Bu kodları nasıl kullanacağınızı bilmiyorsanız aşağıdaki linkten;
AutoLISP > Konu Anlatımları > Lisp Dosyalarının oluşturulması ve Yüklenmesi
konusunu inceleyiniz.
Yazar: fumay
İçerik: LSP formatında AutoLISP uygulama dosyası
Tag: Noktanın koordinatlarını yazan autolisp fonksiyonu
Benzer Sayfalar- Nokta koordinatlarını sayfaya yazan lisp (46.112)
- Sıralı aks harfi yazan lisp (73.784)
- Çizime Tarih Yazan Lisp (7.341)
- Sırasıyla numara yazan lisp (91.507)
- Ekrana Tarih Bilgilerini Yazan Lisp (59.294)
- Seçilen nesnelerin alanlarını toplayıp yazan lisp (64.787)
- Çizgi uzunluğunu çizginin üstüne yazan lisp (92.501)
- Mouse ile Açıyı Belirleyerek Yazı Yazan Lisp (59.305)
- 3D Solid Objelerin Ağırlığını Hesaplayıp Yazan Lisp (19.795)
- Seçilen objelerin alanlarını ve toplam alanı hesaplayıp yazan Lisp (109.429)
eraybozdag 08.05.2014 10:15 #15341
arkadaşlar
verilen nokta numaralarına göre veya seçilen noktaların sırasına göre koordinatları sıralayıp tablo biçimin de hazırlayan lisp varmıdır..
dimistagot 23.11.2012 10:13 #14856
teşekkür ederim bende. koordinat yazdırmak için bir lisp kullanıyordum istemediğim bir şey yapıyordu ve sürekli düzeltmek zorunda kalıyordum. bu daha bana uygun olmuş. saolun.
ayrıca sadece X-Y koordinatını almak için aşağıdaki düzeltmeyi kullanabilirsiniz. elezertk nın dediği gibi 3 hane daha güzel :)
(defun C:LP(/ PNT1 P1X P1Y STDY STDX STDZ COORDN COORDE COORDZ PTXT)
(setq PNT1 (getpoint "\nPick coordinate point: "))
(setq P1X (car pnt1))
(setq P1Y (cadr pnt1))
(setq P1Z (caddr pnt1))
(setq STDX (rtos P1X 2 3))
(setq STDY (rtos P1Y 2 3))
(setq STDZ (rtos P1Z 2 3))
(setq COORDN (strcat "Y=" STDY ))
(setq COORDE (strcat "X=" STDX ))
(setq COORDZ (strcat "" STDz ))
(setq PTXT (getpoint
"\nPick text location: "))
(command "LEADER" PNT1 PTXT ""COORDE COORDN COORDZ "")
(princ)
)
burakturkes 26.01.2010 09:38 #12359
download linkinden indirdiğim bütün lispler çalışıyor ama bu kopyala yapıştır cinsinden yüklediğim hiç bir lisp çalışmıyor. Bad charachter yazısı çıkıyor
ozerluleci 04.12.2009 07:25 #12118
Çok teşekkür ederim fumay arkadaşım harika olmuş.Sadece noktanın Z değerini yazan lisp varmı.yardımcı olursanız çok sevinirim.Şimdiden teşekkür ederim.
serkankalemci 13.05.2009 06:41 #11093
lispi buradan kopyalayabiliyor muyuz yoksa yeniden bizim yazmamiz mi gerekiyor?
Bilen varsa, bilgilendirirse sevinirim....
Tesekkurler...
elezertk 06.05.2009 05:27 #11056
herkese selam.. (rtos P1X 2 2) ve onun altindaki 3 satirda kucuk degisiklikler yapabilirsiniz..ilk 2 rakami sayinin ondalikli yazilacagini belirtiyor..ikinci 2 rakami ise virgulden sonra iki hane olacagini belirtiyor..ben bu uc satiri da 2 3 olarak ayarladim ve tum koordinatlarimi virgulden sonra 3 haneli yazdirabiliyorum..bir de sunu soylemek isterim..(strcat "X= " STDY ) satirindaki X yerine Y, onun altindaki (strcat "Y= " STDY )satirinda Y yerine X yazarsaniz, X koordinatini Y gibi ve Y koordinatini X gibi yazdirabilirsiniz..veya isterseniz kuzey-dogu gibi N ve E de yazdirabilirsiniz..kucuk degisikliklerle lisp daha da guzellesiyor..
ayhan53ismail 04.05.2007 12:49 #4152
bu lisp olayına bayıldım arkadaşlar bu lisp sayesine bazı işlerim baya kısaltdım
chopra 20.11.2006 19:57 #992
Herkese selamlar,
Bu çalışmayı gönderen arkadaşlara teşekkürler. Ancak Yazdırılan X Y Z koordinatlarını excel e aktarabilen hatta tablo halinde aktarabilen bir lisp var mı acaba?
İlginiz için şimdiden teşekkür ederim..