Autolisp Derslerİ

[otokoc]

Invalid argument
Hatalı argüman tanımlaması veya tanımlanan argüman sınırlar dışında kalmakta.

Invalid character

Bir deyim, uygun olmayan bir karakter içermekte.

Invalid dotted pair

"sayı-nokta-sayı" şeklinde tanımlanan liste tiplerine noktalı çiftler adı verilmektedir. Bu hata mesajı, iki reel sayının yanlış tanımlanmasıyla oluşan hatalı bir noktalı çift olduğunu belirtir. Bu durum genellikle reel bir sayının ondalık noktadan önce 0 (sıfır) olmadan .75 şeklinde kullanılmasıyla oluşur. Bu durumun düzeltmek için ondalık noktadan önce 0 konulmalıdır. Örneğin 0.75 veya 0.123045 gibi


Lispstack overflow

Bellekte STACK bölgesi olarak ayrılan yer tamamen dolmuştur. Bunun nedeni, oldukça fazla LISP fonksiyonunun tekrarı veya çok fazla fonksiyon değişkeni listesinin olmasıdır.

[otokoc]

Misplaced dot

Eğer reel bir sayı 1'in altında bir değer sahip ise ve ondalık noktadan önce 0 (sıfır) olmadan yazılmışca bu hata mesajı ile karşılaşılabilir. Bu durumu düzeltmek için ondalık noktadan önce 0 (sıfir) konulmalıdır.

Null function

Değeri Nil olan bir fonksiyon hesaplanmaya çalışılıyor.

Quit / exit abort

Bu mesaj QUIT veya EXIT fonksiyonlarının kullanılmasının sonucunda görüntülenir. Bu fonksiyonlar AutoLISP uygulamalarında pek fazla kullanılmamaktadır.

Too few arguments

Temel iç fonksiyonlardan birine gerektiğinden az sayıda değişken atanmıştır.

Too many arguments

Temel iç fonksiyonlardan birine gerektiğinden fazla sayıda değişken atanmıştır.

[otokoc]

Balloon.Lsp

(defun ERR (s)
(if (/= s "Function cancelled\n")
(if (= s "quit / exit abort")
(princ)
(alert (strcat " >> Error << \n"))
)
)
(setvar "cecolor" "bylayer")
; (command "layer" "s" cl "")
; (setvar "textsize" oldTS)
; (setvar "dimblk" arwtype)
(setvar "orthomode" om)
(setvar "osmode" os)
(setvar "regenmode" 1)
(setvar "cmdecho" 1)
(setq *error* olderr)
(princ)
)

(defun input_integer (a b / c)
(setq a (strcat a " <"(rtos b 2 0)"> "))
(setq c (getint a))
(if (/= c NIL)
(setq b c)
(setq b b)
)
)
(setq incr 1)
(defun item (ent)
(cdr(car(entget(ent))))
)

;Main function
(defun c:balloon ()
(setq olderr *error* *error* err)
(setvar "cmdecho" 0)
(setvar "regenmode" 0)
(setq om (getvar "orthomode"))
(setvar "orthomode" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq cl (getvar "clayer"))
(setq arsize (getvar "dimasz"))

; (setvar "dimasz" 0.125)
; JT - Custom arrow size defined by Dim Lisp routines.
(cond ((= #dwgsz "11x17")(setvar "dimasz" 0.09375))((= #dwgsz "24x36")(setvar "dimasz" 0.125)))

;Define and set layer for entities
;Change layer name and color below
; (if (not (tblsearch "LAYER" "dim"))
; (command "layer" "m" "dim" "c" "5" "dim" "")
; )
;(command "layer" "s" "dim" "")
;(setq arwtype (getvar "dimblk"))
;(setvar "dimblk" ".")

;Edit the line below to change circle radius
(setq rad (* (getvar "dimscale") 0.125))

(setq oldts (getvar "textsize"))

;Edit the line below to change text height
;(setq ts (*(getvar "textsize")1.0))
;JT - Use dimscale instead - not all text has a textsize
(setq ts (* (getvar "dimscale") 0.125))
(setq x (getpoint "\nStart point of Arrow: ")
y (getpoint x "\nCenter of Balloon: ")
dis (distance x y)
ang (angle x y)
yy (polar x ang (- dis rad))); get leader angle, length of leader to edge of circle

; JT - Draws the leader as a single entity
(command "leader" x yy "" "" "n")

;Draws the leader as separate entities
;(command "dim" "leader" x yy)
(command)
;Used to exit DIM command line
;(command "exit")
;Create new layer for circle and text
;(if (not (tblsearch "LAYER" "dim-ct"))
;(command "layer" "m" "dim-ct" "c" "7" "dim-ct" "")
;)
;(command "layer" "s" "dim-ct" "")
; JT - Cardinal Rule: never change entity color, only change layer color
; Make a new layer with color 7 if you need different pen widths
;(setvar "cecolor" "7")
(command "circle" y rad)
(clnu)
(princ)
)

(defun clnu (/ num pt)
(setq incr (input_integer "\nEnter number: " incr))
;JT - Cardinal Rule: never change entity color, only change layer color
; Make a new layer with color 7 if you need different pen widths
; (setvar "cecolor" "7")
(command "text" "m" y ts "0" (itoa incr))
(setq incr (+ incr 1))
(setvar "cecolor" "bylayer")
(command "layer" "s" cl "")
; JT - Text size and dimblk not needed
; (setvar "textsize" oldts)
; (setvar "dimblk" arwtype)
; JT - resets custom arrow size
(setvar "dimasz" arsize)
(setvar "orthomode" om)
(setvar "osmode" os)
(setvar "regenmode" 1)
(setvar "cmdecho" 1)
(setq *error* olderr)
)
(princ)

[asteria]

Merhaba otokoc,

Foruma zaman ayırarak burada sürekliliği olan bir dokümentasyon oluşturduğunuz için teşekkür etmek istedim...kolaylıklar diliyorum...

İyi çalışmalar...

[otokoc]

Orijinal metin asteria tarafından gönderilmiş

Merhaba otokoc,

Foruma zaman ayırarak burada sürekliliği olan bir dokümentasyon oluşturduğunuz için teşekkür etmek istedim...kolaylıklar diliyorum...

İyi çalışmalar...

rica ederim...keşke herkes sizin gibi düşünse..........

[asteria]

....büyük ihtimalle hiçbir zaman 'herkes' ce takdir edilen diye bir 'emek' olmayacak...

Ama herzaman aralardan birileri çıkıp sizi farkedecek ve takdir edecek....aradaki rakamsal yüzde farkı gerçekten önemli değil...ama nitelik çok önemli...

..onlar insanlığın geleceğini şekillendiren....fark edenler ve farkı yaratırken fark edilenler...

İyi çalışmalar

[otokoc]

Topla.lsp
;çizimdeki toplam ARC ve LINE uzunluklarını hesaplar;
(defun c:top(/ temp sset ssl nsset i topyay topciz basaci sonaci boy bas son alfa)
(prompt "\nUzunlukları Toplanacak Yay ve Doğruları Seçiniz.")
(setq sset (ssget))
(if (null sset)
(progn
(princ "\nBişey şeçilmedi.")
(exit)
)
)
;; Validate selection set
(setq ssl (sslength sset)
nsset (ssadd))
(princ "\n<Seçilen objeler inceleniyor...>")
(while (> ssl 0)
(setq temp (ssname sset (setq ssl (1- ssl))))
(if (or
(= (cdr (assoc 0 (entget temp))) "LINE")
(= (cdr (assoc 0 (entget temp))) "ARC")
(= (cdr (assoc 0 (entget temp))) "CIRCLE")
)
(ssadd temp nsset)
)
)
(setq ssl (sslength nsset)
sset nsset
)
(print ssl)
(princ " ARC, CIRCLE ve LINE objesi bulundu.")

(setq i 0 topyay 0 topciz 0)
(repeat ssl
(setq elist (entget (ssname sset i)))
(cond
((= (cdr (assoc 0 elist)) "ARC")
(setq yaricap (cdr (assoc 40 elist))
alfa (- (cdr (assoc 51 elist))
(cdr (assoc 50 elist))
)
)
(if (< alfa 0.0) (setq alfa (+ alfa (* 2 PI))))
(setq boy (* alfa yaricap)
topyay (+ topyay boy)
)
);ARC
((= (cdr (assoc 0 elist)) "CIRCLE")
(setq yaricap (cdr (assoc 40 elist))
boy (* 2 PI yaricap)
topyay (+ topyay boy)
)
);CIRCLE

((= (cdr (assoc 0 elist)) "LINE")
(setq bas (cdr (assoc 10 elist))
son (cdr (assoc 11 elist))
boy (distance bas son)
topciz (+ topciz boy)
)
);LINE
);cond
(setq i (1+ i))
)
(princ (strcat "\nYaylar = " (rtos topyay 2 2) " m. Doğrular = " (rtos topciz 2 2) " m. Toplam Uzunluk = " (rtos (+ topciz topyay) 2 2) " m"))
(princ)
);defun
(princ "\n © 2000 Derya KILIÇ\n")
(princ "\ntopla.lsp yüklendi. TOP komutu ile çalıştırınız.")
(princ)



Bu lisp Derya KILIÇ tarafından hazırlanmıştır

[arjuna]

merhaba
autolisp i autocad içinde bir editörde mi yazacağım ?

elinize gözünüze sağlık..çok iyi bir çalışma olmuş..
teşekkür ederim..

[nihat]

Çok TeŞekkÜrler Elİne SaĞlik

[ayasofya]

sayın koç mühendislik

size teşekkür ettik zamanında

ancak bir daha mesajınız altına reklam koyarsanız veya animated gif koyarsanız erişiminizi engelleyeceğim.

Amaç reklam mı yapmak yardımcı mı olmak.

yarcdımcı olmaksa teşekkürler ama animated gif çok gerekli değilse sistemi yavaşlatıyor. az ya da çok bir yer kaplıyor ve açıkçası arzu etmiyoruz.

yardımcı olacaksanız tamam ama bu reklamler ne ola ki.???

allah allah.

[semko]

Edit Box a girilen deger sayı oldugunda bir problemle karsılasmadıgım bir projem var
Fakat ben Edit Box a yazı yazıp bunu text olarak autocad ekranına aktarmak istiyorum

[omr]

(command "text" ....) seklinde birsey mi lazim size? yani editbox la girilen degeri bir degiskene atadiniz diyelim, onu text komutuyla ekrana girmek icin boyle yapardim ben.
(command "text" koordinat yukseklik rotasyon degisken)
(edit boxla ugrasan birisi icin fazla kolay bi cevap bu, soruyu anlamamis olabilirim)

[omr]

komut satirina vlisp yazınca bir editor cikiyorsa (2000'den sonraki programlarda var sanirim) o editorde yazarsiniz. Parantezleri unutup cildirmanizi engeller.
Ya da herhangi bir text editorde, notepadde yazip .lsp uzantisiyla kaydedersiniz.
Ya da internetten bir lisp editoru bulursunuz.(? bilemiyorum aslinda)
Ya da VBA' ya gecer, ve her diyalog kutusu icin program yazmaktan kurtulursunuz

[_nokta_]

Tam 3 gündür bu Sn. otokoc adlı üyenin Autolisp derslerine baktım ya dedim ben bu örnekleri bir yerden hatırlıyorum ama nerden?
Arşivimi karıştırdım sonunda buldum:
Doç. Dr. Kerim Çetinkaya ve Hüdayim Başak 'a ait Autolisp ve DCL ile programla adlı kitaptan aynen alınmıştır.
Yazının hiç bir yerinde Alıntıdır yazısını göremedim.Acaba yazılar kitaba bakılarakmı yazıldı diye düşündüm ama setq değişkenine verilen pt1 değeri bile aynı.Kitap kopyalanmış.
Yazı tabiki çok faydalı Yönetimden Alıntıdır yazısını eklemesi bekliyorum.