hceven99 - 14.10.2005 06:19
Lisple ilgili forum linki İleti #770
Bu lispi kodlayan hceven99 'a teşekkürler.
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
(prompt "
10/2005 © Ver 1.0 Koordinat yazımı.")
(setvar "CMDECHO" 1)
(while (= nokta nil)
(setq nokta (getpoint "
Koordinatı alınacak noktayı girin: "))
(if (= nokta nil) (princ "Bir nokta girmelisiniz..."))
)
(setq x (car nokta)
y (cadr nokta))
(setq aciklama (strcat "x:" (rtos x) " _ y:" (rtos y)))
(princ aciklama)
(setq nokta_y (getpoint ( strcat "
Yazının başlangıç noktasını girin /<Koordinat noktası>: ")))
(if (= nokta_y nil) (setq nokta_y nokta))
(command "text" "S" "STANDARD" nokta_y "3" "0" aciklama)
(princ)
)(PRINC " --> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
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: hceven99
İçerik:
Tag:
mehrab 11.08.2010 08:03 #13179
arkadashlar bana elipsi sabit istediyin sabit aralikda bolen lisp gerekdir
berferan68 29.12.2009 21:32 #12235
Arkadaşlar
autocadde line olarak çizilen şeklin koordinatlarını txt ye çeviren bir lisp var mı elinizde..
Selamlar
aozanp 22.06.2009 13:54 #11333
kn komut ısmını ıstegınız ısımle degıstırebılırsınız ancak autocad komutlarıyla cakısma olursa veya karekterlerı uyusmazsa komut calısmaz hata verır bu yuzden bu formullerde kullanılan komutları secın bence..sonra deneme yaparsınız arkadslar..
aozanp 22.06.2009 13:50 #11332
bunu dırek not defterıne ctrl c ıle kopyalayıp yapıstır yenı ısımle bılgısayarım c: ıcıne kn.lsp dosya adı altında kaydet ..daha sonra autocad komut satırına appload yaz (veya toolsdan cekme komutlarıda kullanabılırsın) cıkan pencerde lıspını yanı kn.lsp uzantılı dosyanı sec ve load deyıp kaydet eger devamlı kullanmak ıstıyorsan contents canta seklının altındakı secenegı tıkla add tusundan ana hafızaya da kaydet sonra close tuslarıyla pencereden tamamen cık ve dırek olarak komut satınıa kn yaz ve once rakam boyunu sonra baslangıc sırasını sorar o degerlerını gır sonrada nok gostermenı ıster gosterdıgın noktadan sırayla numara yazmaya baslar ..ıyı calısmalar
atillaözel6666 27.04.2009 15:25 #11011
bu lispi nasıl kullanırım ayrıntılı bi şekilde anlatabilecek biri varmı?
thecancel 15.01.2008 14:52 #6923
slm arkadaşlar bende demiryolu projeleri var ve bu projelerde ki yolların koordinatlarını alabileceğim bir lisp var mı?
freemust 17.11.2005 23:28 #144
selamlar.iyi is cikarmissiniz. sizden ozur dileyerek kodlariniz uzerinde bazi duzeltmeler yaptim.:blush sanirim daha kullanisli ve hatasiz oldu.
barutcimen arkadasimiz, bahsettiginiz lispin verdigi hata kodunu merak ediyorum. burada yazarsaniz size bir fikir verebilirim.
(defun c:kn (/ nokta)
(prompt "10/2005 © Ver 1.0 Koordinat yazımı.")
(setvar "CMDECHO" 1)
(while
(setq nokta
(getpoint "
Koordinatı alınacak noktayı girin: "))
(setq aciklama
(strcat "x:"(rtos (car nokta))
" _ y:"
(rtos (cadr nokta))
)
)
(princ aciklama)
(command "text" nokta "3" "0" aciklama "move" "_l"
"" nokta (getpoint nokta "
yazi yeri isaretleyin. (yaziyi yerinde birakmak icin sag tus)")))
(princ)
)
(princ ""www.autocadokulu.com" calistirmak icin "kn" yazin.")
(princ)
barutcimen 17.11.2005 14:08 #143
tekrar merhaba
biraz önceki yorumumda lispin çalışmadığını söylemiştim. Fakat yanlış anlaşılmasın diye düzeltiyorum lisp çalışmıyor değil ama hatası var yeni bir çizim dosyası açıp denediğimde lisp görevini yaptı fakat çizdiğim bir proje üzerinde denedim ne yazıktırki çalışmayıp hata verdi. Nedenini çözemedim çözünce sizlerle paylaşıcam
barutcimen 17.11.2005 13:42 #142
Arkadaşlar ya ben lisp kullanmayı bilmiyorum yada siz bu lispi denemeden koymuşsunuz buraya. Bu lisp çalışmıyor. Bende koordinat için yaptığım bir lisp var farkı ne acaba diye bakayım dedim ama lispinizi çalıştıramadım.