Explode block thành Group | Explode block then Group in AutoCAD drawing | 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 B2G 

Có tác dụng Phá block (Explode) sau đó nhóm thành Group.

1 Thêm class B2G.lsp

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

Code:

(defun c:B2G (); = Block Insert, Explode & Group
	(if (setq ent (car (entsel)))
		(progn
			(command "_.explode" ent)
			(sssetfirst nil (ssget "_P"))
			(initcommandversion)
			(command "_.group")
		)
	)
	(princ "By www.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!