Sosyal Medya

Bülten Aboneliği
*  E-posta adresiniz:



* Güvenlik kodu:
Ö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] > 76 <
İleti Yazar
19.01.2017 08:00 GMT
84546      




alumina

[70] Editör

Online Durumu

529 ileti
Insaat Muhendisi
Istanbul

Alıntı
kartal07 :


Eklerim eklemesine de bu son mu?

19.01.2017 08:42 GMT
84549      




alumina

[70] Editör

Online Durumu

529 ileti
Insaat Muhendisi
Istanbul

Alıntı
kartal07 :


Kod:

(defun c:bh (/ sb dc nm bb bn ln ds) (vl-load-com)
  (if (setq sb (ssget ":s" '((0 . "insert") (-4 . "<not") (8 . "0") (-4 . "not>"))))
    (progn (redraw (ssname sb 0) 3)
      (setq dc (vla-get-activedocument (vlax-get-acad-object))
            nm (vlax-ename->vla-object (ssname sb 0)))
      (prompt (strcat "\nLayer name: " (vla-get-Layer nm) "\nBlock name: "
        (vla-get-Name nm) "\nBlock description: " (vla-get-Comments
        (setq bb (vla-Item (vla-get-Blocks dc) (vla-get-Name nm))))))
      (if (/= (setq ln (getstring T "\nLayer name:")) "")
        (if (not (tblobjname "layer" ln))
          (if (/= (setq bn (getstring T "\nBlock name:")) "")
            (if (not (tblobjname "block" bn))
              (if (setq ds (getstring T "\nBlock description:"))
                (progn
                  (vla-startundomark dc)
                  (vla-put-Name (vla-Item (vla-get-Layers dc) (vla-get-Layer nm)) ln)
                  (vla-put-Name bb bn) (vla-put-Comments bb ds)
                  (vla-endundomark dc)
                )
              ) (alert (strcat "ERROR\n" bn " is already in use"))
            )
          ) (alert (strcat "ERROR\n" ln " is already in use"))
        )
      ) (redraw (ssname sb 0) 4)
    )
  ) (princ)
)

19.01.2017 08:45 GMT
84550      




kartal07

[2] Girişimci

Online Durumu

6 ileti
tekniker
ankara

çok teşekkür ederim alumina.

19.01.2017 13:42 GMT
84552      




adincer

[2] Girişimci

Online Durumu

1 ileti
inşaat mühendisi
ankara

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 GMT
84563      




onuraydin16

[2] Girişimci

Online Durumu

3 ileti
mimar
bursa

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 GMT
84567      




banazzi

[2] Girişimci

Online Durumu

1 ileti
teknik ressam
istanbul

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 GMT
84575      




alumina

[70] Editör

Online Durumu

529 ileti
Insaat Muhendisi
Istanbul

Alıntı
banazzi :


"mttlp" isimli kisiyle gorusun. O, bu tip isleri COK KOLAY yapiyor

22.01.2017 14:04 GMT
84580      




mttlp

[5] Uzman

Online Durumu

74 ileti
Teknik Ressam
ankara

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

en sevdiğim komut copy

22.01.2017 19:05 GMT
84581      




alumina

[70] Editör

Online Durumu

529 ileti
Insaat Muhendisi
Istanbul

Alıntı
mttlp :


23.01.2017 16:36 GMT
84585      




waytooraider

[8] Kıdemli Uzman

Online Durumu

137 ileti
makine mühendisi
istanbul

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 10:28 GMT
84591      




kartal07

[2] Girişimci

Online Durumu

6 ileti
tekniker
ankara

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?
Yardımlarınız için teşekkür ederim..


Bu mesaj kartal07 tarafından düzenlendi (24.01.2017 12:35 GMT, 10 saat 49 dakika önce)

24.01.2017 11:12 GMT
84592      




burakayd91

[2] Girişimci

Online Durumu

3 ileti
inşaat
istanbul

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 GMT
84593      




Travaci

[70] Editör

Online Durumu

1942 ileti
Teknik Ressam
Konstantinopol

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 GMT
84594      




burakayd91

[2] Girişimci

Online Durumu

3 ileti
inşaat
istanbul

ç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 GMT
84595      




alumina

[70] Editör

Online Durumu

529 ileti
Insaat Muhendisi
Istanbul

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 GMT
84596      




burakayd91

[2] Girişimci

Online Durumu

3 ileti
inşaat
istanbul

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 GMT
84597      




alumina

[70] Editör

Online Durumu

529 ileti
Insaat Muhendisi
Istanbul

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

Ö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] > 76 <
Yukarı Çık
Copyright © 2004-2017 | Tüm Hakları Saklıdır | 3692 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam
SQL toplam zamanı: 0.219 saniyede oluşturuldu. - SQL sorgusu: 65 - Ortalama SQL zamanı: 0.00338 saniyede oluşturuldu.