01.11.2008 09:42    

miyatu
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.11.2008 08:59    

lwend
tesekkurler miyatu ilgin icin.

05.01.2009 07:15    

mimaremin
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 13:21    

spy178
arkadaslar bana sectigim textteki degerden istedigim sayiyi cikaracak lisp lazim
ornegin her tikladigim sayidan -20 cikaricak ve eski sayinin yerine onu yazicak

21.01.2009 15:03    

sahin460
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

11.05.2009 11:08    

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

13.05.2009 18:47    

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

19.05.2009 12:26    

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

21.05.2009 13:36    

nzm06
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 13:44    

HIPHOP
arkadaşlar bana çizginin ölçüsünü txt. şeklinde üzerine yazabileceğim bi lisp lazım.

21.05.2009 14:14    

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

21.05.2009 14:32    

HIPHOP
yaf sitede bi yerde gözüme çarpmıştı ama geçen de aradım taradım bulamadım. dedim silinmiş olabiler :D saol varol...

27.05.2009 09:48    

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

27.05.2009 09:58    

bud_0782
tşk

29.05.2009 07:04    

tugbam_23
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 07:14    

ehya
Bu istemiş olduğunuz nesneleri blok olarak yaparsanız BCOUNT komutu ile rahatlıkla sayısını öğrenebilirsiniz.

29.05.2009 08:49    

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

07.06.2009 18:47    

tturan
Selamlar.
Farklı layerlarda çizgiler var. ben hepsinin toplamını görmek yerine her layerda ne kadar çizgi varsa onları layer adına göre toplanmış olarak görmek istiyorum. bunun sebebi de örnek olarak boru metrajı çıkartacağım. farklı çapları farklı layerlara atadım. DN15, DN20, DN25 ... gibi. bu programı çalıştırdığımda DN15=115, DN20=48, DN25=65 gibi sonuç verebilir mi... Şimdiden teşekkürler.

08.06.2009 06:45    

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

08.06.2009 07:15    

Eakyar
merhaba arkadaşlar bana z eksenini sıfır yapan lisp lazım. bu konuda 1-2 lisp buldum ama ya çalışma komutları belli olmuyo bu yuzden çalıştıramıyorum yada çalıştırırken hata veriyor

Önceki Sayfa [1] [2] [3] [4] [5] [6] > 7 < [8] [9] [10] [15] [20] [25] [30] [35] [40] [45] [50] [55] [60] [65] [70] [75] [80] [85] [90] [95] [100] Sonraki Sayfa
Copyright © 2004-2022 SQL: 1.131 saniye - Sorgu: 99 - Ortalama: 0.01142 saniye