怎样将没闭合的SPLINE线闭合?

lht

想批量将不闭合的曲线闭合,程序如下,得不到闭合的曲线,查更新后的列表,点表是闭合的,但曲线是不闭合的,为何?希望高人指点!
      (princ "\n请选择需闭合的曲线:")
    (setq ss (ssget)                       ;取得曲线选择集
          i 0
    )
    (setq m 0 endata '())
    (repeat (sslength ss)
            (setq ssi (ssname ss m))
            (setq endata (entget ss))     ;曲线的信息列表
            (setq lo (cdr (assoc 70 endata)))          ;曲线是否闭合组码,lo=8不闭合,lo=10为闭合
            (if (= lo 8) (progn                        ;如果不闭合   
                (setq oldr (assoc 70 endata))          ;取出不闭合点表
                (setq newr (cons 70 10))               ;建闭合点表
                (setq endata (subst newr oldr endata)) ;替换点表
                (entmod endata)                        ;更新图元
            ))
          (setq m (+ m 1))
     )

寒潮大冬瓜

12年过去没人回帖！