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í!

Các sử dụng rất đơn giản

Appload như các lisp khác

Gõ lệnh TCT, pick 2 điểm tạo thành Rectangle bao quanh chi tiết muốn cắt

Xác định vị trí đặt kết quả.

Chương trình tự động tạo block từ các đối tượng trong vùng Rectangle đã chọn, tạo block, tự tạo xclip theo đường bao Rectangle.

Tải lisp

Link tải hoàn toàn miễn phí, mã nguồn mở

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