Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
invention

Find và Replace trong nhiều bản vẽ

Các bài được khuyến nghị

gia_bach    1.442

Thay bằng hàm trên thì ghi 2 files được, gọi dialog được, nhưng find hoặc raplace thì không nhúc nhích gì đến đối tượng cả, mặc dầu text được chọn trực tiếp (không thể sai). Và nó báo y như bạn Lisphnvn72015 đang hỏi vậy.

Có lẽ bị lỗi thật?

Ví dụ: Thay thế chuỗi "CV" bằng chuỗi "CadViet" các file trong thư mục "C:\ObjectARX 2015" (không bao gồm thư mục con)

chú ý : mặc định có phân biệt chữ Hoa và chữ thường, có thể vào Options để chọn.

15454_fnr.png

 

15454_fnrres.png

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
gia_bach    1.442

Thế là nó không thay trên bản vẽ hả gia_bach

Xử lý 2 file, nhưng chỉ tìm và thay thế được file   word puzle.dwg , file còn lai không có text thỏa đ/kiện tìm kiếm.

15454_fnrres1.png

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Chắc liên quan đến hệ điều hành và hàm _GetSavePath

(tôi dùng win8.1 Cad2014-2015) 

(defun _GetSavePath ( / tmp )
    (cond      
      ( (setq tmp (getvar 'ROAMABLEROOTPREFIX))
        (strcat (vl-string-right-trim "\\" (vl-string-translate "/" "\\" tmp)) "\\Support")
      )
      ( (setq tmp (findfile "ACAD.pat"))
        (vl-string-right-trim "\\" (vl-string-translate "/" "\\" (vl-filename-directory tmp)))
      )
      ( (vl-string-right-trim "\\" (vl-filename-directory (vl-filename-mktemp))) )
    )
  )

PS : Bác mà cũng ... hỏi, thì e rằng   .... :(

Mình ngu lâu không hiểu dùng cái này thế nào?

Vẫn không xài được dù đã vào cad 2015 bạn ạ!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Doan Van Ha    2.678

@Gia_Bach: nói chung mấy thứ đó thì biết, nhưng nó không thay mà chỉ báo 2 dòng như bạn kia thôi, ngoài ra không có gì thêm.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
gia_bach    1.442

@Gia_Bach: nói chung mấy thứ đó thì biết, nhưng nó không thay mà chỉ báo 2 dòng như bạn kia thôi, ngoài ra không có gì thêm.

Chắc có nhầm lẫn khi pick trên hộp thoại ?

Bác thử tìm dòng :

          (setq dwLst
            (cond
              ( (eq "1" *BFind_cur*)
                (list
                  (cond
                    ( (eq "" (vla-get-FullName acdoc))
                      (strcat (vl-string-right-trim "\\" (vla-get-Path acdoc)) "\\" (vla-get-Name acdoc))
                    )
                    ( (vla-get-FullName acdoc) )
                  )
                )
              )
              ( (eq "1" *BFind_opn*)
                (vlax-for doc (vla-get-documents acapp)
                  (setq dwlst
                    (cons
                      (if (eq "" (vla-get-fullname doc))
                        (strcat (vl-string-right-trim "\\" (vla-get-path doc)) "\\" (vla-get-name doc))
                        (vla-get-fullname doc)
                      )
                      dwlst
                    )
                  )
                )
                dwlst
              )
              ( t
                (_GetAllFiles *BFind_pat* (eq "1" *BFind_sub*) "*.dwg")
              )
            )
          ) 

và  thay thế bằng : (setq dwLst (_GetAllFiles "d:\\folder_name" nil "*.dwg") 

với folder_name là thư mục ở ổ D

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Doan Van Ha    2.678

Đã thay mọi thứ bác Gia_Bach đề nghị. Kết quả: test thư mục có 4 bản thì nó duyệt qua cả 4 nhưng không thay, kể cả text nằm ngay trên bản vẽ hiện hành thuộc thư mục đã chọn.

Nói chung, lisp này nếu dùng được thì hay, nhưng chạy chậm. Thấy mọi người bàn tán nên cũng bà tám cho vui, còn thực tế thì chưa bao giờ dùng nên cũng không mặn mà lắm trong việc tìm nguyên nhân.

Lúc nào hứng sẽ đào lên lại.

Hiện nó đang báo như thế này:

Command:

BFIND

Select Object:

Select Object:

Working, Please Wait.......

<< 4 Drawings Processed >>

<< No Replacements Made >>

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Đã thay mọi thứ bác Gia_Bach đề nghị. Kết quả: test thư mục có 4 bản thì nó duyệt qua cả 4 nhưng không thay, kể cả text nằm ngay trên bản vẽ hiện hành thuộc thư mục đã chọn.

Nói chung, lisp này nếu dùng được thì hay, nhưng chạy chậm. Thấy mọi người bàn tán nên cũng bà tám cho vui, còn thực tế thì chưa bao giờ dùng nên cũng không mặn mà lắm trong việc tìm nguyên nhân.

Lúc nào hứng sẽ đào lên lại.

Hiện nó đang báo như thế này:

Command:

BFIND

Select Object:

Select Object:

Working, Please Wait.......

<< 4 Drawings Processed >>

<< No Replacements Made >>

em cũng thế bác ạ!

Mình muốn nó thay luôn text trên các bản vẽ đang mở hay chỉ trên 1 bản vẽ chạy chương trình mà cũng không tìm ra cách chạy được anh nhỉ!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
tien2005    97

Bác Gia_Bach cho hỏi tí: vì sao tôi dùng thì nó báo 2 files cfg và dcl không ghi được?

Vấn đề không ghi được file trước đây mình có đề cập nhưng không giải quyết được, đành phải cày đặt lại autocad

@Ha chạy lạy lisp (khi chưa sửa) xem còn bị lổi trên hay không. Nếu vẫn bị mình nghĩ nó bị lỗi tại dòng lệnh (open fn "w") trong hàm _WriteConfig, mặc dù biến fn vẫn hợp lệ nhưng cacd báo open string nil

Nếu @Ha đã sửa được lỗi này thì thì AE cadviet lại có them kinh nghiệm xử lý cái lỗi "oái ăm" này ^^

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Mình viết lisp chỉ ở mức độ ABC nên không hiểu nhiều về chương trình này

Nhưng mình thấy nó rất hay đấy!

nếu Bạn nào chạy được nó để chia sẻ mọi người ứng dụng thì rất hay.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Mình viết lisp chỉ ở mức độ ABC nên không hiểu nhiều về chương trình này


Nhưng mình thấy nó rất hay đấy!


nếu Bạn nào chạy được nó để chia sẻ mọi người ứng dụng thì rất hay.


Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

 

Kính chào diễn đàn, mình mới sưu tầm được 1 lisp find and replace rất hay, nhưng khi chạy bị lỗi;

Lỗi báo:

 

<< 1 Drawings Processed >>
<< No Replacements Made >>
mà không hiểu sai ở đâu?

Xin mọi người giúp đỡ!

Trân trọng!

 

Mong mọi người giúp sử dụng chương trình này!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×