AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Lisp istekleri
03.11.2018 13:27    
sadikozer
Alıntı
alumina :
Alıntı
sadikozer :

Oyle yapiyor zaten.


eyvallah çok saolun şimdi oldu

03.11.2018 14:26    
alumina
Alıntı
sadikozer :

Bir seyi degistirmedik. Nasil oldu :)

06.11.2018 09:48    
doygun76
Merhaba bir lisp'e ihtiyacım var. Autocad de Rakam Text (X,Y,Z'si olan ) sıra numarası ile gitmekte, sıra numarasına göre bu rakam olan text leri birleştirmek istiyorum. Bazı yerlerde sıra numarası atlamakta mesala 85 ten 90'a (86 ,87.88, 89 ara sayılar yok) veya Autocada e atılan noktaları ilk atılan noktadan sırayı takip edecek şekilde çizgi (X,Y,Z ye göre line) çizecek lisp te olabilir ; Kısaca Gazetelerde Bulmacalarda rakamlar olur birleştirip karşımıza çıkan şekilleri bulurduk bunu gibi... Yardımlarınız için teşekkür ederim.

06.11.2018 12:50    
alumina
Alıntı
doygun76 :

Kod:

(defun c:lc (/ dc sl z n ls k) (vl-load-com)
  (if (setq dc (vla-get-ActiveDocument
        (vlax-get-acad-object))
          sl (ssget '((0 . "text"))))
    (progn
      (repeat (setq z (sslength sl))
        (setq z (1- z) n (entget (ssname sl z))
          ls (cons (list (atof (cdr (assoc 1 n)))
            (cdr (assoc 10 n))) ls)))
      (setq ls (vl-sort ls '(lambda(a b)
        (< (car a) (car b)))) k -1)
      (vla-StartUndomark dc)
      (repeat (1- (length ls))
        (vlax-invoke (vla-get-ModelSpace dc)
          'AddLine (cadr (nth (setq k (1+ k)) ls))
            (cadr (nth (1+ k) ls))))
      (vla-EndUndomark dc)
    )
  ) (prin1)
)
06.11.2018 13:04    
doygun76
Alıntı
Teşekkür ederim ...

alumina (06.11.2018 13:19 GMT)

23.11.2018 12:18    
rdgne
Herkese Merhaba,

Çalıştığım çizim içerisinde dağınık olarak kotlar bulunmakta. Seçilen değerler içerisinde en küçük ve / veya en büyük değere sahip olanarı seçmek için lisp var mıdır acaba?

Yardımcı Olursanız Çok Sevinirim..

23.11.2018 14:13    
alumina
Alıntı
rdgne :

Ornek bir dosya paylasir misiniz.

26.11.2018 13:46    
mehmeturankilic
Alıntı
mimarimetraj :
merhaba.
En son 2008 de lisp kullanmıştım. ben hakediş yaparken verileri elle girer ve excel formülleri ile yapardım. fakat şu an tip olmayan duvar metrajları için lisp e ihtiyacım var. 1 haftadır bakınıyorum netten, birçok lisp buldum, sitenizden de olduukça faydalandım (böyle paylaşımlar yaparak o kadar hayır duası alıyorsunuzdur ki...) ama tam olarak istediğim lisp i bulamadım.

1. seçilen line veya polyline ların uzunluklarını başında benim belirttiğim bir poz ismi ile birlikte verecek, ve işaret ettiğim yerde yazacak..
2. her defasında istediğim sıralamadan başlayacak.
3. ve bu verileri (layer, poz, kod, uzunluk) excel e, mümkünse online aktaracak.
(3. aktif şekilde aktaramaz ise bütün yazıları seçtiğimde, ismini benim verdiğim bir excel veya txt dosyası olurtacak. excelde poz ismine göre sıralamayı değiştirebilirim.)
4. uzunluk değerlerini noktada sonra en fazla 2 karakter ile gösterecek.

buna benzer bir lisp buldum ama o alan olarak işliyor, uzunluk değil.

böyle bir lisp mümkün mü bilmiyorum ama zamanım iyice daraldı. yardım edebilirseniz çok sevinirim.

iyi çalışmalar.


Öncelikle herkes merhaba. Benim de yukarıda bahsi geçen lisp e benzer bir lispe ihtiyacım var. Forumda çok aradım fakat bulamadım. Ayrıca buradaki birçok lispten faydalanıyorum. Bunları yazıp kullanma imkanı veren tüm arkadaşlardan Allah razı olsun.
İstediğim lisp şu şekilde:
1: Line-plyline çizgi çizecek. çizgiyi çizdikten sonra bana bir yükselik soracak.
2: Yükseklik girildikten sonra poz no- çizgi uzunluğu-yükseklik değerlerini hem autocad üzerine hem de online olarak excelle yazdıracak.
Not: her yeni çizgiye yeni poz numarası artarak ilerleyecek.

Aslında buna benzer lisp olarak çizilmiş bir line-plyline nesnelerinin üzerine çizgi uzunluğunu yazdıran lisp var . Daha sonra bunları excel ortamına aktarabiliyorum. Fakat duvar metrajı çıkarırken döşeme altına ve kiriş altına gelen duvar yükseklikleri farklı olduğundan excele aktarmış olduğum çizgi uzunlukları için tekrar autocade git-gel yapmak zorunda kalıyorum.bu konuda yardımcı olabilir misiniz?

27.11.2018 06:21    
ehya
Arkadaşlar,
tamam dua işin bonusu. Ama bu araba da su yakmıyor.
Sizler bu tür lisplerle işinizi kısa sürede hallederek kazanç elde ediyorsunuz. Peki yazanlar taş mı yesin?

Bazı lisplerde karşılıksız paylaşım yapmak güzeldir. Ancak bazı isteklerde karşılıklı olmalı dimi?

27.11.2018 06:59    
mehmeturankilic
Alıntı
ehya :
Arkadaşlar,
tamam dua işin bonusu. Ama bu araba da su yakmıyor.
Sizler bu tür lisplerle işinizi kısa sürede hallederek kazanç elde ediyorsunuz. Peki yazanlar taş mı yesin?

Bazı lisplerde karşılıksız paylaşım yapmak güzeldir. Ancak bazı isteklerde karşılıklı olmalı dimi?


Tamamdır. O zaman ben işin bonusuna devam ederken lisp isteğim için özelden görüşelim :)

03.12.2018 21:32    
dokunulmaz
benim bir ricam olacaktı. projede yazılı şeçtiğim text leri sırası ile excell de tablo gibi yan yana sıralayacak yada alt altta sıralayacak lisp ihtiyacım var . yardımcı olursanız sevinirim.

04.12.2018 05:59    
Travaci
dokunulmaz

Lisp istekleri bölümünde birçok kez paylaşıldı, eskı mesajlara bakarsanız bulursunuz.

21.01.2019 11:09    
atiemre
Merhabalar, Benim bir lispe ihtiyacım var.

m3/h cinsinden bir havalandırma debim var ve att blok içine bu debi ile ilgili değerleri yazsın istiyorum. Debiyi ve x y ölçülerini yazdıktan sonra hız basınç değerini otomatik hesaplasın istiyorum.

Örnek verecek olursam,

3000 m3/h
550 x 300
5.05 m/s - 0.76 Pa/m

Kalın yazı ile belirttiğim değerleri bu att blok içine hesaplayıp yazsın istiyorum. Örnek dosyayıda ekte paylaşıyorum.

Bu konuda yardımcı olabilir misiniz?


12406-debi.dwg

21.01.2019 11:23    
mttlp
Alıntı
atiemre :
Merhabalar, Benim bir lispe ihtiyacım var.

m3/h cinsinden bir havalandırma debim var ve att blok içine bu debi ile ilgili değerleri yazsın istiyorum. Debiyi ve x y ölçülerini yazdıktan sonra hız basınç değerini otomatik hesaplasın istiyorum.

Örnek verecek olursam,

3000 m3/h
550 x 300
5.05 m/s - 0.76 Pa/m

Kalın yazı ile belirttiğim değerleri bu att blok içine hesaplayıp yazsın istiyorum. Örnek dosyayıda ekte paylaşıyorum.

Bu konuda yardımcı olabilir misiniz?

Ücret karşılığında yapılmışını veririm


12406-debi.dwg
21.01.2019 11:52    
atiemre
Alıntı
mttlp :
Alıntı
atiemre :
Merhabalar, Benim bir lispe ihtiyacım var.

m3/h cinsinden bir havalandırma debim var ve att blok içine bu debi ile ilgili değerleri yazsın istiyorum. Debiyi ve x y ölçülerini yazdıktan sonra hız basınç değerini otomatik hesaplasın istiyorum.

Örnek verecek olursam,

3000 m3/h
550 x 300
5.05 m/s - 0.76 Pa/m

Kalın yazı ile belirttiğim değerleri bu att blok içine hesaplayıp yazsın istiyorum. Örnek dosyayıda ekte paylaşıyorum.

Bu konuda yardımcı olabilir misiniz?

Ücret karşılığında yapılmışını veririm

Ücret nedir? özelden paylaşabilir misiniz sakıncası yoksa


12406-debi.dwg
21.01.2019 12:09    
Travaci
atiemre

Bunun için lisp gerekli mi ? Att leri field ile toplasanız olmuyor mu ?

21.01.2019 12:27    
mttlp
Alıntı
Travaci :
atiemre

Bunun için lisp gerekli mi ? Att leri field ile toplasanız olmuyor mu ?


Erkan hocam hesap kısmında toplama değilde girdiği kanal ebatlarına göre hızı ve basınçı otomatik hesaplamasını istiyor.

21.01.2019 13:49    
atiemre
Alıntı
mttlp :
Alıntı
Travaci :
atiemre

Bunun için lisp gerekli mi ? Att leri field ile toplasanız olmuyor mu ?


Erkan hocam hesap kısmında toplama değilde girdiği kanal ebatlarına göre hızı ve basınçı otomatik hesaplamasını istiyor.


Evet, hatta bana seçenek sunsun istiyorum aşağıdaki gibi ;

A 420 x 350, R=0.96 Pa/m, v=5.67 m/s, Deq=418.7 mm, Re=167087
B 250 x 610, R=0.99 Pa/m, v=5.46 m/s, Deq=416.7 mm, Re=167871
C 440 x 330, R=1.00 Pa/m, v=5.74 m/s, Deq=415.5 mm, Re=168379
D 330 x 440
E Hicbiri

21.01.2019 14:12    
mttlp
Alıntı
atiemre :
Alıntı
mttlp :
Alıntı
Travaci :
atiemre

Bunun için lisp gerekli mi ? Att leri field ile toplasanız olmuyor mu ?


Erkan hocam hesap kısmında toplama değilde girdiği kanal ebatlarına göre hızı ve basınçı otomatik hesaplamasını istiyor.


Evet, hatta bana seçenek sunsun istiyorum aşağıdaki gibi ;

A 420 x 350, R=0.96 Pa/m, v=5.67 m/s, Deq=418.7 mm, Re=167087
B 250 x 610, R=0.99 Pa/m, v=5.46 m/s, Deq=416.7 mm, Re=167871
C 440 x 330, R=1.00 Pa/m, v=5.74 m/s, Deq=415.5 mm, Re=168379
D 330 x 440
E Hicbiri


Mesaj kutunuza bakın yapılmışı var

22.01.2019 07:38    
atiemre
Alıntı
mttlp :
Alıntı
atiemre :
Alıntı
mttlp :
Alıntı
Travaci :
atiemre

Bunun için lisp gerekli mi ? Att leri field ile toplasanız olmuyor mu ?


Erkan hocam hesap kısmında toplama değilde girdiği kanal ebatlarına göre hızı ve basınçı otomatik hesaplamasını istiyor.


Evet, hatta bana seçenek sunsun istiyorum aşağıdaki gibi ;

A 420 x 350, R=0.96 Pa/m, v=5.67 m/s, Deq=418.7 mm, Re=167087
B 250 x 610, R=0.99 Pa/m, v=5.46 m/s, Deq=416.7 mm, Re=167871
C 440 x 330, R=1.00 Pa/m, v=5.74 m/s, Deq=415.5 mm, Re=168379
D 330 x 440
E Hicbiri


Mesaj kutunuza bakın yapılmışı var


Mesaj kutumda bir şey göremedim tekrar iletebilir misiniz?

Ö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] > 86 < [90] [95] [100] Sonraki Sayfa
Copyright © 2004-2022 SQL: 1.626 saniye - Sorgu: 104 - Ortalama: 0.01563 saniye