(DEFUN C:wq () (setq s(ssget))(if s (command "pedit" "m" s pause "j" "0" "")))

以上命令是变多段线 和合并多段线的 我以前一直可以用 但是 最近不能用了 就是选择线以后 就出错了 找一个干净的cad 就可以用，加载所有lisp后就不可以用这个命令了，用就出错