Predmet:Ziva ograda
Geodetski prikaz zive ograde
PreuzmiIzvorni kôd (Lisp):*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)
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.