Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
;*Sara ;Crtanje sare na vratima (command "ucs" "w") (setq pt1 (getpoint "Po etak crtanja Klik: ")) ;(setq pt2 (getpoint pt1 "Kraj linije: ")) ;(setq pt3 (getpoint pt2 "Kraj linije: ")) (setq Duz (getreal "Dužina vrata: ")) (setq Sir (getreal "Širina vrata: ")) (setq Rast (getreal "Razmak: ")) (setq pt2 (list (+(car pt1) Duz) (cadr pt1))) (setq pt3 (list (car pt2) (+(cadr pt2) Sir))) (setq pt4 (list (car pt1) (cadr pt3))) (setq pt5 (list(+(car pt1) Rast) (+(cadr pt1) Rast))) (setq pt6 (list(-(car pt2) Rast) (+(cadr pt2) Rast))) (setq pt7 (list(-(car pt3) Rast) (-(cadr pt3) Rast))) (setq pt8 (list(+(car pt4) Rast) (-(cadr pt4) Rast))) (setq konst (/(distance pt6 pt7) 332.029)) (setq razmak1 (* konst 45.0218)) (setq pt9 (list(+(car pt5) razmak1) (cadr pt5))) (setq pt10 (list (car pt9) (cadr pt8))) (setq razmak1 (/(distance pt6 pt7) 2)) (setq pt11 (list (car pt5) (-(cadr pt8) razmak1))) (setq razmak1 (* konst 152.77)) (setq razmak2 (* konst 5.75)) (setq pt12 (list(-(car pt10) razmak1) (-(cadr pt10) razmak2))) (setq pt13 (list(-(car pt9) razmak1) (+(cadr pt9) razmak2))) (setq razmak1 (* konst 21.42)) (setq razmak2 (* konst 83.94)) (setq pt14 (list(-(car pt10) razmak1) (-(cadr pt10) razmak2))) (setq pt15 (list(-(car pt9) razmak1) (+(cadr pt9) razmak2))) (setq razmak1 (* konst 147.0182)) (setq pt16 (list(+(car pt11) razmak1) (cadr pt11))) (setq razmak1 (* konst 152.77)) (setq pt17 (polar pt12 (angle pt12 pt6) razmak1)) (setq pt18 (polar pt13 (angle pt13 pt7) razmak1)) (setq OSM (getvar "osmode")) (command "osmode" "0") (command "Layer" "s" "0" "" ) (command "PLINE" pt1 pt2 pt3