Etiketler

AutoCAD (54) bedava (46) Resim (33) Dosya (32) program (21) Ziyaretçi Defteri (20) excel (18) asgbookphp (16) Güncelleme (15) Şablon (15) Qbasic (14) php (14) Eğitim (13) Nasıl yapılır (13) online (13) Freeware (12) PHP script (12) Fotoğraf (11) Kaynak kod (10) SolidWorks (10) Dos (9) Photoshop (9) VBA (9) Visual Basic (9) ürünler (9) E-book (8) tutorial (6) Ders (5) Word (5) Lisp (4) Programlama (4)

16 Ocak 2015 Cuma

Türk Bayrağı çizen AutoLisp

AutoCAD'de verilen bayrak en'ine uygun Türk Bayrağı çizen AutoLisp kodları.

Kodları AutoCAD'e yüklemek için APPLOAD koutunu kullanın. Açılan pencerede lisp dosyasını seçin LOAD tıklayın. Komut satırından TC komutu ile Türk Bayrağı çizilir.

AutoLisp hakkında detaylı bilgi için AutoLisp ile programlama: Orijine zumla sayfama bakınız.

Lisp dosyası: turk_bayragi.lsp 3.45 KB



Kaynak kodları:

# Türk Bayrağı Çizen AutoLisp
# KOMUT: TC
# AutoCAD'e yüklemek için APPLOAD komutunu kullanın ve bu dosyayı seçin
# AutCAD komut satirinda TC komutu ile bayrak çizilir.
# 16/01/2015
# Kodlar omrdrl adlı forum kullanıcısından alıntıdır
#
(defun c:TC ()
(setq n (getreal "\nBayrak eni? (Birim): ")
o (getpoint "\Bayragin sol alt kose noktasini seciniz. ")
x (car o) y (cadr o)
)
(entmake
(list
(cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 67 0) (cons 100 "AcDbPolyline")
(cons 90 4) (cons 70 1) (cons 43 0.0) (cons 38 0.0) (cons 39 0.0)
(cons 10 (list (+ x (* n 0.0)) (+ y (* n 0.0)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
(cons 10 (list (+ x (* n 1.5)) (+ y (* n 0.0)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
(cons 10 (list (+ x (* n 1.5)) (+ y (* n 1.0)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
(cons 10 (list (+ x (* n 0.0)) (+ y (* n 1.0)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
)
)
(entmake
(list
(cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 67 0) (cons 100 "AcDbPolyline")
(cons 90 4) (cons 70 0) (cons 43 0.0) (cons 38 0.0) (cons 39 0.0)
(cons 10 (list (+ x (* n 0.0)) (+ y (* n 0.0)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
(cons 10 (list (+ x (* n -0.0333333)) (+ y (* n 0.0)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
(cons 10 (list (+ x (* n -0.0333333)) (+ y (* n 1.0)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
(cons 10 (list (+ x (* n 0.0)) (+ y (* n 1.0)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
)
)
(entmake
(list
(cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 67 0) (cons 100 "AcDbPolyline")
(cons 90 2) (cons 70 1) (cons 43 0.0) (cons 38 0.0) (cons 39 0.0)
(cons 10 (list (+ x (* n 0.71125)) (+ y (* n 0.633692)))) (cons 40 0.0) (cons 41 0.0) (cons 42 3.45011) (cons 91 0)
(cons 10 (list (+ x (* n 0.71125)) (+ y (* n 0.366308)))) (cons 40 0.0) (cons 41 0.0) (cons 42 -2.60862) (cons 91 0)
)
)
(entmake
(list
(cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 67 0) (cons 100 "AcDbPolyline")
(cons 90 10) (cons 70 1) (cons 43 0.0) (cons 38 0.0) (cons 39 0.0)
(cons 10 (list (+ x (* n 0.881079)) (+ y (* n 0.5)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
(cons 10 (list (+ x (* n 0.93446)) (+ y (* n 0.573473)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
(cons 10 (list (+ x (* n 0.848088)) (+ y (* n 0.545409)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
(cons 10 (list (+ x (* n 0.794706)) (+ y (* n 0.618882)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
(cons 10 (list (+ x (* n 0.794706)) (+ y (* n 0.528064)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
(cons 10 (list (+ x (* n 0.708333)) (+ y (* n 0.5)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
(cons 10 (list (+ x (* n 0.794706)) (+ y (* n 0.471936)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
(cons 10 (list (+ x (* n 0.794706)) (+ y (* n 0.381118)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
(cons 10 (list (+ x (* n 0.848088)) (+ y (* n 0.454591)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
(cons 10 (list (+ x (* n 0.93446)) (+ y (* n 0.426527)))) (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
)
)
)

Hiç yorum yok:

Yorum Gönder

Related Posts Plugin for WordPress, Blogger...