请教ZZXXQQ

lazybug

关于你在以下地址发过的程序我有两处不明，能否指点一二，万分感激！！

dispbbs.asp?boardid=3&star=2&replyid=54147&id=25388&skin=0&page=4

我想问的是＂(COMMAND "TRIM" SS "" "F" PT1 PT2 PT3 PT4 PT1 "" "")＂这一行我在CAD命令行上按原命令逐步执行为什么得不出同样的效果？
还有“(setq x1 (+ x1 0.2) y1 (+ y1 0.2)
                   x2 (- x2 0.2) y2 (- y2 0.2))”
这两行的意义何在？

lazybug

其他高手有知道的么？？

程序全文是这样的：

(defun c:cut(/ b1 a1 ss x1 x2 y1 y2 pt1 pt2 pt3 pt4)
  (setq b1 (getcorner (setq a1 (getpoint "\n指定选择框"))))
  (command "rectang" a1 b1)
  (setq ss (entlast))
  (setq x1 (car a1) y2 (cadr b1)
        x2 (car b1) y1 (cadr a1))
  (if (> x1 x2) (setq tt x1 x1 x2 x2 tt))
  (if (> y1 y2) (setq tt y1 y1 y2 y2 tt))
  (setq x1 (+ x1 0.01) y1 (+ y1 0.01)
        x2 (- x2 0.01) y2 (- y2 0.01))
  (setq pt1 (LIST X1 Y1) PT2 (LIST X2 Y1)
        PT3 (LIST X2 Y2) PT4 (LIST X1 Y2))
  (COMMAND "TRIM" SS "" "F" PT1 PT2 PT3 PT4 PT1 "" "")
  (COMMAND "ERASE" "W" PT1 PT3 SS "")
  (PRINC)
 )

ZZXXQQ

1、改(COMMAND "TRIM" SS "" "F" PT1 PT2 PT3 PT4 PT1 "" "")
     为(COMMAND "TRIM" SS "" "F" PT1 PT2 "" PT2 PT3 "" PT3 PT4 "" PT4 PT1 "" "")

2、(setq x1 (+ x1 0.01) y1 (+ y1 0.01)
        x2 (- x2 0.01) y2 (- y2 0.01))
这两行是将方框缩小一点，以便进行剪切。