Çizgi uzunluğunu çizginin üstüne yazan lisp

ehya - 21.09.2005 14:50
Forum bölümüne eklenen bir lisp kodu. Çizginin üzerine çizgi uzunluğunu yazıyor.

Dosyayı download edebilir veya aşağıdaki linkten ilgili forum sayfasına giderek kodları kopyalayabilirsiniz.


İleti #671

Yazar: ehya
İçerik:
Tag:

Download sayısı: 5975, Boyut: 0.004mb
Yorumlar :
iboli12   25.06.2017 05:28 #15793  

Teşekkür ederim.

airhun   14.06.2016 08:44 #15691  

Yazanların ellerine emeğine sağlık teşekklürler

mhmtcn56   28.04.2016 13:02 #15661  

Çizgi altına sayı, çizgi üstünde yazı şeklinde yapabilir miyiz.

alfaoz   06.07.2015 08:19 #15570  

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

alperiz35   11.04.2015 23:23 #15534  

lispin içinde bir yerden rakamlarla oynayarak virgülden sonraki basamak sayısını ayarlıyorduk ama neresiydi hatırlamıyorum . Bilen varmı aceba

serkan09   19.12.2014 14:30 #15470  

nasıl kurabilirim bunu autocad LT de işe yararmı ? linki indirdim ama kuramıyorum
YARDIM LÜTFEN

serkan09   19.12.2014 14:29 #15469  

nasıl kurabilirim bunu autocat LT de işe yararmı ? linki indirdim ama kuramıyorum
YARDIM LÜTFEN

aliakgunharita   08.07.2014 12:56 #15366  

ayrıca bende source diye bi klasör yok

aliakgunharita   08.07.2014 12:52 #15365  

kurduktan sonra mesafeyı yazdıran komut nedır?

cr34pylord   05.04.2014 08:14 #15320  

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

cr34pylord   05.04.2014 08:14 #15319  

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

origin26   19.03.2014 19:56 #15308  

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

idonotknow   10.02.2014 15:53 #15291  

Paylaşanlara çok teşekkür ediyorum. Çizgi uzunluğundaki küsuratları nasıl yuvarlayabiliirm

erkanolmez01   30.04.2013 19:10 #15080  

merhabalar autocad'de çizgi uzunluğunu yazıyorum , ne yazarsam yazayım 100ile çarpıyor , nasıl düzeltebilirim? şimdiden teşekkürler .

ufuksami93   14.10.2012 10:08 #14816  

indiremiyorum

yesilege   04.10.2012 14:25 #14797  

line'da işe yarıyor, çok teşekkürler.. polyline ve 3d polyline için kullanılabilir versiyonu var mıdır?

yesilege   04.10.2012 13:36 #14796  

ek açılmıyor sadece, lisp kodu görülebilirmiş

yesilege   04.10.2012 13:35 #14795  

açılmıyor malesef :/

merve7165   02.02.2012 09:56 #14494  

küsüratları "ed" komutuyla düzenleyenbilirsiniz

efe19   10.11.2011 19:17 #14371  

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

ss78   15.07.2011 13:38 #14160  

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.

complex275   13.05.2011 14:45 #14047  

ç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

ckilic   17.03.2011 20:58 #13885  

Teşekkürederim ellerine sağlık hocam.:)

ruh hastası   07.01.2011 22:31 #13686  

çok teşekkür ederim eline sağlık

CANER04   25.12.2010 11:25 #13641  

teşekkürler çok iyi olmuş.elinize yüreğinize sağlık.

mühend   22.12.2010 13:19 #13632  

ölçümlerinde küsürat çıkıyor mesela 10.256 ben bu küsuratları nasıl atabilir yada yuvarlatabilirim..

ehya   21.11.2010 22:22 #13517  

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

Adiq3   19.11.2010 22:59 #13513  

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 ?

Ljard   05.11.2010 13:41 #13460  

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

bakkurt55   25.09.2010 08:32 #13299  

rakamları çizginin uzerınde gostermiyor.nedendir acaba

gfb3009   21.08.2010 21:59 #13218  

bunun kısa yolu ne acaba

math29   26.03.2010 14:38 #12663  

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

mayral   16.10.2009 07:03 #11873  

HOCAM ELİNE SAĞLIK ALLAH RAZI OLSUN

mıstıkkkk   13.06.2009 07:20 #11278  

çok teşekkürler

simiore   04.01.2009 13:07 #10072  

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

AKINCI_34   19.11.2008 08:19 #9589  

emeğinize sağlık

AKINCI_34   19.11.2008 08:18 #9588  

teşekkürler

KÖPRÜ-YOL   15.11.2008 20:47 #9541  

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

fleshget   12.09.2008 18:11 #9043  

yau varyaa, helaliniz var harbi.. accaip sağolun :Ç

dendogan   17.07.2008 06:42 #8687  

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 ?

ehya   05.06.2007 21:18 #4542  

Lisp kodlamayı biliyorsan üzerinde değişiklik yapabilirsin.

fatihkir   15.05.2007 10:33 #4272  

yanına "m" nasıl yazabiliriz?

seyid3264   07.02.2007 09:25 #2343  

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

tiger_007   25.01.2007 16:00 #2020  

çok güzel. 2 nokta arasındaki mesafeyi verseydi. mükemmel olurdu.

teknikerdem   15.01.2007 13:54 #1837  

çizgi altına yazı _?

noble_wolf   01.01.2006 15:29 #172  

ARADIĞIM Bİ ŞEY Dİ EMEĞİNE SAĞLIKLAR.

Copyright © 2004-2022 SQL: 0.121 saniye - Sorgu: 33 - Ortalama: 0.00366 saniye