   Ŀ
                                                                          
              ACAD'te AutoLisp ile                                          
                                  Yrtklar izme                          
                                                 - Hasan ada -         
   




   Mimari ve betonarme projelerinde ska kullanlan, deme ve perdeler
   zerindeki yrtk, boluklarn simgesel gsterimlerini kullanc
   verilerini deerlendirerek izen, bolca nokta hesaplamal bir AutoLisp
   fonksiyonu.





;  SPACE.LSP
;  Hasan ADA 1991

(defun C:SPACE(ara en boy stpt 1pt 2pt 3pt fstpt f1pt f2pt f3pt)

   (setq ara 0.05)                          ; boluk snr ve sembol
                                              ; arasndaki mesafe (istee gre
                                              ; ayarlanabilir )
   (setq en (getreal "Boluk eni :"))       ; boluk x mesafesi
   (setq boy (getreal "Boluk boyu :"))     ; boluk y mesafesi
   (setq stpt (getpoint "Sol alt ke :"))  ; konum noktas
   (setq 1pt (polar stpt (/ pi 2) boy))     ; sol st ke
   (setq 2pt (polar 1pt 0 en))              ; sa st ke
   (setq 3pt (polar stpt 0 en))             ; sa alt ke
   (setq fstpt (polar stpt 0 ara))          ; sembol keleri
   (setq fstpt (polar fstpt (/ pi 2) ara))
   (setq f1pt (polar fstpt (/ pi 2) (- boy (* 2 ara))))
   (setq f2pt (polar f1pt 0 (- en (* 2 ara))))
   (setq f3pt (polar f1pt 0 (/ en 4)))
   (setq f3pt (polar f3pt 4.712389 (/ en 4)))  ; 4.712389 Rad = 270 Deg
   (command "pline" fstpt f1pt f2pt f3pt "C")  ; sembol izimi
   (command "pline" stpt 1pt 2pt 3pt "C")      ; boluk izimi
)