如何判断一个COMMAND函数有没有执行成功？

cag · 发表于 2004-2-23 23:04:00

如何判断一个COMMAND函数有没有执行成功？
(command "copy" ss2 "" cen)
(command pause)
ss2为一选择集，cen为一个点，
执行第二行要求用户用左键拾取一个点是，如果我点了右键，还是会有一个点产生，那如果我要认为点右键时是command函没有执行成功，该如何写这个if 语句，或其他什么函数

meflying · 发表于 2004-2-24 08:37:00

(if (setq pt (getpoint "pick a point:"))
(command "copy" ss2 "" cen pt)
)

BDYCAD · 发表于 2004-2-24 14:10:00

我也試過用2樓的辦法, 我認為用2樓這樣做但是看不到用PAUSE的效果. 不知還有沒有其它的辦法嗎?

meflying · 发表于 2004-2-24 14:12:00

龙龙仔 · 发表于 2004-2-24 15:49:00

;;配合expresstools
;;By 龙龙仔(LUCAS)
;;这程序包括HIGHLIGHT及拖动技巧
(arxload "ACETUTIL.ARX" NIL)
(defun C:TT (/ HOLDGRIPS SS PT PT1)
   (setq SS (ssget))
   (setq HOLDGRIPS (getvar "grips"))
   (setvar "grips" 0)
   (sssetfirst NIL SS)
   (setq PT (getpoint "\n指定基准点: "))
   (if PT
   (setq PT1 (acet-ss-drag-move
   SS
   PT
   "指定位移的第二点: "
   NIL
        )
   )
   )
   (sssetfirst NIL)
   (setvar "grips" HOLDGRIPS)
   (if PT1
   (command "_.copy" SS "" PT PT1)
   )
   (princ)
)