AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Autolisp ile ilgili sorularınız...
25.05.2015 09:00    
LEYLO
Çok Teşekkürler Hocam...

28.07.2015 11:38    
paulbalik
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    
ehya
paulbalik



isteğinin mantığı nedir?
madem copy-p yaptıracaksın? ssx'e ne ihtiyaç var?

29.07.2015 07:57    
paulbalik
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    
erdem99erdem
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    
rayden81
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    
Travaci
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    
rayden81
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    
Travaci
:) 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    
rayden81
teşekkürler üstadım...

19.08.2015 10:46    
tekinkaya
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    
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)
)
19.08.2015 12:12    
rayden81
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    
tekinkaya
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    
rayden81
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    
tekinkaya
Benim kod larda değiştirmem gereken yerler nerelerdir

25.08.2015 09:23    
rayden81
(defun yardimcilar ()

(Setq eskiosnap (getvar "osmode"))

(command "osnap" "none" "")




(command "_undo" "end")

(setvar "osmode" eskiosnap)

)

25.08.2015 09:32    
tekinkaya
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    
rayden81
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    
BLack|E
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
Copyright © 2004-2022 SQL: 0.513 saniye - Sorgu: 99 - Ortalama: 0.00519 saniye