C++如何与LSP相连接

tyliling

各位如果我用C++功能给一个圆或一个图块加了一个扩展的标签后,怎样用LPS语言获得这个扩展的标签项目,是不是有什么函数可以直接取得,请各位大虾指教！！！

                      好急呀！为盼

wzz1968

说清楚一点.

最好举个例子

 

haill2000

什么是标签项目，存储在哪？如果在dwg里，直接读不就行了

tyliling

是直接写在图元上面的,在LSP中我可以用(entget (Car (entsel)))来获得图元的群码表,但是用C++写的好像就没办法获得了,不知是否可以用直接用什么函数获得了

haill2000

用ads_entget,和lsp的entget是对应的

wzz1968

下边代码是获得联标中的关联数据的,与(cdr (assoc dxf_code ent_list))对应.

/********************************************************************/
int assoc_dxf_point(struct resbuf *rb,int dxf_code,ads_point result)
  {
   struct resbuf *rb1;
   if (dxf_type(dxf_code)!=RTPOINT) return RTERROR;
   if (rb==NULL) return RTERROR;
   for (rb1=rb;rb1!=NULL;rb1=rb1->rbnext)
    { if (rb1->restype==dxf_code)
       {
   result[X]=rb1->resval.rpoint[X];
   result[Y]=rb1->resval.rpoint[Y];
   result[Z]=rb1->resval.rpoint[Z];
   return RTNORM;
       }
     }
   return RTERROR;
 }
/********************************************************************/
 int assoc_dxf_int(struct resbuf *rb,int dxf_code,short *result)
  {
   struct resbuf *rb1;
   if (dxf_type(dxf_code)!=RTSHORT) return RTERROR;
   if (rb==NULL) return RTERROR;
   for (rb1=rb;rb1!=NULL;rb1=rb1->rbnext)
    { if (rb1->restype==dxf_code)
       {
   *result=rb1->resval.rint;
   return RTNORM;
       }
     }
   return RTERROR;
 }
/*************************************************************/
 int assoc_dxf_str(struct resbuf *rb,int dxf_code,char *result)
  {
   struct resbuf *rb1;
   if (dxf_type(dxf_code)!=RTSTR) return RTERROR;
   if (rb==NULL) return RTERROR;
   for (rb1=rb;rb1!=NULL;rb1=rb1->rbnext)
    { if (rb1->restype==dxf_code)
       {
   strcpy(result,rb1->resval.rstring);
   return RTNORM;
       }
     }
   return RTERROR;
 }
/******************************************************************/
 int assoc_dxf_real(struct resbuf *rb,int dxf_code,ads_real *result)
  {
   struct resbuf *rb1;
   if (dxf_type(dxf_code)!=RTREAL) return RTERROR;
   if (rb==NULL) return RTERROR;
   for (rb1=rb;rb1!=NULL;rb1=rb1->rbnext)
    { if (rb1->restype==dxf_code)
       {
   *result=rb1->resval.rreal;
   return RTNORM;
       }
     }
   return RTERROR;
 }

 

tyliling

你们可能还不知道我的意思，我现在是用C++向某个图元加放了标签资料,用我编写的专门查标签资的命令"WID"查询结果如下:

Command: wid

Select object:
                  CIRCLE    Layer: "UP_W"
                            Space: Model space
                   Handle = 89C5E
            center point, X= -335.028  Y=   53.235  Z=    0.000
            radius     6.000
     circumference    37.699
              area   113.097

 *标签项目: NAME        : = [1 posTPIN  12.000   0.000   0.005 ..   0.00 ]
 *标签项目: NOTE_MARK   : = [4]
 *标签项目: PART_MARK   : = []
上面三项标签值我怎样用LSP语言获得,用(entget (car (entsel)))好像没有这三项扩展的数据,请各位帮忙看一下,上面有附件.

haill2000

用entgetx了，那是扩展实体数据

wzz1968

是不是实体扩展数据的问题?

实体扩展数据的获得过程如下:

(setq ent_list (entget ent (list appname")))

(setq xdata (assoc -3 ent_list))

(setq name (assoc xdxf xdata))