Save As Nhanh Nhiều Bản Vẽ

[hung1608 8]

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

[Tr.CongSon 42]

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

[hung1608 8]

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

[Tr.CongSon 42]

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)
)

[hung1608 8]

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

[Tr.CongSon 42]

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

!

[hung1608 8]

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

[quocmanh04tt 635]

Sao bạn không dùng DWG TrueView nhỉ??? Nó của Autodesk (Free), tải về, cài đặt convert bao nhiêu file cũng được (đủ các loại version cad).

[Tr.CongSon 42]

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.

[hung1608 8]

Phần mền này quá hay, sài cad cả chục năm giờ mới biết tới nó thật là thiếu sót :)

Cảm ơn 2 bạn đã giúp đỡ mình nhé

[Khang Tan 1312 1]

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.