Đến nội dung


Hình ảnh
- - - - -

Save As Nhanh Nhiều Bản Vẽ


  • Please log in to reply
10 replies to this topic

#1 hung1608

hung1608

    biết lệnh rotate

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

Đã gửi 14 August 2015 - 01:52 PM

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


  • 1

#2 Tr.CongSon

Tr.CongSon

    biết lệnh array

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

Đã gửi 14 August 2015 - 03:14 PM

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


  • 1

#3 hung1608

hung1608

    biết lệnh rotate

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

Đã gửi 14 August 2015 - 04:14 PM

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


  • 1

#4 Tr.CongSon

Tr.CongSon

    biết lệnh array

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

Đã gửi 14 August 2015 - 04:53 PM

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


  • 1

#5 hung1608

hung1608

    biết lệnh rotate

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

Đã gửi 14 August 2015 - 08:45 PM

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


  • 1

#6 Tr.CongSon

Tr.CongSon

    biết lệnh array

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

Đã gửi 15 August 2015 - 08:11 AM

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

!


  • 1

#7 hung1608

hung1608

    biết lệnh rotate

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

Đã gửi 15 August 2015 - 09:33 AM

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


  • 1

#8 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 313 (khá)

Đã gửi 15 August 2015 - 10:31 AM

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


  • 2

#9 Tr.CongSon

Tr.CongSon

    biết lệnh array

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

Đã gửi 15 August 2015 - 11:20 AM

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.


  • 1

#10 hung1608

hung1608

    biết lệnh rotate

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

Đã gửi 15 August 2015 - 07:37 PM

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é


  • 1

#11 Khang Tan 1312

Khang Tan 1312

    Chưa sử dụng CAD

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

Đã gửi 07 December 2015 - 02:51 AM

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.c..._save_as_f1.lsp

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

Thanks anh.


  • 0