ObjectARX 2010全局函数详解之一

小龙龙

通过一个多月的教学,感觉大家普遍希望掌握函数及其用法,从今天起,利用这里,给大家详细的介绍ObjectARX 2010的全局函数及示例,希望大家能够把这个呢弄懂、学透,大部分的全局函数都在LISP中有对应,不妨让我们对比着学习。
这个不是按照什么顺序而是按照分类来讲解,这个我认为与英语水平没有什么关系,以acdbEntSel函数为例,我们一般可以这么来看这个全局函数,前面4个均为小写,是前缀例如aced——编辑相关,acdb—数据库相关等等.中间凡是大写字母开头呢都是某一单词的缩写,很容易记忆比如Ent就是代表实体,Sel是选择等等,方便我们记忆。特别是有了VC助手之后呢可以更加方便我们的应用。
今天呢就先向大家介绍有关实体操作的几个Ent族函数—acedEntSel  acdbEntGet  acdbEntMake acdbEntNext acdbEntLast  acdbEntDel acdbEntMakeX.

首先登场的是函数 acedEntSel.
这个函数呢,含义就是接受用户的选择，返回图元名和用户选择时鼠标的位置。
参数定义如下:int acedEntSel (const ACHAR *str, ads_name entres, ads_point ptres)
第一个参数:字符串,如果为NULL,则默认提示选择对象,如果定义呢则按用户的文字提示进行选择。
第二个参数:图元名,选择成功后,返回的图元名.
第三个参数:坐标点,选择成功后,返回的鼠标拾取点。
返回值:返回RTNORM代表成功,返回值需要用if语句或者Acad::ErrorStatus进行容错处理,否则出现崩溃。

Lisp中对应的函数(entsel),实际就是由这个全局函数定义的。

示例,根据选择对象,在鼠标选定位置画圆。

1. void xqlMyEntSel()
   
2. {   
   
3. ads_name ename;//声明图元名
   
4.   ads_point pt;//声明点
   
5.      if (acedEntSel(NULL,ename,pt)!=RTNORM)
   
6.      {
   
7.    return;//选择失败退出
   
8.      }
   
9.   acedCommand(RTSTR,_T("CHANGE"),RTENAME,ename,RTSTR,_T(""),RTSTR,_T("P"),RTSTR,_T("C"),RTSTR,_T("1"),RTSTR,_T(""),0);//调用命令
   
10. }

void xqlMyEntSel()<br /> {   <br /> ads_name ename;//声明图元名<br />   ads_point pt;//声明点<br />      if (acedEntSel(NULL,ename,pt)!=RTNORM)<br />      {<br />    return;//选择失败退出<br />      }<br />   acedCommand(RTSTR,_T("CHANGE"),RTENAME,ename,RTSTR,_T(""),RTSTR,_T("P"),RTSTR,_T("C"),RTSTR,_T("1"),RTSTR,_T(""),0);//调用命令<br /> }

示例二定义一个自己的LISP函数(myentsel)[时间紧未经测试大家可以试验一下]

1. static int ads_myentsel(void)
   
2. {
   
3.   //----- Remove the following line if you do not expect any argument for this ADS function
   
4.   struct resbuf *rb =acedGetArgs () ;
   
5.   ads_name s1;ads_point pt;
   
6.   struct resbuf *lis;
   
7.   // TODO: add your code here
   
8.   if (rb== NULL)
   
9.   {
   
10.    if (acedEntSel(NULL,s1,pt)!=RTNORM)
    
11.    {
    
12.     return RTERROR;
    
13.    }
    
14.          
    
15.     lis = acutBuildList(RTENAME,s1,RT3DPOINT,pt,0);
    
16.   }
    
17.   else
    
18.   {
    
19.    if (rb->restype == RTSTR)
    
20.    {
    
21.                 if (acedEntSel(rb->resval.rstring,s1,pt)!=RTNORM)
    
22.                 {
    
23.      return RTERROR;
    
24.                 }
    
25.      lis = acutBuildList(RTENAME,s1,RT3DPOINT,pt,0);
    
26.    }
    
27.    else
    
28.    {
    
29.     acdbFail(_T("参数错误"));
    
30.     return RTERROR;
    
31.    }
    
32.   }
    
33.    rb = rb->rbnext;
    
34.    if (rb!=NULL)
    
35.    {
    
36.     acdbFail(_T("参数太多"));
    
37.     return RTERROR;
    
38.    }
    
39.   
    
40.   // TODO: Replace the following line by your returned value if any
    
41.      acedRetList( lis);
    
42.        acutRelRb(lis);
    
43.   return (RSRSLT) ;
    
44. }
    

static int ads_myentsel(void)<br /> {<br />   //----- Remove the following line if you do not expect any argument for this ADS function<br />   struct resbuf *rb =acedGetArgs () ;<br />   ads_name s1;ads_point pt;<br />   struct resbuf *lis;<br />   // TODO: add your code here<br />   if (rb== NULL)<br />   {<br />    if (acedEntSel(NULL,s1,pt)!=RTNORM)<br />    {<br />     return RTERROR;<br />    }<br />          <br />     lis = acutBuildList(RTENAME,s1,RT3DPOINT,pt,0);<br />   }<br />   else<br />   {<br />    if (rb->restype == RTSTR)<br />    {<br />                 if (acedEntSel(rb->resval.rstring,s1,pt)!=RTNORM)<br />                 {<br />      return RTERROR;<br />                 }<br />      lis = acutBuildList(RTENAME,s1,RT3DPOINT,pt,0); <br />    }<br />    else <br />    {<br />     acdbFail(_T("参数错误"));<br />     return RTERROR;<br />    }<br />   }<br />    rb = rb->rbnext;<br />    if (rb!=NULL)<br />    {<br />     acdbFail(_T("参数太多"));<br />     return RTERROR;<br />    }<br />   <br />   // TODO: Replace the following line by your returned value if any<br />      acedRetList( lis);<br />        acutRelRb(lis);<br />   return (RSRSLT) ;<br /> }<br />

上面呢就是ARX全局函数acedEntSel的介绍,下面在LISP中是怎么实现的呢,如下所示:

1. (defun c:myentsel()
   
2.   (setq en(entsel))
   
3.   (if(/= en nil)
   
4.     (progn
   
5.       (setq pt(cadr en))
   
6.       (command "circle" pt 5)
   
7.       ))
   
8.   (princ)
   
9.   )

(defun c:myentsel()<br />   (setq en(entsel))<br />   (if(/= en nil)<br />     (progn<br />       (setq pt(cadr en))<br />       (command "circle" pt 5)<br />       ))<br />   (princ)<br />   )

希望大家对此能了解这个函数,下一讲我们讲讲acdbEntGet.

eachy

从入门学起，看懂了一点点，期待以后更精彩！:)

牢固

判断参数太多似乎应在判断第一个参数是字串之后紧接着判断，否则如果第一个参数是字串，后面还有参数，会出现先选择对象，后提示参数太多！
如果不提供参数，还要rb->rbnext，会出错！我改了下：

1.   static int ads_myentsel(void)
   
2.   {
   
3.     //----- Remove the following line if you do not expect any argument for this ADS function
   
4.     struct resbuf *rb =acedGetArgs () ;
   
5.     ads_name s1;ads_point pt;
   
6.     struct resbuf *lis;
   
7.     // TODO: add your code here
   
8.     if (rb== NULL)
   
9.     {
   
10.       if (acedEntSel(NULL,s1,pt)!=RTNORM)
    
11.       {
    
12.         return RTERROR;
    
13.       }
    
14. 
    
15.       lis = acutBuildList(RTENAME,s1,RT3DPOINT,pt,0);
    
16.     }
    
17.     else
    
18.     {
    
19.       if (rb->restype == RTSTR)
    
20.       {
    
21.         
    
22.         if (rb->rbnext!=NULL)
    
23.         {
    
24.           acdbFail(_T("参数太多1"));
    
25.           return RTERROR;
    
26.         }
    
27.         else if (acedEntSel(rb->resval.rstring,s1,pt)!=RTNORM)
    
28.         {
    
29.           return RTERROR;
    
30.         }
    
31.         lis = acutBuildList(RTENAME,s1,RT3DPOINT,pt,0);
    
32.       }
    
33.       else
    
34.       {
    
35.         acdbFail(_T("参数错误1"));
    
36.         return RTERROR;
    
37.       }
    
38.     }
    
39.    
    
40. 
    
41.     // TODO: Replace the following line by your returned value if any
    
42.     acedRetList( lis);
    
43.     acutRelRb(lis);
    
44.     return (RSRSLT) ;
    
45.   }

  static int ads_myentsel(void)<br />   {<br />     //----- Remove the following line if you do not expect any argument for this ADS function<br />     struct resbuf *rb =acedGetArgs () ;<br />     ads_name s1;ads_point pt;<br />     struct resbuf *lis;<br />     // TODO: add your code here<br />     if (rb== NULL)<br />     {<br />       if (acedEntSel(NULL,s1,pt)!=RTNORM)<br />       {<br />         return RTERROR;<br />       }<br /> <br />       lis = acutBuildList(RTENAME,s1,RT3DPOINT,pt,0);<br />     }<br />     else<br />     {<br />       if (rb->restype == RTSTR)<br />       {<br />         <br />         if (rb->rbnext!=NULL)<br />         {<br />           acdbFail(_T("参数太多1"));<br />           return RTERROR;<br />         }<br />         else if (acedEntSel(rb->resval.rstring,s1,pt)!=RTNORM)<br />         {<br />           return RTERROR;<br />         }<br />         lis = acutBuildList(RTENAME,s1,RT3DPOINT,pt,0); <br />       }<br />       else <br />       {<br />         acdbFail(_T("参数错误1"));<br />         return RTERROR;<br />       }<br />     }<br />     <br /> <br />     // TODO: Replace the following line by your returned value if any<br />     acedRetList( lis);<br />     acutRelRb(lis);<br />     return (RSRSLT) ;<br />   }

可是不提供参数时会出现提示选择对象，然后还出一个指定一个点:的提示，选择点，返回值为点，不选择点，返回ientsel的选择结果！没搞明白啥原因？？？

junkio

:lol:lol:lol:lol:lol:lol

gymic

学习一下，:D:D:D

jyzas

没学过，没注解看不明白

革天明

两位版本讲解的很详细

liuzpzp007

啥也不说了，感谢楼主分享哇！

紧箍咒