|
19.01.2017 13:42
adincer
|
|
Merhabalar
Seçilen 1+234.56 formatında yazılmış Km değerlerini girilen miktarda artıran yada azaltan bir lisp var mı?
|
|
20.01.2017 10:52
onuraydin16
|
|
Merhabalar..
Aln.lsp adlı çevre ve alan uzunluklarını veren lisp dosyasını mac işletim sisteminde çalışır hale getirebilecek biri var mı acaba ? baya uğraştım ancak bir türlü bulamadım yardımlarınızı bekliyorum. Teşekkürler
|
|
21.01.2017 22:26
banazzi
|
|
Arkadaşlar merhaba.lisp yazan, buradaki istek yapan diğer üyelerin isteklerine cevap verip emek gösteren herkese teşekkür edip emeklerine saygı ve şükran duyuyorum. ben ilk defa istek yapacağım : ) dinamik bloklarla çizilen havalandırma tesisatının ( tüm kanal, dirsek, pantolon,kolon vb ) ''metrekare'' veya özelliklerini yazarak . örneğin 600x200 kanal: 12 metre.olarak metrajını nasıl alabilirim? dinamik kanalların özelliklerinde zaten uzunluk, genişlik, yükseklik, hatta debi bilgileri mevcuttur. araştırdım fakat sitede bulamadım.
|
|
21.01.2017 23:29
 alumina
|
Alıntı
banazzi :
"mttlp" isimli kisiyle gorusun. O, bu tip isleri COK KOLAY yapiyor :)
|
|
22.01.2017 14:04
mttlp
|
Alıntı
alumina :
Alıntı
banazzi :
"mttlp" isimli kisiyle gorusun. O, bu tip isleri COK KOLAY yapiyor :)
Çizime bakmak lazım elimden geldiği kadar yardım ederim alumina hocam
|
|
22.01.2017 19:05
alumina
|
|
|
|
23.01.2017 16:36
waytooraider
|
|
Mehaba
Herhangi bir boğun tarihsel yada üniq bir kodu olduğunu düşünüyorum, mesela kapı1 isimli blok olsun ve bundan bir çok blok olsun projemizde , acaba bu sıralama resetlenebilir mi?En üst soldan sağa doğru yeniden sanki projeye ekleniyormuş gibi oluşturulabilir mi?
Bunu istememin amacı atribute boğa yeni bir tag ekliyecem elimdeki bir lisp sayesinde buna otomatik ardıl numara veriyor
|
|
24.01.2017 11:12
burakayd91
|
|
Merhaba
Tuğla duvar metrajı yaparken autocaddeki duvarları ayrı layer da tek tek polyline çevirip, Lisp ile tüm poyline uzunluklarını aynı anda alabiliyorum. Excel'de formüllediğim bir tablo aracılığı ile metraj yapıyordum. Aynı formülü autocad içinde yapabilmek mümkün müdür? Ben değerleri elle girmek istiyorum.
Örneğin; Benim planda 20x100 bir duvar polyline'ım olduğunda lispin verdiği çevre sonucu 2(20+100)=240 oluyor.Fakat bana lazım olan 100 cm uzunlugunda 20lik duvar bunun içinde şöyle bir formül yaptım.
(a-(b*c)) / d Formülü örnekte yerine koyarsak (240-(20*2)) / 2= 100 cm
(a) Çevre Uzunluğunu girin
(b) Duvar kalınlığını girin
(c) Duvar kalınlığı minha adedi (sabit sayı 2 olacak)
(d) Kenar Minha Adet (sabit sayı 2 olacak)
Eğer böyle bir lisp yazılablirse çok işime yarayacak.Olsa da olmasa da şimdiden teşekkür ederim.
|
|
24.01.2017 11:33
 Travaci
|
burakayd91
Kod:
(defun c:mnha (/ a b c d)
(setq a (getreal "\nCevre uzunlugu: ")
b (getreal "\nDuvar kalinligi: ")
c (getreal "\nDuvar kalinligi minha adeti: ")
d (getreal "\nKenar minha adeti: "))
(if (not c) (setq c 2)) (if (not d) (setq d 2))
(alert (rtos (/ (- a (* b c)) d) 2 0))
(princ)
)
|
|
24.01.2017 12:25
burakayd91
|
|
çok teşekkür ederim.İşimi çok kolaylaştıracak bu lisp. sitenizde bulduğum metraj lispi ile tüm polyline çevrelerini buluyorum el ile girdiğim zaman hepsini veriyor.Sayenizde duvar metrajı 1 gün bile sürmeyecek.
|
|
24.01.2017 13:07
alumina
|
Alıntı
burakayd91 :
Polylineleri sectikten sonra toplam cevre uzunlugunu bulmadan direkt olarak duvar kalinligini girsen daha kisa surmez mi? Iki iki is yapmamis olurdun. Polyline leri sec, duvar kalingini gir, bitti.
|
|
24.01.2017 13:13
burakayd91
|
|
ben şöyle çalışıyorum
1-kaç tip duvar kalınlığım varsa hepsine ayrı layer açıyorum.(15 lik duvar layeri, 20 lik duvar layeri vs.)
2-selectsmilar komutu ile layerdaki tüm polyline'lerin hepsini seçip metraj.lsp çalıştırdığımda bana toplam uzunluğu veriyor.
3-Travaci'nın yaptığı lisp sayesinde çevre uzunluğunu, duvar kalınlığını, ve dikdörtgen olduğu için fazla gelen kenarları düşüyorum. Minhasız duvar metrajım çıkmış oluyor.
Daha kısa bir çözüm varsa dinlemek isterim tabiki akıl akıldan üstündür.
|
|
24.01.2017 14:22
alumina
|
Alıntı
burakayd91 :
Kod:
(defun c:pd (/ tp pl dv n) (vl-load-com)
(if (setq tp 0 pl (ssget '((0 . "*polyline"))))
(if (setq dv (getdist "\nDuvar kalingi:"))
(progn
(repeat (setq n (sslength pl))
(setq tp (+ tp (vla-get-Length (vlax-ename->vla-object (ssname pl
(setq n (1- n))))))))
(alert (strcat (rtos (/ (- tp (* dv 2)) 2) 2 0) " cm"))
)
)
) (princ)
)
|
|
25.01.2017 07:32
burakayd91
|
|
şuan ne desem sevincimi anlatmaya yetmez :) çok teşekkür ederim gerçekten en kısa zamanda başlamam gerek bu lispi öğrenmeye :)
şuan fark ettim ki ben formülü verirken eksik bilgi vermişim. Lispte sorun yok tek duvarda denediğim zaman sorun olmuyor.Fakat çoklu seçim yaptığım zaman, (seçilen polyline sayısı-1) x duvar kalınlığı kadar minha gerekiyor.Bunu yazmayı eklemeyi gözden kaçırmışım.
Örneğin;
5 adet 100x20 cm poyline'ım var.Çıkması gereken sonuç= 500 cm olmalı.
Lisp ile yaptığım zaman 580 cm çıkıyor.
Eklenmesini talep ettiğim özellik (n-1)xduvar kalınlığını minha etsin.böylelikle 5 polyline olduğu zaman 4x20=80 minha edecek ve sonuca ulaşabileceğim.Mümkünse bunuda ekleyebilirmisiniz.
burakayd91 (25.01.2017 08:09 GMT)
|
|
25.01.2017 08:50
alumina
|
Alıntı
burakayd91 :
Kod:
(defun c:pd (/ tp pl dv n) (vl-load-com)
(if (setq tp 0 pl (ssget '((0 . "*polyline"))))
(if (setq dv (getdist "\nDuvar kalingi:"))
(progn
(repeat (setq n (sslength pl))
(setq tp (+ tp (vla-get-Length (vlax-ename->vla-object (ssname pl
(setq n (1- n))))))))
(alert (strcat (rtos (- (/ (- tp (* dv 2)) 2)
(* (1- (sslength pl)) dv)) 2 0) " cm"))
)
)
) (princ)
)
|
|
25.01.2017 09:20
burakayd91
|
|
mükemmel olmuş elinize sağlık.Tam istediğim gibi.
|
|
26.01.2017 10:33
kartal07
|
|
Merhabalar
alumina arkadaşımızın paylaşmış olduğu Secilen bloklarin yanlarina isimlerini yazan bir lisp var.Bu lispte şu eklemeler yapılabilir mi?
Yazı boyutu istediğimiz bir boyutla değiştirilebilir mi? Yazıyı istediğimiz noktaya ekleyebilir mi?
Arkadaşlar rica etsem bana bu konuda yardımcı olabilir misiniz?
|
|
26.01.2017 11:09
alumina
|
Alıntı
kartal07 :
Degistirilemez, ekleyemez.
|
|
01.02.2017 06:00
mikemoon
|
selam arkadaşlar
içi dolu slot deliği normal içi boş slot deliğe nasıl çevirebilirim.bununla alakalı toplu seçim yapıp normale çevirebileceğim bir lisp varmıdır.
|
 ehya
|
|
nesneyi görmeden birşey söylenmez.
o nesneleri dwg olarak ekleyin.
|
Sonraki Sayfa
