1)在VC6.0中,使用向导创建一个新的ObjectARX项目,名称叫CreateLine3。使用ObjectARX嵌入工具注册一个新的命令createline。
在【Command flags】选项组中,从【Document】列表中选择【Shared write】选项,取消选择【Use pickset】复选框,【Command】命令类型选择【Model】。
在【Group】文本框中输入CHAP2,【International】文本框中输入CreateLine,左键在【Local】文本框内单击,
系统自动添加CreateLine文本,使用系统自动给出的名称WhCHAP2CreateLine作为CreateLine命令执行的函数名称。
设置命令名称和标记之后,单击【Add】命令就能注册该命令。单击【OK】按钮关闭命令注册的对话框。如下图所示:
图(1)设置createline命令的属性
2)在XXXCommand.cpp中编写与createline命令相关函数:WhCHAP2CreateLine,内容如下:
//XXXCommand.cpp的代码内容
//
// ObjectARX defined commands
#include "StdAfx.h"
#include "StdArx.h"
#include "dbents.h"
// This is command 'CREATELINE'
void WhCHAP2CreateLine()
{
// TODO: Implement the command
//在内存上创建一个新的AcDbLine对象
AcGePoint3d ptStart(500,500,0);
AcGePoint3d ptEnd(560,500,0);
AcDbLine *pLine=new AcDbLine(ptStart,ptEnd);
//获得指向块表的指针
AcDbBlockTable *pBlockTable;
acdbHostApplicationServices()->workingDatabase()->getBlockTable(pBlockTable,AcDb::kForRead);
//获得指向特定的块表记录(模型空间)的指针
AcDbBlockTableRecord *pBlockTableRecord;
pBlockTable->getAt(ACDB_MODEL_SPACE,pBlockTableRecord,
AcDb::kForWrite);
//将AcDbLine类的对象添加到块表记录中
AcDbObjectId lineId;
pBlockTableRecord->appendAcDbEntity(lineId,pLine);
pLine->setColorIndex(1); //设置直线为红色
//关闭图形数据库的各种对象
pBlockTable->close();
pBlockTableRecord->close();
pLine->close();
}
3)按F7编译程序,按F5调试程序并加载cad.exe,打开AutoCAD2002后,在AutoCAD2002的命令行窗口输入命令:
appload
在工程的Debug目录里找到.arx文件,并加载.arx -->关闭,在AutoCAD2002的命令行窗口输入命令:
createline
效果如下:
图(2)输入appload命令加载.arx文件,输入createline命令执行画直线功能