学习ARX,编个初组的命令,呵呵 - ObjectARX/VC++ 编程技术 - AutoCAD论坛 - 明经CAD社区 - 第3页

BDYCAD 发表于 2007-7-18 11:33:00

本帖最后由作者于 2007-7-18 11:46:14 编辑 struct resbuf 结构就象LISP里面的表((LISP a b)(LISP a b)(LISP a b)(LISP a b).....) 之类的东东,主要是用来做一个对象的DXF组码链表,然后用来给别的涵数生成对象之类的处理,如果是生成对象的话我们可以不用struct resbuf结构来做,直用用对象类来生成啊.例如:LISP用DXF组码生成一个圆的代码: (setq Cirlist '((0 . "CIRCLE")(100 . "AcDbEntity")(100 . "AcDbCircle")(8 . "0")(40 . 0.8) (10 0 0 0))) (entmake Cirlist)ARX用struct resbuf 生成一个圆的代码:   struct resbuf *Cirlist;   ads_point PT1={0,0,0};   Cirlist=acutBuildList(RTDXF0,"CIRCLE",100,"AcDbEntity",100,"AcDbCircle",8,"0",40,0.8,10,PT1,0);   acdbEntMake(Cirlist);用ARX的类生成一个圆的代码: ads_real rad=3.0;   AcGePoint3d Cpt(0,0,0);   AcGeVector3d Vec(0,0,1);   AcDbCircle *nc=new AcDbCircle();   nc->setCenter(Cpt);   nc->setRadius(rad);   AcDbBlockTable *btable;   acdbHostApplicationServices()->workingDatabase()->getSymbolTable(btable,AcDb::kForRead);   AcDbBlockTableRecord *brecord;   btable->getAt(ACDB_MODEL_SPACE,brecord,AcDb::kForWrite);   brecord->appendAcDbEntity(nc);   nc->close();   btable->close();   brecord->close();

BDYCAD 发表于 2007-7-20 09:21:00

本帖最后由作者于 2007-7-20 9:41:42 编辑

//功能:制作图块
//编程:BDYCAD
//时间:2007-07-20早
static void BDYCAD_TEST(void)
{
ads_name name,ss;
ads_point pt1,pt2;
char BlockName;
AcGePoint3d Cpt;
int sel;long len;
AcDbObjectId BID;
if (acedSSGet(NULL,NULL,NULL,NULL,ss)!=RTNORM)return;
if (acedGetPoint(NULL,"\n输入基准点:",pt1)!=RTNORM)return;
if (acedGetString(FALSE,"\n请输入块名:",BlockName)!=RTNORM)return;
Cpt.x=pt1;Cpt.y=pt1;Cpt.z=pt1;
AcDbBlockTable *pBlockTable;
acdbHostApplicationServices()->workingDatabase()->getBlockTable(pBlockTable,AcDb::kForWrite);
if (pBlockTable->has(BlockName)==Adesk::kTrue) {
acutPrintf("\n这个块已经建立了!");
pBlockTable->close();
return;
}
AcDbBlockTableRecord *pBlockTableRec= new AcDbBlockTableRecord();
pBlockTableRec->setName(BlockName);
pBlockTable->add(pBlockTableRec);
pBlockTableRec->setOrigin(Cpt);
pBlockTable->upgradeOpen();
AcDbEntity *pEnt,*pEnt0;
acedSSLength(ss,&len);
for (int i=0;i<len;i++) {
AcDbObjectId ObjID;
acedSSName(ss,i,name);
acdbGetObjectId(ObjID,name);
acdbOpenAcDbEntity(pEnt,ObjID,AcDb::kForWrite);
pEnt0=(AcDbEntity*)pEnt->clone();
pBlockTableRec->appendAcDbEntity(pEnt0);
pEnt->close();
pEnt0->close();
}
pBlockTable->close();
pBlockTableRec->close();
return;
}

zhbt5257 发表于 2007-7-20 14:57:00

楼上的仁兄：谁有.net 2002下的mfc70相关的几个lib文件，小弟也急需一份，麻烦给小弟传一份！！！谢谢了！
邮箱：terry_5257@163.com

谢谢！！！！

BDYCAD 发表于 2007-7-20 15:39:00

看来好多朋友都在找这些文件,现在上传上来给大家:) 希望可以帮的到大家:)

zhbt5257 发表于 2007-7-23 10:15:00

谢谢～～～～～

太感谢了1～～哈哈。。。。。。。。。找了好几天了，谢谢大哥！！！

zjqmax 发表于 2007-7-26 09:22:00

谢谢这位兄弟！找了几个月了

BDYCAD 发表于 2007-8-2 16:09:00

用对象的ID可以判断一个对象是否给删除了,代码如下 1、 ads_name name;   ads_point pt1;   AcDbObjectId ObjID;   if (acedEntSel("\n请选个对象:",name,pt1)!=RTNORM)return;   acdbGetObjectId(ObjID,name);   if (ObjID.isErased()==TRUE) {    acutPrintf("\n对象给我们删除了\n");   }else{    acutPrintf("\n对象存在\n");   } 当选到对象是命令行就会提示: Command: test请选个对象: 对象存在 2、 ads_name name;   ads_point pt1;   AcDbObjectId ObjID;   if (acedEntSel("\n请选个对象:",name,pt1)!=RTNORM)return;   acdbGetObjectId(ObjID,name);   acdbEntDel(name);   if (ObjID.isErased()==TRUE) {    acutPrintf("\n对象给我们删除了\n");   }else{    acutPrintf("\n对象存在\n");   } 当选到对象是命令行就会提示: Command: test请选个对象: 对象给我们删除了

BDYCAD 发表于 2007-8-3 14:13:00

//学习AcDbObjectIdArray的代码 //编写:BDYCAD //2007-08-02 int IDnumber; long sslen; ads_name name,SS; ads_point p1; AcDbEntity *pEnt; AcDbObjectId ObjID,ObjID1; AcDbObjectIdArray ALLID; if (acedSSGet(NULL,NULL,NULL,NULL,SS)!=RTNORM)return; if (acedEntSel("\n请选择一个对象:",name,p1)!=RTNORM)return; acdbGetObjectId(ObjID1,name); acedSSLength(SS,&sslen); for (int i=0;sslen>i;i++) { acedSSName(SS,i,name); acdbGetObjectId(ObjID,name); ALLID.append(ObjID); } if (ALLID.find(ObjID1,IDnumber)==TRUE) { //acutPrintf("\n我们在ID集中找到了这个ID,是第%d 个ID\n",IDnumber); ALLID.remove(ObjID1); }else{ acutPrintf("\n找不着\n"); } for (int i=0;ALLID.length()>i;i++) { ObjID=ALLID.at(i); acdbOpenObject(pEnt,ObjID,AcDb::kForWrite); pEnt->setColorIndex(1); pEnt->close(); } acutPrintf("\n总共有 %d 个对象ID:\n",ALLID.length());

BDYCAD 发表于 2007-8-3 17:08:00

取对象交点代码: 今天刚写的:)//功能：取两个对象的真实相交点。 //编写：BDYCAD //时间：2007-08-03 AcGePoint3dArray Get2ObjIDIntresPoints(AcDbObjectId ObjID1,AcDbObjectId ObjID2){  AcDbEntity *pEnt1,*pEnt2;  AcGePoint3dArray PTlist;  acdbOpenObject(pEnt1,ObjID1,AcDb::kForRead);  acdbOpenObject(pEnt2,ObjID2,AcDb::kForRead);  pEnt1->intersectWith(pEnt2,AcDb::kExtendArg,PTlist);  pEnt1->close();  pEnt2->close();  return PTlist; }

wtq 发表于 2007-10-30 23:23:00

谢谢大哥,太谢谢了!

页: 1 2 [3] 4 5 6

明经CAD社区's Archiver

谢谢～～～～～