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

matichen · 发表于 2003-1-16 18:19:00

最近遇到个难题，处理出错程序时怎样用*error*函数？看了帮助文件还是一头雾水
请高人指点一二。
具体地说，我偏移一条pline，有时会偏移不了（出错），这时，我希望程序能将这条pline原
地复制一次。不知该这么办，请指点。多谢。

alin · 发表于 2003-1-16 22:50:00

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)
)

请教 error 的用法.[求助]

发表回复

精选推荐

浏览过的版块