Đến nội dung


Hình ảnh

Cách import nhiều layer vào bản vẽ


  • Please log in to reply
16 replies to this topic

#1 linhlm

linhlm

    biết vẽ circle

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

Đã gửi 09 November 2012 - 03:03 PM

Dear cả nhà,

em cần phải tạo khá nhiều layer cho cơ sở dữ liệu của công ty em. Nếu mà cứ tạo từng cái một trên Autocad thì khá là lâu. Bác nào biết cách xuất Layer vị dụ từ file excel (hay từ word) vào trong Autocad không? Hoặc giả là có 1 lisp nào giúp việc nhập các layer vào nhanh không?

Cả nhà có ai biết thì chỉ em với
Cám ơn nhiều
  • 0

#2 doithuc90

doithuc90

    biết vẽ rectang

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

Đã gửi 09 November 2012 - 03:07 PM

cái này tớ cũng muốn biết, mà tớ làm toàn copy rồi paste sang cad...huu
  • 0

#3 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 09 November 2012 - 03:29 PM

Tất nhiên là được, đơn giản thôi, nhưng bạn phải gởi mẫu file Excel lên để xem định dạng nó như thế nào
  • 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.


#4 linhlm

linhlm

    biết vẽ circle

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

Đã gửi 09 November 2012 - 03:38 PM

Tất nhiên là được, đơn giản thôi, nhưng bạn phải gởi mẫu file Excel lên để xem định dạng nó như thế nào

Cái này thì em không có vì căn bản cách đưa layer từ file excel vào như thế nào em còn chưa biết. Bác có chỉ dẫn nào cụ thể không?.
  • 0

#5 avi612

avi612

    biết lệnh move

  • Members
  • PipPipPip
  • 126 Bài viết
Điểm đánh giá: 15 (tàm tạm)

Đã gửi 09 November 2012 - 05:39 PM

Thì bạn có thể lập 1 bảng Excel với các cột: ví dụ như "Tên layer - Màu - Linetype - LineWeight" chẳng hạn....với cấu trúc file tương tự vậy thì có thể dùng Lisp để tạo nhanh các layer được.
  • 0

#6 LoveLisp

LoveLisp

    biết lệnh extend

  • Members
  • PipPipPip
  • 195 Bài viết
Điểm đánh giá: 20 (tàm tạm)

Đã gửi 09 November 2012 - 09:57 PM

Ngày xưa mình đã gặp vấn đề như thế này, sau đó mày mò học LISP cũng viết ra một cái để tự dùng, xin chia sẻ cùng bạn. Nói thật, nó củ chuối lắm, nhưng rất tiện dụng (ít ra là đối với mình), xin post lên đây hy vọng giúp được bạn.
http://www.mediafire...n6ijy25uuuxky6o

Sau khi tải file Net.lsp, bạn gõ lệnh NET, nó cung cấp 2 tùy chọn là xuất và nhận file *.net (chứa toàn bộ layer và nét in của layer đó). Bạn có thể dễ dàng tạo ra một file *.net chuẩn và import nó vào các bản vẽ bạn muốn.
  • 0

#7 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3805 (đỉnh cao)

Đã gửi 09 November 2012 - 10:13 PM

Cái này đâu cần lisp liếc làm gì, dùng chính excel hay script để làm việc này
  • 1

#8 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 09 November 2012 - 10:30 PM

Cũng ko cần thiết lắm phải làm viết nhiều. Bạn tạo tất cả các layer cần thiết trong 1 bản vẽ. Lưu lại. Khi nào cần thì insert bản vẽ đó vào là có ngay các layer đó.
(Chú ý là tạo layer thôi, không được purge)
  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#9 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3805 (đỉnh cao)

Đã gửi 09 November 2012 - 10:39 PM

Có lẽ thanhduan và Lovelisp chưa đọc kỹ yêu cầu của bạn chủ topic:

Dear cả nhà,
em cần phải tạo khá nhiều layer cho cơ sở dữ liệu của công ty em. Nếu mà cứ tạo từng cái một trên Autocad thì khá là lâu. Bác nào biết cách xuất Layer vị dụ từ file excel (hay từ word) vào trong Autocad không? Hoặc giả là có 1 lisp nào giúp việc nhập các layer vào nhanh không?

Cả nhà có ai biết thì chỉ em với
Cám ơn nhiều

Bạn chủ topic tham khảo các topic sau
1./ Vẽ điểm từ toạ độ có sẵn (không cần Lisp)
http://www.cadviet.c...showtopic=10969

2./ None lisp nhưng cũng vẽ AUtomatic
http://www.cadviet.c...?showtopic=5782

3./ Script và ứng dụng :
http://www.cadviet.c...?showtopic=5534
  • 2

#10 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 09 November 2012 - 10:45 PM

Vâng.Em chưa đọc kỹ. Dùng Scrip là tuyệt vời rồi. Kết hợp với excel thì rất nhanh. Dùng hàm "Concatenate" hoăc "&" để nối chuỗi từ các ô để đưa chúng thành cấu trúc. Nó sẽ tự link. Copy dòng đó cho vào Notepad và lưu *.scr . Bạn nên xem cách thứ 3 của bác Tue_NV
  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#11 linhlm

linhlm

    biết vẽ circle

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

Đã gửi 12 November 2012 - 09:21 AM

Có lẽ thanhduan và Lovelisp chưa đọc kỹ yêu cầu của bạn chủ topic:


Bạn chủ topic tham khảo các topic sau
1./ Vẽ điểm từ toạ độ có sẵn (không cần Lisp)
http://www.cadviet.c...showtopic=10969

2./ None lisp nhưng cũng vẽ AUtomatic
http://www.cadviet.c...?showtopic=5782

3./ Script và ứng dụng :
http://www.cadviet.c...?showtopic=5534

Cám ơn bác Tue_NV nhé. Cách dùng script như trong bài trích dẫn bác đưa là rất chuẩn và đúng như ý em mong muốn, mỗi tội em làm theo như ví dụ thì bị lỗi, báo là không hiểu lệnh -la, mặc dù nếu em tự gó lệnh thì vẫn có như bình thường. Em đang dùng Cad 2013. Bác có biết tại sao không?
  • 0

#12 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 12 November 2012 - 09:35 AM

Tôi không biết mặt mũi scrip của bạn như thế nào, nhưng cứ "luận" theo lisp thì lệnh phải được viết bằng tên đầy đủ (chứ không như cad là được dùng lệnh tắt). Đoán mò vậy, bạn thử sửa "-la" thành "layer" xem sao.
  • 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.


#13 linhlm

linhlm

    biết vẽ circle

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

Đã gửi 12 November 2012 - 09:48 AM

Tôi không biết mặt mũi scrip của bạn như thế nào, nhưng cứ "luận" theo lisp thì lệnh phải được viết bằng tên đầy đủ (chứ không như cad là được dùng lệnh tắt). Đoán mò vậy, bạn thử sửa "-la" thành "layer" xem sao.

Chuẩn rồi đấy bác ah, phải viết đầy đủ là -layer. Thanks bác nhiều nhé
  • 0

#14 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3805 (đỉnh cao)

Đã gửi 12 November 2012 - 10:06 AM

Chuẩn rồi đấy bác ah, phải viết đầy đủ là -layer. Thanks bác nhiều nhé

Bạn mở file script -> Copy hết những dòng bạn viết -> Thả vào command -> không cần viết tên lệnh đày đủ (chỉ cần viết tắt) nó cũng nhận bình thường
Cách hoạt động như copy Excel thả vào Command
  • 0

#15 linhlm

linhlm

    biết vẽ circle

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

Đã gửi 12 November 2012 - 11:07 AM

http://www.cadviet.c...xcel_form_1.rar

Em đã upload lại file Excel thành 2003 theo kiến nghị của Mod
  • 0

#16 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 12 November 2012 - 03:31 PM

http://www.cadviet.c...665_gui_ban.rar
Bạn mở file Excel lên và xem cách làm.
Copy dòng cột đó và cho vào Notepad rồi lưu dưới dạng đuôi *.scr.
Mở Cad lên dùng lệnh scr để tạo layer.
  • 1



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#17 linhlm

linhlm

    biết vẽ circle

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

Đã gửi 13 November 2012 - 08:32 AM

http://www.cadviet.c...665_gui_ban.rar
Bạn mở file Excel lên và xem cách làm.
Copy dòng cột đó và cho vào Notepad rồi lưu dưới dạng đuôi *.scr.
Mở Cad lên dùng lệnh scr để tạo layer.

Cám ơn bác thanhduan2407 nhé, em làm được rồi
  • 0