ehya - 21.09.2005 14:50
Dosyayı download edebilir veya aşağıdaki linkten ilgili forum sayfasına giderek kodları kopyalayabilirsiniz.
İleti #671
Yazar: ehya
İçerik:
Tag:
Teşekkür ederim.
Yazanların ellerine emeğine sağlık teşekklürler
Çizgi altına sayı, çizgi üstünde yazı şeklinde yapabilir miyiz.
küsüratları gidermek için komut satırına "luprec" yazarak virgülden sonra görmek istediğiniz basamak sayısını yazmanız yeterli. umarım birilerinin işine yarar
lispin içinde bir yerden rakamlarla oynayarak virgülden sonraki basamak sayısını ayarlıyorduk ama neresiydi hatırlamıyorum . Bilen varmı aceba
nasıl kurabilirim bunu autocad LT de işe yararmı ? linki indirdim ama kuramıyorum
YARDIM LÜTFEN
nasıl kurabilirim bunu autocat LT de işe yararmı ? linki indirdim ama kuramıyorum
YARDIM LÜTFEN
ayrıca bende source diye bi klasör yok
kurduktan sonra mesafeyı yazdıran komut nedır?
ed komutu sadece yazıldıktan sonra değişiklik yapmaya yarıyor o da tek başına, küsüratlar gerçekten çok fazla bunu yuvarlamanın bir yolu yokmu
ed komutu sadece yazıldıktan sonra değişiklik yapmaya yarıyor o da tek başına, küsüratlar gerçekten çok fazla bunu yuvarlamanın bir yolu yokmu
ARKADAŞLAR BU LISP İ POLYLINE OLARAK DEĞİŞTİRDİM LİSP AŞAĞIDA FAKAT HATA VERİYOR HATA SÖYLE (; error: bad argument type: 2D/3D point: nil) NOLUR YARDIM EDİN
(defun c:uy ()
(setq uy_os (getvar "osmode"))
(setq uy_sec nil)
(setq uy_sec (ssget (list (cons 0 "LWPOLYLINE"))))
(if (= uy_sec nil)
(progn
(princ "
Nesne seçimi yok. Komut bitirildi..."))
(progn
(if (= uy_yaz_yuk nil)(setq uy_yaz_yuk 12))
(initget 2)
(setq uy_yaz_y (getdist (strcat "
Yazılacak yazının Yüksekliği:<" (rtos uy_yaz_yuk) ">:")))
(if (= uy_yaz_y nil)(setq uy_yaz_y uy_yaz_yuk))
(setq uy_yaz_yuk uy_yaz_y)
(setq uy_c 0)
(setq uy_say (sslength uy_sec))
(while (< uy_c uy_say)
(setq uy_sec_tek (ssname uy_sec uy_c))
(setq uy_sec_tek_10 (cdr (assoc 10 (entget uy_sec_tek)))
uy_sec_tek_11 (cdr (assoc 11 (entget uy_sec_tek))))
(setq uy_sec_tek_mes (distance uy_sec_tek_10 uy_sec_tek_11))
(setq uy_sec_tek_10_x (car uy_sec_tek_10)
uy_sec_tek_10_y (cadr uy_sec_tek_10)
uy_sec_tek_11_x (car uy_sec_tek_11)
uy_sec_tek_11_y (cadr uy_sec_tek_11))
(setq uy_yaz_x (/ (+ uy_sec_tek_10_x uy_sec_tek_11_x) 2.00)
uy_yaz_y (/ (+ uy_sec_tek_10_y uy_sec_tek_11_y) 2.00)
uy_yaz (list uy_yaz_x uy_yaz_y))
(if (< uy_sec_tek_10_x uy_sec_tek_11_x)
(progn
(setq uy_sec_aci_bas uy_sec_tek_10)
(setq uy_sec_aci_son uy_sec_tek_11)
)
Paylaşanlara çok teşekkür ediyorum. Çizgi uzunluğundaki küsuratları nasıl yuvarlayabiliirm
merhabalar autocad'de çizgi uzunluğunu yazıyorum , ne yazarsam yazayım 100ile çarpıyor , nasıl düzeltebilirim? şimdiden teşekkürler .
line'da işe yarıyor, çok teşekkürler.. polyline ve 3d polyline için kullanılabilir versiyonu var mıdır?
ek açılmıyor sadece, lisp kodu görülebilirmiş
açılmıyor malesef :/
küsüratları "ed" komutuyla düzenleyenbilirsiniz
istediğin fontu yazı karateri bölümünün üzerindeki fonts kısmından, rengini ise by layer bölümüne tıklayark yapabilirsin
Elinize sağlık,çok yararlı oldu.
Küsurat kısmını nasıl ayarlayabiliriz ?
İstediğimiz fontu ve rengini nasıl ayarlarız ?
Teşekkürler.
çok teşekkürler... Ehya hocamınızın sayesinde, patronun gözüne girdim. Ama gizli özne o :) yalnız bu lispte polyline ile çizilmiş çizgilere yazmadı. bir edit yapabilirmiyiz şimdiden cok tesekkur ederim
Teşekkürederim ellerine sağlık hocam.:)
çok teşekkür ederim eline sağlık
teşekkürler çok iyi olmuş.elinize yüreğinize sağlık.
ölçümlerinde küsürat çıkıyor mesela 10.256 ben bu küsuratları nasıl atabilir yada yuvarlatabilirim..
Adiq3
autocad'de uzunlukların herhangi bir birimi yoktur. Siz metre dersiniz ben cm.. Buna siz karar vermelisiniz.
Yazılan uzunluklar çizgilerin iki nokta arasındaki uzaklığını belirler...
Eline Sağlık Ancak Bir Maruzatım Olacak Tam Olarak Lips'in Verdiği Ölçünün Esası Nedir?
Derken;
125.458 Diye Bir Rakam Dizini Cıktı,Bu Ölçünün Esası Nedir
12 Mete 54 CM midir ?
veya Bunun düzelmesi İçin Auto Cad'e Bir Değişiklik Yapmam Gerekiyormu ?
ya hocam bir şey soracam.çizginin uzunlu mesela 100.56 ben .56 lık kısmın yazmasını istemiyorum.yani küsüratları yazmamasını sağlayabilirmiyiz
rakamları çizginin uzerınde gostermiyor.nedendir acaba
bunun kısa yolu ne acaba
lips dosyasını c diskindeki autocad içersinde source içersine yapıştırın
HOCAM ELİNE SAĞLIK ALLAH RAZI OLSUN
çok teşekkürler
lisp dosyasını nereye yapıştıracaz acaba biras acemiyim yeni ögreniyorum da
emeğinize sağlık
teşekkürler
Allah bin defa razı olsun..İnanılmaz işime yaradı..List edip tek tek metraj yapıyordum ..Paylaşmak ne güzel şey..Tekrar sağolsun emeği geçen dostlar..
yau varyaa, helaliniz var harbi.. accaip sağolun :Ç
bu lisp için yazıyı çizim ayarların göre metre cinsinden çizilmiş bir çizginin üzerine yazısını cm cinsinden yazırabilir miyiz ? birde yazıyı çizginin üstüne değil de altına yazdırabilir miyiz ?
Lisp kodlamayı biliyorsan üzerinde değişiklik yapabilirsin.
yanına "m" nasıl yazabiliriz?
gerçekten de çok güzel
bunu yazanın elleri dert görmesin eyvallah kardeş
çok güzel. 2 nokta arasındaki mesafeyi verseydi. mükemmel olurdu.
çizgi altına yazı _?
ARADIĞIM Bİ ŞEY Dİ EMEĞİNE SAĞLIKLAR.