(defun c:yildiz (/ c r k p)
  (setvar "cmdecho" 0) (command "undo" "group")
  (setq c (getpoint "\nYıldız merkezini seçiniz : ")
        r (getreal "\nYarıçapı giriniz :")
        k (* 1.9021 r))
  (command "_.pLine"
           (setq p (polar c 4.08407 r))
           (setq p (polar p 0.628319 k))
           (setq p (polar p pi k))
           (setq p (polar p 5.65487 k))
           (polar p 1.88496 k) "c")
  (command "undo" "e") (prin1)
)

(defun c:yildiz (/ c r k p)
  (setvar "cmdecho" 0) (command "undo" "group")
  (setq c (getpoint "\nYıldız merkezini seçiniz : ")
        r (getreal "\nYarıçapı giriniz :")
        k (* 1.9021 r))
  (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 (car (setq p (polar c 4.08407 r))) (cadr p)))
      (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
      (cons 10 (list (car (setq p (polar p 0.628319 k))) (cadr p)))
      (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
      (cons 10 (list (car (setq p (polar p pi k))) (cadr p)))
      (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
      (cons 10 (list (car (setq p (polar p 5.65487 k))) (cadr p)))
      (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)
      (cons 10 (list (car (setq p (polar p 1.88496 k))) (cadr p)))
      (cons 40 0.0) (cons 41 0.0) (cons 42 0.0) (cons 91 0)))
    (command "undo" "e") (prin1)
)

Sub Dikdortgen()
With ThisDrawing.Utility
    n1 = .GetPoint(, "Birinci köşe:")
    n3 = .GetPoint(n1, "Çapraz karşı köşe:")
   
    n2 = n1
    n2(0) = n3(0) '2. noktanın x'i = 3. noktanın X
   
    n4 = n1
    n4(1) = n3(1) '4. noktanın Y'si = 3. noktanın Y'si
End With
With ThisDrawing.ModelSpace
    Set lineObj = .AddLine(n1, n2)
    Set lineObj = .AddLine(n2, n3)
    Set lineObj = .AddLine(n3, n4)
    Set lineObj = .AddLine(n4, n1)
End With
End Sub

;| Dynamic Rubber Band Sample Code                                            |
|                                  Prepared by: M. Şahin Güvercin (ProhibiT) |
|                                       19.02.2021 - www.cizimokulu.com      |;
(defun c:srkd (/ p0 p1 p2 x0 x1 x2 y0 y1 y2)
  (setq p1 (getpoint) x1 (car p1) y1 (cadr p1)) ; Başlangıç köşe noktası
  (while (/= (car (setq p (grread T 4 1))) 3) ; İmleç konumu ve rumunun alınması
    (setq p2 (cadr p) x2 (car p2) y2 (cadr p2)) ; İmleç konumunun koordinatları
; Döngüye yeni girilmişse p0 (imlecin bir önceki konumu) tanımsız (nil) dir
; p0 T ise daha önce çizilen vektörler (0 rengi kullanılarak) silinip,
; p2 ve p2 köşelerine göre yeni vektörler çizilir.
    (if p0 (grvecs (list 0 (list x1 y1) (list x0 y1) (list x0 y1) (list x0 y0)
                         (list x0 y0) (list x1 y0) (list x1 y0) (list x1 y1)
                         8 (list x1 y1) (list x2 y1) (list x2 y1) (list x2 y2)
                         (list x2 y2) (list x1 y2) (list x1 y2) (list x1 y1)))
; p0 nil ise (döngüye ilk girişte) p1 ve p2 köşelerine göre vektörler cizilir.
; p0, x0 ve y0 değişkenleri yukarıda "Local Variable Listesine" yazılmazsa,
; fonksiyonun daha sonra çalıştırıldığında, bir önceki kullanımdan kalan p0
; nil olmadığı için döngüye ilk girişi olduğunu bilemeyecektir...
; Herhangi bir hataya neden olmayacağı, olmayan vektörleri silse ne olur...
; diye düşünmemek, fonksiyonun işleyişini sağlam tutmak gerek.
      (grvecs (list 8 (list x1 y1) (list x2 y1) (list x2 y1) (list x2 y2)
                    (list x2 y2) (list x1 y2) (list x1 y2) (list x1 y1))))
; Burada =, eq veya equal (Lisp'te bu üçü de birbirinden farklıdır) gibi
; hiç bir karşılaştırma kullanılmadan, doğrudan doğruya "(if p0" kullanıldığına,
; "(progn" gibi gruplama olmadığına dikkat etmekte fayda var.
; döngünün sonunda İmleç konumu p0 a aktarılarak, döngünün bir sonraki adımında
; imlecin eski yeri olarak kullanılması sağlanır.
    (setq p0 p2 x0 (car p0) y0 (cadr p0))) (redraw)
; Mouse'un sol düğmesine basılarak p2 noktası nihai olarak seçilerek,
; Ekrandaki sürükleme işlemi sonlanınca, geçici (AutoCAD Çizim Nesnesi olmayan)
; vektörleri (redraw) ile siliniyor. Bunu da; Nasılsa üzerlerine kalıcı
; (AutoCAD çizim nesneleri) gelecek görünmezler... diye de düşünmemek gerek.
  (entmake (list (cons 0 "Line") (cons 10 (list x1 y1)) (cons 11 (list x2 y1))))
  (entmake (list (cons 0 "Line") (cons 10 (list x2 y1)) (cons 11 (list x2 y2))))
  (entmake (list (cons 0 "Line") (cons 10 (list x2 y2)) (cons 11 (list x1 y2))))
  (entmake (list (cons 0 "Line") (cons 10 (list x1 y2)) (cons 11 (list x1 y1))))
  (princ))