使用ObjectARX在AutoCAD2002中画直线

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命令执行画直线功能