



























































































































































































































- 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:

merhabalar, emeğinize sağlık. bunun nasıl yüklenip nasıl kullanacağımızı anlatabilir ya da bu konuda yardımcı olabilecek bir lin video paylaşabilir misiniz?

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

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?

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

ö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

lips dosyasını c diskindeki autocad içersinde source içersine yapıştırın

lisp dosyasını nereye yapıştıracaz acaba biras acemiyim yeni ögreniyorum da

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..

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 ?

gerçekten de çok güzel
bunu yazanın elleri dert görmesin eyvallah kardeş