将cad文件闭合的多段线输出至新的cad文件

远方小山

各位大神
      请教如何将cad中闭合的多段线输出运动新的cad文件，我看书编了一个，请各位指点。主要有以下以下几个问题;

1、"-WBLOCK" 输出有误

2、 是不是闭合多段线的组码70不一定是1啊？

(defun c:ssland( / ss)
        (setvar "cmdecho" 0)
        (setq ss (ssget '((0 . "LWPOLYLINE") (70 . 1))))
       
        (command "-WBLOCK"  pause "" "0,0" ss  "")
        (prin1)
)
请各位大神指正

远方小山

自己顶一下

ZZXXQQ

2. (defun c:ssland ( / ss)
   
3. (setvar "cmdecho" 0)
   
4. (if (setq ss (ssget '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1))))
   
5.   (command "-WBLOCK" pause "" "0,0" ss "")
   
6. )
   
7. (prin1)
   
8. )
   

(defun c:ssland ( / ss)<br /> (setvar "cmdecho" 0)<br /> (if (setq ss (ssget '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1))))<br />   (command "-WBLOCK" pause "" "0,0" ss "")<br /> )<br /> (prin1)<br /> )<br />