;组合多线段
(defun c:pej( / pet ss)
02. (setq pet (getvar "PEDITACCEPT"))
03. (setvar "PEDITACCEPT" 1)
04. (while (setq ss (ssget '((0 . "ARC,*LINE"))))
05. (command "_pedit" (ssname ss 0) "j" ss "" "")
06. )
07. (setvar "PEDITACCEPT" pet)
08. (princ)
09.)