Lisp miễn phí tạo layer và đặt hiện hành bằng phím tắt từ 0 đến 9 | 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 tắt từ 0-9

Tạo sẵn bộ layer tiêu chuẩn, sử dụng lệnh tắt từ 0 đến 9 để chuyển nhanh các layer.

1 Thêm class [0-9] Change CurrentLayer_byAJS_.lsp

Lưu mã sau dưới dạng tệp tin [0-9] Change CurrentLayer_byAJS_.lsp

Code:

(defun c:0()
	(QSetLayer "I-DELT-0")
	(princ "\nCreate by lisp.vn")
	(princ)
)
(defun c:1()
	(QSetLayer "I-DELT")
	(princ "\nCreate by lisp.vn")
	(princ)
)
(defun c:2()
	(QSetLayer "I-DELT-CUT")
	(princ "\nCreate by lisp.vn")
	(princ)
)
(defun c:3()
	(QSetLayer "I-DELT-DIM")
	(princ "\nCreate by lisp.vn")
	(princ)
)
(defun c:4()
	(QSetLayer "I-DELT-WALL")
	(princ "\nCreate by lisp.vn")
	(princ)
)
(defun c:5()
	(QSetLayer "I-DELT-DOOR")
	(princ "\nCreate by lisp.vn")
	(princ)
)
(defun c:6()
	(QSetLayer "I-DELT-HATCH")
	(princ "\nCreate by lisp.vn")
	(princ)
)
(defun c:7()
	(QSetLayer "I-DELT-HIDE")
	(princ "\nCreate by lisp.vn")
	(princ)
)

(defun QSetLayer (BLAYER)
	(command "._LAYER"
      (if (tblsearch "LAYER" BLAYER) "_S" "_M")
      BLAYER
      ""
    )
	(princ "\nCreate by lisp.vn")
	(princ)
)
(princ "\nCreate by lisp.vn")
(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!