根据不同的区域大小插入不同的块

citykunan

我都改了，如果把right都改成其他图层名，可以用。
但是如果把right去掉，就不能运行了。真不知是怎么回事？

meflying

这样子改，
(defun SS1 (A B)
    (ssget "C"
           ENT1
           (list (+ (car ENT1) A) (+ (cadr ENT1) B))
           '((-4 . "<NOT")
             (-4 . "<OR")
             (0 . "LINE")
             (0 . "DIMENSION")
             (-4 . "OR>")
             (-4 . "NOT>")
            )
    )
  )

citykunan

谢谢飞版主，现在可以了。