请教 *error* 的用法.[求助]

matichen

最近遇到个难题，处理出错程序时怎样用*error*函数？ 看了帮助文件还是一头雾水
请高人指点一二。

具体地说，我偏移一条pline，有时会偏移不了（出错） ，这时，我希望程序能将这条pline原
地复制一次。不知该这么办，请指点。多谢。

alin

offset后检测有没有新对象生成，没有的话则原地copy...

(defun c:test(/ en en1 pyl pt)
  (setq en (entlast))
  (setq pyl (getreal "\n指定偏移距离: ")
        en1 (entsel "\n选择要偏移的对象: ")
        pt (getpoint "\n指定点以确定偏移所在一侧: "))
  (command "offset" pyl en1 pt "")
  (if (eq en (entlast))
    (command "copy" en1 "" pt pt))
  (princ)
)

matichen