Đến nội dung


Hình ảnh

Thay đổi tên block hàng loạt trong AutoCAD


  • Please log in to reply
30 replies to this topic

#21 linhoreka

linhoreka

    biết lệnh erase

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

Đã gửi 02 January 2011 - 06:26 PM

Dựa vào Lisp với VBA nhiều quá đâu phải là tốt ! Giờ mới nghĩ ra ! Sao ta không thử save file sang định dạng dxf, rồi mở bằng Notepad hoặc Wordpad, rồi Replace các chuỗi ký tự "Cua phong" bằng "Cua ve sinh" nhỉ ?
Lần sau cứ thế linh động làm nhé :D
  • 1

#22 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 03 January 2011 - 09:59 AM

Đoạn VBA chạy mượt n hơi lâu bác ạ ^^ Tks bác vì ứng dụng đó :">
  • 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


#23 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1436 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 03 January 2011 - 03:01 PM

...............
File trên là file đã chỉnh sửa hoàn thiện lần 003, với phần chi tiết bản lề cửa là dùng bản lề thiên địa. Nay mình có nhu cầu chuyển các thành phần bản lề thiên địa của các mặt cắt (dạng Block) thành bản lề cờ. Về phần nội dung thay đổi, mình dùng lệnh BlockReplace >>> OK. Nhưng về phần tên của các Block, mình không thể rename hàng loạt được. Lệnh Rename mỗi lần thực hiện chỉ có thể Rename 01 Block thôi.

Thao tác Rename mình đã thực hiện như sau :

Ren >>> Hộp thoại Rename >>> Chọn Named Objects : Blocks >>> Old Name : *Ban le thien dia* (Đồng ý là trong mục Items, các Block có tên chừa "Ban le thien dia" được đánh dấu) >>> Rename To : "Ban le co" (Lệnh vẫn thực thi, nhưng khi bạn kiểm tra lại trong phần Properties của Block thì Block vẫn giữ lại tên cũ).

Vì số lượng bản vẽ khá nhiều, mình mong là trong dịp nghỉ lẽ Tết sắp đến có thể tranh thủ sửa kịp, mong các bạn hỗ trợ. Thanks.

Bạn thử tool này : Thay thế hàng loạt tên Block trong file Cad
Chú ý quan trọng : Lệnh UNDO không có tác dụng khi sử dụng tool này. "Hạ thủ bất quờn"
Hình đã gửi
Cách sử dụng :
- Bạn gõ "Cua phong" vào ô "Find", gõ "Cua ve sinh" vào ô "Replace".
- Click button "Add" hay "Remove" để thêm (xóa) file CAD cần thay thế hàng loạt tên Block.
- click button "Run" để thực thi.
Chú ý không dùng wildcard *
Download Tool : Find And Replace

Bài viết đã được chỉnh sửa nội dung bởi gia_bach: 04 January 2011 - 12:16 PM

  • 1

#24 zoro107

zoro107

    biết vẽ ellipse

  • Members
  • PipPip
  • 51 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 24 January 2011 - 02:24 PM

[quote name='Lam Boi Co' date='Jan 2 2011, 14:53' post='125297']

SAO KHÔNG XÀI blockreplace NHI?
ĐƠN GIẢN HƠN MÀ... !
  • 0

#25 manhthang13787

manhthang13787

    Chưa sử dụng CAD

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

Đã gửi 08 March 2012 - 08:21 PM

Chào bạn linhoreka,

MultiRenameBlock đúng là cái mà mình đang cần. Thanks nhiều lắm, sẽ giúp mình rút ngắn được rất nhiều thời gian trong công việc. Mình đã thử, tạm thời chưa phát hiện có vấn đề gì. :s_big:

Nhân dịp năm mới 2011, xin chúc bạn và cộng đồng CAD Việt một năm mới an khang thịnh vượng, mọi điều may mắn. Diễn đàn CAD Việt lực lượng ngày càng hùng hậu.

Chúc mừng năm mới Hình đã gửi


Bạn ơi, mình cũng đang rất cần LISP để đổi tên hàng loạt Block giống như bạn trước đây.
Giờ mình nhờ bạn có thể gửi giúp mình lại LISP lên diễn đàn hoặc mail của mình được không vì mình đang cần gấp để chuẩn bị làm Đồ án tốt nghiệp.
Mail của mình là: manhthang13787@gmail.com
Cảm ơn bạn rất nhiều
  • 0

đèn led chiếu sáng - đèn led âm trần - đèn trang trí

Cung cấp đèn trang trí chất lượng cao, đèn thả hiện đại

Bán căn hộ chung cư đồng phát park view giá tốt

Phân phối giày lười tuổi teen


#26 manhthang13787

manhthang13787

    Chưa sử dụng CAD

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

Đã gửi 08 March 2012 - 08:25 PM

Đoạn VBA chạy mượt n hơi lâu bác ạ ^^ Tks bác vì ứng dụng đó :">




Chào bạn
Mình nhờ bạn có thể gửi giúp mình lại LISP đó lên diễn đàn hoặc mail của mình được không, liên kết trước bị die rồi. Vì mình đang cần gấp để chuẩn bị làm Đồ án tốt nghiệp.
Mail của mình là: manhthang13787@gmail.com
Thanks
  • 0

đèn led chiếu sáng - đèn led âm trần - đèn trang trí

Cung cấp đèn trang trí chất lượng cao, đèn thả hiện đại

Bán căn hộ chung cư đồng phát park view giá tốt

Phân phối giày lười tuổi teen


#27 manhthang13787

manhthang13787

    Chưa sử dụng CAD

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

Đã gửi 08 March 2012 - 08:28 PM

Bạn thử tool này : Thay thế hàng loạt tên Block trong file Cad
Chú ý quan trọng : Lệnh UNDO không có tác dụng khi sử dụng tool này. "Hạ thủ bất quờn"
Hình đã gửi
Cách sử dụng :
- Bạn gõ "Cua phong" vào ô "Find", gõ "Cua ve sinh" vào ô "Replace".
- Click button "Add" hay "Remove" để thêm (xóa) file CAD cần thay thế hàng loạt tên Block.
- click button "Run" để thực thi.
Chú ý không dùng wildcard *
Download Tool : Find And Replace


bạn gửi lại link giúp mình được không, link die roài
  • 0

đèn led chiếu sáng - đèn led âm trần - đèn trang trí

Cung cấp đèn trang trí chất lượng cao, đèn thả hiện đại

Bán căn hộ chung cư đồng phát park view giá tốt

Phân phối giày lười tuổi teen


#28 phankientruc

phankientruc

    biết pan

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

Đã gửi 05 April 2012 - 05:56 PM

Mình cũng có tình huống thế này: VD có 100 block cùng loại, bây giờ mình muốn đổi tên 1 nửa trong số đó thành 1 tên khác thì có làm được không?
  • 0

#29 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 05 April 2012 - 07:54 PM

Mình cũng có tình huống thế này: VD có 100 block cùng loại, bây giờ mình muốn đổi tên 1 nửa trong số đó thành 1 tên khác thì có làm được không?

Mình cũng có tình huống thế này: VD có 100 block cùng loại, bây giờ mình muốn đổi tên 1 nửa trong số đó thành 1 tên khác thì có làm được không?

Bạn có thể dùng mẹo sau:
Gọi bản vẽ chứa 100 block cùng loại là bản vẽ A. Tạo 1 bản vẽ mới N (bằng lệnh New)
- Ở bản vẽ A: Dùng lệnh copybase (Phím tắt là Ctrol+Shift+C)
Command: COPYBASE
Specify base point: 0,0,0 -> gõ 0,0,0 (tức là Lấy gốc tọa độ O làm điểm chèn base)
Select objects: Specify opposite corner: 450 found
Select objects:

Dùng lệnh Erase -> xóa đối tượng Block vừa chọn đi
Command: e ERASE
Select objects: p -> gõ P
450 found
Select objects:

Nhấn ctrol+V
Command: _pasteclip
Specify insertion point: 0,0,0 -> Điểm chèn là gốc tọa độ O

Dùng lệnh Rename đổi tên Block
Dùng tiếp lệnh Copybase với Basepoint là 0,0,0 (chọn các đối tượng đã copy từ A-> N )
-> từ bản vẽ N sang bản vẽ A
  • 0

#30 funnyzui

funnyzui

    biết vẽ arc

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

Đã gửi 20 May 2014 - 06:51 PM

Bạn thử dùng cái này xem MultiRenameBlock: đổi tên hàng loạt blocks.
1. App cả 2 file dvb và lisp vào autocad
2. Bạn gõ lệnh MRB (multirenameblock)
3. Bạn gõ "Cua phong" vào ô "Tên cũ", nhấn enter >>> gõ "Cua ve sinh" vào ô "Tên mới", nhấn enter >>> chọn những blocks được list ra trong danh sách và click button "Chuyển tên". Chú ý không dùng wildcard *
Có lỗi gì nhắn để tớ sửa nhé !

Cám ơn rất nhiều! Tuy lúc đầu hơi khó dùng nhưng mò mẫm 1 lát cũng làm đc. 

Thanks bạn!


  • 0

#31 phieuluu35

phieuluu35

    biết pan

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

Đã gửi 12 March 2016 - 11:55 AM

Bạn thử dùng cái này xem MultiRenameBlock: đổi tên hàng loạt blocks.
1. App cả 2 file dvb và lisp vào autocad
2. Bạn gõ lệnh MRB (multirenameblock)
3. Bạn gõ "Cua phong" vào ô "Tên cũ", nhấn enter >>> gõ "Cua ve sinh" vào ô "Tên mới", nhấn enter >>> chọn những blocks được list ra trong danh sách và click button "Chuyển tên". Chú ý không dùng wildcard *
Có lỗi gì nhắn để tớ sửa nhé !

Sao mình tải về nhưng app file dvb ko được vậy bạn, hướng dẫn giúp mình với. Mình đang cần cái này lắm


  • 0