Sonraki Sayfa
Copyright © 2004-2022 SQL: 1.161 saniye - Sorgu: 99 - Ortalama: 0.01173 saniye
 |
 |
 |
 |
|
|
|
|
19.01.2012 05:50
doygun77 
|
|
Ş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
 ProhibiT
|
|
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?
|
|
19.01.2012 12:23
doygun77
|
|
#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
ProhibiT
|
|
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.
|
|
20.01.2012 10:42
ereandil
|
|
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
given
|
|
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
rascasse
|
|
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
safakkarman
|
|
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
|
|
03.02.2012 15:28
 Travaci
|
|
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
cagrikara
|
|
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
ProhibiT
|
|
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. :)
|
|
09.02.2012 14:01
waytooraider
|
|
Elinize sağlık ustadım.
|
|
10.02.2012 11:05
ProhibiT
|
|
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) |
|
18.02.2012 20:37
tyenier
|
|
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ı
|
|
19.02.2012 14:41
kubilaysalih
|
|
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
pulp fiction
|
|
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
lifestyle27
|
|
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
ProhibiT
|
|
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.
|
|
23.02.2012 07:51
pulp fiction
|
|
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...
|
|
ProhibiT
|
|
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) |