Autolisp ile ilgili sorularınız... | 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: 507, Üye: 1
mateus

Detaylar »

Forumlar > AutoCAD Acil Yardım > Autolisp ile ilgili sorularınız...

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

İleti	Yazar
10.03.2011 14:40 63260	ProhibiT Yetkili 1616 ileti İnşaat Mühendisi Ankara
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. Beğenmek için anlamak lazım...

10.03.2011 16:39 63264	nesli34 Yeni üye 2 ileti elektrik elektronik mühendisi istanbul
Tşk ederim cevabınız için ama ben lispi buldum ehya abi teşekkürler tekrar..

04.04.2011 10:33 63712	sorbete Yeni üye 3 ileti inşaat mühendisi ankara
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 63720	hmtipek Girişimci 7 ileti mühendis istanbul
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 63991	muhendis010 Girişimci 5 ileti KONSTRÜKTÖR ANKARA
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 Araştırmadan Öğrenemezsin...!

12.08.2011 05:10 65417	emasi Uzman 78 ileti injiner Baki
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? «ŜŦǾק-ҒǏŔỄ» BİR DƏFƏ YÜKSƏLƏN BAYRAQ, BİR DAHA ENMƏZ

12.08.2011 05:39 65418	ProhibiT Yetkili 1616 ileti İnşaat Mühendisi Ankara
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. Beğenmek için anlamak lazım...

20.09.2011 08:50 65833	cansever Yeni üye 5 ileti Topoğraf Tripoli
Ck lispini kullanamıyorum Linkleri görebilmek için Üye Ol veya Giriş Yap 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ü Bilgisini saklamayan herkesden Rabbim razı olsun...inşallah...Selamün Aleyküm

20.09.2011 13:21 65837	ehya Yönetici 3590 ileti Teknik Ressam Ankara
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 65852	waytooraider Kıdemli Uzman 162 ileti makine mühendisi istanbul
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 65876	cansever Yeni üye 5 ileti Topoğraf Tripoli
Cktxt.Scl dosyasi c:/oden.Xıı/scl dizininde bulunamadi dosyayi c nin icine ck.Lisp olarak kopyaliyorum autocadde acmak isteyince ustteki hatayi veriyor tesekkurler Bilgisini saklamayan herkesden Rabbim razı olsun...inşallah...Selamün Aleyküm

31.10.2011 11:21 66374	zerg Girişimci 1 ileti elektrik teknikeri konya
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 Ol veya Giriş Yap

23.11.2011 11:44 66624	oden Kıdemli Girişimci 26 ileti Mimar Ankara
Alıntı 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 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 Ol veya Giriş Yap oden (23.11.2011 11:59 GMT)

25.11.2011 12:57 66658	seyhan-22 Girişimci 6 ileti inş. müh. adana
Ö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 66666	ProhibiT Yetkili 1616 ileti İnşaat Mühendisi Ankara
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. Beğenmek için anlamak lazım...

26.11.2011 07:06 66670	aticelep Girişimci 1 ileti İnş. Müh. Antalya
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 66671	ProhibiT Yetkili 1616 ileti İnşaat Mühendisi Ankara
(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 () (setq a (cdr (assoc 1 (entget (car (entsel))))) koordinat (getpoint "\nYazılacak yeri tıklayınız")) (command "_.Text" koordinat 10 0 a "") ) şeklinde yazmak daha doğrudur. Ben olsam; Kod: (defun c:yaz () (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: ")))) ) Hiç değişken kullanmadım, command kullanmadım... Beğenmek için anlamak lazım...

27.11.2011 13:02 66701	kemalizmir3535 Yeni üye 10 ileti harita teknikeri izmir
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 67360	Travaci Editör 2416 ileti Teknik Ressam Konstantinopol
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.

10.01.2012 11:39 67368	ehya Yönetici 3590 ileti Teknik Ressam Ankara
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.

Önceki Sayfa

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] > 13 < [15] [20] [25] [30] [35] [40] [43]

Sonraki Sayfa