Lisp istekleri | Forumlar

Forumdan

99 kategoride 17 binden fazla konu başlatıldı bu konulara yaklaşık 90 bin cevap verildi tüm bunlar yaklaşık 109 milyon kez görüntülendi

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Özel Yazılımlar

Program Ekle

Ziyaretçi: 602, Üye: 0

Detaylar »

Forumlar > AutoLISP > Lisp istekleri

İnceleyenler : 21 ziyaretçi, 0 üye : ---

İleti	Yazar
31.07.2012 20:07 69681	Cozdal Yeni üye 3 ileti Elektrik Mühendisi İstanbul
Teşekkür ederim Travaci. Ama eğer lisp ismi biliyorsan verebilirmisin?

31.07.2012 22:10 69682	Travaci Editör 2416 ileti Teknik Ressam Konstantinopol
Kod: ;*** Yazılarını Belirtildiği Gibi Sıralar. ***; (defun c:yD ( / fnmbr fadd ladd lwrt ) (setq fnmbr (GetString "\rBaşlama sayısı: ")) (if (= fnmbr "") (setq fnmbr "1")) (setq fnmbr (atoi fnmbr)) (setq fadd (getString "\rÖn ek: " T)) (setq ladd (getString "\rArka ek: " T)) (setq e (entsel "\nDeğiştirilecek yazı: ")) (while (/= e nil) (setq eleman (entget (car e))) (setq lwrt (strcat fadd (rtos fnmbr 2 0) ladd)) (setq data (assoc 1 eleman)) (setq eleman (subst (cons 1 lwrt) data eleman)) (entmod eleman) (setq fnmbr (+ fnmbr 1)) (setq e (entsel "\nDeğiştirilecek yazı: ")) ) )

01.08.2012 06:42 69684	sibelkarali Girişimci 2 ileti inşaat mühendisi istanbul
Ben modülasyon ağırlıklı bir işte çalışıyorum.döşeme duvar modülasyonu yapıyorum. modülasyonun hızlı ve hatasız yapılması için blok haline getiriyorum bloğun içine bloğun tanımını yazıyorum ve bloğu gene kendimce hazırladığım bir kurala göre isimlendirip blok haline getiriyorum.Daha sonra eattext komutu ile blokları saydırıp excel dosyasına yapıştırıyorum excel dosyasında blok ismine göre boyutlara traj çıkarıyorum.(örnek blok ismi YD-600x60x15-P1 =600 boy 60 en 15 kalınlık 11 profil no olarak ayrıştırıyor) ve fabrikaya sipariş geçiyorum. Bunları çok hızlı yapmam gerekiyor. Ben attribute çizdiğim dikdörtgenden ölçü alacak olursa attributuun içine sürekli isim girmektan kurtulutum veya blok ismini plakların içerisine yazdığım tanım yazısını otomatik olarak alacak bir program olursa işim kolaylaşır diye düşündüm.

04.08.2012 14:05 69694	aylavyu Girişimci 6 ileti Elk Teknikeri Antalya
herkese teşekkürler bazen bazılarının sorunu bizimde sorunumuz oluyor soranada cevap verenede cok teşekkürler ediyorum. site biraz karışık çözmedim ama zamanla alışırım die umuyorum. emegi gecen herkes harikasınız. Gözünle gördüğün hiç birşeyden korkma.

07.08.2012 05:22 69697	polatkr Girişimci 2 ileti Teknik Ressam Baku
Selamlar... Acil bir lisp e ihtiyacim var. Elimde asagidaki ornekledigim 2500 e yakin yazi var hepsine +5.00 / +0.68 eklemem gerekli. Q=..... L/s --------- v= ...... m/s sabit rakamlar surekli degisken.... Q=1.75 L/s ------> Q=6.75 L/s (+5.00) eklemesini v=0.89 m/s ------> v=1.57 m/s (+0.68) eklemesini Yardimlarinizi / Fikirlerinizi acil beklemekteyim. polatkr (07.08.2012 06:46 GMT)

07.08.2012 06:35 69699	fatihozcan Yeni üye 21 ileti Çevre Mühendisi istanbul
Alıntı polatkr : Selamlar... Acil bir lisp e ihtiyacim var. Elimde asagidaki ornekledigim 2500 e yakin yazi var hepsine +5 / +0.68 eklemem gerekli. Q=1.75 L/s ------> Q=6.75 L/s (+5) eklemesini v=0.89 m/s ------> v=1.57 m/s (+0.68) eklemesini Yardimlarinizi / Fikirlerinizi acil beklemekteyim. Merhaba, Analadığım kadarıyla lispe gerek yok. Autocadte Edit->Find yolunu izle. Burda replace özelliği var. Üst kutucuğa değişmesini istediğin yazıyı yaz, alt satırada olmasını istediğin yazıyı. Hayatta En Hakiki Mürşit İlimdir,Fendir !! M.Kemal Atatürk

07.08.2012 06:43 69700	polatkr Girişimci 2 ileti Teknik Ressam Baku
Onu bende biliyorum ama Q= ve v= den sonraki rakamlar surekli degisiyor :) 2000 adet text oldugunu dusunursen replace ile cozulemeyecegini anlarsin.... Yinede tesekkur ederim...

07.08.2012 09:47 69709	aylavyu Girişimci 6 ileti Elk Teknikeri Antalya
benim bir lisp sorunum var arkadaşlar. kullandıgım lispi kopyaladım bi kaç sorun var dile getirmek istiyorum. bu lisp 2011 de çalışıyor ben 2013 kullanıyorum calısmıyor hep sıfır vuruyor neden anlamış deilim. çok iyi bi kullanıcı deilim ama bilenede danışdım olmadı. bu lispi düzeltebilirmiyiz veya ne yapmam lazım arkadaşlar birde formda buldum buna benzer bi lisp biraz oynadım üzerinde olmadı. rakam arttırarak yazan bi lisp var fakat bana metin, yazı boyunu, başlangıç sayısı ve artış sayısı olan lazım. örnek verim AD1 yazıp metine 1 den başlayıp 25 artırarak gitmek istiyorum. şöyle AD1 1, AD1 25, AD1 50, bu şekilde veya AD 1, AD 25 AD 50 bu şekilde gitmesini istiyorum. yardımcı olusanız minnettar kalırım. (defun C:msa1 () (setq yazıyüksekliği (getdist (strcat " Yazi Yuksekligini Giriniz : "))) (setq metin (getstring " metni yazınız : ")) (setq başsayı (getdist (strcat " Başlangıç sayısını yazınız : "))) (setq artım (getreal " artım miktarı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ı)) ) ) (PRINC " --> 'www.autocadokulu.com' Çizim yardımları yüklendi !") (PRINC " Lispi çalıştırmak için komut satırına 'Noyaz' yazınız ") Gözünle gördüğün hiç birşeyden korkma.

07.08.2012 18:56 69713	ProhibiT Yetkili 1616 ileti İnşaat Mühendisi Ankara
Özel mesajla gelen, ________________________ Acil bir lisp e ihtiyacim var. Elimde asagidaki ornekledigim 2500 e yakin yazi var hepsine Q degerlerine +5 / v degerlerine +0.68 eklemem gerekli. Q=1.75 L/s ------> Q=6.75 L/s (+5) eklemesini v=0.89 m/s ------> v=1.57 m/s (+0.68) eklemesini Yardimlarinizi / Fikirlerinizi acil beklemekteyim. ________________________ İsteği üzerine; Kod: (defun c:EkL (/ TxTs n PvT Yz Yr Ey Yy) (setvar "cmdecho" 0) (command "_.undo" "group") (vl-load-com) (setq TxTs (ssget (list (cons 0 "*TexT"))) n -1) (while (< (setq n (1+ n)) (sslength TxTs)) (setq PvT (entget (ssname TxTs n)) Yz (cdr (assoc 1 PvT))) (cond ((setq Yr (vl-string-search "Q=" Yz)) (setq Ey (substr Yz (+ Yr 3)) Yy (rtos (+ (atof Ey) 5)) Yz (vl-string-subst Yy Ey Yz) PvT (subst (cons 1 Yz) (assoc 1 PvT) PvT) PvT (entmod PvT) PvT (entupd (cdr (assoc -1 PvT))))) ((setq Yr (vl-string-search "v=" Yz)) (setq Ey (substr Yz (+ Yr 3)) Yy (rtos (+ (atof Ey) 0.68)) Yz (vl-string-subst Yy Ey Yz) PvT (subst (cons 1 Yz) (assoc 1 PvT) PvT) PvT (entmod PvT) PvT (entupd (cdr (assoc -1 PvT))))))) (command "_.undo" "e") (prin1)) Beğenmek için anlamak lazım...

08.08.2012 08:33 69714	aylavyu Girişimci 6 ileti Elk Teknikeri Antalya
Arkadaşlar acaba banada biri yardımcı olabilirmi bi istegim oldu ama kimse bişe yazmamış cok acil lazım işlerim hep yarım kalıyor hızlı gidemiyorum veya bana başka bi lisp önerecek birisi olsun lütfen. Gözünle gördüğün hiç birşeyden korkma.

08.08.2012 09:18 69715	ehya Yönetici 3590 ileti Teknik Ressam Ankara
aylavyu Komut ismi ANN Kod: (defun ann_hata (s) (if (/= s "Function cancelled") (princ (strcat "\nError: " s)) ) (command "_.undo" "end") (setq error olderr) (princ)) (defun c:ann (/ ann:metin ann:sayi) (setq olderr error error ann_hata) (setvar "cmdecho" 0) (vl-load-com) (command "_.undo" "group") (setq ann:metin (getstring t "\nMetni yazın:")) (if (= ann:metin "") (progn ) (progn (setq ann:sayi (getint "\nSayıyı girin:")) (if (= ann:sayi nil) (progn ) (progn (if (= art-deg nil)(setq art-deg 5)) (setq art-d (getint (strcat "\nArtış Miktarı:< " (rtos art-deg 2 0) " >:"))) (if (= art-d nil) (setq art-d art-deg)) (setq art-deg art-d) (setq ann:sc "Düz") (initget "Düz Ters") (setq ann:secenek (getkword (strcat "\nUygulama nasıl yapılsın? [Düz/Ters]:< " ann:sc " >"))) (if (/= ann:secenek nil) (setq ann:sc ann:secenek)) (setq ann:sayi (- ann:sayi 1)) (setq ann:nil nil) (while (= ann:nil nil) (setq ann:ent (entsel "\nDeğişecek yazıyı seçin:")) (if (= ann:ent nil) (progn (if (= (getvar "errno") 7) (progn (setq ann:nil nil) )) (if (= (getvar "errno") 52) (progn (setq ann:nil t) )) ) (progn (setq ann:data (vlax-ename->vla-object (car ann:ent))) (if (= ann:sc "Düz") (progn (setq ann:sonuc (strcat ann:metin " " (rtos (+ ann:sayi 1) 2 0)))) (progn (setq ann:sonuc (strcat (rtos (+ ann:sayi 1) 2 0) ann:metin)))) (vla-put-textstring ann:data ann:sonuc) (setq ann:sayi (+ ann:sayi art-deg)) ))))))) (command "_.undo" "end") (princ)) ehya (08.08.2012 11:23 GMT)

08.08.2012 10:42 69716	aylavyu Girişimci 6 ileti Elk Teknikeri Antalya
Alıntı ehya : aylavyu Komut ismi ANN teşekkür ederim ilgin için ama bnm işime yaramadı bu. aslında yaradı ama eksik olmuş rakamı arttıramazmıyız acaba yani her tıkda bes bes veya on on artırarak vursa. çok oluyorum ama kusura bakma lütfen ehya (08.08.2012 11:23 GMT) Gözünle gördüğün hiç birşeyden korkma.

08.08.2012 11:23 69717	ehya Yönetici 3590 ileti Teknik Ressam Ankara
Lispi güncelledim. Tekrar alabilirsin.

08.08.2012 14:07 69721	aylavyu Girişimci 6 ileti Elk Teknikeri Antalya
Alıntı ehya : Lispi güncelledim. Tekrar alabilirsin. Çoook teşekkür ederim elinize, emeğinize sağlık. İyi günler günler diliyorum herkese. Gözünle gördüğün hiç birşeyden korkma.

03.09.2012 09:03 69871	tugrulsahin Kıdemli Girişimci 26 ileti Harita mühendisi Ankara
Merhaba arakadaslar ben yeni üye oldum.Sitede arastırdım ama bulamadım,ihtayaçım olan bir lips var. Şu an bir alt yapı projesinde çalışıyorum ve proje çok büyük.İstedigim lips'in yapmasını istedigim şey ise şu; tüm projeyi bir kerede seçicem ve tum line'ların kırık yerlerine birer isim verip (numara yada harf) onları excelle aktarmak.Fakat verdigi numaralar bir birini takip eden line'da olurlarsa hesaplaması daha kolay olucak.Yapıcagım işlem ise baca aralarını excelle yada bir text dosyasına aktarıp ne kadar iş yapılmış ne kadar yapılacak iş var ve nerelerde onları gormek excell uzerinden. Bir baca kör degilse eğer en az 2,en fazlada 4 kere kullanılıyor. Buna uygun bir lips göremedim sitede,eğer varsa beni yölendirebilirmisiniz,yoksada yazmanız mümkünmüdür? Kuldan Bela Gelmez Hak Yazmadikca Hak Bela Yazmaz Kul Azmadikca

04.09.2012 12:57 69879	baran12 Girişimci 1 ileti t.ressam ankara
merhaba arkadaslar bana acil lisp lazim elimde 2500 tane daire var ve bu dairelerin ortasina bir block tanimlamam gerek bana yardimci olursaniz sevinirim simdiden tesekkurler autocad civil 3d programında yardımcı olabilirim.......

04.09.2012 13:57 69883	Travaci Editör 2416 ileti Teknik Ressam Konstantinopol
Kod: (defun c:inst (/) (setq ss (ssget (list (cons 0 "CIRCLE")))) (if (= ss nil) (progn (princ "\nSeçim yok..."))) (progn (setq c 0 say (sslength ss)) (while (< c say) (setq tek (ssname ss c) ed1 (entget tek)) (setq pnt (cdr (assoc 10 ed1))) (command "-insert" "C:/lisps/block.dwg" pnt 1 "" 0) (setq c (+ c 1)) ) ) ) Yukarudaki gibi veya istediğiniz gibi kendinize bi klasör açın "programda yolunu göstermek üzere" C:/lisps/block.dwg olucak sekilde block insert noktasından dairelerin ortasına koyulacaktır. Ona göre bloğunuzun insert noktasını ayarlayın.

05.09.2012 04:56 69888	tugrulsahin Kıdemli Girişimci 26 ileti Harita mühendisi Ankara
Günaydın arkadaşlar,benim 2 gün önce istediğim lips'le ilgilenebilcek biri varmı acaba? Kuldan Bela Gelmez Hak Yazmadikca Hak Bela Yazmaz Kul Azmadikca

05.09.2012 09:55 69890	ehya Yönetici 3590 ileti Teknik Ressam Ankara
tugrulsahin Öncelikle bu isteğinin "lips" değil "lisp" olduğunu öğrenmelisin. Daha istediğin şeyin adını tam öğrenememişsin. Sonrasında ise istediğin lisp uzun bir iş. Excel'e at. sıralı olsun. numara koy. v.s. Kimse uğraşmak istemediğinden dolayı cevap vermek istememiş. Burada her lisp yazılacak diye bir kural olmadığını bilmelsiiniz. Vakit oldukça bu konuda yardımcı oluyoruz.

05.09.2012 13:32 69897	k005 Üstad 678 ileti İnşaat Teknikeri Düzce
Merhaba arkadaşlar; iki ayrı renge göre seçim yapan bir lisp gerekiyor arkadaşlar.. window yöntemi ile belirtilen iki renk değerini sağlayan objeleri seçecek.. yardımcı arkadaşa şimdiden teşekkürler..

Önceki Sayfa

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

Sonraki Sayfa