Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
7 replies to this topic

#1 peleusachellis

peleusachellis

    biết vẽ arc

  • Members
  • PipPip
  • 46 Bài viết
Điểm đánh giá: 4 (bình thường)

Đã gửi 10 March 2014 - 01:43 PM

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

http://www.uphinhnha...w-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.uphinhnha...02439270636.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...0-80B-02‰ü1.dwg


  • 0

#2 peleusachellis

peleusachellis

    biết vẽ arc

  • Members
  • PipPip
  • 46 Bài viết
Điểm đánh giá: 4 (bình thường)

Đã gửi 10 March 2014 - 02:45 PM

Mong mọi người  giúp đỡ 


  • 0

#3 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 10 March 2014 - 07:48 PM

Chắc tại excel của bạn thiếu font tiếng Nhật thôi.


  • 0

#4 peleusachellis

peleusachellis

    biết vẽ arc

  • Members
  • PipPip
  • 46 Bài viết
Điểm đánh giá: 4 (bình thường)

Đã gửi 11 March 2014 - 08:28 AM

Không phải.. bình thường mình tự đánh vẫn được mà :)


  • 0

#5 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 11 March 2014 - 04:14 PM

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.


  • 0

#6 ndtnv

ndtnv

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 437 Bài viết
Điểm đánh giá: 384 (khá)

Đã gửi 12 March 2014 - 10:25 AM

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


  • 1

#7 peleusachellis

peleusachellis

    biết vẽ arc

  • Members
  • PipPip
  • 46 Bài viết
Điểm đánh giá: 4 (bình thường)

Đã gửi 19 March 2014 - 02:34 PM

Nhưng bác ơi.. Máy e toàn bộ đều là tiếng nhật.. hình chụp là e chụp bên máy cá nhân :(


  • 0

#8 ndtnv

ndtnv

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 437 Bài viết
Điểm đánh giá: 384 (khá)

Đã gửi 20 March 2014 - 11:38 AM

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.c...9626_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)
)
 

  • 0