[LISP程序]：写了一个多义线自动标注程序，有点问题。。。

enixing

刚刚学了几天lisp，连抄带蒙写了下面一个自动标注多义线的lisp，主要是两部分，第一部分是对多义线修正，删除多余的重复点，第二是自动标注。。。现在出现了一个问题，在修正后新生出来的多义线不能直接应用到自动标注，不知道是不是对象不对的原因。
请问这个程序应该怎么改才能直接把新生出来的多义线直接用于自动标注上？谢谢。。。

(defun c:cd ()
(vl-load-com)
;;;定义字高
; (setq li (getreal "\n 标注字体高度:"))
(setq li 4)
;;;获取对象
(eee)
(princ "\n选取PLINE多义线...")
(setq ss (ssget))
;;;建立定位辅助线
(setq xy (getpoint "\n 标注偏移方向:"))

;;;建立辅助线
(cmd1)
(command "OFFSET" (/ li 2) ss xy "")
(setq de (entlast))

;;;建立原多义线端点数据库
(setq obj (vlax-ename->vla-object (ssname ss 0)))
(setq plist (vlax-safearray->list
(vlax-variant-value
(vla-get-coordinates obj)
)
)
)

;;;建立辅助多义线端点数据库
(setq obj1 (vlax-ename->vla-object de ))
(setq plist1 (vlax-safearray->list
(vlax-variant-value
(vla-get-coordinates obj1)
)
)
)

;;;获得多义线子段数目

(setq num (/ (length plist) 2))
(princ num)
(princ "\n")
(setq n 0)
;;;标注,除最后一段
(repeat (1- num)
(setq pt1 (list (nth (* n 2) plist) (nth (1+ (* n 2)) plist)))
(setq pt2 (list (nth (* (1+ n) 2) plist)
(nth (1+ (* (1+ n) 2)) plist)
)
)

(setq pt3 (list (nth (* n 2) plist1) (nth (1+ (* n 2)) plist1)))
(setq pt4 (list (nth (* (1+ n) 2) plist1)
(nth (1+ (* (1+ n) 2)) plist1)
)
)

(setq n (1+ n))
(princ n)
(princ "\n")
(dimm)
)

;;;;;;标注最后一段
(setq pt1 (list (nth (* n 2) plist) (nth (1+ (* n 2)) plist)))
(setq pt2 (list (nth 0 plist) (nth 1 plist)))

(setq pt3 (list (nth (* n 2) plist1) (nth (1+ (* n 2)) plist1)))
(setq pt4 (list (nth 0 plist1) (nth 1 plist1)))

(princ n)
(princ "/n")
(dimm)

(command "ERASE" de "")
(cmd2)
)


;;;通用标注子程序
(defun dimm ()
(setq pt5 (mapcar '(lambda (x) (/ x 2) ) (mapcar '+ pt3 pt4)))
(command "_dimaligned" pt1 pt2 pt5)

)


;;; 保存原有系统变量，设置程序运行时的系统变量
(Defun cmd1 ()
(Setq cho (Getvar "Cmdecho")
osm (Getvar "Osmode")
)
(Setvar "Cmdecho" 0)
(Setvar "osmode" 0)
)



;;; 恢复原有系统变量
(Defun cmd2 ()
(Setvar "Cmdecho" cho)
(Setvar "Osmode" osm)
(Terpri)
(Princ)
)


(defun eee (/ N A AA AAA)
(setq A (car (entsel)))
(command "_.explode" A)
(setq A (ssget "p"))
(setq N 0)
(setq AA (ssadd))
(repeat (sslength A)
(if (and (/= "LINE" (assoc 0 (entget (ssname A N))))
(not (equal (cdr (assoc 10 (entget (ssname A N))))
(cdr (assoc 11 (entget (ssname A N))))
)
)
)
(ssadd (ssname A N) AA)
(command "_.erase" (ssname A N) "")
)
(setq N (1+ N))
)
(command "_.pedit" (SSNAME AA 0) "y" "j" AA "" "")
(princ)
)