ARX中DXF组码在选择集中的应用

chpmould · 发表于 2011-12-4 16:44:00

请各位高手在百忙中抽出一点时间帮写个如下LISP用法的例子
(setq ss1(ssget (list(assoc 0 ss_dat1)(assoc 6 ss_dat1)(assoc 8 ss_dat1)(assoc 62 ss_dat1))))

highflybird · 发表于 2011-12-13 10:35:00

copy

ads_name ename;
ads_point ept;
int ret = acedEntSel(_T("\n请选择一个实体："),ename,ept);
if (ret != RTNORM)
{
   return;
}
//获取图元信息
struct resbuf  * pRb_ent = acdbEntGet(ename);
while( pRb_ent->restype != 0)
     pRb_ent = pRb_ent->rbnext;
CString TypeName;
TypeName.Format(pRb_ent->resval.rstring);
ret = acutRelRb(pRb_ent);
struct resbuf *filter;
filter = acutBuildList(RTDXF0, TypeName.GetBuffer(),RTNONE);
ads_name ss; 
ret = acedSSGet(NULL,NULL,NULL,filter,ss);
if (ret != RTNORM)
 return;
ret = acutRelRb(filter);
ret = acedSSSetFirst(ss, ss);
ret = acedSSFree(ss);