defun C:eksport ()
(SETVAR "OSMODE" 0)
(setq F (OPEN (GETFILED "Sacuvaj" "g:/" "txt" 1) "w"))
(setq SSS (SSGET (list (cons 0 "POINT") (cons 8 "Detaljne_tacke"))))
(setq SSSL (SSLENGTH SSS))
(setq CONT 0)
(repeat sssl
(setq ENAME3 (SSNAME SSS CONT))
(setq PPP (ENTGET ENAME3 '("Milan")))
(setq COORD (CDR (ASSOC 10 (CDR PPP))))
(setq X (CAR COORD))
(setq Y (CADR COORD))
(setq Z (CADDR COORD))
(setq NUMTXT (CDR (CADR (CAR (CDR (ASSOC -3 (CDR PPP)))))))
(WRITE-LINE (STRCAT NUMTXT "," (RTOS X 2 3) "," (RTOS Y 2 3)"," (RTOS Z 2 3)) F)
(setq CONT (1+ CONT))
);_end repeat
(CLOSE F)
(alert "Gotovo!")
)
1 , 7550478.101 , 4945540.066 , 72.56
10 , 7550485.716 , 4945515.14 , 73.47
100 , 7550526.529 , 4945458.405 , 78.121
101 , 7550530.971 , 4945452.037 , 78.027
102 , 7550530.579 , 4945451.796 , 78.097
103 , 7550532.556 , 4945450.007 , 78.201
104 , 7550532.077 , 4945449.761 , 78.229
105 , 7550533.835 , 4945447.392 , 78.425
106 , 7550532.768 , 4945447.153 , 78.45
107 , 7550534.469 , 4945444.179 , 78.647
108 , 7550533.453 , 4945443.098 , 78.805
109 , 7550534.099 , 4945441.779 , 78.838
11 , 7550483.956 , 4945514.682 , 73.564
110 , 7550533.406 , 4945439.933 , 79.059
111 , 7550531.335 , 4945437.153 , 79.283
112 , 7550529.983 , 4945438.052 , 79.401
113 , 7550529.713 , 4945436.949 , 79.421
114 , 7550527.222 , 4945437.342 , 80.178
115 , 7550523.734 , 4945433.223 , 80.636
116 , 7550525.315 , 4945433.815 , 80.392
117 , 7550524.785 , 4945432.008 , 80.26
118 , 7550526.185 , 4945433.192 , 79.959
119 , 7550527.87 , 4945433.204 , 79.789
12 , 7550478.939 , 4945514.299 , 73.632
.
.
.
.
1,7550478.101,4945540.066,72.56
2,7550483.135,4945537.879,72.475
3,7550486.67,4945538.48,72.659
4,7550481.461,4945529.178,72.851
5,7550479.765,4945528.411,73.061
6,7550485.063,4945524.219,73.018
7,7550487.326,4945525.985,73.027
8,7550487.859,4945523.472,73.118
9,7550483.759,4945522.294,73.098
10,7550485.716,4945515.14,73.47
11,7550483.956,4945514.682,73.564
12,7550478.939,4945514.299,73.632
13,7550473.375,4945511.98,73.871
14,7550465.426,4945508.804,74.313
15,7550466.095,4945507.922,74.497
16,7550468.645,4945507.781,74.738
17,7550468.716,4945503.594,74.815
18,7550466.162,4945503.536,74.781
19,7550465.11,4945500.01,74.895
20,7550465.893,4945499.035,75.059
21,7550465.964,4945497.009,75.198
.
.
.