01.11.2008 09:42    

Alıntı

---

lwend :
selam arkadaslar herkese iyi bayramlar oncelikle.
herkes gibi banada bir lisp lazim.ben yurtdisinda calisaktayim ve kullandigim ekipmanlarin hepsini numaralandirarak gosteriyorum.ama ne varki araya bir ekipman girse benim tum gunum numara arttirmakla geciyor.eger imkani varsa (lve\02\$$$) bu sekilde hazirladigim bir satirda ornegin (lve\02\40 ) ekipmanindan sonra bir ekipman daha ekledim ve bundan sonra gelen ekipman numaralarini araya giren ekipman kadar otomatik arttirmanin bir yolu bir lispi yada autocad icinde bir komutu varmi acaba?
varsa eger sari ile belirttigim kisimlarda benim yazima gore degisebilecek ama sayi olarak artacak olan sadece kirmizi ile yazdigim kisim

insallah dedimi anlatabilmisimdir.yardimlariniz iin simdiden tesekkurler

---

asagidaki lispi incelemenizi tavsiye ediyorum lisp bilginiz varsa kendi isinize yarayacak sekilde editleyebilirsiniz...


Linkleri görebilmek için ÜYE olmalısınız.

05.01.2009 07:15    

Merhaba,

Autocad'de plan düzlemindeki yazıları bakış yönüme göre de düz görmek istiyorum,
Yani sağ yan görünüş ya da sol yan görünüş vb. plan dışındaki görünüşlerde de
yazıları plandaki gibi görmek istiyorum.

Bunu yapan bir lisp var mı, yardımcı olabilir misiniz?

Şimdiden teşekkürler.
M.Emin (mimar)

21.01.2009 15:03    

pline çizgi üzerinde olan blokları sayacak lisp yazılabilirimi? (pline çizgiya tıkladığımızda pline çizgiye bağlantılı blokları sayacak lisp) iyi çalışmalar

13.05.2009 18:47    

Alıntı

---

PLAKTON :
arkadaşlar siteyi inceledim bulamadım autocad deki sectiğimiz yazıları .txt formatına dönüştürebilecek bir lisp elinizde mevcutmudur çok acil

---

inş. işine yarar...

kolay gelsin

21.05.2009 13:36    

arkadaşlar benım boyle bı lsp var elımde ama çalıştıramıyorum tam lısp konusunuda bılmıyorum yardım için şimdiden çok tşk ederım


(defun c:9 (SIHHI TEMIZSU YUK > BORU CAPI LISTESI
;;;yuk borucapi bir_kucuk_cap
;;;
(setq sfas_temizsu_boru_caplari (list
(list
" TSE INC"
(list
(list 1.5 "1/2"" "1/2"")
(list 6.0 "3/4"" "1/2"")
(list 15.0 "1"" "1/2"")
(list 41.0 "11/4"" "3/4"")
(list 100.0 "11/2"" "1"")
(list 245.0 "2"" "11/4"")
(list 700.0 "21/2"" "11/2"")
(list 1200.0 "3"" "2"")
(list 2500.0 "4"" "2"")
)
)
(list
" PPRC BORU"
(list
(list 1.5 "%%C20" "%%C20")
(list 6.0 "%%C25" "%%C15")
(list 15.0 "%%C32" "%%C20")
(list 41.0 "%%C40" "%%C25")
(list 100.0 "%%C50" "%%C32")
(list 245.0 "%%C63" "%%C40")
(list 700.0 "%%C80" "%%C50")
(list 1200.0 "%%C100" "%%C63")
(list 2500.0 "%%C125" "%%C80")
(list 6500.0 "%%C150" "%%C100")
(list 12500.0 "%%C200" "%%C125")
(list 50000.0 "%%C250" "%%C150")
)
)

(list
"International DIN"
(list
(list 5 "DN15" "DN15")
(list 13 "DN20" "DN15")
(list 25 "DN25" "DN15")
(list 50 "DN32" "DN20")
(list 95 "DN40" "DN25")
(list 250 "DN50" "DN32")
(list 650 "DN65" "DN40")
(list 1000 "DN80" "DN50")
(list 2000 "DN100" "DN65")
(list 6500 "DN125" "DN80")
(list 12500 "DN150" "DN100")
(list 50000 "DN200" "DN125")
)
)
(list
"TSE INC"
(list
(list 1.5 "1/2"" "1/2"")
(list 6.0 "3/4"" "1/2"")
(list 15.0 "1"" "1/2"")
(list 41.0 "1 1/4"" "3/4"")
(list 100.0 "1 1/2"" "1"")
(list 245.0 "2"" "1 1/4"")
(list 700.0 "2 1/2"" "1 1/2"")
(list 9999.0 "3"" "2"")
)
)

(list
"TSE INC deneme"
(list
(list 1.5 "serdar" "1/2"")
(list 6.0 "bndghyf" "1/2"")
(list 15.0 "1"" "1/2"")
(list 41.0 "1 1/4"" "3/4"")
(list 100.0 "1 1/2"" "1"")
(list 245.0 "2"" "1 1/4"")
(list 700.0 "2 1/2"" "1 1/2"")
(list 9999.0 "3"" "2"")
)
)
)
)

21.05.2009 14:14    

Download--> Lispler bölümünde "Çizgi uzunluğunu çizginin üstüne yazan lisp" adı ile kayıtlı. Yazı fontunu artık istediğin gibi değiştirirsin..

27.05.2009 09:48    

Alıntı

---

bud_0782 :

Alıntı

---

miyatu :

Alıntı

---

PLAKTON :
arkadaşlar siteyi inceledim bulamadım autocad deki sectiğimiz yazıları .txt formatına dönüştürebilecek bir lisp elinizde mevcutmudur çok acil

---

Kod:

;autocad ortamında seçilen textleri seçim sırasına göre alt alta, c nin altındaki miyatu.txt dosyasına yazan lisp
;hazırlayan miyatu
;13 mayıs 2009
;not: dosya içinde daha önceden yazılmış yazılar varsa enson satırdan yazmaya devam edecektir. önceki bilgiler kaybedilmez.
(defun c:txt()
  (setq f (open "c:\\mıyatu.txt" "a"))
  (setq sec_txt (entsel "\n txt dosyasına yazılacak texti sec:"))
  (while (= sec_txt nil)
    (setq sec_txt (entsel "\n txt dosyasına yazılacak texti sec:")))
  (while (/= sec_txt nil)
    (setq txt_al (cdr (assoc 1 (entget (car sec_txt)))))
    (write-line txt_al f)
    (setq sec_txt (entsel "txt dosyasına yazılacak diğer texti sec:")))
  (close f))

inş. işine yarar...

kolay gelsin

---

eline sağlık.başarılı bir çalışma olmuş.yalnız bir sorum olacak.lispler hakkında pek bilgim olmadığı için soruyorum

yazıları txt dosyasına atarken

{\fVerdana|b0|i0|c162|p34;22 NİSAN 2009}
{\fVerdana|b0|i0|c162|p34;TASARIM}
{\fTxt|b0|i0|c162|p2;KUM DOLGU}

şeklinde atıyor.buradaki maviyle yazılmış kısımları çıkarma imkanımız olabilir mi?sadece kelimeyi yazsa mesela.böylece bu yazıyıları direk olarak başka bir yere kopyalayabilir ve özelliklerini değiştirebilirim. teşekkürler

---

text lerini mtext ile yazdigin icin o bastaki kodlar cikiyor
textlerini single line text ile yazarsan yada textleri patlatirsan sorun cozulmus olacaktir...
kolay gelsin...

29.05.2009 07:04    

arkadaşlar bir çizimde kullanılan bütün malzemelerin ayrı ayrı sayısını verecek bir lisp varmı? mesela kullanılan kapı, pencere, pano vs. sayılarını verecek. siteyi inceledim fakat bulamadım. zor gibi ama yardımcı olursanız çok sevinirim. teşekkürler

29.05.2009 08:49    

çok teşekkür ederim ehya bey beni büyük bir sıkıntıdan kurtardınız sizde olmasanız :dozingoff

08.06.2009 06:45    

arkadaşlar ben seçtiğim cizgilerin uzunluğunu toplayan bir lisp arıyorum yardımcı olurmusunuz