27.05.2020 21:23    

(defun c:gr()
(setq s1(getpoint "\n Sol Alt Saçak Noktasını Giriniz"))
(setq s2(getpoint "\n Sağ Alt Saçak Noktasını Giriniz"))
(setq s3(getpoint "\n Sağ Üst Saçak Noktasını Giriniz"))
(setq s4(getpoint "\n Sol Üst Saçak Noktasını Giriniz"))


(setq s11 (polar s1(angtof "270") 1000))
(setq s111 (polar s11(angtof "270") 12))
(setq s22 (polar s2(angtof "270") 1000))
(setq s222 (polar s22(angtof "270") 12))

(setq sags(distance s2 s3))
(setq üsts(distance s3 s4))
(setq sols(distance s4 s1))
(setq alts(distance s2 s1))

(setq zemin(+ sags üsts sols alts))

(setq sa22 (polar s22(angtof "0") 200))
(setq sa222 (polar s222(angtof "0") 200))
(setq s33(polar sa22(angtof "0") sags))
(setq s333(polar sa222(angtof "0") sags))

(setq sa33 (polar s33(angtof "0") 200))
(setq sa333 (polar s333(angtof "0") 200))
(setq s44(polar sa33(angtof "0") üsts))
(setq s444(polar sa333(angtof "0") üsts))

(setq sa44 (polar s44(angtof "0") 200))
(setq sa444(polar s444(angtof "0") 200))
(setq s55 (polar sa44(angtof "0") sols))
(setq s555 (polar sa444(angtof "0") sols))

(setq b1(getpoint "\n aşağı cephe sol bina Noktasını Giriniz"))
(setq b2(getpoint "\n aşağı cephe sağ bina Noktasını Giriniz"))
(setq b22(getpoint "\n sağ cephe aşağı bina Noktasını Giriniz"))
(setq b3(getpoint "\n sağ cephe ykarı bina Noktasını Giriniz"))
(setq b33(getpoint "\n üst cephe sağ bina Noktasını Giriniz"))
(setq b4(getpoint "\n üst cephe sol bina Noktasını Giriniz"))
(setq b44(getpoint "\n sol cephe üst bina Noktasını Giriniz"))
(setq b11(getpoint "\n sol cephe alt bina Noktasını Giriniz"))


(setq sb(getint "\n sübasman yüksekliğini Giriniz"))
(setq cb(getint "\n cephe yüksekliğini Giriniz"))

(setq obj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument obj))
(setq msp (vla-get-ModelSpace doc))
(setq yerlesim (vlax-3d-point 0 0 0))
(setq bl (vla-InsertBlock msp yerlesim "C:\Users\Hakan KARACALI\Desktop\cizim.dwg" 1 1 1 0))

(setq yükseklik(+ sb cb))
(setq s1111(polar s111(angtof "270") yükseklik))
(setq s5555(polar s555(angtof "270") yükseklik))

(setq sck1a(distance s1 b1))
(setq sck1b(distance s2 b2))
(setq sck2a(distance s2 b22))
(setq sck2b(distance s3 b3))
(setq sck3a(distance s3 b33))
(setq sck3b(distance s4 b4))
(setq sck4a(distance s4 b44))
(setq sck4b(distance s1 b11))

(setq sb111 (polar s111(angtof "0") sck1a))
(setq sb222 (polar s222(angtof "180") sck1b))
(setq sc222 (polar sb222(angtof "270") yükseklik))
(setq sc111 (polar sb111(angtof "270") yükseklik))

(setq sab222 (polar sa222(angtof "0") sck2a))
(setq sb333 (polar s333(angtof "180") sck2b))
(setq sac222 (polar sab222(angtof "270") yükseklik))
(setq sc333 (polar sb333(angtof "270") yükseklik))

(setq sab333 (polar sa333(angtof "0") sck3a))
(setq sb444 (polar s444(angtof "180") sck3b))
(setq sac333 (polar sab333(angtof "270") yükseklik))
(setq sc444 (polar sb444(angtof "270") yükseklik))


(setq sab444 (polar sa444(angtof "0") sck4a))
(setq sb555 (polar s555(angtof "180") sck4b))
(setq sac444 (polar sab444(angtof "270") yükseklik))
(setq sc555 (polar sb555(angtof "270") yükseklik))

(setq mx(/ sols 2))
(setq my(/ sols 6))
(setq mahyax(polar s11(angtof "0") mx))
(setq mahya1(polar mahyax(angtof "90") my))
(setq mahyay(polar s22(angtof "180") mx ))
(setq mahya2(polar mahyay(angtof "90") my))

(setq sagmahyax(polar sa22(angtof "0") mx))
(setq mahya3(polar sagmahyax(angtof "90") my))
(setq sagmahyay(polar s33(angtof "180") mx ))
(setq mahya4(polar sagmahyay(angtof "90") my))


(setq üstmahyax(polar sa33(angtof "0") mx))
(setq mahya5(polar üstmahyax(angtof "90") my))
(setq üstmahyay(polar s44(angtof "180") mx ))
(setq mahya6(polar üstmahyay(angtof "90") my))

(setq solmahyax(polar sa44(angtof "0") mx))
(setq mahya7(polar solmahyax(angtof "90") my))
(setq solmahyay(polar s55(angtof "180") mx ))
(setq mahya8(polar solmahyay(angtof "90") my))

(command "line" s11 s111 s222 s22 s11 "")
(command "line" sa22 sa222 s333 s33 sa22 "")
(command "line" sa33 sa333 s444 s44 sa33 "")
(command "line" sa44 sa444 s555 s55 sa44 "")
(command "line" sb111 sc111 "")
(command "line" sb222 sc222 "")
(command "line" sab222 sac222 "")
(command "line" sb333 sc333 "")
(command "line" sab333 sac333 "")
(command "line" sb444 sc444 "")
(command "line" sab444 sac444 "")
(command "line" sb555 sc555 "")
(command "line" s1111 s5555 "")
(command "line" s11 mahya1 mahya2 s22 "")
(command "line" sa22 mahya3 mahya4 s33 "")
(command "line" sa33 mahya5 mahya6 s44 "")
(command "line" sa44 mahya7 mahya8 s55 "")


)