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
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 EÄŸitimi
Ö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ı
Harita ve pafta koordinatları için karelaj yapan lisp
Harita ve pafta koordinatları için istenilen karelajın yapılması
MSucullu - 03.03.2006 13:34
MSucullu - 03.03.2006 13:34
Bu yazılımı denemek için önce bir dikdörtgen çiziniz.
Sonra yazılımı calıştırınız.
Çalıştırmak için komut: kare
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
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.
Sonra yazılımı calıştırınız.
Çalıştırmak için komut: kare
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
Kod:
(DEFUN C:kare ( )
;;;;;;;;;;;;;;;;;;;;;;;AYARLAR;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq a 2) ;koordinat yazısı büyüklüğü
(setq ax (* 2 a))
(setq ay (* 4 a))
(setq b 1) ;koordinat yazısının karelaj cizgisinden uzaklığı
(setq c 0) ;yazılacak yazının acısı
(setq d "red") ;renk
(setq e 5) ;karelaj cizgi uzunluÄŸu
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,
(setq f (getdist "n karelaj yapılacak pafta boyutlarını (x yonün deki uzunlugu yazınız): "))
(setq g (getdist "n karelaj yapılacak pafta boyutlarını (y yonün deki uzunlugu yazınız): "))
(setq h (getdist "n karelaj aralığını yazınız: "))
(setq xyz (getpoint "cizimin sol alt köşesini tıklayınız"))
(setq x (car xyz))
(setq y (cadr xyz))
(setq z (caddr xyz))
(command "zoom" "w" (list (- x 10) (- y 10) 0) (list (+ x 10) (+ y 10) 0))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(command "layer" "m" "koordinat" "c" d "" "")
(setq i 0)
(setq j 0)
;;;;;;y yonu yazı;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(While (< i (+ 1 g))
(setq xay (- x ay))
(setq xyzyyonu (list xay (+ y i) 0))
(setq ykoor (cadr xyzyyonu))
(setq yazıy (rtos ykoor))
(command "text" "j" "mc" xyzyyonu a c yazıy)
(setq i (+ i h))
)
;;;;;;x yonu yazı;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(While (< j (+ 1 f))
(setq yax (- y ax))
(setq xyzxyonu (list (+ x j) yax 0))
(setq xkoor (car xyzxyonu))
(setq yazıx (rtos xkoor))
(command "text" "j" "mc" xyzxyonu a c yazıx)
(setq j (+ j h))
)
;;;;;;karelaj;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(command "layer" "m" "karelaj" "c" d "" "")
(setq i 0)
(setq j 0)
(While (< i (+ 1 g))
(While (< j (+ 1 f))
(setq karx (+ x j))
(setq kary (+ y i))
(setq karxy1 (list (- karx (/ e 2)) kary 0))
(setq karxy2 (list (+ karx (/ e 2)) kary 0))
(setq karxy3 (list karx (- kary (/ e 2)) 0))
(setq karxy4 (list karx (+ kary (/ e 2)) 0))
(command "line" karxy1 karxy2 "")
(command "line" karxy3 karxy4 "")
(setq j (+ j h))
)
(setq i (+ i h))
(setq j 0)
)
(command "layer" "m" "0" "")
(command "zoom" "p")
)
(PRINC " --> 'cizimokulu.com' Çizim yardımları yüklendi !")
;;;;;;;;;;;;;;;;;;;;;;;AYARLAR;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq a 2) ;koordinat yazısı büyüklüğü
(setq ax (* 2 a))
(setq ay (* 4 a))
(setq b 1) ;koordinat yazısının karelaj cizgisinden uzaklığı
(setq c 0) ;yazılacak yazının acısı
(setq d "red") ;renk
(setq e 5) ;karelaj cizgi uzunluÄŸu
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,
(setq f (getdist "n karelaj yapılacak pafta boyutlarını (x yonün deki uzunlugu yazınız): "))
(setq g (getdist "n karelaj yapılacak pafta boyutlarını (y yonün deki uzunlugu yazınız): "))
(setq h (getdist "n karelaj aralığını yazınız: "))
(setq xyz (getpoint "cizimin sol alt köşesini tıklayınız"))
(setq x (car xyz))
(setq y (cadr xyz))
(setq z (caddr xyz))
(command "zoom" "w" (list (- x 10) (- y 10) 0) (list (+ x 10) (+ y 10) 0))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(command "layer" "m" "koordinat" "c" d "" "")
(setq i 0)
(setq j 0)
;;;;;;y yonu yazı;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(While (< i (+ 1 g))
(setq xay (- x ay))
(setq xyzyyonu (list xay (+ y i) 0))
(setq ykoor (cadr xyzyyonu))
(setq yazıy (rtos ykoor))
(command "text" "j" "mc" xyzyyonu a c yazıy)
(setq i (+ i h))
)
;;;;;;x yonu yazı;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(While (< j (+ 1 f))
(setq yax (- y ax))
(setq xyzxyonu (list (+ x j) yax 0))
(setq xkoor (car xyzxyonu))
(setq yazıx (rtos xkoor))
(command "text" "j" "mc" xyzxyonu a c yazıx)
(setq j (+ j h))
)
;;;;;;karelaj;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(command "layer" "m" "karelaj" "c" d "" "")
(setq i 0)
(setq j 0)
(While (< i (+ 1 g))
(While (< j (+ 1 f))
(setq karx (+ x j))
(setq kary (+ y i))
(setq karxy1 (list (- karx (/ e 2)) kary 0))
(setq karxy2 (list (+ karx (/ e 2)) kary 0))
(setq karxy3 (list karx (- kary (/ e 2)) 0))
(setq karxy4 (list karx (+ kary (/ e 2)) 0))
(command "line" karxy1 karxy2 "")
(command "line" karxy3 karxy4 "")
(setq j (+ j h))
)
(setq i (+ i h))
(setq j 0)
)
(command "layer" "m" "0" "")
(command "zoom" "p")
)
(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: msucullu
İçerik:
Tag:
Yorumlar :
ademnba 30.09.2022 09:06 #16131
çok teşekkürler ellerinize sağlık
ozerluleci 13.05.2016 06:52 #15672
teşekkürler süper olmuş.
ongino 01.01.2015 17:23 #15487
ne ise yarar bu ?
lutfi02 12.11.2013 14:55 #15200
teşekürler
baba23100 19.11.2009 16:13 #12060
çok guzel olmuş
spiderXxX 02.10.2009 19:58 #11805
off baba coÅŸmuÅŸsun yaa bravo tebrik ediyorum sizi...
yoruk1919 17.09.2007 11:00 #5570
Haritacılara kolaylık sağlayacak iyi bir çalışma
buseokuyucu 17.07.2007 16:45 #4968
güzel bi konuya benziyo ama ben hiçbirşey anlamadım. sanırsam bu lisp olayı kendi ayarlarımızdan oluşan bir dosya şeklimi. ve biz çizimlerimizi bu ayarlar içimdemi yapıyoruz.............!
:blush
konaknaim 10.07.2007 19:16 #4899
cok guzel bırsey yapmmısın ellerıne saglık teşekkür