Sonraki Sayfa
Copyright © 2004-2022 SQL: 1.268 saniye - Sorgu: 98 - Ortalama: 0.01294 saniye
 |
 |
 |
 |
|
|
|
|
31.07.2012 20:07
 Cozdal
|
|
Teşekkür ederim Travaci. Ama eğer lisp ismi biliyorsan verebilirmisin?
|
|
31.07.2012 22:10
 Travaci
|
|
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
sibelkarali
|
|
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
aylavyu
|
|
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.
|
|
07.08.2012 05:22
polatkr
|
|
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
fatihozcan
|
Alıntı 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ı.
|
|
07.08.2012 06:43
polatkr
|
|
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
aylavyu
|
|
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 ")
|
|
07.08.2012 18:56
 ProhibiT
|
|
Ö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))
|
|
08.08.2012 08:33
aylavyu
|
|
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.
|
|
08.08.2012 09:18
 ehya
|
|
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
aylavyu
|
Alıntı 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) |
|
08.08.2012 11:23
ehya
|
|
Lispi güncelledim. Tekrar alabilirsin.
|
|
08.08.2012 14:07
aylavyu
|
Alıntı Çoook teşekkür ederim elinize, emeğinize sağlık. İyi günler günler diliyorum herkese.
|
|
03.09.2012 09:03
tugrulsahin
|
|
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?
|
|
04.09.2012 12:57
baran12
|
|
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
|
|
04.09.2012 13:57
Travaci
|
|
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
tugrulsahin
|
|
Günaydın arkadaşlar,benim 2 gün önce istediğim lips'le ilgilenebilcek biri varmı acaba?
|
|
05.09.2012 09:55
ehya
|
|
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.
|
 k005
|
|
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..
|