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: 568, Üye: 1
koksalpro

Detaylar »

Forumlar > AutoLISP > Autolisp ile ilgili sorularınız...

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

İleti	Yazar
25.05.2015 09:00 81506	LEYLO Uzman 42 ileti
Çok Teşekkürler Hocam...

28.07.2015 11:38 81794	paulbalik Girişimci 2 ileti İklimlendirme İstanbul
Merhaba LISP kodu hazırlayabilir misiniz sevinirim. Command : SSX -> seç ->enter Command : Copy -> P -> enter o kadar LISP hazırlayabilir misiniz yukarıdaki hepsi tek command kodu SC = (S)SX - (C)OPY yeni oluşturmak istedik.

29.07.2015 06:20 81796	ehya Yönetici 3597 ileti Teknik Ressam Ankara
paulbalik isteğinin mantığı nedir? madem copy-p yaptıracaksın? ssx'e ne ihtiyaç var?

29.07.2015 07:57 81797	paulbalik Girişimci 2 ileti İklimlendirme İstanbul
Ehya Abi Command : SSX -> seç ->enter Command : Copy -> P -> enter ssx (enter) seç (tıkla) - (Enter) copy (enter) -> p (enter) bu hepsi tek olsun hız diye SSX -> (SEÇ) -> (enter) COMMAND'e döndürüp Yine COPY -> P -> (enter) bu diye ÖRNEK = Tüm Vana'yı kopya istediği İşitme engelliyim anlamadığınız kusura bakma utanırım.

11.08.2015 09:20 81856	erdem99erdem Girişimci 8 ileti mühendis istanbul
Arkadaşlar Autolisp yazmayı yeni yeni öğreniyorum elimde yazılmış kame bu siteden aldığım bir lisp var. Bu lispe malzeme sutunuda eklemek istedim ama olmadı. bir çok şeyi denediğim halde, bilen arkadaşların yardımcı olursa sevinirim yazdığım lisp alttadır. şimdiden teşekkürler. 366217-tmp.rar

19.08.2015 08:41 81900	rayden81 Kıdemli Girişimci 40 ileti TEKNİK ÖĞRETMEN ANKARA
Merhaba arkadaşlar yazdığım lisp kodu çalışıyor ama sizlerin yorumunu merak ettim eksik yanlış veya hamallık kısımları varmı diye. amacım polylıne nesnesi seçimi ama ekranda boş bir nokta seçilirse veya yanlış nesne seçilirse komuttan çıkmadan yeniden seçim istesin ama sağ tuşa basılrısa komuttan çıkılsın. şuan düzgün çalışıyor ama komuttan çıkıncada(SAĞ TUŞ İLE ) (; error: quit / exit abort ) bu hatayı veriyor hatasız yapma imkanımız varmı acaba. Kod: (DEFUN C:12() (SETQ DONGU 0) (WHILE (= DONGU 0) (PRINC "BİR POLYLINE SECINIZ:") (SETQ SECIM(ENTSEL)) (IF (= SECIM nil) (PROGN (IF (= (GETVAR "ERRNO") 7) (SETQ DONGU 0) (EXIT) );IF );PROGN (PROGN (SETQ A1(ASSOC 0 (ENTGET (CAR SECIM)))) (SETQ A2(CONS 0 "LWPOLYLINE")) (IF (= (EQUAL A1 A2) T) (SETQ DONGU 1) (SETQ DONGU 0) );IF );PROGN );IF );WHILE (PRINC "OK") );DEFUN (PRINC)

19.08.2015 09:11 81902	Travaci Editör 2418 ileti Teknik Ressam Konstantinopol
rayden81 Kod: (defun c:sl (/ ss dn) (while (= dn nil) (if (setq ss (ssget ":s" (list (cons 0 "lwpolyline")))) (progn (setq dn t) (sssetfirst nil ss))) (if (= (getvar "errno") 52) (setq dn t)) ) (princ) )

19.08.2015 09:17 81903	rayden81 Kıdemli Girişimci 40 ileti TEKNİK ÖĞRETMEN ANKARA
Teşekkür ederim üstadım. yazdığım koddan utandım :) peki neden benimkinde hata veriyordu mantık hatam nerede oldu bunu yazma imkanınız var mı. (exıt) komutu ile çıkınca hata vermemesi gerekmez mi.

19.08.2015 10:17 81904	Travaci Editör 2418 ileti Teknik Ressam Konstantinopol
:) Utancılcak bi durum yok, biz daha beterlerini yaptık :D Çıkış yaptığında bu hatayı alırsın. Kod: (defun c:ex (/) (exit)) Programın olumsuz durumunu yazmama tercıh sebebıdır Eğer işlem başıan if koyarsan (if (.... secım yapıldıgında işlemi yap, secım yapılmamıssa zaten bısı yapmıcak. Kod: (defun c:sl (/ ss dn) (while (= dn nil) (if (setq ss (entsel "\nSelect object:")) (if (= (cdr (assoc 0 (entget (car ss)))) "LWPOLYLINE") (progn (setq dn t) (alert "\nOK")))) (if (= (getvar "errno") 52) (setq dn t)) ) (princ) ) Travaci (19.08.2015 10:34 GMT)

19.08.2015 10:31 81905	rayden81 Kıdemli Girişimci 40 ileti TEKNİK ÖĞRETMEN ANKARA
teşekkürler üstadım...

19.08.2015 10:46 81906	tekinkaya Kıdemli Girişimci 36 ileti tasarımcı istanbul
obje snap yakalama seçeneklerinin hepsi işaretli iken. lispi çalıştırıyorum obje snap yakalama seçeneklerinin hepsinin işarettini kaldırıyor ve imleç yakalama noktası bulamıyor. lispin obje snap yakalama seçeneklerini bozmaması için ne yapılmalıdır. lisp kodları aşağıdadır. (defun yardimcilar () (command "osnap" "none" "") (setvar "cmdecho" 0) (setvar "blipmode" 0) (command "ortho" "on" "") (command "layer" "m" "aks" "c" "3" "" "l" "dashdotx2" "" "" "") (command "layer" "m" "aks" "c" "3" "" "") (command "layer" "m" "yazi1" "c" "7" "" "") (command "layer" "m" "yazi1" "c" "7" "" "")) (defun yardimcilar2 (bVerOrHor / p1 p2) (command "osnap" "end" "") (setq p1 (getpoint "\nbirinci noktayi giriniz: ")) (command "osnap" "none" "") (command "osnap" "per" "") (setq p2 (getpoint p1 "\nbirinci noktayi giriniz: ")) (if (eq bVerOrHor nil ) (setq p2 (list (car p1) (cadr p2) (caddr p2))) (setq p2 (list (car p2) (cadr p1) (caddr p2))) ) (command "osnap" "none" "") (setq dAci (angle p1 p2)) (command "layer" "s" "aks" "") (command "line" p1 p2 "") (command "layer" "s" "aks" "") (command "line" p1 (polar p1 (+ dAci 0.0) -200.0) "") (command "line" p2 (polar p2 dAci 200.0) "") (command "layer" "s" "yazi1" "" ) (command "circle" (polar p1 (+ dAci pi) 215.0) (polar p1 (+ dAci pi) 230.0) ) (command "circle" (polar p2 dAci 215.0) (polar p2 dAci 230.0)) (command "layer" "s" "yazi1" "") (command "text" "st" "standard" "j" "mc" (polar p2 dAci 215.0) 18.0 0 (itoa isim)) (command "text" "st" "standard" "j" "mc" (polar p1 (+ dAci pi) 215.0) 18.0 0 (itoa isim)) (list p1 p2) ) (defun c:a1 () (setq isim 1 ) (command "undo" "begin") (setvar "cmdecho" 0) (setq nOsmode(getvar "OSMODE" )) (setq szCLayer (getvar "CLAYER")) (yardimcilar) (setq ptList (yardimcilar2 nil)) (setq p1 (car ptList) p2 (cadr ptList) p11 p1 p22 p2 ) (setvar "highlight" 0) (while (and (/= p11 nil) (/= p22 nil)) (if (not ara1) (setq ara1 1.0) ) (setvar "OSMODE" nOsmode) (setq p2 (getpoint p1 (strcat "\naks aralıgını gırınız <" (rtos ara1) ">: ") ) ) (setvar "OSMODE" 0) (if (numberp p2) (setq ara p2 ara1 ara) (setq ara (- (car p2) (car p1)) ara1 ara) ) (setq p1n (polar p11 0 ara)) (setq p2n (polar p22 0 ara)) (command "layer" "s" "aks" "") (command "line" p1n p2n "" "") (command "layer" "s" "aks" "" ) (command "line" p1n (polar p1n (+ dAci 0.0) -200.0) "") (command "line" p2n (polar p2n dAci 200.0) "") (command "layer" "s" "yazi1" "") (command "circle" (polar p1n (+ dAci pi) 215.0) (polar p1n (+ dAci pi) 230.0) "" ) (command "circle" (polar p2n dAci 215.0) (polar p2n dAci 230.0) "" ) (setq isim (1+ isim)) (command "layer" "s" "yazi1" "" ) (command "text" "st" "standard" "j" "mc" (polar p2n dAci 215.0) 18.0 0 (itoa isim)) (command "text" "st" "standard" "j" "mc" (polar p1n (+ dAci pi) 215.0) 18.0 0 (itoa isim)) (command "layer" "s" "duvar" "" ) (setq p11 p1n) (setq p22 p2n) (setq p1 (list (car p2) (cadr p1) (caddr p1))) ) (setvar "highlight" 1) (setvar "OSMODE" nOsmode) (setvar "cmdecho" 1) (setvar "CLAYER" szClayer) (command "_undo" "end") (princ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun yardimcilar () (command "osnap" "none" "") (setvar "cmdecho" 0) (setvar "blipmode" 0) (command "ortho" "on" "") (command "layer" "m" "aks" "c" "68" "" "l" "dashdotx2" "" "" "") (command "layer" "m" "aks" "c" "3" "" "") (command "layer" "m" "yazi1" "c" "7" "" "") (command "layer" "m" "yazi1" "c" "7" "" "")) (defun yardimcilar1 (bVerOrHor / p1 p2) (command "osnap" "end" "") (setq p1 (getpoint "\nbirinci noktayi giriniz: ")) (command "osnap" "none" "") (command "osnap" "per" "") (setq p2 (getpoint p1 "\nbirinci noktayi giriniz: ")) (if (eq bVerOrHor nil ) (setq p2 (list (car p1) (cadr p2) (caddr p2))) (setq p2 (list (car p2) (cadr p1) (caddr p2))) ) (command "osnap" "none" "") (setq dAci (angle p1 p2)) (command "layer" "s" "aks" "") (command "line" p1 p2 "") (command "layer" "s" "aks" "") (command "line" p1 (polar p1 (+ dAci 0.0) -200.0) "") (command "line" p2 (polar p2 dAci 200.0) "") (command "layer" "s" "yazi1" "" ) (command "circle" (polar p1 (+ dAci pi) 215.0) (polar p1 (+ dAci pi) 230.0) ) (command "circle" (polar p2 dAci 215.0) (polar p2 dAci 230.0)) (command "layer" "s" "yazi1" "") (command "text" "st" "standard" "j" "mc"(polar p2 dAci 215.0) 18.0 0 (chr isim)) (command "text" "st" "standard" "j" "mc" (polar p1 (+ dAci pi) 215.0) 18.0 0 (chr isim) ) (list p1 p2) ) (defun c:a2 () (setq isim 65) (command "undo" "begin") (setvar "cmdecho" 0) (setq nOsmode(getvar "OSMODE" )) (setq szCLayer (getvar "CLAYER")) (yardimcilar) (setq ptList (yardimcilar1 t)) (setq p1 (car ptList) p2 (cadr ptList) p11 p1 p22 p2 ) (while (and (/= p11 nil) (/= p22 nil)) (if (not ara1) (setq ara1 1.0) ) (setvar "OSMODE" nOsmode) (setq p2 (getpoint p1 (strcat "\naks aralıgını gırınız <" (rtos ara1) ">: ") ) ) (setvar "OSMODE" 0) (if (numberp p2) (setq ara p2 ara1 ara) (setq ara (- (cadr p2) (cadr p1)) ara1 ara) ) (setq p1n (polar p11 1.57143 ara)) (setq p2n (polar p22 1.57143 ara)) (command "layer" "s" "aks" "") (command "line" p1n p2n "" "") (command "layer" "s" "aks" "" ) (command "line" p1n (polar p1n (+ dAci 0.0) -200.0) "") (command "line" p2n (polar p2n dAci 200.0) "") (command "layer" "s" "yazi1" "") (command "circle" (polar p1n (+ dAci pi) 215.0) (polar p1n (+ dAci pi) 230.0) "" ) (command "circle" (polar p2n dAci 215.0) (polar p2n dAci 230.0) "" ) (setq isim (1+ isim)) (command "layer" "s" "yazi1" "" ) (command "text" "st" "standard" "j" "mc"(polar p2n dAci 215.0) 18.0 0 (chr isim)) (command "text" "st" "standard" "j" "mc" (polar p1n (+ dAci pi) 215.0) 18.0 0 (chr isim) ) (command "layer" "s" "duvar" "" ) (setq p11 p1n) (setq p22 p2n) (setq p1 (list (car p1) (cadr p2) (caddr p1))) ) (setvar "OSMODE" nOsmode) (setvar "cmdecho" 1) (setvar "CLAYER" szClayer) (command "_undo" "end") )

19.08.2015 12:11 81907	Travaci Editör 2418 ileti Teknik Ressam Konstantinopol
tekinkaya] Kod: (defun c:er (/ n1 om) (if (setq n1 (getpoint "\nNokta goster:")) (progn (setq om (getvar "osmode")) (setvar "cmdecho" 0) (setvar "osmode" 0) (command "_.line" n1 (polar n1 0 1000) "") (setvar "osmode" om) (setvar "cmdecho" 1) ) ) (princ) )

19.08.2015 12:12 81908	rayden81 Kıdemli Girişimci 40 ileti TEKNİK ÖĞRETMEN ANKARA
GETVAR ile osnapı bi değişkene alıp bitimindede geri yüklemek çözüm olsa gerek. (Setq eskiosnap (getvar "osmode")) (setvar "osmode" eskiosnap)

21.08.2015 11:46 81924	tekinkaya Kıdemli Girişimci 36 ileti tasarımcı istanbul
bu yazdığınız kodları yukarıdaki kodların içine mi eklemem gerekiyor yoksa bazı kodlar ile değiştirmemi gerekiyor.değiştirmem gerekiyor ise hangileri ile değiştirmem gerekiyor. Alıntı Travaci : tekinkaya] Kod: (defun c:er (/ n1 om) (if (setq n1 (getpoint "\nNokta goster:")) (progn (setq om (getvar "osmode")) (setvar "cmdecho" 0) (setvar "osmode" 0) (command "_.line" n1 (polar n1 0 1000) "") (setvar "osmode" om) (setvar "cmdecho" 1) ) ) (princ) )

22.08.2015 08:06 81932	rayden81 Kıdemli Girişimci 40 ileti TEKNİK ÖĞRETMEN ANKARA
Ben kendi yazdığım lisplerde 1. kodu (Setq eskiosnap (getvar "osmode")) programın başına ikinci kodu ise (setvar "osmode" eskiosnap) sonuna ekliyorum..

22.08.2015 15:47 81939	tekinkaya Kıdemli Girişimci 36 ileti tasarımcı istanbul
Benim kod larda değiştirmem gereken yerler nerelerdir

25.08.2015 09:23 81944	rayden81 Kıdemli Girişimci 40 ileti TEKNİK ÖĞRETMEN ANKARA
(defun yardimcilar () (Setq eskiosnap (getvar "osmode")) (command "osnap" "none" "") (command "_undo" "end") (setvar "osmode" eskiosnap) )

25.08.2015 09:32 81946	tekinkaya Kıdemli Girişimci 36 ileti tasarımcı istanbul
aynen değiştirdim dediklerinizi yine çalışmadı siz lispi düzenleyip buraya eklermisiniz. tekinkaya (25.08.2015 09:40 GMT)

25.08.2015 14:24 81948	rayden81 Kıdemli Girişimci 40 ileti TEKNİK ÖĞRETMEN ANKARA
Arkadaşlar attributte oluşturmaya çalıştım ama bir türlü olmuyor hatam nerede acaba yardımcı olabilirmisiniz. (DEFUN C:12() (SETQ TEXT(LIST (CONS 0 "ATTDEF") (CONS 100 "AcDbEntity") (CONS 100 "AcDbText") (CONS 100 "AcDbAttributeDefinition") (CONS 410 "MODEL") (CONS 6 "CONTINUOUS") (CONS 8 "0") (CONS 2 "NOKTA_NO") (CONS 370 0) (CONS 10 (LIST 0 0 0)) (CONS 11 (LIST 1 1 1)) (CONS 39 0) (CONS 62 1) (CONS 1 "DENEME") (cons 3 "DENE") (CONS 40 2.5) (CONS 50 0) (CONS 41 1) (CONS 51 0) (CONS 7 "STANDARD") (CONS 70 1) (CONS 71 0) (CONS 72 0) (CONS 73 0) );LIST );SETQ (ENTMAKE TEXT) );DEFUN

28.09.2015 06:42 82022	BLack\|E Kıdemli Uzman 159 ileti Kıdemli Teknik Ressam ANKARA
Merhabalar. Geçmiş kurban bayramınız kutlu olsun öncelikle. Bir komutumuz vardı. Rotate Enter Çizimi seç Enter Specify base point noktası seç r (referance) Enter 1ci nokta 2ci nokta dedikten sonra birinci noktam merkezim olup ikinci noktamı referans alarak, tıkladığım yere göre seçili çizimleri çeviriyordu. Ben bunu ikinci noktamı seçtikten sonra komutun işlevi değişmeden yine birinci noktamı merkezleyip iki noktaya referans alıp bana bütün çizimi bana x eksenine paralel yapan bir lisp yazmaya çalıştım beceremiyorum. Ustalarım bana yardımcı olursa sevinirim. (Not olarak eklemek istediğim bişey var. Klavyeden girilen "r" ve "enter" gibi tuşlar lisp'in içerisinden kendiliğinden girecek. kullanıcıya sormasına gerek yok. Lisp aktif hale gelecek, çizim seçilecek, birinci nokta seçilecek, ikinci nokta seçilecek çizimler birinci seçilen noktaya göre x eksenine paralel bir şekilde dönüşünü tamamlayacak). Ayrıca Mehmet Şahin GÜVERCİN hocamında Autolisp Visual lisp kitabını aldım okuyorum yarısına geldim, emeğine sağlık hocam. BLack\|E (28.09.2015 07:21 GMT)

Önceki Sayfa

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

Sonraki Sayfa