|
06.11.2012 23:40
mehmet_zaza
|
Değerli arkadaşlar, paylaştığım resimdeki gibi kotlardan eğim hesaplayan Lisp var mı? Veya yazılabilir mi? Yalnız yazı yüksekliği sorulursa iyi olur.
 112143-ornekdosya 3.dwg
admin (19.01.2018 18:57 GMT)
|
|
10.11.2012 09:11
 k005
|
Alıntı
mehmet_zaza :
bu göndermiş olduğun resmin, çiziminide ekleyebilirmisin ? bi bakalım..
|
|
10.11.2012 10:16
 Travaci
|
|
Verilen kot bacanın ortasımı oluyor yoksa okun başlangıç noktasımı ?
|
|
10.11.2012 23:40
mehmet_zaza
|
|
önce 1 okla gösterdiğim kot seçilecek ondan sonra 2 okla gösterdiğim kot seçilecek ondan sonrada 3 L= MESAFE(29.00) yada çizgi uzunluğuna bölünüp 4 okla gösterdiğim 1\100 ÖLÇEKLİ eğim yazılacak...detaylar esim ve dwg dosyasında...
|
|
10.11.2012 23:51
mehmet_zaza
|
|
DEĞERLİ arkadaşlar dwg dosyası eklenip resimde güncelenmiştir...
|
|
13.11.2012 19:10
k005
|
Alıntı
mehmet_zaza :
Kod:
;Eğim hesaplar ve istenen kısma eğimi yazar.. E.KALAY 13.11.2012
(defun c:eg()
(setq b_kod (atof (cdr (assoc 1 (entget (car (entsel "\nBüyük kodu seçiniz")))))))
(princ "\n")
(princ b_kod)
(setq k_kod (atof (cdr (assoc 1 (entget (car (entsel "\nKüçük kodu seçiniz")))))))
(princ "\n")
(princ k_kod)
(setq mesafe (getreal "\nMesafeyi giriniz ? :"))
(princ "\n")
(princ k_kod)
(setq kod_fark (- b_kod k_kod))
(setq egm (/ kod_fark mesafe))
(setq yaz (getpoint "\nYazılacak yeri belirtiniz ?"))
(command "text" "c" yaz "" 0 (strcat "" (rtos egm 2 2)""))
(princ "\nEğim : ")
(princ egm)
(princ)
)
|
|
13.11.2012 23:41
mehmet_zaza
|
|
abi çok tşk ederim çok zahmet etmişsiniz allah sizden razı olsun.yalnız ben ölçekli eğim yazılmasını istemiştim..yani şöyle diyeyim sizin yaptığınız lisp kot farkı bölü mesafe ile eğimi veriyor benim istedğim ise mesafe bölü kot farkı ile çıkan ölçekli eğim yinde size çok tşk ederim...
|
|
14.11.2012 00:11
mehmet_zaza
|
|
(setq egm (/ kod_fark mesafe)) kolonunda (setq egm (/ mesafe kod_fark)) diye değiştirdim oldu ama diyelim biz düzeltme daha olması lazım onu yaparsanız çok ii olur benim değiştiriğim haliye komutu çaliştirdiğim zaman diyelimki 779.44-778.00=1.44 bunuda
60.00/1.44=41.666 çıkar buda böle yazılır 1/42 diye yazılır...şimdi sizden istediğimi inşallah anlamişsiniz..sizin yaptığınız lispte yaptığım değişilikle eğimi ölçeğe çevirdim ammaa 60.00/1.44=41.666 ama bnm istediğim 1/42 olarak yazılması.....şimdiden tşk edeerim
|
|
14.11.2012 06:30
k005
|
Alıntı
mehmet_zaza :
60.00/1.44=41.666 ama bnm istediğim 1/42 olarak yazılması..
******************************************************
sonuç : 41.3525 çıksaydı yine 42 ye mi tamamlanacak ? yoksa 41 mi olacaktı ?
kodda ki değişikliği bunlara göre yapacağım..
k005 (14.11.2012 06:53 GMT)
|
|
14.11.2012 12:43
mehmet_zaza
|
|
hayır abi sonuç diyelimki 41.50 altında ise 1/41 olur eğer 41.50 üstünde ise 1/42 olarak yazılır
|
|
14.11.2012 13:03
k005
|
Alıntı
mehmet_zaza :
Kod:
;Eğim hesaplar ve istenen kısma eğimi yazar.. E.KALAY 13.11.2012
(defun c:eg()
(setq yh (getreal "\nYazı yüksekliğini giriniz : "))
(setq b_kod (atof(cdr(assoc 1(entget(car(entsel "\nBüyük kodu seçiniz")))))))
(princ "\n")
(princ b_kod)
(setq k_kod (atof(cdr(assoc 1(entget(car(entsel "\nKüçük kodu seçiniz")))))))
(princ "\n")
(princ k_kod)
(setq mesafe (getreal "\nMesafeyi giriniz ? :"))
(princ "\n")
(princ k_kod)
(setq kod_fark (- b_kod k_kod))
(setq egm (/ mesafe kod_fark ))
(setq yaz (getpoint "\nYazılacak yeri belirtiniz ?"))
(command "text" "c" yaz yh 0 (strcat "1/" (rtos egm 2 0)""))
(princ "\nEğim : ")
(princ egm)
(princ)
)
|
mehmet_zaza
|
|
Abi çok TEŞEKÜR ederim allah sizden razı olsun...tam istediğim gibi olmuş....
|
