;;我來公開源程序，我有版權。copyright(c)1998~2005 (defun c:mj (/ os pt1 a)
(setq os (getvar "osmode"))
(setvar "osmode" 512)
(setq pt1 (getpoint "n１、請在封閉區(qū)域的邊界上任選一點："))
(setvar "osmode" os)
(prompt "n２、請將封閉區(qū)域的所有邊界加入到選擇集中：")
(setq a (ssget))
(if (= (sslength a) 1)
(command "area" "e" a)
)
(if (> (sslength a) 1)
(progn
(command "pedit" pt1 "y" "j" a "" "")
(command "area" "e" pt1)
(command "explode" pt1)
)
)
)