Sık Sorulan Sorular
Download
İzle Öğren
Eğitim Videoları
AutoCAD Videoları
3ds Max Videoları
AutoCAD Kursu Ders Videoları
AutoCAD Kursu 2 Boyut Dersleri
AutoCAD Kursu 3 Boyut Dersleri
Proje Dökümanları
Çizimler
Mimari Çizimler
Elektrik
Doğalgaz
Harita Çizimleri
Tesisat
Ferforje
Makine
3 Boyut
3ds Max
ArchiCAD
Solidworks
Diğer Çizimler
Lispler
Ekrana Tarih Bi.
Excel Tablosunu.
Yer Belirtici O.
Yer Belirtici Y.
Yay Çizip Ucun.
Çizgi Çizip U.
Yay Çizip Ucun.
Mouse ile Açı.
Katı cismin ü.
Seçilen rakaml.
Seçilen Arc ve.
Yazı Hizalayan.
İki nokta aras.
Çizgi uzunluğ.
Kanalizasyon li.
Spiral çizen lisp
...
Menüler
Fontlar
FreeMUST
Eğitim Dökümanları
Genel Kategori
Çizim Programları
IES Dökümanları
AutoCAD
AutoLISP
Konu Anlatımları
Örnek Lispler
Sürümler
Menüler
DWF Dosyaları
Programlama
AutoCAD Püfleri
Eğitim
AutoCAD Eğitimi
Karma 3 Boyut Dersleri
Adım Adım AutoCAD Eğitimi
01.Bölüm
02.Bölüm
03.Bölüm
04.Bölüm
05.Bölüm
06.Bölüm
07.Bölüm
08.Bölüm
09.Bölüm
10.Bölüm
11.Bölüm
12.Bölüm
Uygulamalar
Adım Adım 3 Boyut Eğitimi
Kariyer
3ds Max
Attribute lar
- aLd Fonksiyonu
- TCad Metraj
- FacadeCAD
- Cephe Kot
- HQ Library
- FreeMUST
- ALS/Pasdoc.A
- Excele Tablo Aktaran Lisp
- Nokta Koordinat Tablosu
- Plana İç Ölçü Verme
- Toplam Alanı Yazan Lisp
- Alan ve Çevre Yazan Lisp
- Koordinat, Alan ve Çevre Tablo Halinde Yazma
- AutoCAD'de Nokta Dökümü
- Hava Kanalı Metraj Fonksiyonu
- Boru Metrajı Fonksiyonu
- OptiCAD
- Özel Çizgi Tipi Oluşturmak
- AutoCAD te Koni Açılımı Nasıl Yapılır?
- PolyLine & Point Objelerinden Aplikasyon Çizelgesi
- Z değerini sıfırlama
- AutoCAD te Polyline üzerine uzunluk yazdırma
- Sıralı numaralandırma
- Yazı içindeki sayıları toplama
- Karmaşık Path ile Loft Uygulaması
- Çoklu Fillet Fonksiyonu
- Ölçekli Türk Bayrağı çizen lisp
- Duvar-Lento-Kapı-Pencere Metraj Programı
Çizgi uzunluğunu çizginin üstüne yazan lisp
admin - 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.