ObjectARX工作日志 - ObjectARX/VC++ 编程技术 - AutoCAD论坛 - 明经CAD社区 - 第3页

王咣生 发表于 2004-9-3 13:19:00

本帖最后由作者于 2005-12-2 23:39:32 编辑 


暂无...

zilinjun 发表于 2004-9-6 10:36:00

用ARX开发程序中，要用acedCommand（）函数调用AUTOCAD中的“OPEN”命令，具体应该怎么做？

acedCommand(RTSTR, "open", RTSTR, "My_Drawing", 0);

这样做却打不开是怎么回事，望版主赐教！

王咣生 发表于 2004-9-6 19:25:00

Avoiding Problems with NEW and OPEN

To avoid loss of synchronization between the AutoCAD and ARX communication interface, do not pass acedCommand() or acedCmd() NEW or OPEN. Instead, pass a script that executes NEW and OPEN, answers the prompts, and calls a function in the ARX application to return control to the ARX application.

考虑一下: AcApDocManager Class,或用Insert命令.

 //取得ARX模块路径 TCHAR appFullPath; int len = GetModuleFileName(_hdllInstance, appFullPath, MAX_PATH);

CString strGridFullPath = appFullPath; strGridFullPath = strGridFullPath.Left(strGridFullPath.ReverseFind('\\')) + "<A href="file://Data//grid_500.dwg" target="_blank" >\\Data\\grid_500.dwg</A>";
TCHAR fullpath; if (acedFindFile(strGridFullPath, fullpath) == RTNORM) { resbuf *rb; if((rb = acutBuildList( RTSTR, "_insert", RTSTR, strGridFullPath, RTSTR, strInsPt, RTSHORT, 1, RTSHORT, 1, RTSHORT, 0, RTNONE)) != NULL) { if(acedCmd(rb) == RTNORM) {} else {} if(rb != NULL) { acutRelRb(rb); } } } else acutPrintf("\n Could not find grid_500.dwg file!");

wind1730 发表于 2004-9-15 09:48:00

版主真是个好人！

如果中国程序员都向你这样热心，那就好了！

何愁中国软件不能腾飞！

王咣生 发表于 2004-9-15 22:24:00

本帖最后由作者于 2005-12-2 23:41:12 编辑 呀,好高兴.共同提高吧.

funlxming 发表于 2004-9-16 17:52:00

像起动界面这类的事情，以前从未想到过，因为都是产品一开始经理就定好的了，现在有这位好同志给了出来，才算是明白其道理，要是有一天也要做类似的事情，就不至于到处找了。真是好21世纪的雷锋!值得歌颂!

王咣生 发表于 2004-9-22 11:51:00

点滴

本帖最后由作者于 2004-9-23 22:45:19 编辑 14. 如何加载一个菜单文件?

IAcadMenuGroups *mnuGrps = NULL; //... mnuGrps->Load(BSTR MenuFileName, VARIANT BaseMenu, IAcadMenuGroup **pMenuGroup);

// MenuFileName是自定义的菜单文件, BaseMenu是指什么呢?

方法: CString mac = "(COMMAND \"_MENULOAD\" \"acad_map.mnu\")"; if (acDocManager->curDocument()) { acedPostCommand( mac ); mac = "(menucmd \"P10=+ACAD_MAP.地形图缩编\")";

//如果P10不存在,则新载入的菜单加到当前菜单最后面 acedPostCommand( mac ); }

15. upgradeOpen()函数用法: //... acdbGetObjectId(plineId, ename); AcDbEntity *pEntity; acdbOpenAcDbEntity(pEntity, plineId, AcDb::kForRead); //... AcDbPolyline *pLWPline = (AcDbPolyline*)pEntity; // 现在pLWPline处于打开状态 //如果要修改pLWPline的属性,必须以写的方式打开 pLWPline->upgradeOpen(); pLWPline->setElevation(0.0); pLWPline->close();

注意,如果在使用upgradeOpen()之前,关闭了对象,将导致错误. 如 pEntity->close(); //或 pLWPline->close(); //... pLWPline->upgradeOpen(); pLWPline->setElevation(0.0); // INTERNAL ERROR: <A href="mailto:!dbobji.cpp@6159" target="_blank" >!dbobji.cpp@6159</A>: eNotOpenForWrite pLWPline->close();

16. 如果一个对象已经删除,它的ID为objId,以下代码: AcDbEntity *pEntity; acdbOpenAcDbEntity(pEntity, objId, AcDb::kForRead); 结果pEntity为NULL. if (pEntity == NULL) acedAlert("NULL"); if (pEntity) acedAlert("Exist"); else acedAlert("None Exist"); if (pEntity->isErased() == Adesk::kTrue) // 执行将出错,其实的确也没有什么疑义,本来pEntity就不曾成功指向任何实体,当然也就没有是否被Erased的判断了; // 是不是如果pEntity曾经指向过实体对象,该对象被删除之后,就可以用这一句来判断了呢? // 而判断该实体是否已经被删除,下面的代码可以: If (objId.isErased() != true) acedAlert("Exist");

17. 如何得到一个块(AcDbBlockReference)的名字? 用参考块实体的blockTableRecord()方法返回一个该block reference引用的AcDbBlockTableRecord的object ID. 打开AcDbBlockTableRecord,用getName(const char* &pName)获得块名. //... AcDbBlockReference *pBlkRef = (AcDbBlockReference*)pEnt; AcDbObjectId pBlockTableRecordId; pBlockTableRecordId = pBlkRef->blockTableRecord(); AcDbBlockTableRecord *pBlockTableRecord; char* blkName; if (Acad::eOk == acdbOpenObject(pBlockTableRecord, pBlockTableRecordId, AcDb::kForRead)) { pBlockTableRecord->getName(blkName); pBlockTableRecord->close(); }

另一麻烦的方法: //... AcDbBlockReference *pBlkRef = (AcDbBlockReference*)pEnt; char* blkName; ads_name ssEntName; struct resbuf *rbSSEnt; struct resbuf *rbTrav; int rc; CString strBlkName = ""; acdbGetAdsName(ssEntName, pBlkRef->objectId()); rbSSEnt = acdbEntGet(ssEntName); rbTrav = rbSSEnt; while (rbTrav) { switch (rbTrav->restype) { case 2: strBlkName = rbTrav->resval.rstring; } rbTrav = rbTrav->rbnext; }//while

王咣生 发表于 2004-9-24 22:42:00

点滴:

17. VC.NET2002下调试ARX程序方法: (1) 编译arx程序,在需要调试的位置设置断点; (2) 在VC.NET环境下启动(F5)程序,出现窗口 ["无符号化信息 - acad.exe并不包含调试信息.(未加载任何符号.) 如果仍要调试,请单击'确定'.] (3) 点击'确定'启动一个AutoCAD的进程, 在该进程中加载编译的arx程序,进行调试.

王咣生 发表于 2004-10-3 00:50:00

组实体操作

// 选择一个组实体,获得组名,删除组 static void EraseGroup(void) { ads_name ent; AcDbObjectId objId; int rc; ads_point pt;

rc = acedEntSel("\nPlease select an Group Entity: ", ent, pt); if (rc != RTNORM) { return; } acdbGetObjectId(objId, ent); AcDbObjectPointer<AcDbEntity>pEnt(objId, AcDb::kForRead); CString sGrpName;

AcDbVoidPtrArray *pReactors; void *pSomething; AcDbObjectId persObjId; pReactors = pEnt->reactors();

if (pReactors != NULL) { for (int i = 0; i < pReactors->length(); i++) { pSomething = pReactors->at(i); // Is it a persistent reactor? // if (acdbIsPersistentReactor(pSomething)) { persObjId = acdbPersistentReactorObjectId( pSomething ); acutPrintf("\n\nPersistent reactor found."); if(pEnt.openStatus() == Acad::eOk) pEnt->close(); AcDbObjectPointer<AcDbGroup>pGroup(persObjId, AcDb::kForWrite); sGrpName = pGroup->name(); acedAlert(sGrpName); pGroup->erase(); } }// for }

return; }

// 通过组名删除组实体 static void EraseGroup(const char * pGroupName) { AcDbDictionary *pGroupDict; AcDbObjectId pGroupId;

acdbHostApplicationServices()->workingDatabase()->getGroupDictionary(pGroupDict, AcDb::kForWrite);

if (pGroupDict->getAt(pGroupName,pGroupId) == Acad::eOk) { AcDbObjectPointer <AcDbGroup> pGroup(pGroupId, AcDb::kForWrite);

pGroup->erase(); pGroupDict->remove(pGroupId); pGroupDict->close(); pGroup->close(); } pGroupDict->close();

return; }

chenpool 发表于 2004-10-7 16:21:00

奇怪，我也用的是VC++.net 2002,但是不知为什么，就是不能调试，F5启动ACAD2004进程的时候，跳出ACAD错误的信息，怪怪的，有人遇到过这样的情况吗？我还以为是2004不能调试呢

页: 1 2 [3] 4 5 6 7 8 9 10 11 12

明经CAD社区's Archiver

回复

回复

回复

点滴

回复

组实体操作