Autocad için modül dişli lispi
Mar 25
Bu lispi autocad dizini altında support klasörü içine atıp load yaparak (appload komutu) çalıştırabilirsiniz.Klavyeden çalıştırmak için moddis yazınız.
Bu tip bir çizim şekli montaj resimlerinde kullanmak için yapıldı.
Diş üstü çapı, taksimat dairesini bu lisp sayesinde çizebilirsiniz.
;
; Modül Dişli Çizim Lispi v.1.0
;
; Lisp özellikleri :
;
; 1 adet modül dişli için
;
; Diş üstü çapı’nın çizimi
; Bölüm dairesi’nin çizimi (taksimat dairesi)
; Dişli eksenler’inin çizimi
;
(defun disligirdi () ; ilk önce modül dişli için gerekli değerleri alalım
(setq P1 (getpoint “\\nYerleşim yeri için TIKLA !: “)) ; P1 = yerleşim yeri tayini
(setq mod1 (getreal “\\nModül nedir?: “)) ; mod1 = modül değeri değişkeni
(setq dis1 (getreal “\\nDiş sayısı nedir?: “)) ; dis1 = diş sayısı değişkeni
)
(defun diameterhesap () ; dişli dış çap ve böl.dairesi hesabı
; diş üstü çapı hesabı başlangıç
(setq ds1 (+ dis1 2)) ; dis üstü çapı (diş sayısı + 2)
(setq ds2 (* mod1 ds1)) ; diş üstü çapı (modül x (diş sayısı + 2))
(setq ds2a (/ ds2 2)) ; diş üstü çapı 2 kat fazla çıktığı için 2 ye bölelim !! ?!?!
; diş üstü eksen hesabı son
(setq ds3 (* mod1 dis1)) ; bölüm dairesi çapı hesabı başlangıç
(setq ds4 (/ ds3 2)) ; bölüm diresi 2 kat fala çıktığı için 2 ye bölelim !! ?!?!
)
(defun dislicizimi () ; dişli çizimini sağlayan ana komut
(command “circle” P1 ds2a) ; dişli dış çap çizimi
(command “circle” P1 ds4) ; dişli böl.dairesi çizimi (taksimat dairesi)
(command “line” p3 p4 “”) ; dikey eksen çizimi
(command “line” p5 p6 “”) ; yatay eksen çizimi
)
(defun ekscizgisihesap () ; eksen çizgisinin hesabı komutu
(setq p3 (list (car P1) (- (cadr p1) ds2a))) ; P1=yerleşim yeri ds2a= diş üstü çapı
(setq p4 (list (car P1) (+ (cadr p1) ds2a))) ; P1=yerleşim yeri ds2a= diş üstü çapı
(setq p5 (list (+ (car P1) ds2a) (cadr P1))) ; P1=yerleşim yeri ds2a= diş üstü çapı
(setq p6 (list (- (car P1) ds2a) (cadr P1))) ; P1=yerleşim yeri ds2a= diş üstü çapı
)
(defun eksencizimi () ; eksen çizgisi çizimi komutu
(command “line” p3 p4 “”) ; dikey eksen çizimi
(command “line” p5 p6 “”) ; yatay eksen çizimi
)
; MODÜL DİŞLİ ÇİZİMİ ANA PROGRAM
(defun C:moddis () ; modül dişli çizimi için ana komut
(disligirdi) ; çizim değerlerinin alınması
(diameterhesap) ; dişli dış çap ve böl.dairesi hesabı
(dislicizimi) ; dişli çizimini sağlayan ana komut
(ekscizgisihesap) ; eksen çizgisinin hesabı komutu
(eksencizimi) ; eksen çizgisi çizimi komutu
)
(Princ “Lisp’i çalıştırmak için >> moddis << yazınız! [www.Cyber-Warrior.org] “)
; Modül dişli çizimi için kullanılan formüller :
; Diş üstü çapı = Modül x ( Diş sayısı + 2 )
; Bölüm dairesi çapı = ( Modül x ( Diş sayısı + 2 ) ) – ( 2 x modül )
; Bölüm dairesi çapı = modül x diş sayısı
; Diş üstü çapı = bölüm dairesi + ( 2 x diş sayısı)
; Diş üstü çapı = modül x ( diş sayısı + 2)
‘ALINTIDIR’
Admin bey ?! Bir zahmet ” ALINTIDIR ” diye not düşseydin bu MODÜL DİŞLİ LİSPİ hakında…
)