Sık Sorulan Sorular
Download
İzle Öğren
Eğitim Videoları
AutoCAD Videoları
3ds Max Videoları
AutoCAD Kursu Ders Videoları
AutoCAD Kursu 2 Boyut Dersleri
AutoCAD Kursu 3 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
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
Pline 'ları se.
Merdiven çizen.
Rectangle Solid.
2D Polyline 'ı.
Sürekli Kopya
Civata ve Somun.
Seçilen nesnen.
Z yönünde kop.
Z yönünde taÅ.
Daire ortasına.
Rakam sıralaya.
Artan sırayla .
Sırasıyla num.
Sayfadaki textl.
Yazıyı refera.
Seçilen nesnen.
...
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ı
Noktanın koordinatlarını yazan lisp
fumay - 25.02.2006 06:38
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 " --> 'www.autocadokulu.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:
Tag:
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..
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)
)
tÅŸk ederim
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
error: bad character read (octal): 0
bu yazı neden çıkar
trÅŸk
Ç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.
suoer olmuş ellerinize sağlık
neden download yok arkadaslar???
lispi buradan kopyalayabiliyor muyuz yoksa yeniden bizim yazmamiz mi gerekiyor?
Bilen varsa, bilgilendirirse sevinirim....
Tesekkurler...
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..
SAGOLUN BE
z koordinatını iptal etmek istesem ne yapmam gerekir?Teşekkürler
bu lisp olayına bayıldım arkadaşlar bu lisp sayesine bazı işlerim baya kısaltdım
çok teşekkürler elinize sağlık
güzel olmuş ellerine sağlık
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..