X,Y Düzlemindeki katı cismin üzerine silindir açan lisp
X,Y Düzlemindeki katı cismin üzerine silindir açan lisp, dell.lsp
cizimokulu.com - 28.10.2005 15:51
cizimokulu.com - 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 :
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.