[求助]请帮我看看这段代码有什么问题？

dgygs

我想用边界命令搜出边界，然后偏移，再删除原来的边界，但是删除不了，代码如下：

(defun c:bb (/)
     (setq p00 (getpoint "\n请点出面层的偏移方向 <退出>: "))
      (progn (setq w   (getreal (strcat "\n面层厚度(毫米) <"
         (rtos _thick1 2 1)
         ">: "
        )
      )
     _thick1 (if w
        (abs w)
        _thick1
      )
      )
                  (command ".BOUNDARY" p00 "")
                  (setq ee (entsel "\n选择偏移线"))
      (command ".offset" _thick1 ee p00 "")
              )
  (entdel ee)
  (end)
  (princ)
)

ZZXXQQ

将这两行顺序颠倒一下试试：

  (command ".BOUNDARY" p00 "")
  (setq ee (entsel "\n选择偏移线"))

dgygs

问题解决了

(entdel ee)改为(entdel (car ee))

dgygs

如果我想将偏移线设定一个指定的图层要怎样搞？

ZZXXQQ

将偏移完成的线条用CHPROP命令改变图层。