Çizim Okulu
  • Forum
  • Download
  • Galeri
  • AboneOl
  • Üye Ol veya GiriÅŸ Yap

Bölüm indeksi
Makaleler
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
AutoCAD Genel
  • AutoCAD
  • AutoLISP
  • AutoCAD Programlama
  • AutoCAD Püfleri-1
  • AutoCAD Püfleri-2
  • AutoCAD Komutları
  • AutoCAD Terimler Sözl.
AutoCAD EÄŸitimi
  • AutoCAD EÄŸitim Videoları
  • AutoCAD EÄŸitimi
  • AutoCAD Dersleri
  • AutoCAD EÄŸitim Notları
  • AutoCAD 3 Boyut Dersleri
3ds Max
  • 3ds Max Nedir?
  • 3ds Max Model ve Çizim
Özel Yazılımlar
  • 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
Program Ekle
Ziyaretçi: 486, Üye: 2
admin, ERHAN TASDELEN
Detaylar »
> AutoLISP > Örnek Lispler > Nokta koordinatlarını sayfaya yazan lisp

Nokta koordinatlarını sayfaya yazan lisp


admin - 14.10.2005 06:19
Seçilen noktanın x ve y koordinat değerlerini sayfaya yazan lisp.

Lisple ilgili forum linki İleti #770

Bu lispi kodlayan hceven99 'a teşekkürler.

Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz

Kod:

(defun c:kn (/ nokta x y nokta_y yazi aciklama)
(prompt "
10/2005 © Ver 1.0 Koordinat yazımı.")
(setvar "CMDECHO" 1)

(while (= nokta nil)
(setq nokta (getpoint "
Koordinatı alınacak noktayı girin: "))
(if (= nokta nil) (princ "Bir nokta girmelisiniz..."))
)
(setq x (car nokta)
y (cadr nokta))

(setq aciklama (strcat "x:" (rtos x) " _ y:" (rtos y)))
(princ aciklama)


(setq nokta_y (getpoint ( strcat "
Yazının başlangıç noktasını girin /<Koordinat noktası>: ")))
(if (= nokta_y nil) (setq nokta_y nokta))

(command "text" "S" "STANDARD" nokta_y "3" "0" aciklama)

(princ)
)(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: hceven99
İçerik:
Tag:

Yorumlar :
qazqaz   07.08.2015 08:01 #15582  

elinize sağlık

manaman   03.02.2011 09:22 #13753  

süpersiniz tek kelime ile !!!!!

mehrab   11.08.2010 08:03 #13179  

arkadashlar bana elipsi sabit istediyin sabit aralikda bolen lisp gerekdir

berferan68   29.12.2009 21:32 #12235  

ArkadaÅŸlar

autocadde line olarak çizilen şeklin koordinatlarını txt ye çeviren bir lisp var mı elinizde..

Selamlar

aozanp   22.06.2009 13:54 #11333  

kn komut ısmını ıstegınız ısımle degıstırebılırsınız ancak autocad komutlarıyla cakısma olursa veya karekterlerı uyusmazsa komut calısmaz hata verır bu yuzden bu formullerde kullanılan komutları secın bence..sonra deneme yaparsınız arkadslar..

aozanp   22.06.2009 13:50 #11332  

bunu dırek not defterıne ctrl c ıle kopyalayıp yapıstır yenı ısımle bılgısayarım c: ıcıne kn.lsp dosya adı altında kaydet ..daha sonra autocad komut satırına appload yaz (veya toolsdan cekme komutlarıda kullanabılırsın) cıkan pencerde lıspını yanı kn.lsp uzantılı dosyanı sec ve load deyıp kaydet eger devamlı kullanmak ıstıyorsan contents canta seklının altındakı secenegı tıkla add tusundan ana hafızaya da kaydet sonra close tuslarıyla pencereden tamamen cık ve dırek olarak komut satınıa kn yaz ve once rakam boyunu sonra baslangıc sırasını sorar o degerlerını gır sonrada nok gostermenı ıster gosterdıgın noktadan sırayla numara yazmaya baslar ..ıyı calısmalar

atillaözel6666   27.04.2009 15:25 #11011  

bu lispi nasıl kullanırım ayrıntılı bi şekilde anlatabilecek biri varmı?

thecancel   15.01.2008 14:52 #6923  

slm arkadaşlar bende demiryolu projeleri var ve bu projelerde ki yolların koordinatlarını alabileceğim bir lisp var mı?

freemust   17.11.2005 23:28 #144  

selamlar.iyi is cikarmissiniz. sizden ozur dileyerek kodlariniz uzerinde bazi duzeltmeler yaptim.:blush sanirim daha kullanisli ve hatasiz oldu.
barutcimen arkadasimiz, bahsettiginiz lispin verdigi hata kodunu merak ediyorum. burada yazarsaniz size bir fikir verebilirim.


(defun c:kn (/ nokta)
(prompt "10/2005 © Ver 1.0 Koordinat yazımı.")
(setvar "CMDECHO" 1)
(while
(setq nokta
(getpoint "
Koordinatı alınacak noktayı girin: "))
(setq aciklama
(strcat "x:"(rtos (car nokta))
" _ y:"
(rtos (cadr nokta))
)
)
(princ aciklama)
(command "text" nokta "3" "0" aciklama "move" "_l"
"" nokta (getpoint nokta "
yazi yeri isaretleyin. (yaziyi yerinde birakmak icin sag tus)")))
(princ)
)
(princ ""www.autocadokulu.com" calistirmak icin "kn" yazin.")
(princ)

barutcimen   17.11.2005 14:08 #143  

tekrar merhaba
biraz önceki yorumumda lispin çalışmadığını söylemiştim. Fakat yanlış anlaşılmasın diye düzeltiyorum lisp çalışmıyor değil ama hatası var yeni bir çizim dosyası açıp denediğimde lisp görevini yaptı fakat çizdiğim bir proje üzerinde denedim ne yazıktırki çalışmayıp hata verdi. Nedenini çözemedim çözünce sizlerle paylaşıcam

barutcimen   17.11.2005 13:42 #142  

Arkadaşlar ya ben lisp kullanmayı bilmiyorum yada siz bu lispi denemeden koymuşsunuz buraya. Bu lisp çalışmıyor. Bende koordinat için yaptığım bir lisp var farkı ne acaba diye bakayım dedim ama lispinizi çalıştıramadım.

Copyright © 2004-2022 | Tüm Hakları Saklıdır | 4988 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam | İletişim
SQL: 0.032 saniye - Sorgu: 36 - Ortalama: 0.0009 saniye