不是小问题的小问题之一

lyt0623 · 发表于 2004-10-14 09:45:00

各位大侠，我是刚学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 · 发表于 2004-10-14 12:55:00

(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 . ) (0 . "LINE") (330 . ) (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 . ) (0 . "LINE") (330 . ) (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 · 发表于 2004-10-14 18:47:00

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

不是小问题的小问题之一

发表回复

精选推荐