« previous next »
Pages: [1] |   Go Down

Author Topic: Help with lisp : Convert *.txt file to leica *.gsi16  (Read 4305 times)

0 Members and 1 Guest are viewing this topic.

pedroantonio

  • Guest
Help with lisp : Convert *.txt file to leica *.gsi16
« on: April 12, 2019, 06:10:14 AM »
Hi i find a lisp code to convert a polyline to   leica *.gsi16  file and isert numbers on polyline vertex. I want to convert this code. I want to give  a txt file with P,X,Y,Z and convert it to gsi file and i dont want to select polyline and insert numbers . I appload a txt file and a gsi file.My total station is the TCR805.
And if in my txt file i dont have elevetion z for example
Quote
1,304135.864,4231008.896,87.774,

Then add elevetion 100 not 0

And something else

Code: [Select]
in my gsi files  i have 
*110014+00000000000000S3 81..10+0000000309391415 82..10+0000004241392796 83..10+0000000000104304

and in this lisp code i have
*110014+00000000000000S3 81...0+0000000309391415 82...0+0000004241392796 83...0+0000000000104304

Code - Auto/Visual Lisp: [Select]
  1. ;;;Οπξγπΰμΰ ηΰοθρθ κξξπδθνΰς ςξχεκ οξλθλθνθθ β τΰιλ ρ 3 ηνΰκΰμθ β τξπμΰςε LEICA GSI16
  2. ;;;δεκΰαπό 2015
  3. ;;;Εγξπξβ Ν.Β.
  4.  
  5. ;ss_nab νΰαξπ ξαϊεκςξβ
  6. ;sp_vrtx ροθρξκ ςξχεκ
  7.  
  8. (defun c:exp_gsi ( / num count_g count sp_vrtx ss_nab fl_name ff fl ok pref N x y z txt)
  9.   (princ "Βϋαεπθςε οξλθλθνθθ δλ βϋνξρΰ")
  10.  (setq ss_nab (ssget'((0 . "LWPOLYLINE"))))
  11.   (setq N 0)
  12.     (setq z (rtos 0))
  13.  (setq fl_name (getfiled "Ρξυπΰνενθε τΰιλΰ" (getvar "DWGPREFIX") "gsi" 1))
  14.  
  15.  (if(= fl_name nil)(alert "Νεβϋαπΰν τΰιλ δλ ηΰοθρθ"))
  16.  
  17.  
  18.  (if(/= fl_name nil)(progn;σρλξβθε νΰ βϋαξπ τΰιλΰ
  19. (if (findfile fl_name)(setq ff 1)(setq ff 0));
  20.  
  21. (if ( = 1 ff)(progn;ερλθ τΰιλ ρσωερςβσςες
  22.    (initget "Δξοθρΰςό Οεπεηΰοθρό")
  23.   (setq ff(GETKWORD "\n&#916;&#944;&#957;&#957;&#971;&#953; &#964;&#944;&#953;&#955; &#963;&#950;&#949; &#961;&#963;&#969;&#949;&#961;&#962;&#946;&#963;&#949;&#962; &#946;&#971;&#945;&#949;&#960;&#952;&#962;&#949; &#948;&#949;&#953;&#961;&#962;&#946;&#952;&#949; [&#916;&#958;&#959;&#952;&#961;&#944;&#962;&#972;/&#927;&#949;&#960;&#949;&#951;&#944;&#959;&#952;&#961;&#972;]<&#916;&#958;&#959;&#952;&#961;&#944;&#962;&#972;>"))
  24.    (if (or(null ff)(= ff "&#916;&#958;&#959;&#952;&#961;&#944;&#962;&#972;")) (setq fl(open fl_name "a")))
  25.    (if(= ff "&#927;&#949;&#960;&#949;&#951;&#944;&#959;&#952;&#961;&#972;")(setq fl(open fl_name "w")))
  26.    ));&#954;&#958;&#957;&#949;&#966; &#963;&#961;&#955;&#958;&#946;&#952;&#63739; &#964;&#944;&#953;&#955; &#961;&#963;&#969;&#949;&#961;&#962;&#946;&#963;&#962;&#949;&#962;
  27.  
  28.  (if ( = 0 ff)(setq fl(open fl_name "w")));&#949;&#961;&#955;&#952; &#964;&#944;&#953;&#955; &#957;&#958;&#946;&#971;&#953;  
  29.  
  30.   (setq pref (getstring "\n&#914;&#946;&#949;&#948;&#952;&#962;&#949; &#959;&#960;&#949;&#964;&#952;&#954;&#961;: "))
  31.   (if (= pref nil)(setq pref "1"));end if
  32.  ; (setq ok (getint "\n&#914;&#946;&#949;&#948;&#952;&#962;&#949; &#954;&#958;&#955;&#952;&#967;&#949;&#961;&#962;&#946;&#958; &#951;&#957;&#944;&#954;&#958;&#946; &#959;&#958;&#961;&#955;&#949; &#951;&#944;&#959;&#63739;&#962;&#958;&#953; &#946; &#954;&#958;&#958;&#960;&#948;&#952;&#957;&#944;&#962;&#944;&#965;  <3>:"))
  33.   (if (= ok nil)(setq ok 3));end if
  34.   (setq count_g 0);&#947;&#955;&#958;&#945;&#944;&#955;&#972;&#957;&#971;&#953; &#961;&#967;&#949;&#962;&#967;&#952;&#954;
  35.    (repeat (SSLENGTH ss_nab); &#934;&#920;&#922;&#923;
  36.     (setq sp_vrtx(get-pline-list-vertext(ssname ss_nab N)))
  37.    (setq count 0)
  38.   (repeat(LENGTH sp_vrtx);&#966;&#952;&#954;&#955; &#959;&#958; &#962;&#958;&#967;&#954;&#944;&#956;
  39.           (setq pt_p (nth count sp_vrtx))
  40.    ; (setq x(distof(rtos(nth 1 pt_p)2 3)1))
  41. ;(setq y(distof(rtos(nth 0 pt_p)2 3)1))
  42.      
  43.           (setq x(to_gsi (nth 1 pt_p)))
  44.           (setq y(to_gsi (nth 0 pt_p)))
  45.    
  46.    ;(command "_point" pt_p "")
  47.    (entmake(list'(0 . "POINT")(cons 10 pt_p)'(8 . "&#946;&#971;&#957;&#958;&#961;")));end entmake
  48.    
  49.      ; (command "_TEXT" pt_p 0.5 "0" (strcat pref(itoa N) "-" (itoa(+ count 1))))
  50. ;;;    (command "_TEXT" pt_p 0.5 "0" (strcat pref "." (itoa(+ count_g 1))))
  51.     (setq txt(strcat pref "." (itoa(+ count_g 1))))
  53.     (list
  54.       (cons 0 "TEXT")
  55.       (cons 8 "&#946;&#971;&#957;&#958;&#961;")
  56.       (cons 10 pt_p)
  57.       (cons 11 pt_p)
  58.       (cons 40 0.5)
  59.       (cons 1 txt)
  60.       (cons 50 0)
  61.       (cons 7 "Standard")
  62.       (cons 71 0)
  63.       (cons 72 1)
  64.       (cons 73 0)
  65.     ))
  66.    
  67.   ; (setq x(nth 1 pt_p))
  68.   ; (setq y(nth 0 pt_p))
  69.  
  70.     ;&#951;&#944;&#959;&#952;&#961;&#972; &#946; &#964;&#944;&#953;&#955;
  71.     (setq num(strcat pref "." (itoa(+ count_g 1))))
  72.       (repeat (- 16(strlen num));&#948;&#958;&#945;&#944;&#946;&#955;&#949;&#957;&#952;&#949; &#957;&#963;&#955;&#949;&#953;
  73.     (setq num(strcat "0" num))
  74.     );&#954;&#958;&#957;&#949;&#966; &#948;&#958;&#945;&#944;&#946;&#955;&#949;&#957;&#952;&#63739; &#957;&#963;&#955;&#949;&#953;
  75.    
  76.       (princ
  77.         (strcat "*" (rtos (+ 110000 count_g 1) 2 0) "+" num)
  78.         fl)
  79.     (write-char 32 fl)(princ (strcat "81..." y) fl)(write-char 32 fl)(princ (strcat "82..." x) fl)(write-char 32 fl)(princ "83...0+0000000000000001" fl)(write-char 32 fl)(write-char 10 fl)
  80.          ; (setq num (+ num 1));&#952;&#957;&#954;&#960;&#949;&#956;&#949;&#957;&#962; &#959;&#952;&#954;&#949;&#962;&#958;&#946;
  81.           (setq count (+ count 1)); &#952;&#957;&#954;&#960;&#949;&#956;&#949;&#957;&#962; &#962;&#958;&#967;&#949;&#954;
  82.     (setq count_g (+ count_g 1)); &#947;&#955;&#958;&#945;&#944;&#955;&#972;&#957;&#971;&#953; &#952;&#957;&#954;&#960;&#949;&#956;&#949;&#957;&#962; &#962;&#958;&#967;&#949;&#954;
  83.                   );&#954;&#958;&#957;&#949;&#966; &#966;&#952;&#954;&#955;&#944; &#959;&#958; &#962;&#958;&#967;&#954;&#944;&#956;
  84.  ;(write-char 10 fl)
  85.   ;(prin1(strcat"&#927;&#949;&#960;&#952;&#956;&#949;&#962;&#960;: "(rtos (getvar "perimeter")2 0) " &#956;.") fl)(write-char 10 fl)
  86.   ;(prin1(strcat"&#916;&#958;&#959;. &#959;&#958;&#947;&#960;&#949;&#968;&#957;&#958;&#961;&#962;&#972;: "(rtos(*(sqrt(getvar "AREA"))(* 3.5 fdop))2 0) " &#954;&#946;.&#956;.") fl)(write-char 10 fl)
  87.      
  88.      
  89.      (SETQ N (+ N 1))
  90.      ); &#922;&#926;&#925;&#917;&#934; &#934;&#920;&#922;&#923;&#912;
  91.   ))
  92.    (close fl)
  93.   (setvar "cmdecho" 0)
  94.   (alert (strcat "&#941;&#954;&#961;&#959;&#958;&#960;&#962; &#946; &#964;&#944;&#953;&#955; " fl_name  " &#951;&#944;&#946;&#949;&#960;&#968;&#949;&#957;"))
  95.  
  96.   );end defun
  97.  
  98.  
  99. ;;; &#932;&#963;&#957;&#954;&#966;&#952;&#63739; &#946;&#958;&#951;&#946;&#960;&#944;&#969;&#944;&#949;&#962; &#962;&#949;&#954;&#961;&#962; &#967;&#952;&#961;&#955;&#944; &#946; &#964;&#958;&#960;&#956;&#944;&#962;&#949; GSI16
  100.  
  101. (defun to_gsi (num / text)
  102.  (if (>= num 0);&#967;&#952;&#961;&#955;&#958; &#959;&#958;&#955;&#958;&#950;&#952;&#962;&#949;&#955;&#972;&#957;&#958;&#949;
  103.   (progn
  104.   (setq text (rtos(* num 1000)2 0))
  105.   (repeat (- 16(strlen text));&#948;&#958;&#945;&#944;&#946;&#955;&#949;&#957;&#952;&#949; &#957;&#963;&#955;&#949;&#953;
  106.     (setq text(strcat "0" text))
  107.     );&#954;&#958;&#957;&#949;&#966; &#948;&#958;&#945;&#944;&#946;&#955;&#949;&#957;&#952;&#63739; &#957;&#963;&#955;&#949;&#953;
  108.   (setq text(strcat "0+" text))
  109.   ));&#954;&#958;&#957;&#949;&#966; &#963;&#961;&#955;&#958;&#946;&#952;&#63739; &#959;&#958;&#955;&#958;&#950;&#952;&#962;&#949;&#955;&#972;&#957;&#958;&#947;&#958; &#967;&#952;&#961;&#955;&#944;
  110.  
  111.   (if (< num 0);&#967;&#952;&#961;&#955;&#958; &#958;&#962;&#960;&#952;&#966;&#944;&#962;&#949;&#955;&#972;&#957;&#958;&#949;
  112.     (progn
  113.   (setq text (rtos(* num -1000)2 0))
  114.   (repeat (- 16(strlen text));&#948;&#958;&#945;&#944;&#946;&#955;&#949;&#957;&#952;&#949; &#957;&#963;&#955;&#949;&#953;
  115.     (setq text(strcat "0" text))
  116.     );&#954;&#958;&#957;&#949;&#966; &#948;&#958;&#945;&#944;&#946;&#955;&#949;&#957;&#952;&#63739; &#957;&#963;&#955;&#949;&#953;
  117.   (setq text(strcat "0-" text))
  118.   ));&#954;&#958;&#957;&#949;&#966; &#963;&#961;&#955;&#958;&#946;&#952;&#63739; &#958;&#962;&#960;&#952;&#966;&#944;&#962;&#949;&#955;&#972;&#957;&#958;&#947;&#958; &#967;&#952;&#961;&#955;&#944;
  119.   text
  120.   );end defun
  121.  
  122.  
  123.    
  124.  
  125.  
  126.   ;;; &#932;&#963;&#957;&#954;&#966;&#952;&#63739; &#946;&#958;&#951;&#946;&#960;&#944;&#969;&#944;&#949;&#962; &#961;&#959;&#952;&#961;&#958;&#954; &#962;&#958;&#967;&#949;&#954; &#959;&#958;&#955;&#952;&#955;&#952;&#957;&#952;&#952; (&#958;&#945;&#955;&#949;&#947;&#967;&#949;&#957;&#957;&#958;&#953; &#955;&#952;&#945;&#958; &#961;&#962;&#944;&#957;&#948;&#944;&#960;&#962;&#957;&#958;&#953;)
  127. ;;; &#914; &#954;&#944;&#967;&#949;&#961;&#962;&#946;&#949; &#959;&#944;&#960;&#944;&#956;&#949;&#962;&#960;&#944; &#964;&#963;&#957;&#954;&#966;&#952;&#952; &#959;&#949;&#960;&#949;&#948;&#944;&#949;&#962;&#961;&#63739; &#952;&#956;&#63739; &#959;&#960;&#952;&#956;&#952;&#962;&#952;&#946;&#944;, &#946;&#958;&#951;&#946;&#960;&#944;&#969;&#944;&#949;&#962;&#961;&#63739; &#961;&#959;&#952;&#961;&#958;&#954; &#952;&#951;
  128. ;;; &#948;&#946;&#963;&#965;&#956;&#949;&#960;&#957;&#971;&#965; (&#948;&#955;&#63739; &#958;&#945;&#955;&#949;&#947;&#967;&#949;&#957;&#957;&#958;&#953; &#959;&#958;&#955;&#952;&#955;&#952;&#957;&#952;&#952;) &#952;&#955;&#952; &#962;&#960;&#949;&#965;&#956;&#949;&#960;&#957;&#971;&#965; (&#948;&#955;&#63739; &#961;&#962;&#944;&#957;&#948;&#944;&#960;&#962;&#957;&#958;&#953;) &#946; &#962;&#958;&#956; &#959;&#958;&#960;&#63739;&#948;&#954;&#949;,
  129. ;;; &#946; &#954;&#958;&#962;&#958;&#960;&#958;&#956; &#958;&#957;&#952; &#961;&#958;&#948;&#949;&#960;&#950;&#944;&#962;&#961;&#63739; &#946; &#958;&#959;&#952;&#961;&#944;&#957;&#952;&#952; &#959;&#960;&#952;&#956;&#952;&#962;&#952;&#946;&#944;-&#959;&#958;&#955;&#952;&#955;&#952;&#957;&#952;&#952;
  130. ;;; &#952;&#955;&#952; nil, &#949;&#961;&#955;&#952; &#959;&#960;&#952;&#956;&#952;&#962;&#952;&#946; &#957;&#949; &#63739;&#946;&#955;&#63739;&#949;&#962;&#961;&#63739; &#959;&#958;&#955;&#952;&#955;&#952;&#957;&#952;&#949;&#953;
  131.  
  132. (defun get-pline-list-vertext (polylineName / polylineInfo vertexName listOfPoints)
  134. ;; &#926;&#945;&#955;&#949;&#947;&#967;&#949;&#957;&#957;&#944;&#63739; &#959;&#958;&#955;&#952;&#955;&#952;&#957;&#952;&#63739;
  135. ((= (cdr (assoc '0 (entget polylineName))) "LWPOLYLINE")
  136. (setq polylineInfo (entget polylineName))
  137. (while (vl-position (assoc '10 polylineInfo) polylineInfo)
  138. (setq listOfPoints
  143. (assoc '10 polylineInfo)
  144. polylineInfo
  145. ) ;_ vl-position
  146. polylineInfo
  147. ) ;_ nth
  148. ) ;_ cdr
  149. listOfPoints
  150. ) ;_ cons
  151. ) ;_ setq
  152. (setq polylineInfo
  153. (vl-remove (assoc '10 polylineInfo) polylineInfo)
  154. ) ;_ setq
  155. ) ;_ while
  156. )
  157. ;; &#929;&#962;&#944;&#957;&#948;&#944;&#960;&#962;&#957;&#944;&#63739; &#959;&#958;&#955;&#952;&#955;&#952;&#957;&#952;&#63739;
  158. ((= (cdr (assoc '0 (entget polylineName))) "POLYLINE")
  159. (setq vertexName (entnext polylineName))
  160. (while vertexName
  161. (if (= (cdr (assoc '0 (entget vertexName))) "VERTEX")
  162. (setq listOfPoints
  165. (assoc '10 (entget vertexName))
  166. ) ;_ cdr
  167. listOfPoints
  168. ) ;_ cons
  169. ) ;_ setq
  170. ) ;_ if
  171. (setq vertexName (entnext vertexName))
  172. ) ;_ while
  173. )
  174. ;; &#925;&#949; &#63739;&#946;&#955;&#63739;&#949;&#962;&#961;&#63739; &#959;&#958;&#955;&#952;&#955;&#952;&#957;&#952;&#949;&#953;
  175. (T
  176. (setq listOfPoints nil)
  177. )
  178. ) ;_ cond
  179. (reverse listOfPoints)
  180. ) ;_ defun
  181.  
  182.  

thanks
« Last Edit: April 12, 2019, 06:18:13 AM by Topographer »
Logged

sanju2323

  • Newt
  • Posts: 68
Re: Help with lisp : Convert *.txt file to leica *.gsi16
« Reply #1 on: April 12, 2019, 06:39:48 AM »
I have another way but I can convert it from Excel to GIS format.
http://www.engineeringsurveyor.com/software/csv2gsi_v42.zip
Logged

pedroantonio

  • Guest
Re: Help with lisp : Convert *.txt file to leica *.gsi16
« Reply #2 on: April 12, 2019, 10:11:01 AM »
Yes .I know about this excell but i prefer to use lisp files
Logged

pedroantonio

  • Guest
Re: Help with lisp : Convert *.txt file to leica *.gsi16
« Reply #3 on: April 12, 2019, 07:28:44 PM »
Can any one update the  code to read a txt file and export a gsi16?

Code - Auto/Visual Lisp: [Select]
  1. ;;;&#927;&#960;&#958;&#947;&#960;&#944;&#956;&#944; &#951;&#944;&#959;&#952;&#961;&#952; &#954;&#958;&#958;&#960;&#948;&#952;&#957;&#944;&#962; &#962;&#958;&#967;&#949;&#954; &#959;&#958;&#955;&#952;&#955;&#952;&#957;&#952;&#952; &#946; &#964;&#944;&#953;&#955; &#961; 3 &#951;&#957;&#944;&#954;&#944;&#956;&#952; &#946; &#964;&#958;&#960;&#956;&#944;&#962;&#949; LEICA GSI16
  2. ;;;&#948;&#949;&#954;&#944;&#945;&#960;&#972; 2015
  3. ;;;&#917;&#947;&#958;&#960;&#958;&#946; &#925;.&#914;.
  4.  
  5. ;ss_nab &#957;&#944;&#945;&#958;&#960; &#958;&#945;&#970;&#949;&#954;&#962;&#958;&#946;
  6. ;sp_vrtx &#961;&#959;&#952;&#961;&#958;&#954; &#962;&#958;&#967;&#949;&#954;
  7.  
  8. (defun c:exp_gsi ( / num count_g count sp_vrtx ss_nab fl_name ff fl ok pref N x y z txt)
  9.   (princ "&#914;&#971;&#945;&#949;&#960;&#952;&#962;&#949; &#959;&#958;&#955;&#952;&#955;&#952;&#957;&#952;&#952; &#948;&#955;&#63739; &#946;&#971;&#957;&#958;&#961;&#944;")
  10.  (setq ss_nab (ssget'((0 . "LWPOLYLINE"))))
  11.   (setq N 0)
  12.     (setq z (rtos 0))
  13.  (setq fl_name (getfiled "&#929;&#958;&#965;&#960;&#944;&#957;&#949;&#957;&#952;&#949; &#964;&#944;&#953;&#955;&#944;" (getvar "DWGPREFIX") "gsi" 1))
  14.  
  15.  (if(= fl_name nil)(alert "&#925;&#949;&#946;&#971;&#945;&#960;&#944;&#957; &#964;&#944;&#953;&#955; &#948;&#955;&#63739; &#951;&#944;&#959;&#952;&#961;&#952;"))
  16.  
  17.  
  18.  (if(/= fl_name nil)(progn;&#963;&#961;&#955;&#958;&#946;&#952;&#949; &#957;&#944; &#946;&#971;&#945;&#958;&#960; &#964;&#944;&#953;&#955;&#944;
  19. (if (findfile fl_name)(setq ff 1)(setq ff 0));
  20.  
  21. (if ( = 1 ff)(progn;&#949;&#961;&#955;&#952; &#964;&#944;&#953;&#955; &#961;&#963;&#969;&#949;&#961;&#962;&#946;&#963;&#962;&#949;&#962;
  22.    (initget "&#916;&#958;&#959;&#952;&#961;&#944;&#962;&#972; &#927;&#949;&#960;&#949;&#951;&#944;&#959;&#952;&#961;&#972;")
  23.   (setq ff(GETKWORD "\n&#916;&#944;&#957;&#957;&#971;&#953; &#964;&#944;&#953;&#955; &#963;&#950;&#949; &#961;&#963;&#969;&#949;&#961;&#962;&#946;&#963;&#949;&#962; &#946;&#971;&#945;&#949;&#960;&#952;&#962;&#949; &#948;&#949;&#953;&#961;&#962;&#946;&#952;&#949; [&#916;&#958;&#959;&#952;&#961;&#944;&#962;&#972;/&#927;&#949;&#960;&#949;&#951;&#944;&#959;&#952;&#961;&#972;]<&#916;&#958;&#959;&#952;&#961;&#944;&#962;&#972;>"))
  24.    (if (or(null ff)(= ff "&#916;&#958;&#959;&#952;&#961;&#944;&#962;&#972;")) (setq fl(open fl_name "a")))
  25.    (if(= ff "&#927;&#949;&#960;&#949;&#951;&#944;&#959;&#952;&#961;&#972;")(setq fl(open fl_name "w")))
  26.    ));&#954;&#958;&#957;&#949;&#966; &#963;&#961;&#955;&#958;&#946;&#952;&#63739; &#964;&#944;&#953;&#955; &#961;&#963;&#969;&#949;&#961;&#962;&#946;&#963;&#962;&#949;&#962;
  27.  
  28.  (if ( = 0 ff)(setq fl(open fl_name "w")));&#949;&#961;&#955;&#952; &#964;&#944;&#953;&#955; &#957;&#958;&#946;&#971;&#953;  
  29.  
  30.   (setq pref (getstring "\n&#914;&#946;&#949;&#948;&#952;&#962;&#949; &#959;&#960;&#949;&#964;&#952;&#954;&#961;: "))
  31.   (if (= pref nil)(setq pref "1"));end if
  32.  ; (setq ok (getint "\n&#914;&#946;&#949;&#948;&#952;&#962;&#949; &#954;&#958;&#955;&#952;&#967;&#949;&#961;&#962;&#946;&#958; &#951;&#957;&#944;&#954;&#958;&#946; &#959;&#958;&#961;&#955;&#949; &#951;&#944;&#959;&#63739;&#962;&#958;&#953; &#946; &#954;&#958;&#958;&#960;&#948;&#952;&#957;&#944;&#962;&#944;&#965;  <3>:"))
  33.   (if (= ok nil)(setq ok 3));end if
  34.   (setq count_g 0);&#947;&#955;&#958;&#945;&#944;&#955;&#972;&#957;&#971;&#953; &#961;&#967;&#949;&#962;&#967;&#952;&#954;
  35.    (repeat (SSLENGTH ss_nab); &#934;&#920;&#922;&#923;
  36.     (setq sp_vrtx(get-pline-list-vertext(ssname ss_nab N)))
  37.    (setq count 0)
  38.   (repeat(LENGTH sp_vrtx);&#966;&#952;&#954;&#955; &#959;&#958; &#962;&#958;&#967;&#954;&#944;&#956;
  39.           (setq pt_p (nth count sp_vrtx))
  40.    ; (setq x(distof(rtos(nth 1 pt_p)2 3)1))
  41. ;(setq y(distof(rtos(nth 0 pt_p)2 3)1))
  42.      
  43.           (setq x(to_gsi (nth 1 pt_p)))
  44.           (setq y(to_gsi (nth 0 pt_p)))
  45.    
  46.    ;(command "_point" pt_p "")
  47.    (entmake(list'(0 . "POINT")(cons 10 pt_p)'(8 . "&#946;&#971;&#957;&#958;&#961;")));end entmake
  48.    
  49.      ; (command "_TEXT" pt_p 0.5 "0" (strcat pref(itoa N) "-" (itoa(+ count 1))))
  50. ;;;    (command "_TEXT" pt_p 0.5 "0" (strcat pref "." (itoa(+ count_g 1))))
  51.     (setq txt(strcat pref "." (itoa(+ count_g 1))))
  53.     (list
  54.       (cons 0 "TEXT")
  55.       (cons 8 "&#946;&#971;&#957;&#958;&#961;")
  56.       (cons 10 pt_p)
  57.       (cons 11 pt_p)
  58.       (cons 40 0.5)
  59.       (cons 1 txt)
  60.       (cons 50 0)
  61.       (cons 7 "Standard")
  62.       (cons 71 0)
  63.       (cons 72 1)
  64.       (cons 73 0)
  65.     ))
  66.    
  67.   ; (setq x(nth 1 pt_p))
  68.   ; (setq y(nth 0 pt_p))
  69.  
  70.     ;&#951;&#944;&#959;&#952;&#961;&#972; &#946; &#964;&#944;&#953;&#955;
  71.     (setq num(strcat pref "." (itoa(+ count_g 1))))
  72.       (repeat (- 16(strlen num));&#948;&#958;&#945;&#944;&#946;&#955;&#949;&#957;&#952;&#949; &#957;&#963;&#955;&#949;&#953;
  73.     (setq num(strcat "0" num))
  74.     );&#954;&#958;&#957;&#949;&#966; &#948;&#958;&#945;&#944;&#946;&#955;&#949;&#957;&#952;&#63739; &#957;&#963;&#955;&#949;&#953;
  75.    
  76.       (princ
  77.         (strcat "*" (rtos (+ 110000 count_g 1) 2 0) "+" num)
  78.         fl)
  79.     (write-char 32 fl)(princ (strcat "81..10" y) fl)(write-char 32 fl)(princ (strcat "82..10" x) fl)(write-char 32 fl)(princ "83..10+0000000000000001" fl)(write-char 32 fl)(write-char 10 fl)
  80.          ; (setq num (+ num 1));&#952;&#957;&#954;&#960;&#949;&#956;&#949;&#957;&#962; &#959;&#952;&#954;&#949;&#962;&#958;&#946;
  81.           (setq count (+ count 1)); &#952;&#957;&#954;&#960;&#949;&#956;&#949;&#957;&#962; &#962;&#958;&#967;&#949;&#954;
  82.     (setq count_g (+ count_g 1)); &#947;&#955;&#958;&#945;&#944;&#955;&#972;&#957;&#971;&#953; &#952;&#957;&#954;&#960;&#949;&#956;&#949;&#957;&#962; &#962;&#958;&#967;&#949;&#954;
  83.                   );&#954;&#958;&#957;&#949;&#966; &#966;&#952;&#954;&#955;&#944; &#959;&#958; &#962;&#958;&#967;&#954;&#944;&#956;
  84.  ;(write-char 10 fl)
  85.   ;(prin1(strcat"&#927;&#949;&#960;&#952;&#956;&#949;&#962;&#960;: "(rtos (getvar "perimeter")2 0) " &#956;.") fl)(write-char 10 fl)
  86.   ;(prin1(strcat"&#916;&#958;&#959;. &#959;&#958;&#947;&#960;&#949;&#968;&#957;&#958;&#961;&#962;&#972;: "(rtos(*(sqrt(getvar "AREA"))(* 3.5 fdop))2 0) " &#954;&#946;.&#956;.") fl)(write-char 10 fl)
  87.      
  88.      
  89.      (SETQ N (+ N 1))
  90.      ); &#922;&#926;&#925;&#917;&#934; &#934;&#920;&#922;&#923;&#912;
  91.   ))
  92.    (close fl)
  93.   (setvar "cmdecho" 0)
  94.   (alert (strcat "&#941;&#954;&#961;&#959;&#958;&#960;&#962; &#946; &#964;&#944;&#953;&#955; " fl_name  " &#951;&#944;&#946;&#949;&#960;&#968;&#949;&#957;"))
  95.  
  96.   );end defun
  97.  
  98.  
  99. ;;; &#932;&#963;&#957;&#954;&#966;&#952;&#63739; &#946;&#958;&#951;&#946;&#960;&#944;&#969;&#944;&#949;&#962; &#962;&#949;&#954;&#961;&#962; &#967;&#952;&#961;&#955;&#944; &#946; &#964;&#958;&#960;&#956;&#944;&#962;&#949; GSI16
  100.  
  101. (defun to_gsi (num / text)
  102.  (if (>= num 0);&#967;&#952;&#961;&#955;&#958; &#959;&#958;&#955;&#958;&#950;&#952;&#962;&#949;&#955;&#972;&#957;&#958;&#949;
  103.   (progn
  104.   (setq text (rtos(* num 1000)2 0))
  105.   (repeat (- 16(strlen text));&#948;&#958;&#945;&#944;&#946;&#955;&#949;&#957;&#952;&#949; &#957;&#963;&#955;&#949;&#953;
  106.     (setq text(strcat "0" text))
  107.     );&#954;&#958;&#957;&#949;&#966; &#948;&#958;&#945;&#944;&#946;&#955;&#949;&#957;&#952;&#63739; &#957;&#963;&#955;&#949;&#953;
  108.   (setq text(strcat "0+" text))
  109.   ));&#954;&#958;&#957;&#949;&#966; &#963;&#961;&#955;&#958;&#946;&#952;&#63739; &#959;&#958;&#955;&#958;&#950;&#952;&#962;&#949;&#955;&#972;&#957;&#958;&#947;&#958; &#967;&#952;&#961;&#955;&#944;
  110.  
  111.   (if (< num 0);&#967;&#952;&#961;&#955;&#958; &#958;&#962;&#960;&#952;&#966;&#944;&#962;&#949;&#955;&#972;&#957;&#958;&#949;
  112.     (progn
  113.   (setq text (rtos(* num -1000)2 0))
  114.   (repeat (- 16(strlen text));&#948;&#958;&#945;&#944;&#946;&#955;&#949;&#957;&#952;&#949; &#957;&#963;&#955;&#949;&#953;
  115.     (setq text(strcat "0" text))
  116.     );&#954;&#958;&#957;&#949;&#966; &#948;&#958;&#945;&#944;&#946;&#955;&#949;&#957;&#952;&#63739; &#957;&#963;&#955;&#949;&#953;
  117.   (setq text(strcat "0-" text))
  118.   ));&#954;&#958;&#957;&#949;&#966; &#963;&#961;&#955;&#958;&#946;&#952;&#63739; &#958;&#962;&#960;&#952;&#966;&#944;&#962;&#949;&#955;&#972;&#957;&#958;&#947;&#958; &#967;&#952;&#961;&#955;&#944;
  119.   text
  120.   );end defun
  121.  
  122.  
  123.    
  124.  
  125.  
  126.   ;;; &#932;&#963;&#957;&#954;&#966;&#952;&#63739; &#946;&#958;&#951;&#946;&#960;&#944;&#969;&#944;&#949;&#962; &#961;&#959;&#952;&#961;&#958;&#954; &#962;&#958;&#967;&#949;&#954; &#959;&#958;&#955;&#952;&#955;&#952;&#957;&#952;&#952; (&#958;&#945;&#955;&#949;&#947;&#967;&#949;&#957;&#957;&#958;&#953; &#955;&#952;&#945;&#958; &#961;&#962;&#944;&#957;&#948;&#944;&#960;&#962;&#957;&#958;&#953;)
  127. ;;; &#914; &#954;&#944;&#967;&#949;&#961;&#962;&#946;&#949; &#959;&#944;&#960;&#944;&#956;&#949;&#962;&#960;&#944; &#964;&#963;&#957;&#954;&#966;&#952;&#952; &#959;&#949;&#960;&#949;&#948;&#944;&#949;&#962;&#961;&#63739; &#952;&#956;&#63739; &#959;&#960;&#952;&#956;&#952;&#962;&#952;&#946;&#944;, &#946;&#958;&#951;&#946;&#960;&#944;&#969;&#944;&#949;&#962;&#961;&#63739; &#961;&#959;&#952;&#961;&#958;&#954; &#952;&#951;
  128. ;;; &#948;&#946;&#963;&#965;&#956;&#949;&#960;&#957;&#971;&#965; (&#948;&#955;&#63739; &#958;&#945;&#955;&#949;&#947;&#967;&#949;&#957;&#957;&#958;&#953; &#959;&#958;&#955;&#952;&#955;&#952;&#957;&#952;&#952;) &#952;&#955;&#952; &#962;&#960;&#949;&#965;&#956;&#949;&#960;&#957;&#971;&#965; (&#948;&#955;&#63739; &#961;&#962;&#944;&#957;&#948;&#944;&#960;&#962;&#957;&#958;&#953;) &#946; &#962;&#958;&#956; &#959;&#958;&#960;&#63739;&#948;&#954;&#949;,
  129. ;;; &#946; &#954;&#958;&#962;&#958;&#960;&#958;&#956; &#958;&#957;&#952; &#961;&#958;&#948;&#949;&#960;&#950;&#944;&#962;&#961;&#63739; &#946; &#958;&#959;&#952;&#961;&#944;&#957;&#952;&#952; &#959;&#960;&#952;&#956;&#952;&#962;&#952;&#946;&#944;-&#959;&#958;&#955;&#952;&#955;&#952;&#957;&#952;&#952;
  130. ;;; &#952;&#955;&#952; nil, &#949;&#961;&#955;&#952; &#959;&#960;&#952;&#956;&#952;&#962;&#952;&#946; &#957;&#949; &#63739;&#946;&#955;&#63739;&#949;&#962;&#961;&#63739; &#959;&#958;&#955;&#952;&#955;&#952;&#957;&#952;&#949;&#953;
  131.  
  132. (defun get-pline-list-vertext (polylineName / polylineInfo vertexName listOfPoints)
  134. ;; &#926;&#945;&#955;&#949;&#947;&#967;&#949;&#957;&#957;&#944;&#63739; &#959;&#958;&#955;&#952;&#955;&#952;&#957;&#952;&#63739;
  135. ((= (cdr (assoc '0 (entget polylineName))) "LWPOLYLINE")
  136. (setq polylineInfo (entget polylineName))
  137. (while (vl-position (assoc '10 polylineInfo) polylineInfo)
  138. (setq listOfPoints
  143. (assoc '10 polylineInfo)
  144. polylineInfo
  145. ) ;_ vl-position
  146. polylineInfo
  147. ) ;_ nth
  148. ) ;_ cdr
  149. listOfPoints
  150. ) ;_ cons
  151. ) ;_ setq
  152. (setq polylineInfo
  153. (vl-remove (assoc '10 polylineInfo) polylineInfo)
  154. ) ;_ setq
  155. ) ;_ while
  156. )
  157. ;; &#929;&#962;&#944;&#957;&#948;&#944;&#960;&#962;&#957;&#944;&#63739; &#959;&#958;&#955;&#952;&#955;&#952;&#957;&#952;&#63739;
  158. ((= (cdr (assoc '0 (entget polylineName))) "POLYLINE")
  159. (setq vertexName (entnext polylineName))
  160. (while vertexName
  161. (if (= (cdr (assoc '0 (entget vertexName))) "VERTEX")
  162. (setq listOfPoints
  165. (assoc '10 (entget vertexName))
  166. ) ;_ cdr
  167. listOfPoints
  168. ) ;_ cons
  169. ) ;_ setq
  170. ) ;_ if
  171. (setq vertexName (entnext vertexName))
  172. ) ;_ while
  173. )
  174. ;; &#925;&#949; &#63739;&#946;&#955;&#63739;&#949;&#962;&#961;&#63739; &#959;&#958;&#955;&#952;&#955;&#952;&#957;&#952;&#949;&#953;
  175. (T
  176. (setq listOfPoints nil)
  177. )
  178. ) ;_ cond
  179. (reverse listOfPoints)
  180. ) ;_ defun
  181.  
  182.  

Thanks
Logged

BIGAL

  • Swamp Rat
  • Posts: 1409
  • 40 + years of using Autocad
Re: Help with lisp : Convert *.txt file to leica *.gsi16
« Reply #4 on: April 13, 2019, 12:56:00 AM »
Why try to make a GSI can you not just create a csv file getting the co-ords of a pline and numbering them is not a problem. It could have description=layer.
Logged
A man who never made a mistake never made anything

pedroantonio

  • Guest
Re: Help with lisp : Convert *.txt file to leica *.gsi16
« Reply #5 on: April 13, 2019, 02:40:36 AM »
I want a gsi16 file because i want to upload it to my tolal station  to steak out points. Leica Geo office tools have problems with the windows 10 is not working properly.
Logged

pedroantonio

  • Guest
Re: Help with lisp : Convert *.txt file to leica *.gsi16
« Reply #6 on: April 13, 2019, 12:16:11 PM »
Please this is important post of can on help ?
Logged

BIGAL

  • Swamp Rat
  • Posts: 1409
  • 40 + years of using Autocad
Re: Help with lisp : Convert *.txt file to leica *.gsi16
« Reply #7 on: April 14, 2019, 01:59:10 AM »
My ex work had 2 leica's and they uploaded a csv file all the time. I am an ex survey instrument employee and I have never heard of a reasonably aged instrument that could not load a csv file.

Have you spoke to your leica dealer about this ?

I just googled and there was lots of links with leica manuals.
« Last Edit: April 14, 2019, 02:04:09 AM by BIGAL »
Logged
A man who never made a mistake never made anything

pedroantonio

  • Guest
Re: Help with lisp : Convert *.txt file to leica *.gsi16
« Reply #8 on: April 14, 2019, 04:39:14 AM »
i can upload only *.gsi and *.idx files

the  *idx file is like this

Code: [Select]
HEADER
  VERSION      1.31
  SYSTEM       "Leica SurveyOffice: Coordinate Editor 1.0"
  SEPARATOR    ','
  TERMINATOR   ';'
  UNITS
    LINEAR     METRE
  END UNITS
  PROJECT
    NAME           "XARA"
    CREATION_DATE  16-11-2009/15:10:51.0
  END PROJECT
END HEADER


DATABASE
  POINTS (PointNo,PointID,Code,East,North,Elevation,CLASS)
     1,  "1",   "",  304349.393,  4231409.416,  ,  FIX;
     2,  "2",   "",  304393.029,  4231402.861,  ,  FIX;
     3,  "3",   "",  304415.145,  4231399.457,  ,  FIX;
     4,  "4",   "",  304432.001,  4231396.890,  ,  FIX;
     5,  "5",   "",  304451.803,  4231397.018,  ,  FIX;
     6,  "6",   "",  304466.943,  4231397.622,  ,  FIX;
     7,  "7",   "",  304476.326,  4231397.950,  ,  FIX;
     8,  "8",   "",  304484.483,  4231396.444,  ,  FIX;
     9,  "9",   "",  304492.448,  4231393.357,  ,  FIX;
    10,  "10",  "",  304507.368,  4231389.199,  ,  FIX;
    11,  "11",  "",  304507.226,  4231387.224,  ,  FIX;
    12,  "12",  "",  304390.353,  4231382.153,  ,  FIX;
    13,  "13",  "",  304389.209,  4231373.298,  ,  FIX;
    14,  "14",  "",  304386.234,  4231373.682,  ,  FIX;
    15,  "15",  "",  304353.854,  4231378.570,  ,  FIX;
    16,  "16",  "",  304351.623,  4231393.993,  ,  FIX;
    17,  "17",  "",  304391.316,  4231389.617,  ,  FIX;
    18,  "18",  "",  304416.071,  4231390.577,  ,  FIX;
    19,  "19",  "",  304432.262,  4231390.896,  ,  FIX;
    20,  "20",  "",  304452.063,  4231391.023,  ,  FIX;
    21,  "S1",  "",  304380.031,  4231368.168,  ,  FIX;
    22,  "S2",  "",  304386.326,  4231388.204,  ,  FIX;
    23,  "S3",  "",  304356.539,  4231382.693,  ,  FIX;
    THEMINFO (PointNo,PointID,Attribute,Value)
       1,  "1",   "Info 1",  "";
       1,  "1",   "Info 2",  "";
       1,  "1",   "Info 3",  "";
       1,  "1",   "Info 4",  "";
       1,  "1",   "Info 5",  "";
       1,  "1",   "Info 6",  "";
       1,  "1",   "Info 7",  "";
       1,  "1",   "Info 8",  "";
       2,  "2",   "Info 1",  "";
       2,  "2",   "Info 2",  "";
       2,  "2",   "Info 3",  "";
       2,  "2",   "Info 4",  "";
       2,  "2",   "Info 5",  "";
       2,  "2",   "Info 6",  "";
       2,  "2",   "Info 7",  "";
       2,  "2",   "Info 8",  "";
       3,  "3",   "Info 1",  "";
       3,  "3",   "Info 2",  "";
       3,  "3",   "Info 3",  "";
       3,  "3",   "Info 4",  "";
       3,  "3",   "Info 5",  "";
       3,  "3",   "Info 6",  "";
       3,  "3",   "Info 7",  "";
       3,  "3",   "Info 8",  "";
       4,  "4",   "Info 1",  "";
       4,  "4",   "Info 2",  "";
       4,  "4",   "Info 3",  "";
       4,  "4",   "Info 4",  "";
       4,  "4",   "Info 5",  "";
       4,  "4",   "Info 6",  "";
       4,  "4",   "Info 7",  "";
       4,  "4",   "Info 8",  "";
       5,  "5",   "Info 1",  "";
       5,  "5",   "Info 2",  "";
       5,  "5",   "Info 3",  "";
       5,  "5",   "Info 4",  "";
       5,  "5",   "Info 5",  "";
       5,  "5",   "Info 6",  "";
       5,  "5",   "Info 7",  "";
       5,  "5",   "Info 8",  "";
       6,  "6",   "Info 1",  "";
       6,  "6",   "Info 2",  "";
       6,  "6",   "Info 3",  "";
       6,  "6",   "Info 4",  "";
       6,  "6",   "Info 5",  "";
       6,  "6",   "Info 6",  "";
       6,  "6",   "Info 7",  "";
       6,  "6",   "Info 8",  "";
       7,  "7",   "Info 1",  "";
       7,  "7",   "Info 2",  "";
       7,  "7",   "Info 3",  "";
       7,  "7",   "Info 4",  "";
       7,  "7",   "Info 5",  "";
       7,  "7",   "Info 6",  "";
       7,  "7",   "Info 7",  "";
       7,  "7",   "Info 8",  "";
       8,  "8",   "Info 1",  "";
       8,  "8",   "Info 2",  "";
       8,  "8",   "Info 3",  "";
       8,  "8",   "Info 4",  "";
       8,  "8",   "Info 5",  "";
       8,  "8",   "Info 6",  "";
       8,  "8",   "Info 7",  "";
       8,  "8",   "Info 8",  "";
       9,  "9",   "Info 1",  "";
       9,  "9",   "Info 2",  "";
       9,  "9",   "Info 3",  "";
       9,  "9",   "Info 4",  "";
       9,  "9",   "Info 5",  "";
       9,  "9",   "Info 6",  "";
       9,  "9",   "Info 7",  "";
       9,  "9",   "Info 8",  "";
      10,  "10",  "Info 1",  "";
      10,  "10",  "Info 2",  "";
      10,  "10",  "Info 3",  "";
      10,  "10",  "Info 4",  "";
      10,  "10",  "Info 5",  "";
      10,  "10",  "Info 6",  "";
      10,  "10",  "Info 7",  "";
      10,  "10",  "Info 8",  "";
      11,  "11",  "Info 1",  "";
      11,  "11",  "Info 2",  "";
      11,  "11",  "Info 3",  "";
      11,  "11",  "Info 4",  "";
      11,  "11",  "Info 5",  "";
      11,  "11",  "Info 6",  "";
      11,  "11",  "Info 7",  "";
      11,  "11",  "Info 8",  "";
      12,  "12",  "Info 1",  "";
      12,  "12",  "Info 2",  "";
      12,  "12",  "Info 3",  "";
      12,  "12",  "Info 4",  "";
      12,  "12",  "Info 5",  "";
      12,  "12",  "Info 6",  "";
      12,  "12",  "Info 7",  "";
      12,  "12",  "Info 8",  "";
      13,  "13",  "Info 1",  "";
      13,  "13",  "Info 2",  "";
      13,  "13",  "Info 3",  "";
      13,  "13",  "Info 4",  "";
      13,  "13",  "Info 5",  "";
      13,  "13",  "Info 6",  "";
      13,  "13",  "Info 7",  "";
      13,  "13",  "Info 8",  "";
      14,  "14",  "Info 1",  "";
      14,  "14",  "Info 2",  "";
      14,  "14",  "Info 3",  "";
      14,  "14",  "Info 4",  "";
      14,  "14",  "Info 5",  "";
      14,  "14",  "Info 6",  "";
      14,  "14",  "Info 7",  "";
      14,  "14",  "Info 8",  "";
      15,  "15",  "Info 1",  "";
      15,  "15",  "Info 2",  "";
      15,  "15",  "Info 3",  "";
      15,  "15",  "Info 4",  "";
      15,  "15",  "Info 5",  "";
      15,  "15",  "Info 6",  "";
      15,  "15",  "Info 7",  "";
      15,  "15",  "Info 8",  "";
      16,  "16",  "Info 1",  "";
      16,  "16",  "Info 2",  "";
      16,  "16",  "Info 3",  "";
      16,  "16",  "Info 4",  "";
      16,  "16",  "Info 5",  "";
      16,  "16",  "Info 6",  "";
      16,  "16",  "Info 7",  "";
      16,  "16",  "Info 8",  "";
      17,  "17",  "Info 1",  "";
      17,  "17",  "Info 2",  "";
      17,  "17",  "Info 3",  "";
      17,  "17",  "Info 4",  "";
      17,  "17",  "Info 5",  "";
      17,  "17",  "Info 6",  "";
      17,  "17",  "Info 7",  "";
      17,  "17",  "Info 8",  "";
      18,  "18",  "Info 1",  "";
      18,  "18",  "Info 2",  "";
      18,  "18",  "Info 3",  "";
      18,  "18",  "Info 4",  "";
      18,  "18",  "Info 5",  "";
      18,  "18",  "Info 6",  "";
      18,  "18",  "Info 7",  "";
      18,  "18",  "Info 8",  "";
      19,  "19",  "Info 1",  "";
      19,  "19",  "Info 2",  "";
      19,  "19",  "Info 3",  "";
      19,  "19",  "Info 4",  "";
      19,  "19",  "Info 5",  "";
      19,  "19",  "Info 6",  "";
      19,  "19",  "Info 7",  "";
      19,  "19",  "Info 8",  "";
      20,  "20",  "Info 1",  "";
      20,  "20",  "Info 2",  "";
      20,  "20",  "Info 3",  "";
      20,  "20",  "Info 4",  "";
      20,  "20",  "Info 5",  "";
      20,  "20",  "Info 6",  "";
      20,  "20",  "Info 7",  "";
      20,  "20",  "Info 8",  "";
      21,  "S1",  "Info 1",  "";
      21,  "S1",  "Info 2",  "";
      21,  "S1",  "Info 3",  "";
      21,  "S1",  "Info 4",  "";
      21,  "S1",  "Info 5",  "";
      21,  "S1",  "Info 6",  "";
      21,  "S1",  "Info 7",  "";
      21,  "S1",  "Info 8",  "";
      22,  "S2",  "Info 1",  "";
      22,  "S2",  "Info 2",  "";
      22,  "S2",  "Info 3",  "";
      22,  "S2",  "Info 4",  "";
      22,  "S2",  "Info 5",  "";
      22,  "S2",  "Info 6",  "";
      22,  "S2",  "Info 7",  "";
      22,  "S2",  "Info 8",  "";
      23,  "S3",  "Info 1",  "";
      23,  "S3",  "Info 2",  "";
      23,  "S3",  "Info 3",  "";
      23,  "S3",  "Info 4",  "";
      23,  "S3",  "Info 5",  "";
      23,  "S3",  "Info 6",  "";
      23,  "S3",  "Info 7",  "";
      23,  "S3",  "Info 8",  "";
    END THEMINFO
  END POINTS
END DATABASE




I am searching for a lisp code to convert a *txt file with P,X,Y,Z to *.idx. I need this files please help

Thanks
« Last Edit: April 14, 2019, 04:42:34 AM by Topographer »
Logged

pedroantonio

  • Guest
Re: Help with lisp : Convert *.txt file to leica *.gsi16
« Reply #9 on: April 14, 2019, 11:39:52 AM »
Any ideas?
Logged

pedroantonio

  • Guest
Re: Help with lisp : Convert *.txt file to leica *.gsi16
« Reply #10 on: April 15, 2019, 02:27:16 AM »
Hi  BIGAL i don't know if you ever upload data to leica  total station but is not possiple in any model to insert csn file. All the times we use gsi files or idx. You only can download coordinates in gsi,dxf,txt,csv but never upload  csv
Logged

pedroantonio

  • Guest
Re: Help with lisp : Convert *.txt file to leica *.gsi16
« Reply #11 on: April 15, 2019, 10:03:35 AM »
I need help

Code - Auto/Visual Lisp: [Select]
  1. (defun c:test ( / num count_g count sp_vrtx ss_nab fl_name ff fl ok pref N x y z txt)
  2.  
  3.  (setq file (getfiled "Open CSV File" "" "csv" 16))
  4.        
  5.  (setq fl_name (getfiled "Save GSI as" (getvar "DWGPREFIX") "gsi" 1))
  6.  
  7.  
  8.    
  9.       (princ
  10.         (strcat "*" (rtos (+ 110000 count_g 1) 2 0) "+" num)
  11.         fl)
  12.  
  13.     (write-char 32 fl)(princ (strcat "81..10" x) fl)(write-char 32 fl)(princ (strcat "82..10" y) fl)(write-char 32 fl)(princ "83..10" z) fl)
  14.           (setq count (+ count 1))
  15.     (setq count_g (+ count_g 1))    
  16.      
  17.      (SETQ N (+ N 1))
  18.         (close fl)
  19.   (setvar "cmdecho" 0)
  20.  
  21.   );end defun
  22.  

Thanks
« Last Edit: April 15, 2019, 10:15:34 AM by Topographer »
Logged

pedroantonio

  • Guest
Re: Help with lisp : Convert *.txt file to leica *.gsi16
« Reply #12 on: April 15, 2019, 07:15:04 PM »
no one ?
Logged

CostinBos77

  • Mosquito
  • Posts: 19
  • Land surveyor in action !
Re: Help with lisp : Convert *.txt file to leica *.gsi16
« Reply #13 on: April 20, 2019, 05:09:46 PM »
Hello Topographer !

Do you really need GSI 16 format ? TCR 805 is importing IDX file as well . You can do it with Leica Geo Office .

Do you have it ?

Maybe you will need this : https://www.youtube.com/watch?v=hrRrOedivfA&t=34s ;
or https://www.youtube.com/watch?v=C7lj69VUrkw&t=8s ;
or https://www.youtube.com/watch?v=3L5nRZ1njjQ

From Excel file, you can copy into your Leica Editor .

Costin
« Last Edit: April 20, 2019, 05:18:11 PM by CostinBos77 »
Logged
Land surveyor in action !!!

:yes:

pedroantonio

  • Guest
Re: Help with lisp : Convert *.txt file to leica *.gsi16
« Reply #14 on: April 20, 2019, 05:11:53 PM »
Thank you.I solved the problem
Logged
Pages: [1] |   Go Up
« previous next »