Please, help me edit lisp Import ID X Y Z Code to Autocad
Hello,
You have to save the text file as ANSI encoding and then try with the below code.
Notepad->File menu->Save as-> and then select Encoding: ANSI as shown below.
(defun c:RFT(/ code data f h line pt pxy spc txt stt ten);Read File Txt
;| By : Gia Bach, gia_bach @ www.CadViet.com |;
(vl-load-com)
;; String to List - Lee Mac
;; Separates a string using a given delimiter
;; str - [str] String to process
;; del - [str] Delimiter by which to separate the string
;; Returns: [lst] List of strings
(defun LM:str->lst ( str del / pos )
(if (setq pos (vl-string-search del str))
(cons (substr str 1 pos) (LM:str->lst (substr str (+ pos 1 (strlen del))) del))
(list str)
)
)
;;To convert the list of string value to list of real value
(defun CreatePointList(lst / pnt)
(setq pnt (list
(distof (car lst))
(distof (cadr lst))
(distof (caddr lst))
) )
)
(or *h* (setq *h* 2 ))
(initget 6)
(setq h (getdist (strcat "\nNhap chieu cao Text <" (rtos *h*) "> :")) )
(if h (setq *h* h) (setq h *h*))
(if (setq ten (getfiled "Chon File txt" (getvar "dwgprefix") "txt" 8))
(progn
(or (tblsearch "layer" "Point") (command "-layer" "n" "Point" "") )
(or (tblsearch "layer" "Sothutu") (command "-layer" "n" "Sothutu" "c" 3 "Sothutu" "") )
(or (tblsearch "layer" "Caodo") (command "-layer" "n" "Caodo" "c" 4 "Caodo" "") )
(or (tblsearch "layer" "Code") (command "-layer" "n" "Code" "c" 2 "Code" "") )
(setq spc (vla-get-ModelSpace (vla-get-ActiveDocument(vlax-get-Acad-Object))))
(setq f (open (findfile ten) "r"))
(while (setq Line (read-line f))
(if (wcmatch Line (strcat "*"(chr 9)"*,*"(chr 32)"*,*`"(chr 44)"*"))
(progn
(setq data (LM:str->lst Line (chr 9)) code (last data))
(if (and
(= (vl-list-length data)5)
(setq pt (CreatePointList (vl-remove code (cdr data))))
(not(vl-catch-all-error-p (vl-catch-all-apply 'vlax-3d-point pt))))
(progn
(vla-put-Layer (vla-addpoint spc (vlax-3d-point pt)) "Point")
(vla-put-Layer (setq txt (vla-addtext spc (car data) (vlax-3d-point (list 0 0 0)) h)) "Sothutu")
(vla-put-Alignment txt 8)
(vla-put-TextAlignmentPoint txt (vlax-3d-point pt))
(vla-put-Layer (setq txt (vla-addtext spc code (vlax-3d-point (list 0 0 0)) h)) "Code")
(vla-put-Alignment txt 6)
(vla-put-TextAlignmentPoint txt (vlax-3d-point (polar pt 0 (* 0.2 h))))
(vla-put-Layer (vla-addtext spc (caddr pt) (vlax-3d-point pt) h) "Caodo")
))))) ) )
(princ)
)
| 
| 
Accepted solution
In that case I have updated the code by including the code from Lee Mac [http://www.theswamp.org/index.php?topic=39814
Try the below code.
(defun c:RFT(/ code data f h line pt pxy spc txt stt ten);Read File Txt
;| By : Gia Bach, gia_bach @ www.CadViet.com |;
(vl-load-com)
(or *h* (setq *h* 2 ))
(initget 6)
(setq h (getdist (strcat "\nNhap chieu cao Text <" (rtos *h*) "> :")) )
(if h (setq *h* h) (setq h *h*))
(if (setq ten (getfiled "Chon File txt" (getvar "dwgprefix") "txt" 8))
(progn
(or (tblsearch "layer" "Point") (command "-layer" "n" "Point" "") )
(or (tblsearch "layer" "Sothutu") (command "-layer" "n" "Sothutu" "c" 3 "Sothutu" "") )
(or (tblsearch "layer" "Caodo") (command "-layer" "n" "Caodo" "c" 4 "Caodo" "") )
(or (tblsearch "layer" "Code") (command "-layer" "n" "Code" "c" 2 "Code" "") )
(setq spc (vla-get-ModelSpace (vla-get-ActiveDocument(vlax-get-Acad-Object))))
(setq f (open (findfile ten) "r"))
(foreach Line (ReadUnicode ten)
(if (wcmatch Line (strcat "*"(chr 9)"*,*"(chr 32)"*,*`"(chr 44)"*"))
(progn
(setq data (LM:str->lst Line (chr 9)) code (last data))
(if (and
(= (vl-list-length data)6)
(setq pt (CreatePointList (vl-remove code (cdr data))))
(not(vl-catch-all-error-p (vl-catch-all-apply 'vlax-3d-point pt))))
(progn
(vla-put-Layer (vla-addpoint spc (vlax-3d-point pt)) "Point")
(vla-put-Layer (setq txt (vla-addtext spc (car data) (vlax-3d-point (list 0 0 0)) h)) "Sothutu")
(vla-put-Alignment txt 8)
(vla-put-TextAlignmentPoint txt (vlax-3d-point pt))
(vla-put-Layer (setq txt (vla-addtext spc code (vlax-3d-point (list 0 0 0)) h)) "Code")
(vla-put-Alignment txt 6)
(vla-put-TextAlignmentPoint txt (vlax-3d-point (polar pt 0 (* 0.2 h))))
(vla-put-Layer (vla-addtext spc (caddr pt) (vlax-3d-point pt) h) "Caodo")
)))
);if
);for
);progn
);if
(princ)
);defun
;; String to List - Lee Mac
;; Separates a string using a given delimiter
;; str - [str] String to process
;; del - [str] Delimiter by which to separate the string
;; Returns: [lst] List of strings
(defun LM:str->lst ( str del / pos )
(if (setq pos (vl-string-search del str))
(cons (substr str 1 pos) (LM:str->lst (substr str (+ pos 1 (strlen del))) del))
(list str)
)
)
;;-
;;To convert the list of string value to list of real value
(defun CreatePointList(lst / pnt)
(setq pnt (list
(distof (car lst))
(distof (cadr lst))
(distof (caddr lst))
) )
)
;;http://www.theswamp.org/index.php?topic=39814
;;------------------------------------------------------
(defun ReadUnicode ( file / _padzeros lst out n )
(defun _padzeros ( s )
(if (< (strlen s) 4) (_padzeros (strcat "0" s)) s)
)
(if (setq lst (LM:ReadBinaryStream file))
(progn
(cond
( (and (= 255 (car lst)) (= 254 (cadr lst))) ;; UTF-16 Little Endian
(setq lst (cddr lst))
(while (cadr lst)
(if (< (setq n (+ (car lst) (* 256 (cadr lst)))) 128)
(setq out (cons (chr n) out))
(setq out (cons (strcat "\\U+" (_padzeros (LM:Dec->Base n 16))) out))
)
(setq lst (cddr lst))
)
(setq out (reverse out))
)
( (and (= 254 (car lst)) (= 255 (cadr lst))) ;; UTF-16 Big Endian
(setq lst (cddr lst))
(while (cadr lst)
(if (< (setq n (+ (cadr lst) (* 256 (car lst)))) 128)
(setq out (cons (chr n) out))
(setq out (cons (strcat "\\U+" (_padzeros (LM:Dec->Base n 16))) out))
)
(setq lst (cddr lst))
)
(setq out (reverse out))
)
( (setq out (mapcar 'chr lst)) ) ;; Assume ASCII
)
(LM:str->lst (apply 'strcat out) "\r\n")
)
)
)
(defun LM:Dec->Base ( n b )
(if (< n b)
(chr (+ n (if (< n 10) 48 55)))
(strcat (LM:Dec->Base (/ n b) b) (LM:Dec->Base (rem n b) b))
)
)
(defun LM:ReadBinaryStream ( file / adostream result )
(if
(and
(setq file (findfile file))
(setq adostream (vlax-create-object "ADODB.Stream"))
)
(progn
(setq result
(vl-catch-all-apply
(function
(lambda nil
(vlax-put-property adostream 'type 1)
(vlax-invoke-method adostream 'open nil nil nil nil nil)
(vlax-invoke-method adostream 'loadfromfile file)
(vlax-put-property adostream 'position 0)
(setq result (vlax-invoke-method adostream 'read -1))
(vlax-invoke-method adostream 'close)
result
)
)
)
)
(vlax-release-object adostream)
(if (not (vl-catch-all-error-p result))
(vlax-safearray->list (vlax-variant-value result))
)
)
)
)
