Sonraki Sayfa
Copyright © 2004-2022 SQL: 1.231 saniye - Sorgu: 98 - Ortalama: 0.01256 saniye
 |
 |
 |
 |
|
|
|
|
10.03.2011 14:40
 ProhibiT
|
|
Bu konuyla ilgili o kadar çok autolisp fonksiyon paylaşıldı ki, sorunuz yeterince net olmadığı için nokta hedef veremiyorum, sitemizde arama motorunu kullanırsanız işinize yarayacak bir lisp mutlaka bulursunuz.
kolay gelsin.
|
|
10.03.2011 16:39
nesli34
|
|
Tşk ederim cevabınız için ama ben lispi buldum ehya abi teşekkürler tekrar..
|
|
04.04.2011 10:33
 sorbete
|
|
Merhabalar ben bir konuya takıldım.
uo ila calısan bır lıps yukledım ve calıstırdım. benım sıkınıtm su . ıkı tane cızgı ıle cızılmıs duvar dusunun ,eger bu cıgılerden bırıne tıklayıp silersem altından bır cızgı daha cıkıyor 2 aynı harekette sılıyor o cızgıyı, ama ekranı kucultup daha cok duvar secersem tek seferde sılıyor hepsını. uzerınde cıft cızgı gouzukuncede layer uzunluk okuma kıpsı 2 kere okumus oluyor.. bu nasıl oluyor.Ust uste ıkı cızgı varsa projeyı kucuktup cogunu secıp sıldıgımd e alttakı katman kalması lazım ama kalmöıyor .
|
|
04.04.2011 13:36
hmtipek
|
|
Merhaba benim bir sorum olacak.Autocadde demir metrajı yapmaya çalışıyorum.Dd komutu ile çalışan lispi kullanıyorum.Normal textlerde sorunum yok yanlız bazı textler özellikle kolon ve perde de açılımlarındaki textler poz no lar ile bloklu.Örnegin 95 16&20 l=540 .Bu blocku seçemiyorum dd lispi ile bana 16&20 l=540 bölümü lazım sadece.Bu blocku nasıl dağıtırım vede dd lispiyle nasıl seçebilirim.
|
|
22.04.2011 10:45
muhendis010
|
|
Hocam iyi günler ben farklı bi şeyden yardım istiyorum autocad 2005 beya 2011 de katı model bir sac çizip,deliklerini delip ve bu sacı istediğim şekilde bükmek istiyorum. deliklerde değişme olmadan. mümkünmüdür.
iyi çalışmalar kolay gelsin
|
|
12.08.2011 05:10
 emasi
|
|
Selamun aleykum
(setq secim (ssget (list (cons 0 "lıne")))) gunksionu--- cons 0 "line" anlayamadim. yazılmış ki sadece line olan nesnelerin seçilmesi sağlandı. burda line ve polyline olan nesneleri seçmesini istesem nasıl olucak?
|
|
12.08.2011 05:39
ProhibiT
|
|
Ssget komutu filtre olarak wildchart kabul eder.
aşağıdaki örnekler aşağı yukarı aynı işlemi yaparlar. kullanım detaylarını irdeleyebilmeniz için yazdım. (setq secim (ssget (list (cons 0 "Line,poLyLine,LwpoLyLine")))) (setq secim (ssget (list (cons 0 "Line,*poLyline")))) (setq secim (ssget (list (cons 0 "*Line")))) Kolay gelsin.
|
|
20.09.2011 08:50
cansever
|
|
Ck lispini kullanamıyorum
Linkleri görebilmek için ÜYE olmalısınız. bu dosyayı ındırdıgımde bende calısmıyor txt dosyasının ıcıne baktıgımda yazılar karakter hataları ıle dolu neden boyle oluyor acaba. daha oncekı bılgısayarımda bu lıspı kullanmısdım suan kullanamıyorum asagıdakı sekılde 63 $ \ q q q ÿ q þ ý 5ü û ú 5ü ù ø 5ü ÷ ö 5ü õ q ô q ó ò 5ü
|
|
20.09.2011 13:21
 ehya
|
|
Cansever
bu lispin içine bakamazsın.. derlenmiş bir dosyadır.. lisp çalışmıyor derken nasıl bir uyarı verdiğini söylersen yardımcı oluruz.
|
|
21.09.2011 12:58
waytooraider
|
|
Prohobit hocam sizin crop fonksiyonunuz vardı. inanılmaz kolaylık sağlıyor. acaba blokları patlatarak çalışan versiyonu varmıydı ?
şimdiden saygılar ellerinizden öperim hocam.
|
|
23.09.2011 07:29
cansever
|
|
Cktxt.Scl dosyasi c:/oden.Xıı/scl dizininde bulunamadi
dosyayi c nin icine ck.Lisp olarak kopyaliyorum autocadde acmak isteyince ustteki hatayi veriyor tesekkurler
|
|
31.10.2011 11:21
zerg
|
|
Lisp babası ölmüştür ...:(
kalanlara baş saglıgı ekim ayı teknoloji dünyası için kayıplar ayı olmaya devam ediyor. steve jobs ve ve dennis ritchie'nin ertesinde, çağımızın teknoloji dahileri arasında gösterilen, lısp programlama dilinin yaratıcısı ve 'yapay zeka' kavramının oluşturulmasında ve felsefesinin oturtulmasında en büyük emeği geçenlerden birisi olan john mccarthy de (84) hayata veda etti. john ousterhout tarafından geliştirilen linux tabanlı en verimli script dillerinden birisi olarak kabul edilen tcl'nin (araç komut dili) atalarından birisi olarak kabul gören ve günümüzde yapay zeka üzerinde uğraş verenlerin olmazsa olmazları arasında yer alan sentaksı (söz dizimi) en basit programlama dillerinden lisp'in (list processing language) yaratıcısı john mccarthy, stanford üniversitesinde görev alan bir matematik dahisiydi. 2000 yılında emekli olduğu stanford üniversitesi'ndeki ilk yapay zeka laboratuarını kuran mccarthy'nin çağımıza bir diğer katkısı ise çok kullanıcılı zaman paylaşımlı sistemlerin gelişmesinde oynadığı roldü. 1966-1967 yıllarında yani soğuk savaşın tüm gücüyle hüküm sürdüğü yıllarda sovyetler birliği ile amerika arasında yapılan ve iki bilgisayar programı arasında oynanan tarihin ilk satranç oyununun amerika'yı temsilen gerisinde bulunan isim olan mccarthy hamlelerini telgraf yoluyla iletmişti. ıtep ile kotok-mccarthy programları arasında gerçekleştirilen ve tam 9 ay süren bu mücadeleden her ne kadar 3-1'lik skorla yenik ayrılmış olsa da, aslında gerçek galibin deep blue ile bugünlere kadar gelen yapay zeka kavramı olduğunu söylersek sanırız yanlış olmaz. modern bilgisayar biliminin kurucularından sayılan alan m. turing'in adını taşıyan ve bilim dünyasının en büyük ödüllerinden birisi sayılan (bilgisayar dünyasının nobel'i) turing'i 1972 yılında kazanmasının yanısıra 1991 yılında da national medal of science (ulusal bilim madalyasını) onur ödülünün de sahibi olan 1927 doğumlu dahinin bugün iphone 4s'in en devrimci özellliği olan siri'nin dolaylı da olsa arkasındaki isim olması ise sayesinde teknoloji dünyasına katılan ve katılacak olan nice buluşla isminin her daim yaşatılacak olacağının en güzel örneklerinden birisi. evet; başta da dediğimiz gibi sürmekte olduğumuz ekim ayı bilim tarihine 'kara ekim' olarak geçse inanın hiç ama hiç şaşırmayız. üstadın yapay zeka hakkındaki bütün makalelerine ve incelemelerine bu adresten erişebilirsiniz. kaynak : Linkleri görebilmek için ÜYE olmalısınız.
|
|
23.11.2011 11:44
 oden
|
Alıntı O hata C: bölümünde Oden.Xıı dizini altında lispin parametre saklamak için kullandığı değerlere ait dosyayı bulamamasından kaynaklanıyor. o dosyanını hata mesajındaki konumunda olması gerekiyor. indirdiğiniz lispin içindeki txt dosyasını lütfen okuyun. gerekli açıklamalar orada yazıyor. bu lisp tek başına çalışmaz. ihtiyaç duyduğu dwg şablonu ve parametre dosyalarını ilgili dizin altından okur... elinizde son güncelleme olmayabilir. zira öncekilerde açıklama dosyası yoktu. aşağıdaki linkten son güncellemeyi çekebilirsiniz. Linkleri görebilmek için ÜYE olmalısınız. oden (23.11.2011 11:59 GMT) |
|
25.11.2011 12:57
seyhan-22
|
|
Örnek liste
("123 432 123 333") buna göre bu listenin 1 elemanı var burda " işaretlerini yok edebilirmiyiz o zaman bu listenin 4 elamanı olacaktır tşk.
|
|
25.11.2011 17:11
ProhibiT
|
|
Command: (setq a "123 432 123 333")
"123 432 123 333" Değerimiz burada olduğu gibi bir string ise; Command: (list (substr a 1 3) (substr a 5 3) (substr a 9 3) (substr a 13 3)) ("123" "432" "123" "333") şeklinde 4 elemanlı bir string list'ine çevrilebilir. 4 elamanlı listemizin elemanlarını integer istiyorsak; Command: (list (atoi (substr a 1 3)) (atoi (substr a 5 3)) (atoi (substr a 9 3)) (atoi (substr a 13 3))) (123 432 123 333) uygulamak gerekir. Command: (setq b (list a)) ("123 432 123 333") Değerimiz burada olduğu gibi, içinde string elemanı olan tek elamanlı bir list ise önce tek elemanlı listenin ilk (ve tek) elemanına dönmemiz gerekir. Command: (setq a (nth 0 b)) "123 432 123 333" Bundan sonra yukarıdaki işlemleri uygulayabiliriz.
|
|
26.11.2011 07:06
aticelep
|
|
Kolay gelsin.
lisp'e yeni başladım. konuyu kitaplardan ve forumlardan öğrenmeye çalışıyorum. 3 satır lspi becerip de yazamadım. ekranda seçilen bir text'i belirleyeceğimiz yere yazan lisp. (defun c:yaz () (setq a (ssget)) (setq koordinat (getpoint "yazılacak yeri tıklayınız :")) (command "text" koordinat "10" "0" a) ) autocad'in verdiği hata select objects: yazılacak yeri tıklayınız :text current text style: "standard" text height: 0.2000 Specify start point of text or [Justify/Style]: Specify height <0.2000>: Specify rotation angle of text <0>: 0 Enter text: *Invalid* ; error: Function cancelled Nerde hata yapıyorum. Yardımcı olabilir misiniz??
|
|
26.11.2011 07:46
ProhibiT
|
|
(setq a (ssget)) ile selection set oluşturuyorsunuz.
command: (setq a (ssget)) select objects: 1 found select objects: <selection set: d> öncelikle selection set içinden text objenizi almalısınız. tek objelik bir seçim seti olduğunu varsayıp 0'ıncı objeyi alırsak command: (setq b (ssname a 0)) <entity name: 7ffff608980> bu durumda b'nin değeri entity name dir. bize gereken text objesinin içeriği. bunun için önce objenin association list'ini elde etmemiz lazım. command: (setq c (entget b)) ((-1 . <entity name: 7ffff608980>) (0 . "text") (330 . <entity name: 7ffff6039f0>) (5 . "285f8") (100 . "acdbentity") (67 . 0) (410 . "model") (8 . "0") (100 . "acdbtext") (10 -5839.61 22961.5 0.0) (40 . 25.0) (1 . "deneme") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "standard") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "acdbtext") (73 . 0)) command: (setq d (cdr (assoc 1 c))) "deneme" artık d değişkenindeki string'i, (command "text"... içinde kullanabiliriz. (command "text" koordinat "10" "0" d) (bu kodu daha kısa ve net yazmak gerekirse; Kod: (defun c:yaz () (setq a (cdr (assoc 1 (entget (ssname (ssget) 0)))) koordinat (getpoint "\nYazılacak yeri tıklayınız")) (command "_.Text" koordinat 10 0 a "") ) Burada ssget kullanmak bir hata, onun yerine entsel kullanarak kodu daha dengeli hale getirmeli; Kod: (defun c:yaz () şeklinde yazmak daha doğrudur.(setq a (cdr (assoc 1 (entget (car (entsel))))) koordinat (getpoint "\nYazılacak yeri tıklayınız")) (command "_.Text" koordinat 10 0 a "") ) Ben olsam; Kod: (defun c:yaz () Hiç değişken kullanmadım, command kullanmadım...
(entmake (list (cons 0 "text") (cons 40 10) (cons 1 (cdr (assoc 1 (entget (car (entsel "\Text seçiniz")))))) (cons 10 (getpoint "\nNokta seçiniz: ")))) )
|
|
27.11.2011 13:02
kemalizmir3535
|
|
Merhabalar. ilginize teşekkürler. sanırım lisp isteğimi detaylı bir şekilde yazamadım. kususra bakmayın. anlaşılır olması için detayla yazmaya çalışayım. ben harita teknikeriyim. autocadde hazır olan bina temelleri ve kolonları var. bunlara sırasıyla köşelerine kls.Lisp komutuyla ardışıl nokta atıp, tümünün koordinatlarını ekranda listeleyebiliyorum. bu listeyi gsi. (haritacılar için ölçüm aletlerine aktarma yapmak için kullanıyoruz) veya ncn. dosyası olarak oluşturabilirmiyiz. şimdiden teşekkürler.
|
|
10.01.2012 09:57
 Travaci
|
|
Herkeze merhaba,
(defun c:DA()(command "DIMALIGNED")(princ)) (defun c:DC()(command "DIMCONTINUE")(princ)) ..... Gibi kendime acad.lsp oluşturuyorum, fakat acad.pgp de mevcut olmayan komutlar için örneğin breakline komutunu acad.lsp e koyduğumda olmuyor, acad.pgp de olmayan komutlar için ne yapmam gerekiyor. Copy komutunu (defun c:C()(command "COPY")(princ)) yaptığımda multi copy olması içine ne yapmalıyım ?. Teşekkürler.
|
|
ehya
|
|
pgp dosyası sadece komut kısaltmaları için kullanılan bir dosyadır. Dosya içerisinde mevcut komutları gördüğünüz gibi olmayan komutları kendiniz ekleyebilirsiniz.
|