Đến nội dung


Hình ảnh
- - - - -

[Hỏi] Lưu file


  • Please log in to reply
2 replies to this topic

#1 pdle

pdle

    biết lệnh mtext

  • Members
  • PipPipPipPip
  • 286 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 09 April 2012 - 09:38 PM

Em viết một lisp lưu file như sau:

defun c:kt ( / link fina)
(
setq fina (vl-filename-base (getvar "dwgname"))
link "C:\\Users\\pdle\\Desktop\\Technoinox\\Corrected\\"
link (strcat link fina ".dwg")
)
(command "saveas" "2004" link)
(princ)
)

Bây giờ trong trường hợp nếu filename đã có trong folder Corrected, em sẽ lưu file mới với tên cũ cộng thêm _x , e,g dwgname_x_x.dwg thì làm thế nào ạ?
  • 0
Share your knowledge. It is a way to achieve immortality !

***

PS: Nếu bài viết của mình có ích, xin hãy "Bình chọn cho bài viết này" nhé :D

#2 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 09 April 2012 - 09:49 PM

Bạn hãy sử dụng Filefind làm điều kiện strcat cho filename
  • 1

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


#3 pdle

pdle

    biết lệnh mtext

  • Members
  • PipPipPipPip
  • 286 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 10 April 2012 - 01:17 AM

Cảm ơn anh ketxu. Dùng findfile được lisp như sau:

(defun c:kt ( / link fina)
(
setq fina (vl-filename-base (getvar "dwgname"))
link "C:\\Users\\pdle\\Desktop\\Technoinox\\Corrected\\"
link (strcat link fina ".dwg")
)
(while (findfile link) (setq link (strcat (substr link 1 (- (strlen link) 4)) "-x.dwg")))
(command "saveas" "2004" link)
(princ)
)

  • 0
Share your knowledge. It is a way to achieve immortality !

***

PS: Nếu bài viết của mình có ích, xin hãy "Bình chọn cho bài viết này" nhé :D