Lisp trích chi tiết miễn phí | TCT phiên bản Miễn phí | 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: 👉👉👉

Lisp trích chi tiết TCT

Lisp hỗ trợ tạo block và xclip các đối tượng hoàn toàn miễn phí!

1 Thêm class TCT_.lsp

Lưu mã sau dưới dạng tệp tin TCT_.lsp

Code:

(defun c:TCT (/ pt p1 p2 ss ent entz entzz)
  (setq pt  '(0 0 0))
  (setq p1  (getpoint "\nChon diem thu nhat: "))
  (setq p2  (getcorner p1 "\nChon diem thu hai: "))
  (setq ss  (ssget "C" p1 p2))

  (command "RECTANG" p1 p2)
  (setq ent (entlast))

  (vl-cmdf "copybase" pt ss "")
  (vl-cmdf "pasteblock" pt)
  (setq entz (entlast))

  (command "XCLIP" entz "" "N" "S" ent)
  (setq entzz (entlast))

  (command "ERASE" ent "")
  (command ".MOVE" entzz "" p2 PAUSE)
)

Phiên bản TCT PRO

Ứng dụng TCT cao cấp do AJS phát triển

Tìm hiểu thêm: Lisp trích chi tiết và dim kích thước tự động | GKBD bổ chi tiết kiến trúc nội thất | AutoLISP Reviewer

Link tải lisp miễn phí (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!