Đến nội dung


Hình ảnh

Giúp chuyển text từ cad sang Excel?


  • Please log in to reply
23 replies to this topic

#21 phongthien

phongthien

    biết vẽ line

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

Đã gửi 24 November 2010 - 10:08 PM

Phongthien ơi với bản vẽ ấy bạn có thể sử dụng CESMAP của địa chính là làm được thật là đơn giản. Nếu bạn ở gần Hà Nội tôi có thể giúp bạn dễ thôi

ồ xa quá
em ở bình dương lận
à cho em hỏi nhe
chương trình cesmap có bản quyền mà phải hong anh.em seach trên google hoài mà không có.huhu
không còn cách nào khác nửa sao anh?
  • 0

#22 ainhandilac

ainhandilac

    biết vẽ pline

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

Đã gửi 09 October 2012 - 09:50 AM

Chào các bác, mình đang tập làm cái lisp tạo mục lục bản vẽ bằng cách ghi số hiệu bản vẽ và tên bản vẽ từ cad sang excel, nhưng vấn đề rắc rối là phông chữ tiếng việt ko ổn, thấy cái lisp của bác hoành nhưng ko hiểu thế nào để lắp ghép vào được, nhờ các cao thủ chỉnh sửa hộ mình với, cảm ơn các bác nhiều, chúc các bác cùng gia đình nhiều niềm vui.



(DEFUN C:mlbv ( )
(setq fn (getfiled "Select file" "" "xls" 1))
(while
(princ "chon so hieu ban ve")
(setq ss (ssget '((0 . "TEXT"))))
(setq e (ssname ss 0))
(setq t1 (strcat (cdr (assoc 1 (entget e))) "\t"))
(princ "chon ten ban ve")
(setq ss (ssget '((0 . "TEXT"))))
(setq stt 0
cd (sslength ss)
)
(repeat cd
(setq e (ssname ss stt))
(setq t2 (cdr (assoc 1 (entget e))))
(setq t1 (strcat t1 t2))
(setq stt (1+ stt))
)
(setq f0 (open fn "a"))
(write-LINE T1 F0)
(close f0)
)
)

Bài viết đã được chỉnh sửa nội dung bởi ainhandilac: 09 October 2012 - 09:52 AM

  • 0
SỐNG TRÊN ĐỜI CẦN CÓ NIỀM TIN

#23 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 09 October 2012 - 10:35 AM

Xuất tiếng Việt ra Excel là 1 vấn đề cực nhọc trong Cad. Bạn đọc loạt bài này thì thấy sự cực nhọc đó (từ bài #1342 trở về sau):
http://www.cadviet.c...40
Lisp của bác Hoành tôi test rồi, toàn ra tiếng Tàu!
Giải pháp chữa cháy mà tôi đang sử dụng:
1). Hoặc là viết text trên cad bằng TCVN3. Khi đó sẽ xuất ra Excel theo TCVN3, đọc được tiếng Việt.
2). Hoặc viết bằng Unicode, nhưng trước khi xuất file thì dùng lisp chuyển qua TCVN3.
Cả 2 cách trên, sau đó có thể chuyển về Unicode bằng cách chuyển mã Unikey hoặc Vietkey... Nhưng cũng không triệt để lắm.
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#24 ngocvang

ngocvang

    Chưa sử dụng CAD

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

Đã gửi 09 October 2012 - 11:25 AM

thanks mấy bạn qua đây mình học hỏi được nhiều :)
  • 0
Autodesk Maya|AutoCAD 2D & 3D|Autocad LT|Autocad|CorelDRAW|Adobe Acrobat Pro|Adobe Photoshop|Kaspersky small office security(KSOS) giải pháp bảo mật cho văn phòng nhỏ|Kaspersky work space security(KOSS1) giải pháp tối ưu và hiệu quả|Kaspersky business space security(KOSS2) bảo mật tốt nhất cho DN