Đến nội dung


Hình ảnh
- - - - -

Lisp thêm tiền tố vào tên của hàng loạt layer


  • Please log in to reply
35 replies to this topic

#1 bkhn_2011

bkhn_2011

    biết vẽ pline

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

Đã gửi 02 March 2014 - 11:53 PM

Để thuận tiện cho việc quản lý các layer em cần một lisp như sau mong các anh trên diễn đàn có thể viết và chỉ giáo dùm. 

Lisp này dùng để thay đổi tên của hàng loạt các layer có trong bản vẽ. 

Ví dụ: Trong một bản vẽ em có 20 layer khác nhau với tên là : a,b,c,d,e ................... giở em muốn đổi tên hàng loạt thành. *a, *b, *c, *d........

- Bước một: Nhập lệnh => hỏi  cần thêm chữ gì vào các layer 

- Bước hai: quét các layer muốn thay đổi tên. Và kết thúc lệnh. 

 

Mong các anh nghiên cứu giúp, em rất cảm ơn.


  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5684 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 03 March 2014 - 08:23 AM

Sử dụng lệnh Rename kết hợp với wildcard bạn nhé :)


  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3 conghoa

conghoa

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 411 Bài viết
Điểm đánh giá: 88 (tàm tạm)

Đã gửi 03 March 2014 - 11:43 AM

Tặng bạn 2 Lisp để chỉnh sửa tên Layer (cái này mình sưu tầm được)

 

1969_rl2.jpg

http://www.cadviet.c...layer_nhanh.lsp

 

1969_rl2_edit_ten_layer_nhanh.jpg

http://www.cadviet.c...layer_nhanh.lsp


  • 1

#4 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 03 March 2014 - 01:58 PM

Để thuận tiện cho việc quản lý các layer em cần một lisp như sau mong các anh trên diễn đàn có thể viết và chỉ giáo dùm. 

Lisp này dùng để thay đổi tên của hàng loạt các layer có trong bản vẽ. 

Ví dụ: Trong một bản vẽ em có 20 layer khác nhau với tên là : a,b,c,d,e ................... giở em muốn đổi tên hàng loạt thành. *a, *b, *c, *d........

- Bước một: Nhập lệnh => hỏi  cần thêm chữ gì vào các layer 

- Bước hai: quét các layer muốn thay đổi tên. Và kết thúc lệnh. 

 

Mong các anh nghiên cứu giúp, em rất cảm ơn.

 

Hề hề hề,

Dùng thử cái Annammitlisp này coi sao nhé. Tuy không hiện đại như các lisp của bác conghoa song có nhẽ cũng xài vô tư. Chú ý đừng chọn các layer không thể đổi tên khi lisp hỏi kẻo nó cãi chày cãi cối thì hơi mệt.....

Lisp này cho phép bạn lựa chọn layer cần rename chứ không chơi mội lèo như của bác conghoa

http://www.cadviet.c...stselection.lsp


  • 2
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#5 sumi

sumi

    biết lệnh array

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

Đã gửi 03 March 2014 - 10:15 PM

Cả 3 lisp ở trên đều thêm vào sau tên layer, ko thêm vào trước tên layer được. Mình dùng lệnh Rename nhu Ketxu nói thì đổi tên hàng loạt được nhưng lại chỉ thêm vào trước tên layer thôi chứ ko thêm vào phía sau hàng loạt được.

Cũng ko biết lệnh WildcardKetxu nói là gì?

Thanks!


  • 0
"Xin chào bạn. Đây là tổng đài tin nhắn. Ấn phím 1 để có 1 lời khen. Phím 2 cho một lời chúc tốt đẹp. Phím 3 cho 1 nụ hôn. Phím 4 cho 1 cuộc hẹn. Nếu muốn tất cả hãy bấm số của tôi"

#6 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 03 March 2014 - 10:31 PM

Cả 3 lisp ở trên đều thêm vào sau tên layer, ko thêm vào trước tên layer được. Mình dùng lệnh Rename nhu Ketxu nói thì đổi tên hàng loạt được nhưng lại chỉ thêm vào trước tên layer thôi chứ ko thêm vào phía sau hàng loạt được.

Cũng ko biết lệnh WildcardKetxu nói là gì?

Thanks!

Hề hề hề,

Bạn đã xài thử các lisp này chưa mà phán như đúng rồi vậy???


  • 2
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#7 conghoa

conghoa

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 411 Bài viết
Điểm đánh giá: 88 (tàm tạm)

Đã gửi 04 March 2014 - 08:30 AM

@phamthanhbinh bác có thể chỉnh cái lisp của bác để cho người dùng có thể chọn layer bằng cách chọn 1 vùng đối tượng trong bản vẽ, các layer nào trong vùng chọn sẽ được chỉnh tên được không :D


  • 0

#8 Polyline

Polyline

    biết lệnh mirror

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

Đã gửi 04 March 2014 - 08:34 AM

Layer là công cụ quản lý rất tốt của AutoCAD, hình như nó không giới hạn số lượng layer trong bản vẽ.

Lisp của bác phamthanhbinh thì tốt, tuy nhiên, khi bản vẽ có khoảng 100 Layer thì công việc trở nên rắc rối. Đó là chưa kể thực hiện lần 1, nếu có nhầm lẫn gì thì còn thực hiện lần 2, lần 3 nữa.

Do đó, mong bác nào có lòng hảo tâm bỏ chút thời gian ra viết cái hộp thoại liệt kê các layer ở bên trái, cái nào muốn đổi tên thì đưa nó qua bên phải và hiện tên mới cho nó luôn. Nên bỏ qua các layer mặc định của AutoCAD (là 0 và Defpoints) và các Xref.


  • 0

#9 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 04 March 2014 - 08:37 AM

Vì sao không xem xét ý kiến của Ketxu nhỉ? Đơn giản, tường minh, nhanh gọn lẹ thế thì còn cần lisp làm gì?


  • 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.


#10 bkhn_2011

bkhn_2011

    biết vẽ pline

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

Đã gửi 04 March 2014 - 09:49 AM

Tặng bạn 2 Lisp để chỉnh sửa tên Layer (cái này mình sưu tầm được)

 

1969_rl2.jpg

http://www.cadviet.c...layer_nhanh.lsp

 

1969_rl2_edit_ten_layer_nhanh.jpg

http://www.cadviet.c...layer_nhanh.lsp

Mình đã down về mà không sử dụng được. Bạn hướng dẫn cụ thể giúp mình với nhé. 

Sau khi gõ lệnh RL: lệnh yêu cầu thêm tiền tố. Mình thêm rồi sau đó enter thì nó chỉ báo ; "error: Automation Error. Invalid input" 

Của bạn thì bạn thao tác thế nào. Cảm ơn


  • -1

#11 bkhn_2011

bkhn_2011

    biết vẽ pline

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

Đã gửi 04 March 2014 - 09:52 AM

Vì sao không xem xét ý kiến của Ketxu nhỉ? Đơn giản, tường minh, nhanh gọn lẹ thế thì còn cần lisp làm gì?

 

Cũng đồng ý với bạn là đơn giản tường minh thì không cần lisp nữa. Nhưng mình rename xong chỉ đổi tên từng layer một. 

Và mình không hiểu cái wild card là gì nữa mong các bạn am hiểu giải thích rõ giúp với. 

 

Vấn đề là mình chỉ cần thêm tiền tố hoặc hậu tố vào tên layer thôi nhé. Không cần phải thay đổi cả tên layer đâu. 


  • 0

#12 bkhn_2011

bkhn_2011

    biết vẽ pline

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

Đã gửi 04 March 2014 - 09:53 AM

Sử dụng lệnh Rename kết hợp với wildcard bạn nhé :)

 ANh giải thích rõ hơn giúp em thêm một chút nhé. Cái wildcard em vẫn không biết nó là gì. Anh hướng dẫn giúp xem cụ thể thao tác thế nào. 

Rename xong tiếp theo là làm thế nào ạ.


  • 0

#13 conghoa

conghoa

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 411 Bài viết
Điểm đánh giá: 88 (tàm tạm)

Đã gửi 04 March 2014 - 10:09 AM

Mình làm bình thường, không biết có phải do file của bạn ko, nếu được thì up file lên mình thử trực tiếp!


  • 0

#14 conghoa

conghoa

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 411 Bài viết
Điểm đánh giá: 88 (tàm tạm)

Đã gửi 04 March 2014 - 10:13 AM

về wildcard thì không biết có phải cái này không ketxu nhỉ :)

http://www.ccadinc.c...s-wildcard.html


  • 0

#15 bkhn_2011

bkhn_2011

    biết vẽ pline

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

Đã gửi 04 March 2014 - 11:50 AM

Mình làm bình thường, không biết có phải do file của bạn ko, nếu được thì up file lên mình thử trực tiếp!

Đây file cad của mình đây à


  • 0

#16 conghoa

conghoa

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 411 Bài viết
Điểm đánh giá: 88 (tàm tạm)

Đã gửi 04 March 2014 - 11:57 AM

ko thấy file của bạn đâu


  • 0

#17 bkhn_2011

bkhn_2011

    biết vẽ pline

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

Đã gửi 04 March 2014 - 01:05 PM

ko thấy file của bạn đâu

Cám ơn mình dùng được rồi. Lệnh này không dùng được với font Vn thì phải mình đặt tên đường là "đường tim" thi không đổi được nhưng khi đặt là "duong tim" thì lại được. 

p/s: Nhưng đổi tên nó cứ thêm vào nên hơi bất tiện.

Ví dụ: 

Mình có layer là "wall" sau đó thay đổi thành "A-wall" giờ muốn thay đổi lại như ban đầu thì lại không được(Vì nó cứ thêm mãi vào đầu thôi). Đấy là giả sử mình có một layer còn nếu nhiều thì không kiểm xoát được. Có cách nào không hả bạn


  • 0

#18 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5684 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 04 March 2014 - 01:06 PM

về wildcard thì không biết có phải cái này không ketxu nhỉ :)

http://www.ccadinc.c...s-wildcard.html

 

Đúng rồi :)

 

 ANh giải thích rõ hơn giúp em thêm một chút nhé. Cái wildcard em vẫn không biết nó là gì. Anh hướng dẫn giúp xem cụ thể thao tác thế nào. 

Rename xong tiếp theo là làm thế nào ạ.

 

Bạn tham khảo link conghoa gửi kìa, nó là các ký tự đại diện. Đây cũng là lý do đặt tên trong CAD thường kèm theo tiền tố/hậu tố để xử lý hàng loạt đơn giản hơn

 

Ví dụ của bạn, cần thêm tiền tố ABC vào tất cả tên layer :

Old name : *

New name :ABC *

 

Hay cần thêm Chữ A vào tất cả layer bắt đầu bằng KT thì :

Old name :KT*

New name :A KT*

 

Hay cần xóa tiền tố A- như bạn hỏi bên trên :

Old : A-*

New : *

 

Ngoài ra còn nhiều áp dụng khác nếu bạn đọc kỹ ^^

 

Và nếu  cần viết lisp thì dùng ngay lệnh -Rename sẽ đơn giản rất nhiều


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#19 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5684 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

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

Cả 3 lisp ở trên đều thêm vào sau tên layer, ko thêm vào trước tên layer được. Mình dùng lệnh Rename nhu Ketxu nói thì đổi tên hàng loạt được nhưng lại chỉ thêm vào trước tên layer thôi chứ ko thêm vào phía sau hàng loạt được.

Cũng ko biết lệnh WildcardKetxu nói là gì?

Thanks!

Old : *

New : *-Trước_sau_như_nhau


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#20 bkhn_2011

bkhn_2011

    biết vẽ pline

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

Đã gửi 04 March 2014 - 04:30 PM

Đúng rồi :)

 

 

Bạn tham khảo link conghoa gửi kìa, nó là các ký tự đại diện. Đây cũng là lý do đặt tên trong CAD thường kèm theo tiền tố/hậu tố để xử lý hàng loạt đơn giản hơn

 

Ví dụ của bạn, cần thêm tiền tố ABC vào tất cả tên layer :

Old name : *

New name :ABC *

 

Hay cần thêm Chữ A vào tất cả layer bắt đầu bằng KT thì :

Old name :KT*

New name :A KT*

 

Hay cần xóa tiền tố A- như bạn hỏi bên trên :

Old : A-*

New : *

 

Ngoài ra còn nhiều áp dụng khác nếu bạn đọc kỹ ^^

 

Và nếu  cần viết lisp thì dùng ngay lệnh -Rename sẽ đơn giản rất nhiều

 

Tuyệt vời. Mẹo nhỏ mà công dụng thì ảo diệu thật. Cảm ơn các anh. 

Tuy nhiên cái lệnh bỏ ký tự đi em vẫn chưa thực hiện được. 

Ví dụ: Em có tên layer là "A-Wall" mà muốn bỏ chữ "A-" đi 

Khi đánh : * cơ mà nó không mất đi. 

 

Old: A-wall 

=> rename * ok. Nhưng không được. Anh hướng dẫn lại giùm em với aj


  • 0