不是小问题的小问题之一

lyt0623

各位大侠，我是刚学LISP的，以下有一个对于你们来说是个小问题但对于我来说是大问题的问题要向各位请教。为什么以下的图元SS2经过修剪之后的数据是一样的呢。
即前后两次(print ss21)的结果是一样的。
(defun C:lyt()
(setq ss1(car (entsel "\nSecond entity:")))
(setq ss11(entget ss1))
(setq ss2(car (entsel "\nSecond entity:")))
(setq ss21(entget ss2)) (print ss21)
(command "trim" ss1 "" ss2 "") (setq ss21(entget ss2))
(print ss21)
)

xyp1964

(defun C:lyt ()
(setq ss1 (car (entsel "\nFirst entity:")))
(setq ss11 (entget ss1))

(setq ss2 (car (entsel "\nSecond entity:")))
(setq ss21 (entget ss2))
(princ"\n\tss21 : ")(print ss21)
(princ)

(command "trim" ss1 "" ss2 "")
(setq ss21 (entget ss2))
(princ"\n\tss21 : ")(print ss21)
(princ)
) 运行lyt后显示： ss21 :
((-1 . <图元名: 7ea71b40>) (0 . "LINE") (330 . <图元名: 7ed7cd18>) (5 . "1D28")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10
-62582.2 -41728.1 0.0) (11 -72823.6 -35874.9 0.0) (210 0.0 0.0 1.0))
ss21 :
((-1 . <图元名: 7ea71b40>) (0 . "LINE") (330 . <图元名: 7ed7cd18>) (5 . "1D28")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10
-71944.0 -36377.6 0.0) (11 -72823.6 -35874.9 0.0) (210 0.0 0.0 1.0)) 结论：图元名相同，线段端点坐标不同（被剪断）！

lyt0623

难道我看错了，谢谢xyp1964的帮忙