求:::CAD 一键遮罩
本帖最后由 LeeL 于 2020-3-16 09:10 编辑下面为一键遮罩的代码,求大神,帮忙制作成插件谢谢!
(defun c:XDTB_BlockMask (/ ss)
(XD::Begin)
(princ "\n选取要制作遮罩的图块...")
(if (setq ss (ssget '((0 . "insert"))))
(progn
(foreach x (xdrx_pickset->ents ss)
(xdrx_insert_appendwipeout x)
)
(xdrx_draworder->top ss)
(princ (strcat "\n成功制作了" (itoa (sslength ss)) "个图块遮罩!"))
)
)
(XD::End)
(princ)
)
提供或者制作成一键遮罩的奖励金币1000,谢谢!
页:
[1]