Forumdan
99 kategoride
17 binden fazla konu başlatıldı
bu konulara yaklaşık 90 bin cevap verildi
tüm bunlar yaklaşık 109 milyon kez görüntülendi
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 larAutoCAD Genel
AutoCAD Eğitimi
3ds Max
Ö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
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
Benzer Sayfalar- Katı cismin üzerinde istenilen çapta silindir açan autolisp (49.504)
- 3D Katı yakıtlı kazan çizimi (29.859)
- Katı Model Ayaklı ve Merkezleme Elemanlı Delme Kalıbı Çizimi (25.902)
- Ara Lisp (52.286)
- Enkesit Lisp (7.895)
- 3D Yay çizen lisp (seçenekli) (27.270)
- Rectangle Solid (lisp) (31.562)
- Makine-Eleman-Lisp (85.688)
- Rakam sıralayan lisp (35.849)
- Merdiven çizen lisp (47.278)
Yorumlar :
ufuk1245 10.05.2024 08:19 #16154
Merhabalar rahatsız ediyorum bir sorun olacak bende kanal metraj hesap lsp programı vardı daha önce 2013 te çalışıyordu ancak şuan 2024 yüklü kullanamıyorum atuocad atıyorum son aşamada VL OBJEKT NİL hatası veriyor ve çalışmıyor bu konuda yardımcı olacak birisi varmı acaba ne yapabilirim.