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

Save As Nhanh Nhiều Bản Vẽ

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

hung1608    5

Cho mình hỏi có cách nào save as nhanh cùng 1 lúc nhiều bản vẽ không. Chẳng là mình có hơn 100 bản vẽ cần xếp về cad đời cũ. Mà làm từng bản vẽ  1 thấy lâu và thủ công quá.

Nếu cad không có lệnh này thì phiền bạn nào giúp mình viết 1 cái lisp sử lý vấn đề này được không

Thanks

  • 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
Tr.CongSon    41

Bạn thử cái này xem sao  :)

 

Trước  khi dùng lisp thì vào Option -->Open and Save --> Chọn định dạng file mà bạn muốn save nhé !

 

Cách dùng: Mở bản vẽ mới ,sau đó gõ lệnh SA ,rồi chọn file bất kỳ trong folder mà chứa file cần save

Rồi uống cafe đợi nó chạy xong nhé.keke

  • 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
hung1608    5

Bạn thử cái này xem sao   :)

 

Trước  khi dùng lisp thì vào Option -->Open and Save --> Chọn định dạng file mà bạn muốn save nhé !

 

Cách dùng: Mở bản vẽ mới ,sau đó gõ lệnh SA ,rồi chọn file bất kỳ trong folder mà chứa file cần save

Rồi uống cafe đợi nó chạy xong nhé.keke

Cái định dạng mình biết bạn ơi, nhưng như mình đã nói, mình có tầm 100 bản vẽ, nếu làm từng bản vẽ 1 thì lâu lắm, nên muốn nhờ mọi người xem có cách nào để tiết kiệm thời gian hơn không.

Thanks

  • 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
Tr.CongSon    41

Lúc nãy mình gởi code rồi sao ko thấy hè

Bạn apload rồi dung nhé

Lệnh: SA

(defun c:SA (/ gfile lstdwg n path scr)
(grtext
-1
"CT Ch\U+1EA1y H\U+00E0ng Lo\U+1EA1t B\U+1EA3n V\U+1EBD...!!! @ Tr\U+1EA7n S\U+01A1n-Detail"
)
(setq gfile (getfiled
"Ch\U+1ECDn FileDWG t\U+00F9y \U+00FD trong Folder :"
""
"dwg"
0
)
path (vl-filename-directory gfile)
lstdwg (vl-directory-files path "*dwg")
pathscr (strcat path "\\" "RunAll.scr")
scr (open pathscr "w")
)
(foreach x lstdwg
(write-line (strcat "OPEN " "\"" path "\\" x "\"" " QSAVE CLOSE ") scr)
)
(close scr)
(command "script" pathscr)
(princ)
)
  • 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
hung1608    5

Bạn xem giúp mình chút, mình đạnh lệnh rùi thì làm thế nào tiếp

Xuất hiện bảng nhưng mình vẫn phải chọn từng file 1 là sao vậy bạn

  • 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
Tr.CongSon    41

Chọn 1 file tùy ý trong folder thôi,chủ yếu để lấy đường dẫn mà

Click-Dup vào là được ^^

Xong nó tự chạy hết bản vẽ trong folder bạn chon à :)

Chúc  bạn thành công

!

  • 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
hung1608    5

Không được bạn ơi, mình thử rùi nó chạy từng file 1, mà cũng không save as bản được bạn thử check lại hộ mình xe sao được không

  • 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
Tr.CongSon    41

Hêhe .Lâu nay có DWG TrueView mà không dùng,công nhận cái này hay thật.

Thanks a Quocmanh04tt nhé.

Anh hung608 muốn convert về Version nào thì cứ download nó về cài rồi dùng cho nhanh nhé.Cái này convert nhanh lắm!

Anh Muốn convert bao nhiêu file cũng được.

  • 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

hi anh Tr.CongSon!

em đang tập tành viết lisp. Em muốn lấy text để đặt tên file bằng getstring bằng 2 cách như sau : ... http://www.cadviet.com/upfiles/5/148547_save_as_f1.lsp

anh có cách gì gộp chung lại chỉ giúp em.

Thanks anh.

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


×