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

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

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

ESC

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

<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">;;</FONT>配合<FONT face="Times New Roman">expresstools<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">;;By </FONT>龙龙仔<FONT face="Times New Roman">(LUCAS)<o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">;;</FONT>这程序包括<FONT face="Times New Roman">HIGHLIGHT</FONT>及拖动技巧<o:p></o:p>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">(arxload "ACETUTIL.ARX" NIL)<o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">(defun C:TT (/ HOLDGRIPS SS PT PT1)<o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes">       (setq SS (ssget))</SPAN><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes">       (setq HOLDGRIPS (getvar "grips"))</SPAN><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes">       (setvar "grips" 0)</SPAN><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes">       (sssetfirst NIL SS)</SPAN><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes">       (setq PT (getpoint "\n</FONT></SPAN>指定基准点<FONT face="Times New Roman">: "))<o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes">       (if PT</SPAN><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes">                       (setq PT1 (acet-ss-drag-move</SPAN><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-tab-count: 2">                                                                                                                                                               </SPAN>SS<o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-tab-count: 2">                                                                                                                                                               </SPAN>PT<o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-tab-count: 2">                                                                                                                                                               </SPAN>"</FONT>指定位移的第二点<FONT face="Times New Roman">: "<o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-tab-count: 2">                                                                                                                                                               </SPAN>NIL<o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-tab-count: 1">                                                                               </SPAN><SPAN style="mso-spacerun: yes">                                       )</SPAN><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes">                       )</SPAN><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes">       )</SPAN><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes">       (sssetfirst NIL)</SPAN><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes">       (setvar "grips" HOLDGRIPS)</SPAN><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes">       (if PT1</SPAN><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes">                       (command "_.copy" SS "" PT PT1)</SPAN><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes">       )</SPAN><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes">       (princ)</SPAN><o:p></o:p></FONT>


<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman">)</FONT><o:p></o:p>

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

<FONT face="Times New Roman" size=2>ACETUTIL.ARX已经加载了，可为什么还是会提示没有定义函数acet-ss-drag-move,是函数名打错了？</FONT>

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

我在R2004下正常

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

能否把你那个<FONT face="Times New Roman" size=2>ACETUTIL.ARX文件上传?</FONT>

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

用 （vl-cmdf 。。。。）


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

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

前辈们的帖子这么多年还闪闪发光{:1_1:}
页: [1]
查看完整版本: 如何判断一个COMMAND函数有没有执行成功？