找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 989|回复: 0

[每日一码] VC++/ARX制作图块源代码

[复制链接]

已领礼包: 1个

财富等级: 恭喜发财

发表于 2017-5-22 13:10:04 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
  1.        static void BDYCAD_TEST(void)
  2.         {
  3.                 ads_name name,ss;
  4.                 ads_point pt1,pt2;
  5.                 char BlockName[123];
  6.                 AcGePoint3d Cpt;
  7.                 int sel;long len;
  8.                 AcDbObjectId BID;
  9.                 if (acedSSGet(NULL,NULL,NULL,NULL,ss)!=RTNORM)return;
  10.                 if (acedGetPoint(NULL,"\n输入基准点:",pt1)!=RTNORM)return;
  11.                 if (acedGetString(FALSE,"\n请输入块名:",BlockName)!=RTNORM)return;
  12.                 Cpt.x=pt1[X];Cpt.y=pt1[Y];Cpt.z=pt1[Z];
  13.                 AcDbBlockTable *pBlockTable;
  14.                 acdbHostApplicationServices()->workingDatabase()->getBlockTable(pBlockTable,AcDb::kForWrite);
  15.                 if (pBlockTable->has(BlockName)==Adesk::kTrue) {
  16.                         acutPrintf("\n这个块已经建立了!");
  17.                         pBlockTable->close();
  18.                         return;
  19.                 }
  20.                 AcDbBlockTableRecord *pBlockTableRec= new AcDbBlockTableRecord();
  21.                 pBlockTableRec->setName(BlockName);
  22.                 pBlockTable->add(pBlockTableRec);
  23.                 pBlockTableRec->setOrigin(Cpt);
  24.                 pBlockTable->upgradeOpen();
  25.                 AcDbEntity *pEnt,*pEnt0;
  26.                 acedSSLength(ss,&len);
  27.                 for (int i=0;i<len;i++) {
  28.                         AcDbObjectId ObjID;
  29.                         acedSSName(ss,i,name);
  30.                         acdbGetObjectId(ObjID,name);
  31.                         acdbOpenAcDbEntity(pEnt,ObjID,AcDb::kForWrite);
  32.                         pEnt0=(AcDbEntity*)pEnt->clone();
  33.                         pBlockTableRec->appendAcDbEntity(pEnt0);
  34.                         pEnt->close();
  35.                         pEnt0->close();
  36.                 }
  37.                 pBlockTable->close();
  38.                 pBlockTableRec->close();
  39.                 return;
  40.         }



  1. static void HZCAD_TEST(void)
  2. {
  3.         ads_name ent, ss;
  4.         ads_point pt1;
  5.         TCHAR BlockName[123] = {0};
  6.         AcGePoint3d Cpt;
  7.         long len;
  8.         AcDbObjectId BID;
  9.         if (acedSSGet(NULL, NULL, NULL, NULL, ss) != RTNORM)
  10.                 return;
  11.         if (acedGetPoint(NULL, _T("\n输入基准点:"), pt1) != RTNORM)
  12.                 return;
  13.         if (acedGetString(FALSE, _T("\n请输入块名:"), BlockName) != RTNORM)
  14.                 return;
  15.         Cpt.x = pt1[X];
  16.         Cpt.y = pt1[Y];
  17.         Cpt.z = pt1[Z];
  18.         AcDbBlockTable *pBlockTable;
  19.         acdbHostApplicationServices()->workingDatabase()->getBlockTable(pBlockTable, AcDb::kForWrite);
  20.         if (pBlockTable->has(BlockName) == Adesk::kTrue)
  21.         {
  22.                 acutPrintf(_T("\n这个块已经建立了!"));
  23.                 pBlockTable->close();
  24.                 return;
  25.         }
  26.         AcDbBlockTableRecord *pBlockTableRec= new AcDbBlockTableRecord();
  27.         pBlockTableRec->setName(BlockName);
  28.         pBlockTable->add(pBlockTableRec);
  29.         pBlockTableRec->setOrigin(Cpt);
  30.         pBlockTable->upgradeOpen();

  31.         acedSSLength(ss, &len);
  32.         for (long int i = 0L; i < len; i++)
  33.         {
  34.                 acedSSName(ss, i, ent);
  35.                 AcDbObjectId entId;
  36.                 Acad::ErrorStatus es = acdbGetObjectId(entId, ent);
  37.                 if (es != Acad::eOk)
  38.                 {
  39.                         return;
  40.         }
  41.                 AcDbEntity *pEnt;
  42.                 acdbOpenAcDbEntity(pEnt, entId, AcDb::kForWrite);
  43.                 AcDbEntity* pEnt0 = (AcDbEntity*)pEnt->clone();
  44.                 pBlockTableRec->appendAcDbEntity(pEnt0);
  45.                 pEnt0->close();
  46.                 pEnt->close();
  47.         }
  48.         pBlockTable->close();
  49.         pBlockTableRec->close();
  50.         return;
  51. }

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-22 17:39 , Processed in 0.377243 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表