Lisp istekleri | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 800, Üye: 1
MEHMET36

Detaylar »

Forumlar > AutoLISP > Lisp istekleri

Bu başlığı inceleyenler : 16 ziyaretçi, 0 üye : ---

İleti	Yazar
19.01.2012 05:50 67512	doygun77 Girişimci 18 ileti haritacı ist
Şahin hocam ptcr lispinde koordinatına göre numaraları atıyoruz buna ek olarak koordinata nokta'da attırabilirmiyiz . (balatro isteyenler nokta stillinden isterse balastroya da cevirebilirler.) İlğiniz için Teşekkürler

19.01.2012 06:39 67513	ProhibiT Yetkili 1622 ileti İnşaat Mühendisi Ankara
Bahsettiğiniz pctr lispi hangisi ben hatırlayamadım, aradım bulamadım. PcT fonksiyonundan mı bahsediyoruz? Link verirseniz karıştırmamış oluruz. Bir de "balastro" derken neyi kasdettiğinizi net olarak açıklar mısınız? Balastro deyimi bende başka kavramlar çağrıştırıyor. Eğer PcT fonksiyonundan bahsediyorsak, zaten point veya circle objelerini seçerek koordinat tablosu oluşturuyoruz. İstenen, Point seçilmişse Circle, Circle seçilmişse Point mi eklenmesi mi? Beğenmek için anlamak lazım...

19.01.2012 12:23 67523	doygun77 Girişimci 18 ileti haritacı ist
#67076 Kusura bakmayın yanlış yamışım ptcr lispi balastroyu circle anlamında kullnamıştım. doygun77 (20.01.2012 02:22 GMT)

19.01.2012 15:32 67533	ProhibiT Yetkili 1622 ileti İnşaat Mühendisi Ankara
Arkadaşlar forumda ve özel mesajlarınızda, mesajınızın tamamını büyük harflerle veya tamamını kalın yazmayınız. Bu tür ortamlarda bağırarak konuşmak anlamına gelir. Beğenmek için anlamak lazım...

20.01.2012 10:42 67546	ereandil Yeni üye 4 ileti M.Mühendisi istanbul
Elimde yangın tesisatı projesi var.Çizen zati mubarek sprinklerin denk geldiği yeri trimlemiş. yani aynı doğrultuda bir suru kesik kesik linelar var. 10000 tane sprinklerler olsa 5 cmden 500 mt eksik olçmüş olacağım.İstediğim şey ise aynı doğrultuda çizgileri tespit edip birleştirecek bir lisp.Şimdiden saygılarımı sunuyorum.

25.01.2012 19:15 67630	given Girişimci 20 ileti Teknik Ressam Ankara
Prohibit Hocam selamlar, Oncelikle vermis oldugunuz emekler icin tesekkur ederim. Burada yaptiklariniz cok buyuk seyler. Elelriniz dert gormesin. Benim cok ama cok ihtiyac duydugum bir lisp var, havalandirma kanal metraji ile ilgili. Ornegin; 1200x500 kanal yazisini tiklayip kanalin bir kenarini sectigimde (kanali olusturan kenardan kanalin uzunlugunu bulmasi icin) kanal metrajini tikladigimiz bir noktaya veya tikladigim kenarin uzerine m2 olarak yazmasi. Yazi buyuklugunu ve layer ini bana da sorabilir eger ugrasmam derseniz standart da verebilir. Boyle bir lisp yapilabilir mi? Buna cok ama cok ihtiyacim var. Oyle ki benim 3 gunluk isimi yarim gune dusurecektir. Bu konu benim icin cok kritik. Eger ilgilenebilirseniz size cok minnettar kalacagim. Saygilarimla, Kolay gelsin,

26.01.2012 12:45 67650	rascasse Yeni üye 1 ileti harita muhendisi istanbul
oncelikle herkese selamlar Ben bi mimarlik sirketinde calismaktayim ve shop-drawingler hazirliyorum.Cizimleri hazirlarken pencere alt kotlarini cephe de yazarken ayni zamanda da plan uzerinde de pencere-kapi olculerinide gostermem lazim fakat bir turlu beceremiyorum daha once verilmis olan cephe kot lispinden cephe kotlarini hallediyorum ama is planda gostermeye gelince baya bi zorlaniyorum ayri ayri butun pencere ve kapilara attribute definition uretip onlari blok yapip kotlari, pencere-kapi olcululerini ell ile tek tek giriyorum ve baya bi zaman aliyo yoruyor.umarim sikintimi tam olarak anlatabilmisimdir.Acaba bu sikintimi giderecek bir lisp yada autocaddde boyle bi komut varmirdir.Siz buyuklerimden ve bu isin piri olmuslardan yardimlarinizi bekliyorum.Simdiden tessekkurler.

26.01.2012 14:55 67654	safakkarman Kıdemli Girişimci 13 ileti Elektrik Teknik Ressam istanbul
Merhaba Arkadaşlar Hizalama lisp i adında bir lisp buldum sitede biraz daha geliştirile bilmesi mümkünmü mesela yazıları istediğimiz seçim sırasına göre yada sayı sırası veya alfebetik olarak yapıla bılırmı? İyi calışmalar :loveLANET OLSUN İÇİMDEKİ İNSAN SEVGİSİNE:love

03.02.2012 15:28 67797	Travaci Editör 2431 ileti Teknik Ressam Konstantinopol
Sitedeki merdiven lisp i gibi bir lisp lazım, fakat mimari deil betonarme çizicek. Bilgi vermesi gerekmez sadece çizim yapıcak.

09.02.2012 10:47 67829	cagrikara Kıdemli Girişimci 33 ileti Mimar Trabzon
Merhabalar, Genelde 3D ve 2d ortamında autocad ile çalışıyorum. Benim istediğim lisp açıkcası şöyle birşey. Alan, Çevre ve Hacimi belirtecek bir lisp. Üsteki resimdeki gibi autocaddeki alan hesabında üçgen ile bir bölgenin alanını çıkartabiliyoruz. Fakat istediğim şey bu üçgenleri sırayla oluşturup, en sonunda istediğim şeyi. yani alan, çember ya da hacim hesabını bana autocad üzerinde bir yere ya da exel dosyasına yazacak bir lisp istiyorum. Bu lispi 2D ve 3D de kullanmak istiyorum. Şimdiden teşekkür ederim.

09.02.2012 11:32 67833	ProhibiT Yetkili 1622 ileti İnşaat Mühendisi Ankara
given arkadaşımızın Linkleri görebilmek için ÜYE olmalısınız. sorusunu yeni gördüm. Bahsettiğiniz, Hava Kanalı Metrajı için kullanabileceğiniz AutoLisp fonksiyonu 2 yılı aşkın süre önce zaten paylaşmıştık. Linkleri görebilmek için ÜYE olmalısınız. :) Beğenmek için anlamak lazım...

09.02.2012 14:01 67836	waytooraider Kıdemli Uzman 162 ileti makine mühendisi istanbul
Elinize sağlık ustadım.

10.02.2012 11:05 67840	ProhibiT Yetkili 1622 ileti İnşaat Mühendisi Ankara
Linkleri görebilmek için ÜYE olmalısınız. linkinde pulp fiction arkadaşımızın mesajı gözümden kaçmış. ______________________________________________________________________________ Merhaba arkadaşlar; divide komutunda nesne seçtirerek nokta atıyor. iki yere tıklayıp o araya istediğim kadar (örnek:5) tane nokta atacak bi lisp olabiliyor mu? ______________________________________________________________________________ demiş arkadaşımız. Okuyunca çok iyi fikir diye düşündüm :) Neden olmasın? Kod: ;\|===========================================================================\| \| Ghost Line Divide \| \| Author: M. Şahin Güvercin - 10.02.2012 \| \| www.autocadokulu.com \| \|___________________________________________________________________________\|; (defun c:GdiVidE (/ p1 p2 nS bN aL kU tO uO sP eP) (setvar "cmdecho" 0) (command "_undo" "group") (setq bN nil aL nil p1 (getpoint "\n Select First Point: ") p2 (getpoint p1 "\nSelect Second Point: ") nS (atoi (getstring "\nEnter the number of segments or [Block]: "))) (if (= nS 0) (while (not (tblsearch "bLock" (setq bN (getstring "\nEnter Name of bLock to insert: ")))) (Princ (strcat "\nCannot find block "" bN "".")))) (if bN (setq kU (initget "Yes No") aL (if (not (getkword "\nAlign block with object? [Yes/No] <Y>: ")) "Yes") kU (initget 7) nS (atoi (getstring "\nEnter the number of segments: ")))) (entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2))) (setq tO (entlast)) (if bN (vl-cmdf "_.divide" (list tO p1) "B" bN aL nS) (vl-cmdf "_.divide" (list tO p1) nS)) (setq uO (entget (entlast)) sP (subst (cons 10 p1) (assoc 10 uO) uO) eP (subst (cons 10 p2) (assoc 10 uO) uO)) (entmake sP) (entmake eP) (entdel tO) (command "_.undo" "e") (prin1) ) Kod: ;\|===========================================================================\| \| Ghost Line Measure \| \| Author: M. Şahin Güvercin - 10.02.2012 \| \| www.autocadokulu.com \| \|___________________________________________________________________________\|; (defun c:GMeasurE (/ p1 p2 nS bN aL kU tO uO sP eP) (setvar "cmdecho" 0) (command "_undo" "group") (setq bN nil aL nil p1 (getpoint "\n Select First Point: ") p2 (getpoint p1 "\nSelect Second Point: ") nS (atof (getstring "\nSpecify length of segments or [Block]: "))) (if (= nS 0) (while (not (tblsearch "bLock" (setq bN (getstring "\nEnter Name of bLock to insert: ")))) (Princ (strcat "\nCannot find block "" bN "".")))) (if bN (setq kU (initget "Yes No") aL (if (not (getkword "\nAlign block with object? [Yes/No] <Y>: ")) "Yes") kU (initget 7) nS (getdist "\nSpecify length of segments: "))) (entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2))) (setq tO (entlast)) (if bN (vl-cmdf "_.measure" (list tO p1) "B" bN aL nS) (vl-cmdf "_.measure" (list tO p1) nS)) (setq uO (entget (entlast)) sP (subst (cons 10 p1) (assoc 10 uO) uO) eP (subst (cons 10 p2) (assoc 10 uO) uO)) (entmake sP) (entmake eP) (entdel tO) (command "_.undo" "e") (prin1) ) ProhibiT (23.02.2012 12:15 GMT) Beğenmek için anlamak lazım...

18.02.2012 20:37 67996	tyenier Girişimci 2 ileti mühendis istanbul
Merhaba, benim ihtiyacim, numaralari ile birlikte cizimime cagirdigim bloklarimi 1 er artacak sekilde siralamak. bunu mumkunse cursor ile uzerlerine istedigim sirada tiklayarak yapmak istiyorum. boyle bir lisp yazmak mumkun mu? Alıntı MSucullu : arkadaşlar daha önceden başka bir autocad dosyasında hazırladığım blok çizimlerimden istediğim birini, çalışmakta olduğum dosya içine kopyala-yapıştır yapan bir lisp yazılabiliyormu. Acil değil ama olursa iyi olur. Mehmet ATALAY ın işine yararsa bir lisp gönderiyorum. Rakam sıralamak için "Num1", harf sıralamak için "NumA" yazıyorsun sonra değiştirmek istersen bunu kendine göre değiştirebilirsin. Kod: (defun C:Num1 () (setq yazıyüksekliği (getdist (strcat " Yazi Yuksekligini Giriniz : "))) (setq başsayı (getdist (strcat " Başlangıç sayısını yazınız : "))) (setq koordinat (getpoint " yazılacak yeri tıklayınız :")) (setq koordinatx (car koordinat)) (setq koordinaty (cadr koordinat)) (setq koordinatxy (list koordinatx (+ (/ yazıyüksekliği 2) koordinaty) 0)) (command "text" "m" koordinatxy yazıyüksekliği "0" (fix başsayı)) (while (> 10000) (setq başsayı (+ 1 başsayı)) (setq koordinat (getpoint " yazılacak yeri tıklayınız :")) (setq koordinatx (car koordinat)) (setq koordinaty (cadr koordinat)) (setq koordinatxy (list koordinatx (+ (/ yazıyüksekliği 2) koordinaty) 0)) (command "text" "m" koordinatxy yazıyüksekliği "0" (fix başsayı)) ) ) (defun C:NumA () (setq yazıyüksekliği (getdist (strcat " Yazi Yuksekligini Giriniz : "))) (setq başharfi (getstring (strcat " Başlangıç harfi yazınız : "))) (setq koordinat (getpoint " yazılacak yeri tıklayınız :")) (setq koordinatx (car koordinat)) (setq koordinaty (cadr koordinat)) (setq koordinatxy (list koordinatx (+ (/ yazıyüksekliği 2) koordinaty) 0)) (command "text" "m" koordinatxy yazıyüksekliği "0" başharfi) (while (> 10000) (if (= başharfi "A") (setq başharfi "B") (if (= başharfi "B") (setq başharfi "C") (if (= başharfi "C") (setq başharfi "D") (if (= başharfi "D") (setq başharfi "E") (if (= başharfi "F") (setq başharfi "G") (if (= başharfi "G") (setq başharfi "H") (if (= başharfi "H") (setq başharfi "I") (if (= başharfi "I") (setq başharfi "İ") (if (= başharfi "İ") (setq başharfi "J") (if (= başharfi "J") (setq başharfi "K") (if (= başharfi "K") (setq başharfi "L") (if (= başharfi "L") (setq başharfi "M") (if (= başharfi "M") (setq başharfi "N") (if (= başharfi "N") (setq başharfi "O") (if (= başharfi "O") (setq başharfi "Ö") (if (= başharfi "Ö") (setq başharfi "P") (if (= başharfi "P") (setq başharfi "R") (if (= başharfi "R") (setq başharfi "S") (if (= başharfi "S") (setq başharfi "Ş") (if (= başharfi "Ş") (setq başharfi "T") (if (= başharfi "T") (setq başharfi "U") (if (= başharfi "U") (setq başharfi "Ü") (if (= başharfi "Ü") (setq başharfi "V") (if (= başharfi "V") (setq başharfi "Y") (if (= başharfi "Y") (setq başharfi "Z") ))))))))))))))))))))))))) (setq koordinat (getpoint " yazılacak yeri tıklayınız :")) (setq koordinatx (car koordinat)) (setq koordinaty (cadr koordinat)) (setq koordinatxy (list koordinatx (+ (/ yazıyüksekliği 2) koordinaty) 0)) (command "text" "m" koordinatxy yazıyüksekliği "0" başharfi)) ) )

19.02.2012 14:41 68006	kubilaysalih Girişimci 2 ileti makine mühendisi istanbul
Merhabalar; örneğin:dnm.lsp i çalıştırdığımda yeni bir dosya(drawing1.dwg) açacak ve açtığı dosya içinde kbs.lsp lispini çalıştırcak böyle bir şey mümkün mü? şimdiden herkeze teşşekkür ederim.

22.02.2012 15:20 68050	pulp fiction Uzman 62 ileti teknirer istanbul
ProhibiT hocam eline sağlık Ghost Line Divide çok güzel olmuş. çok işime yaradı. Ghost Line Measure de 1 dediğimizde 1 metre arayla point atıyor ama 0.5 dediğimizde 50 cm arayla point atmıyor. o da olsa daha bi güzel olurdu.

22.02.2012 15:57 68053	lifestyle27 Yeni üye 4 ileti otoketçi adana
Merhabalar , olurmu bilmiyorum ama sizden bir lisp isteğim olacak. İş yerinde çizdiğimiz projelerde antetlerin altına reference menüsü ile image çağırarak çizim yapmaktayız. bu imageyi antete yerleştirirken "aligne" komutu ile iki noktadan seçerek yerleştiriyoruz. Fakat bazı image ler var ki iki noktadan tutarak yerleştirdiğimiz zaman image antedin yarısına geliyor. Bizden istenen ise imagenin antet içerisine tam bir şekilde oturması. bunu yapmak için ise aligne komutuna benzer bir olayla (hem move hem rotate hemde scale komutlarıyla) bir lisp yazılarak resmi 4 noktadan seçim yaparak antet içine oturtmak. Bu konuda yardımlarınızı bekliyorum. Şimdiden teşekkürler.

22.02.2012 16:04 68054	ProhibiT Yetkili 1622 ileti İnşaat Mühendisi Ankara
pulp fiction, Önce GDivide fonksiyonunu yazıp GMeasure'ı ondan türettim. Yanlışlıkla Length of segment değerini integer okuyunca bahsettiğiniz hata oluyordu. atoi yerine atof koyunca düzeldi :) Fonksiyon kodunu güncelledim, tekrar kopyalayıp problemsiz kullanabilirsiniz. Beğenmek için anlamak lazım...

23.02.2012 07:51 68058	pulp fiction Uzman 62 ileti teknirer istanbul
ProhibiT hocam merhaba; yenilenmiş haliyle GMeasure'ı denedim. 1-) 0.5 dediğimizde 50 cm atmıyor. 2- 2 dediğimizde 200 cm atıyor 3- 2.5 dediğimizde yine 200 cm atıyor. işin içine nokta girdimi tuhaflaşıyor. ya ben yanlış bir şey yapıyorum hocam ya da bi sorun var...

23.02.2012 12:18 68061	ProhibiT Yetkili 1622 ileti İnşaat Mühendisi Ankara
Luprec (Lineer Unit Precission) sistem değeri 0 (sıfır) ise bahsettiğiniz hata oluşur. BLock seçildiğinde Segment Length'i getdist ile okuyacak şekilde düzenledim. Luprec değerini sıfırdan büyük bir değer olarak girip tekrar deneyin. ProhibiT (23.02.2012 12:26 GMT) Beğenmek için anlamak lazım...

Önceki Sayfa

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [15] [20] > 23 < [25] [30] [35] [40] [45] [50] [55] [60] [65] [70] [75] [80] [85] [90] [95] [100] [101]

Sonraki Sayfa