admin (28.11.2017 19:07 GMT)

Alıntı

---

ProhibiT :
Kanunla tanımlanan standart ölçülere uygun Türk Bayrağı çizen Lisp.
bir zamanlar ihtiyaçtan yazmıştım. yukarıda verilen oranlarla uygunluğunu kontrol ettim ve bazı arkadaşlarımızın işine yarayabilir düşüncesiyle paylaşmak istedim.

Kod:

(defun c:TC ()
  (setq n (getreal "\nBayrak eni? (Birim): ")
o (getpoint "\Bayrağın sol alt köşe noktasını seçiniz. ")
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)
    )
  )
)

Zemini Kırmızı Solid, Ay ve Yıldızı Beyaz Solid Hatch ile boyamak size kalıyor :)
Kolay gelsin...

---