Đến nội dung


Hình ảnh
- - - - -

Xin Lisp close tấc cả Drawing đang mở


  • Please log in to reply
5 replies to this topic

#1 hochoaivandot

hochoaivandot

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 310 Bài viết
Điểm đánh giá: 106 (tàm tạm)

Đã gửi 21 April 2011 - 12:56 PM

Khi làm việc thì chúng ta thường phải mở rất nhiều drawing, Thậm chí mở nhiều application Cad khác nhau.
Đến khi không làm nữa phải đóng tấc cả các bản vẽ, tấc cả Cad đang mở. Mỗi bản vẽ đóng phải trả lời các câu hỏi Yes/No question của Autodesk.
Diễn đàn có thể viết cho 2lisp thực hiện chức năng tắt tấc cả drawing trên tấc cả các cửa sổ Cad đang được mở với yêu cầu
+ 1 lisp tên lệnh "csn" (close save no) : đóng tấc cả drawing không lưu
+ 1 lisp tên lệnh "csy" (close save yes) : Lưu và đóng tấc cả drawing
(quit luôn thằng Cad App càng tốt)
Có thể diễn đàn đã có lisp này, Nhưng mình search thì không thấy!
Một số diễn đàn khác cũng có lisp chức năng trên nhưng không đầy đủ và như ý muốn được.
Cảm ơn diễn đàn!
  • 0

Dương Bá Diệp

 

www.cadonline.duyxuyen.vn 

 

Thành viên nhóm CADMAGIC

 


#2 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

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

Đã gửi 21 April 2011 - 01:16 PM

Khi làm việc thì chúng ta thường phải mở rất nhiều drawing, Thậm chí mở nhiều application Cad khác nhau.
Đến khi không làm nữa phải đóng tấc cả các bản vẽ, tấc cả Cad đang mở. Mỗi bản vẽ đóng phải trả lời các câu hỏi Yes/No question của Autodesk.
Diễn đàn có thể viết cho 2lisp thực hiện chức năng tắt tấc cả drawing trên tấc cả các cửa sổ Cad đang được mở với yêu cầu
+ 1 lisp tên lệnh "csn" (close save no) : đóng tấc cả drawing không lưu
+ 1 lisp tên lệnh "csy" (close save yes) : Lưu và đóng tấc cả drawing
(quit luôn thằng Cad App càng tốt)
Có thể diễn đàn đã có lisp này, Nhưng mình search thì không thấy!
Một số diễn đàn khác cũng có lisp chức năng trên nhưng không đầy đủ và như ý muốn được.
Cảm ơn diễn đàn!

Mình thấy cái này trên mạng bạn thử xem nhé:

(vl-load-com)
(defun C:csn ( / dwg)
(vlax-for dwg (vla-get-Documents (vlax-get-acad-object))
(if (= (vla-get-active dwg) :vlax-false)(vla-close dwg :vlax-false))
)
(command "._close" "_y")
)
(defun C:csy ( / dwg)
(vlax-for dwg (vla-get-Documents (vlax-get-acad-object))
(if (= (vla-get-active dwg) :vlax-false)(vla-close dwg :vlax-true))
)
(command "._close" "_n")
)

  • 1

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#3 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 21 April 2011 - 02:34 PM

Mình dùng Tab CAd có đầy đủ.Ngoài ra, các chức năng bạn nói, bạn có thể tham khảo các lệnh trong sub menu File tool của Express (saveall, closeall, qquit ... ^^)
Qquit thì gọn nhất, thậm chí k kịp chớp mắt ^^
  • 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


#4 anhptq

anhptq

    biết zoom

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

Đã gửi 20 July 2013 - 09:26 AM

Bác có thể cho mình nhờ thêm vấn đề này.

Mình muốn đóng tất cả tất cả các bản vẽ đang mở và trước khi đóng mình muốn thêm một số thao tác giống nhau (vd:zoom e,apuge...).Bình thường mình phải bấm:Ctrl + Tab,zoom e,apuge,save....đến bản vẽ cuối cùng,rồi close all.rất mất thời gian.Mong bác giúp đỡ.

Mình dùng Tab CAd có đầy đủ.Ngoài ra, các chức năng bạn nói, bạn có thể tham khảo các lệnh trong sub menu File tool của Express (saveall, closeall, qquit ... ^^)
Qquit thì gọn nhất, thậm chí k kịp chớp mắt ^^


  • 0

#5 Mũn xinh

Mũn xinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 1313 Bài viết
Điểm đánh giá: 633 (tốt)

Đã gửi 20 July 2013 - 09:28 AM

Bạn gõ lệnh saveall xong rồi bấm ctrl + Q.


  • 0

...Một chiều ngồi say

Một đời thật nhẹ

Ngày qua...


#6 anhptq

anhptq

    biết zoom

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

Đã gửi 21 July 2013 - 08:30 AM

Bạn chưa hiểu ý mình rồi.Vấn đề là mình muốn làm sao chỉnh lại lisp trên,để thêm vào một số lệnh(giống nhau ở tất cả bản vẽ đang mở) trước khi tắt bản vẽ.vd:zoom e,apuge,...mình đã thử chỉnh sửa rồi nhưng chưa được.Mình chỉ mới biết sơ về autolisp,mong các bác giúp đỡ.

Bạn gõ lệnh saveall xong rồi bấm ctrl + Q.


  • 0