*Ziva
Ograda
(command "Layer" "s" "Ograde" "")
(setq pt1 (getpoint "Po
etak linije: "))
(setq pt2 (getpoint pt1 "Kraj linije: "))
(setq ang (angle pt1 pt2))
(setq pt3 (polar pt1 ang +10))
(setq ang1 (+ ang 1.570796))
(setq pt4 (polar pt3 ang1 +0.5))
(setq duz1 (distance pt1 pt3))
(setq duz (- (distance pt1 pt2) 20))
(setq OSM (getvar "osmode"))

(command "LINE" pt1 pt2 "")
(command "osmode" "0")
(command "autosnap" 1)
(command "circle" pt4 0.5)
(while (< duz1 duz)
  (setq pt3 (polar pt3 ang +10))
  (setq pt4 (polar pt3 ang1 -0.5))
  (setq duz1 (distance pt1 pt3))
  (command "circle" pt4 0.5)


  (setq pt3 (polar pt3 ang +10))
  (setq pt4 (polar pt3 ang1 +0.5))
  (setq duz1 (distance pt1 pt3))
  (command "circle" pt4 0.5)
)					;While 

(command "osmode" OSM)