如何判断一个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)

)

cag · 发表于 2004-2-25 09:07:00

ACETUTIL.ARX已经加载了，可为什么还是会提示没有定义函数acet-ss-drag-move,是函数名打错了？

龙龙仔 · 发表于 2004-2-25 12:24:00

我在R2004下正常

cag · 发表于 2004-2-25 16:50:00

能否把你那个ACETUTIL.ARX文件上传?

无痕 · 发表于 2004-2-25 23:00:00

用（vl-cmdf 。。。。）

正确执行返回T，中途错误返回nil

tm010111 · 发表于 2022-12-27 14:56:49

前辈们的帖子这么多年还闪闪发光

账号		自动登录	找回密码
密码			注册