Lisp miễn phí chia nhanh màn hình VIEWPORT VPORTS | AutoLISP Reviewer

Ứng dụng được phát triển/Sưu tầm bởi đội ngũ AutoLISP Thật là đơn giản

   

Thông tin thêm: 👉👉👉

Lệnh sử dụng VP

Chia nhanh màn hình Model thành các khung Ngang/Dọc hoặc Single (mặc định 1 viewport)

1 Thêm lisp [VP] by AJS.lsp

Lưu mã sau dưới dạng tệp tin [VP] by AJS_.lsp

Code:

(defun c:VP (/ opt)
  (initget "Ngang Doc 1")
  (setq opt
    (getkword
      "\nChia màn hình [Ngang/Doc/1] <Ngang>: "
    )
  )

  (cond
    ;; Chia ngang
    ((or (null opt) (= opt "Ngang"))
     (command "_.VPORTS" "_2" "_H")
     (princ "\nĐã chia đôi màn hình theo chiều ngang.")
    )

    ;; Chia dọc
    ((= opt "Doc")
     (command "_.VPORTS" "_2" "_V")
     (princ "\nĐã chia đôi màn hình theo chiều dọc.")
    )

    ;; Quay về 1 màn hình (Single)
    ((= opt "1")
     (command "_.VPORTS" "_SI")
     (princ "\nĐã quay về màn hình chính (Single viewport).")
    )
  )

  (princ)
)

Link tải (MediaFire)

📥 https://www.mediafire.com/

---------------------------------------------------------------------------------------------

Ứng dụng được phát triển bởi đội ngũ AutoLISP Thật là đơn giản - Tác giả ứng dụng in D2P

    

Mọi thông tin xin liên hệ Fanpage AutoLISP Thật là đơn giản!

Cảm ơn bạn đã theo dõi!