Predmet:Masinska pozicija
Masinska pozicija
PreuzmiIzvorni kôd (Lisp):(command "Layer" "s" "0" "")
(setq V (getreal "Mjerilo 1:X: "))
(setq B (/ 0.5 V))
(setq txt "a")
(while (/= txt "")
(setq txt (getstring "Poz: "))
(if (/= txt "")
(progn
(setq pt1 (getpoint "Po
etak linije: "))
(setq pt2 (getpoint pt1 "Kraj linije: "))
(setq l (* (strlen txt) (/ 4 V)))
(if (or (> (car pt1) (car pt2)))
(progn
(setq pt3 (list (- (car pt2) l) (cadr pt2)))
(setq
pt4 (list (- (car pt2) (/ l 2)) (+ (cadr pt2) (/ 1.5 V)))
)
(setq ang (angle pt1 pt2))
(setq pt5 (polar pt1 ang 0.5))
)
(progn
(setq pt3 (list (+ (car pt2) l) (cadr pt2)))
(setq
pt4 (list (+ (car pt2) (/ l 2)) (+ (cadr pt2) (/ 1.5 V)))
)
(setq ang (angle pt1 pt2))
(setq pt5 (polar pt1 ang 0.5))
)
)
)
)
(command "Style" "arial" "Arial" "0" "1" "0" "N" "N")
(command "PLINE" pt1 "W" B "" pt5 "w" 0 "" pt2 "w" B "" pt3 "")
(command "TEXT" "C" pt4 (/ 4 V) 0 txt)
(command "DONUT" 0 B pt1 "")
(setvar "PLINEWID" 0)
(command "Style" "STANDARD" "" "" "" "" "" "" "N")
) ;progn
);if
);while
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.