Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
peleusachellis

[yêu cầu] Nhờ viết Lips copy Text (tiếng nhật) sang Excel

Các bài được khuyến nghị

Mình có một bản vẽ (khách hàng) như hình: 

http://www.uphinhnhanh.com/view-95Capture.jpg

view-95Capture.jpg

tất cả các text nằm rời rạc
giờ mình muốn copy nó ra và đưa vào excel theo thứ tự pick 
Mình đã dùng một số Lips trong diễn đàn nhưng nó bị lộn xộn và số tùm lum :)

http://www.uphinhnhanh.com/view-591461379_17502439270636.jpg
view-591461379_17502439270636.jpg

Rất mong được sự giúp đỡ của mọi người :)
Đây là file bản vẽ :
http://www.mediafire.com/download/ppoby6cwwjm4nn1/10130-80B-02%E2%80%B0%C3%BC1.dwg

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Lisp dường như không hỗ trợ font unicode, bạn nên dùng chương trình viết bằng VBA hoặc .NET thì tốt hơn.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Vào Control Panel => Regional and Language Options

Qua Tab Advanced

Trong ô Select a language .... Chọn Japanese

Cad 2004 thì OK nhưng CAD 2010 thì có 1 vài ký tự phải xử lý thủ công

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Vẫn xuất ra tiếng Nhật tốt mà. Đây là kết quả của các text trong layout

http://www.cadviet.com/upfiles/3/19626_result.txt

Explode MTEXT => Text

Đây là code lấy từ cadviet

 

(defun Dxf(n g) (cdr (assoc n g)))
(defun Compare2D    (p q f / )
  (if    (equal (cadr p) (cadr q) f)
    (< (car p) (car q))
    (> (cadr p) (cadr q)) )
)


(defun C:2 ( / ss lst e z y f s)
  (setq    ss (acet-ss-to-list (ssget '((0 . "TEXT"))))
    lst     (mapcar '(lambda (e) (cons(Dxf 10 (entget e)) (Dxf 1 (entget e)))) ss)
    z    (* (Dxf 40 (entget (car ss))) 0.5)
    lst        (vl-sort lst (function (lambda (e1 e2) (Compare2D (car e1) (car e2) z))))
    f     (open "result.txt" "w")  )
 
  (foreach e lst
        (princ (if    (equal y (cadr (car e)) z) "\t" "\n") f)
    (princ (cdr e) f)    (setq y (cadr (car e)))  )
  (close f)
)
 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×