几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量  


返回   几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 » 仿射空间:CAX软件开发(三)二次开发与程序设计 » CAD二次开发 » AutoCAD二次开发 » ObjectARX(VB.NET/C#)
用户名
密码
注册 帮助 会员 日历 银行 搜索 今日新帖 标记论坛为已读


 
 
主题工具 搜索本主题 显示模式
旧 2009-04-29, 04:55 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 【转帖】vc++/arx制作图块源代码 - 精华帖集合

vc++/arx制作图块源代码 - 精华帖集合
www.dimcax.com
vc++/arx制作图块源代码
[c] static void bdycad_test(void) { ads_name name,ss; ads_point pt1,pt2; char blockname[123]; 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[x];cpt.y=pt1[y];cpt.z=pt1[z]; 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;iclone(); pblocktablerec->appendacdbentity(pent0); pent->close(); pent0->close(); } pblocktable->close(); pblocktablerec->close(); return; } [/c]
好东西啊!
阁下辛苦了!

static void bdycad_test(void) {
ads_name name,ss;
ads_point pt1,pt2;
char blockname[123];
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[x];cpt.y=pt1[y];
cpt.z=pt1[z];
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;iclone();
pblocktablerec->appendacdbentity(pent0);
pent->close(); pent0->close(); }
pblocktable->close();
pblocktablerec->close();
return;
}
兄弟,这代码for循环有问题吧???
life is just like a section of program codes. bugs waiting to be corrected.
修改好的!
//定义块
static void hzcad_test(void)
{
ads_name name, ss;
ads_point pt1;
tchar blockname[123];
acgepoint3d cpt;
long len;
acdbobjectid bid;
if (acedssget(null,null,null,null,ss) != rtnorm)
return;
if (acedgetpoint(null, _t("\n输入基准点:"), pt1) != rtnorm)
return;
if (acedgetstring(false, _t("\n请输入块名:"), blockname) != rtnorm)
return;
cpt.x = pt1[x]; cpt.y = pt1[y];
cpt.z = pt1[z];
acdbblocktable *pblocktable;
acdbhostapplicationservices()->workingdatabase()->getblocktable(pblocktable,acdb::kforwrite);
if (pblocktable->has(blockname)==adesk::ktrue)
{
acutprintf(_t("\n这个块已经建立了!"));
pblocktable->close();
return;
}
acdbblocktablerecord *pblocktablerec= new acdbblocktablerecord();
pblocktablerec->setname(blockname);
pblocktable->add(pblocktablerec);
pblocktablerec->setorigin(cpt);
pblocktable->upgradeopen();
acdbentity *pent = null, *pent0 = null;
acedsslength(ss, &len);
for (long int i = 0; i < len; i++)
{
acedssname(ss, i, name);
acdbobjectid entid;
acad::errorstatus es = acdbgetobjectid(entid, name);
if (es != acad::eok)
{
return;
}
acdbopenobject(pent, entid, acdb::kforwrite);
pblocktablerec->appendacdbentity(pent);
pent->close();
}
pblocktable->close();
pblocktablerec->close();
return;
}
绝对没有问题。我测试过了。
static void hzcad_test(void)
{
ads_name ent, ss;
ads_point pt1;
tchar blockname[123] = {0};
acgepoint3d cpt;
long len;
acdbobjectid bid;
if (acedssget(null, null, null, null, ss) != rtnorm)
return;
if (acedgetpoint(null, _t("\n输入基准点:"), pt1) != rtnorm)
return;
if (acedgetstring(false, _t("\n请输入块名:"), blockname) != rtnorm)
return;
cpt.x = pt1[x];
cpt.y = pt1[y];
cpt.z = pt1[z];
acdbblocktable *pblocktable;
acdbhostapplicationservices()->workingdatabase()->getblocktable(pblocktable, acdb::kforwrite);
if (pblocktable->has(blockname) == adesk::ktrue)
{
acutprintf(_t("\n这个块已经建立了!"));
pblocktable->close();
return;
}
acdbblocktablerecord *pblocktablerec= new acdbblocktablerecord();
pblocktablerec->setname(blockname);
pblocktable->add(pblocktablerec);
pblocktablerec->setorigin(cpt);
pblocktable->upgradeopen();
acedsslength(ss, &len);
for (long int i = 0l; i < len; i++)
{
acedssname(ss, i, ent);
acdbobjectid entid;
acad::errorstatus es = acdbgetobjectid(entid, ent);
if (es != acad::eok)
{
return;
}
acdbentity *pent;
acdbopenacdbentity(pent, entid, acdb::kforwrite);
acdbentity* pent0 = (acdbentity*)pent->clone();
pblocktablerec->appendacdbentity(pent0);
pent0->close();
pent->close();
}
pblocktable->close();
pblocktablerec->close();
return;
}
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)
 


主题工具 搜索本主题
搜索本主题:

高级搜索
显示模式

发帖规则
不可以发表新主题
不可以回复主题
不可以上传附件
不可以编辑您的帖子

vB 代码开启
[IMG]代码开启
HTML代码关闭



所有的时间均为北京时间。 现在的时间是 07:56 PM.


于2004年创办,几何尺寸与公差论坛"致力于产品几何量公差标准GD&T | GPS研究/CAD设计/CAM加工/CMM测量"。免责声明:论坛严禁发布色情反动言论及有关违反国家法律法规内容!情节严重者提供其IP,并配合相关部门进行严厉查处,若內容有涉及侵权,请立即联系我们QQ:44671734。注:此论坛须管理员验证方可发帖。
沪ICP备06057009号-2
更多