求助(在lisp中执行了move,copy,offset后，它后的程序就不会执行了）

xiagood

各位大哥：
      你好！
      在autolisp中怎样执行mirror,move,copy,offset,scale等之后的程序.
     例如:
      (defun C:Poffset()
             (setvar "cmdecho" 0)
             (setq  Rdistance(getreal "请输入距离："))
             (setq  el(entsel "请选择对象:"))
             (command "offset" Rdistance el)
             (command "erase" el)
             (setvar "cmdecho" 1)
             (princ))
     请指教，谢谢！

lockmyeye

在(COMMAND "offset" rdistance el)，OFFSET命令不完整，无偏移方向，而且后面没有退出offset！
同样(command "erase" el)也没有退出ERASE命令。

1. 
   
2. (DEFUN c:poffset ()
   
3.     (SETVAR "cmdecho" 0)
   
4.     (SETQ rdistance (GETREAL "请输入距离："))
   
5.     (SETQ el (ENTSEL "请选择对象:"))
   
6.     (COMMAND "offset" rdistance el (GETPOINT) "")
   
7.     (COMMAND "erase" el "")
   
8.     (SETVAR "cmdecho" 1)
   
9.     (PRINC)
   
10. )

复制代码

lyy

;;如果你无法为command确定太多的参数请试试这个函数。
(defun yad_comd()
  (setvar "cmdecho" 1)
  (while (/= 0 (getvar "cmdactive")) (command pause))
  (setvar "cmdecho" 0)
)
(defun C:Poffset()
  (setq Rdistance (getreal "请输入距离："))
  (setq el (entsel "请选择对象:"))
  (command "offset" Rdistance el)
  (yad_comd)
  (command "erase" el "")
  (princ)
)

xiagood

多谢指教! 谢谢!