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ı
X,Y Düzlemindeki katı cismin üzerine silindir açan lisp
X,Y Düzlemindeki katı cismin üzerine silindir açan lisp, dell.lsp
admin - 28.10.2005 15:51
admin - 28.10.2005 15:51
Dell.lsp: X,Y Düzleminde bulunan bir katı cismin üzerinde istenilen çapta silindir açar...
Aşağıda detaylı olarak verilen bu örnek programı download bölümünden indirebilirsiniz.
tag: X,Y Düzlemindeki katı cismin üzerine silindir açan lisp, autolisp dosyasi, lisp programi, kati modele delik açan lisp kodu, x,y düzlemindeki solid objeye delik açmak
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
Programın Açıklaması:
(defun c:dell() : Programı aktif etmek için kullanılacak komutu belirtir .
(setq p1(getpoint "
Delinecek nesne dışında bir nokta seçin:"))
(setq p2(getpoint "
Delinecek nesne içinde bir nokta seçin:"))
Yukarıdaki satırlar şekil içinde ve dışında birer nokta seçtirerek bu nokta koordinatlarını P1 ve P2 değişkenlerine aktarır.
(setq nesne(ssget "c" p1 p2)) : P1 ve P2 noktaları arasında nesneyi veya nesneleri seçerek bu nesneyi "nesne" değişkenine atar. Bu iki nokta arasında bulunan şekli seçmek için ise "c" parametresi kullanılmıştır.
(setq yer(getpoint "
Merkez noktası :")) : Çizilecek silindirin merkezini belirlemek için bir nokta seçtirir ve yer değişkenine aktarır.
(setq r(getreal "
Yariçapı girin :")) : Çizilecek silindirin yarıçapının girilmesi istenir ve bu değer "r" değişkenine atanır.
(setq h(getreal "
Yüksekliği Girin :")) : Çizilecek silindirin uzunluğunu ister ve bu değeri h değerine atanırır.
(command "ucs" "origin" yer) : UCS yer değişkeninde saklanan noktaya taşınır.
(command "cylinder" "0,0,0" r h) : "0,0,0" noktası merkez olacak şekilde "r" yarıçapında ve "h" yüksekliğinde bir silindir çizer.
(command "subtract" nesne "" "last" "") : Son çizilen nesneyi yani silindiri "nesne" değişkenine atanmış olan nesneden çıkarır.
(setq nh(* -1 h)) : "h" değerinin çarpmaya göre tersini alır ve "nh" değişkenine atanır.
(command "cylinder" "0,0,0" r nh) : "0,0,0" noktası merkez olacak şekilde "r" yarıçapında ve "nh" yüksekliğinde bir silindir çizer. Fakat bu yeni silindir diğer silindirin tersi yönünde uzanır.
(command "subtract" nesne "" "last" "") : Son çizilen nesneyi yani silindiri "nesne" değişkenine atanmış olan nesneden çıkarır.
(command "ucs" "world" "") : UCS standart ayarına getirilir.
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.
Aşağıda detaylı olarak verilen bu örnek programı download bölümünden indirebilirsiniz.
tag: X,Y Düzlemindeki katı cismin üzerine silindir açan lisp, autolisp dosyasi, lisp programi, kati modele delik açan lisp kodu, x,y düzlemindeki solid objeye delik açmak
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
Kod:
(defun c:dell()
(setq p1(getpoint "
Delinecek nesne dışında bir nokta seçin:"))
(setq p2(getpoint "
Delinecek nesne içinde bir nokta seçin:"))
(setq nesne(ssget "c" p1 p2))
(setq yer(getpoint "
Merkez noktası :"))
(setq r(getreal "
Yariçapı girin :"))
(setq h(getreal "
Yüksekliği Girin :"))
(command "ucs" "origin" yer)
(command "cylinder" "0,0,0" r h)
(command "subtract" nesne "" "last" "")
(setq nh(* -1 h))
(command "cylinder" "0,0,0" r nh)
(command "subtract" nesne "" "last" "")
(command "ucs" "world" "")
)(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
(setq p1(getpoint "
Delinecek nesne dışında bir nokta seçin:"))
(setq p2(getpoint "
Delinecek nesne içinde bir nokta seçin:"))
(setq nesne(ssget "c" p1 p2))
(setq yer(getpoint "
Merkez noktası :"))
(setq r(getreal "
Yariçapı girin :"))
(setq h(getreal "
Yüksekliği Girin :"))
(command "ucs" "origin" yer)
(command "cylinder" "0,0,0" r h)
(command "subtract" nesne "" "last" "")
(setq nh(* -1 h))
(command "cylinder" "0,0,0" r nh)
(command "subtract" nesne "" "last" "")
(command "ucs" "world" "")
)(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
Programın Açıklaması:
(defun c:dell() : Programı aktif etmek için kullanılacak komutu belirtir .
(setq p1(getpoint "
Delinecek nesne dışında bir nokta seçin:"))
(setq p2(getpoint "
Delinecek nesne içinde bir nokta seçin:"))
Yukarıdaki satırlar şekil içinde ve dışında birer nokta seçtirerek bu nokta koordinatlarını P1 ve P2 değişkenlerine aktarır.
(setq nesne(ssget "c" p1 p2)) : P1 ve P2 noktaları arasında nesneyi veya nesneleri seçerek bu nesneyi "nesne" değişkenine atar. Bu iki nokta arasında bulunan şekli seçmek için ise "c" parametresi kullanılmıştır.
(setq yer(getpoint "
Merkez noktası :")) : Çizilecek silindirin merkezini belirlemek için bir nokta seçtirir ve yer değişkenine aktarır.
(setq r(getreal "
Yariçapı girin :")) : Çizilecek silindirin yarıçapının girilmesi istenir ve bu değer "r" değişkenine atanır.
(setq h(getreal "
Yüksekliği Girin :")) : Çizilecek silindirin uzunluğunu ister ve bu değeri h değerine atanırır.
(command "ucs" "origin" yer) : UCS yer değişkeninde saklanan noktaya taşınır.
(command "cylinder" "0,0,0" r h) : "0,0,0" noktası merkez olacak şekilde "r" yarıçapında ve "h" yüksekliğinde bir silindir çizer.
(command "subtract" nesne "" "last" "") : Son çizilen nesneyi yani silindiri "nesne" değişkenine atanmış olan nesneden çıkarır.
(setq nh(* -1 h)) : "h" değerinin çarpmaya göre tersini alır ve "nh" değişkenine atanır.
(command "cylinder" "0,0,0" r nh) : "0,0,0" noktası merkez olacak şekilde "r" yarıçapında ve "nh" yüksekliğinde bir silindir çizer. Fakat bu yeni silindir diğer silindirin tersi yönünde uzanır.
(command "subtract" nesne "" "last" "") : Son çizilen nesneyi yani silindiri "nesne" değişkenine atanmış olan nesneden çıkarır.
(command "ucs" "world" "") : UCS standart ayarına getirilir.
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: cizimokulu.com
İçerik: LSP (Lisp) formatında AutoLISP uygulama dosyası
Tag: X,Y Düzlemindeki katı cismin üzerine silindir açan lisp, autolisp dosyasi, lisp programi, kati modele delik açan lisp kodu, x,y düzlemindeki solid objeye delik açmak
Yorumlar :
karizma505 27.01.2010 07:07 #12367
tÅŸk ederim