新手求解啊，各位

世界一角的你

(setq p1 (list x 10000000))
  (setq p2 (list x -10000000))
  (command "line" p1 p2 "")
  (setq e (entlast))
  (command "zoom" "e")
  (command "trim" e3 e1 e2 e4 e5 "" (list e p1 )(list e p2 )  "")
  (entmod e)
  (setq p1 (cdr (assoc 10 e)))
  (setq p2 (cdr (assoc 11 e)))


修剪完好后怎么p1 p2不变啊

ll_j

e是一个已经保存的变量，修剪只能改变实体，并不能改变已经保存的变量。
你试试在entmod一句以后加上“(setq e (entget (car (assoc -1 e))))”试试。