用VS.NET2005开发ObjectARX程序 调试方法
1.自动启动AutoCAD：
选择工程根目录(解决方案下面的)，鼠标右键-->属性-->
工程属性对话框-->调试标签-->启动操作:启动外部程序-->浏览选择AutoCAD的安装目录，选择acad.exe。
2.手动加载类库：
(1) 按F5;
(2) 自动启动AutoCAD，一路继续。
(3) 在CAD命令行手动输入"netload"，浏览到自己的动态连接库文件。
3.自动加载类库：
(1) 工程属性对话框-->调试标签-->启动选项-->命令行参数中输入：
/nologo /b "..\..\start.scr"
让CAD自动在命令执行工程目录里的start.scr文件。
(2) 然后就是在工程目录的根目录创建一个文本文件，名字取为“start.scr”，并在此文件中输入如下文本：
netload "..\..\bin\debug\lubanren_2008.dll"
(3) 按F5。
4.单纯的数据库交互窗体操作，使用Windows 应用程序开发模式调试会更方便些：
(1) 工程属性对话框-->应用程序标签-->程序集名称：Windows 应用程序。
(2) 调试标签-->启动操作:启动项目。
(3) 按F5。
using System;using Autodesk.AutoCAD.Runtime;using Autodesk.AutoCAD.ApplicationServices;using Autodesk.AutoCAD.DatabaseServices;using Autodesk.AutoCAD.Geometry;using Autodesk.AutoCAD.Colors;using Autodesk.AutoCAD.EditorInput;[assembly: CommandClass(typeof(ClassLibrary.Class))]namespace ClassLibrary{ /// <summary> /// Summary description for Class. /// </summary> public class Class { public Class() { // TODO: Add constructor logic here } #region CreateEmployeeDefinition // This function returns the ObjectId for the BlockTableRecord called "EmployeeBlock", // creating it if necessary. The block contains three entities - circle, text // and ellipse. private ObjectId CreateEmployeeDefinition() { ObjectId newBtrId = new ObjectId(); //The return value for this function Database db = HostApplicationServices.WorkingDatabase; //save some space using (Transaction trans = db.TransactionManager.StartTransaction()) //begin the transaction { // Now, access the database and obtain a reference to the BlockTable BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForWrite); if ((bt.Has("EmployeeBlock"))) { newBtrId = bt["EmployeeBlock"]; } else { Point3d center = new Point3d(0, 0, 0); // Declare and define the entities we want to add: // Circle: Circle circle = new Circle(center, Vector3d.ZAxis, 2); // Attribute Definition AttributeDefinition text = new AttributeDefinition(center, "NoName", "Name:", "Enter Name", db.Textstyle); text.ColorIndex = 2; // Ellipse: Ellipse ellipse = new Ellipse(center, Vector3d.ZAxis, new Vector3d(3, 0, 0), 0.5, 0, 0); // Next, create a layer with the helper function, and assign the layer to our entities. ObjectId empId = CreateLayer(); text.LayerId = empId; circle.LayerId = empId; ellipse.LayerId = empId; // Set the color for each entity irrespective of the layer's color. text.ColorIndex = 2; circle.ColorIndex = 1; ellipse.ColorIndex = 3; // Create a new block definition called EmployeeBlock BlockTableRecord newBtr = new BlockTableRecord(); newBtr.Name = "EmployeeBlock"; newBtrId = bt.Add(newBtr); //Add the block, and set the id as the return value of our function trans.AddNewlyCreatedDBObject(newBtr, true); //Let the transaction know about any object/entity you add to the database! newBtr.AppendEntity(circle); //Append our entities... newBtr.AppendEntity(text); newBtr.AppendEntity(ellipse); trans.AddNewlyCreatedDBObject(circle, true); //Again, let the transaction know about our newly added entities. trans.AddNewlyCreatedDBObject(text, true); trans.AddNewlyCreatedDBObject(ellipse, true); } trans.Commit(); //All done, no errors? Go ahead and commit! } return newBtrId; }#endregion #region CreateEmployeeCommand [CommandMethod("CREATE")] public void Create() { Database db = HostApplicationServices.WorkingDatabase; Editor ed = Application.DocumentManager.MdiActiveDocument.Editor; try { using (Transaction trans = db.TransactionManager.StartTransaction()) { //Prompts for each employee detail PromptStringOptions prName = new PromptStringOptions("Enter Employee Name"); PromptStringOptions prDiv = new PromptStringOptions("Enter Employee Division"); PromptDoubleOptions prSal = new PromptDoubleOptions("Enter Employee Salary"); PromptPointOptions prPos = new PromptPointOptions("Enter Employee Position or"); //Add keywords when prompting for position prPos.Keywords.Add("Name"); prPos.Keywords.Add("Division"); prPos.Keywords.Add("Salary"); //Set the default values for each of these prName.Message = "Earnest Shackleton"; prDiv.Message = "Sales"; prSal.Message ="10000.0f"; //Set conditions for prompting prPos.AllowNone = false; //Do not allow null values //prompt results - set explicitly to null PromptResult prNameRes = null; PromptResult prDivRes = null; PromptDoubleResult prSalRes = null; PromptPointResult prPosRes = null; //Loop to get employee details. Exit the loop when positon is entered while (prPosRes == null || prPosRes.Status != PromptStatus.OK) { //Prompt for position prPosRes = ed.GetPoint(prPos); if (prPosRes.Status == PromptStatus.Keyword) //Got a keyword { switch (prPosRes.StringResult) {case "Name": //Get employee name prName.AllowSpaces = true; prNameRes = ed.GetString(prName); if (prNameRes.Status != PromptStatus.OK) throw new System.Exception("Error or User Cancelled"); break;case "Division": //Get employee division prDiv.AllowSpaces = true; prDivRes = ed.GetString(prDiv); if (prDivRes.Status != PromptStatus.OK) throw new System.Exception("Error or User Cancelled"); break;case "Salary": //Get employee salary prSal.AllowNegative = false; prSal.AllowNone = true; prSal.AllowZero = false; prSalRes = ed.GetDouble(prSal); if (prSalRes.Status != PromptStatus.OK & prSalRes.Status != PromptStatus.None) throw new System.Exception("Error or User Cancelled"); break; } } if (prPosRes.Status == PromptStatus.Cancel || prPosRes.Status == PromptStatus.Error) throw new System.Exception("Error or User Cancelled"); } //Create the Employee - either use the input value or the default value... string empName = (prNameRes == null ? prName.Message : prNameRes.StringResult); string divName = (prDivRes == null ? prDiv.Message : prDivRes.StringResult); double salary = (prSalRes == null ? Convert.ToDouble( prSal.Message) : prSalRes.Value); CreateEmployee(empName, divName, salary, prPosRes.Value); //Now create the division //Pass an empty string for manager to check if it already exists string manager = ""; ObjectId xRecId = CreateDivision(divName, manager); //Open the department manager XRecord Xrecord depMgrXRec = (Xrecord)trans.GetObject(xRecId, OpenMode.ForRead); TypedValue[] typedVal = depMgrXRec.Data.AsArray(); foreach (TypedValue val in typedVal) { string str = (string)val.Value; if (str == "") { //Manager was not set, now set it // Prompt for manager name first ed.WriteMessage("\r\n"); PromptStringOptions prManagerName = new PromptStringOptions("No manager set for the division! Enter Manager Name"); prManagerName.Message = "Delton T. Cransley"; prManagerName.AllowSpaces = true; PromptResult prManagerNameRes = ed.GetString(prManagerName); if (prManagerNameRes.Status != PromptStatus.OK)throw new System.Exception("Error or User Cancelled"); //Set a manager name depMgrXRec.Data = new ResultBuffer(new TypedValue((int)DxfCode.Text, prManagerNameRes.StringResult)); } } trans.Commit(); } } catch (System.Exception ex) { ed.WriteMessage("\nError: " ex.Message "\n"); } } #endregion #region CreateEmployee // This function creates a new BlockReference to the "EmployeeBlock" object, // and adds it to ModelSpace. private ObjectId CreateEmployee(string name, string division, double salary, Point3d pos) { // get the current working database Database db = HostApplicationServices.WorkingDatabase; using (Transaction trans = db.TransactionManager.StartTransaction()) { BlockTable bt = (BlockTable)(trans.GetObject(db.BlockTableId, OpenMode.ForWrite)); BlockTableRecord btr = (BlockTableRecord)trans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite); // Create the block reference...use the return from CreateEmployeeDefinition directly! BlockReference br = new BlockReference(pos, CreateEmployeeDefinition()); AttributeReference attRef = new AttributeReference(); // Iterate the employee block and find the attribute definition BlockTableRecord empBtr = (BlockTableRecord)trans.GetObject(bt["EmployeeBlock"], OpenMode.ForRead); foreach (ObjectId id in empBtr) { Entity ent = (Entity)trans.GetObject(id, OpenMode.ForRead, false); // Use it to open the current object! if (ent is AttributeDefinition) // We use .NET's RunTimeTypeInformation (RTTI) to establish type. { // Set the properties from the attribute definition on our attribute reference AttributeDefinition attDef = ((AttributeDefinition)(ent)); attRef.SetPropertiesFrom(attDef); attRef.Position = new Point3d(attDef.Position.X br.Position.X, attDef.Position.Y br.Position.Y, attDef.Position.Z br.Position.Z); attRef.Height = attDef.Height; attRef.Rotation = attDef.Rotation; attRef.Tag = attDef.Tag; attRef.TextString = name; } } // Add the reference to ModelSpace btr.AppendEntity(br); // Add the attribute reference to the block reference br.AttributeCollection.AppendAttribute(attRef); // let the transaction know trans.AddNewlyCreatedDBObject(attRef, true); trans.AddNewlyCreatedDBObject(br, true); // Create the custom per-employee data Xrecord xRec = new Xrecord(); // We want to add 'Name', 'Salary' and 'Division' information. Here is how: xRec.Data = new ResultBuffer( new TypedValue((int)DxfCode.Text, name), new TypedValue((int)DxfCode.Real, salary), new TypedValue((int)DxfCode.Text, division)); // Next, we need to add this data to the 'Extension Dictionary' of the employee. br.CreateExtensionDictionary(); DBDictionary brExtDict = (DBDictionary)trans.GetObject(br.ExtensionDictionary, OpenMode.ForWrite, false); brExtDict.SetAt("EmployeeData", xRec); //Set our XRecord in the dictionary at 'EmployeeData'. trans.AddNewlyCreatedDBObject(xRec, true); ObjectId retId = br.ObjectId; trans.Commit(); return retId; } } #endregion #region CreateLayer // This function returns the objectId for the "EmployeeLayer", creating it if necessary. private ObjectId CreateLayer() { ObjectId layerId; Database db = HostApplicationServices.WorkingDatabase; using (Transaction trans = db.TransactionManager.StartTransaction()) { // open the layer table for read first, to check to see if the requested layer exists LayerTable lt = (LayerTable)trans.GetObject(db.LayerTableId, OpenMode.ForRead); // Check if EmployeeLayer exists... if (lt.Has("EmployeeLayer")) { layerId = lt["EmployeeLayer"]; } else { // if not, create the layer here. LayerTableRecord ltr = new LayerTableRecord(); ltr.Name = "EmployeeLayer"; // Set the layer name ltr.Color = Color.FromColorIndex(ColorMethod.ByAci, 2); // upgrade the open from read to write lt.UpgradeOpen(); // now add the new layer layerId = lt.Add(ltr); trans.AddNewlyCreatedDBObject(ltr, true); trans.Commit(); // Only need to commit when we have made a change! } } return layerId; } #endregion #region CreateDivision private ObjectId CreateDivision(string division, string manager) { ObjectId retId = ObjectId.Null; Database db = HostApplicationServices.WorkingDatabase; using (Transaction trans = db.TransactionManager.StartTransaction()) { // First, get the Named Objects Dictionary (NOD)... DBDictionary NOD = (DBDictionary)trans.GetObject(db.NamedObjectsDictionaryId, OpenMode.ForWrite); // Define a corporate level dictionary DBDictionary acmeDict; // here's another way to check to see if an entry exists, using try/catch instead of has[] try { // Just throw if it doesn't exist...do nothing else acmeDict = (DBDictionary)trans.GetObject(NOD.GetAt("ACME_DIVISION"), OpenMode.ForRead); } catch { //Doesn't exist, so create one, and set it in the NOD? acmeDict = new DBDictionary(); NOD.SetAt("ACME_DIVISION", acmeDict); trans.AddNewlyCreatedDBObject(acmeDict, true); } // Now get the division we want from acmeDict DBDictionary divDict; try { divDict = (DBDictionary)trans.GetObject(acmeDict.GetAt(division), OpenMode.ForWrite); } catch { divDict = new DBDictionary(); //Division doesn't exist, create one acmeDict.UpgradeOpen(); acmeDict.SetAt(division, divDict); trans.AddNewlyCreatedDBObject(divDict, true); } // Now get the manager info from the division // We need to add the name of the division supervisor. We'll do this with another XRecord. Xrecord mgrXRec; try { mgrXRec = (Xrecord)trans.GetObject(divDict.GetAt("Department Manager"), OpenMode.ForWrite); } catch { mgrXRec = new Xrecord(); mgrXRec.Data = new ResultBuffer(new TypedValue((int)DxfCode.Text, manager)); divDict.SetAt("Department Manager", mgrXRec); trans.AddNewlyCreatedDBObject(mgrXRec, true); } // Return the department manager XRecord retId = mgrXRec.ObjectId; trans.Commit(); } return retId; } #endregion #region EmployeeCountCommand [CommandMethod("EMPLOYEECOUNT")] public void EmployeeCount() { // get the working database Database db = HostApplicationServices.WorkingDatabase; // we need to be able to print to the commandline. Here is an object which will help us: Editor ed = Application.DocumentManager.MdiActiveDocument.Editor; try { // Start the transaction. using (Transaction trans = db.TransactionManager.StartTransaction()) { int nEmployeeCount = 0; // First, get at the BlockTable, and the ModelSpace BlockTableRecord BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead); BlockTableRecord btr = (BlockTableRecord)trans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForRead); // here is the fun part. This is where we iterate through ModelSpace: foreach (ObjectId id in btr) { Entity ent = (Entity)trans.GetObject(id, OpenMode.ForRead, false); //Use it to open the current object! if (ent.GetType() == typeof(BlockReference)) //We use .NET's RTTI to establish type. { nEmployeeCount = 1; } } ed.WriteMessage("Employees Found: " nEmployeeCount.ToString()); trans.Commit(); } } catch (System.Exception ex) { ed.WriteMessage("Error Counting Employees: " ex.Message); } } #endregion #region ListEmployee //We want a command which will go through and list all the relevant employee data. private static void ListEmployee(ObjectId employeeId, ref string[] saEmployeeList) { Database db = HostApplicationServices.WorkingDatabase; // Start the transaction using (Transaction trans = db.TransactionManager.StartTransaction()) { int nEmployeeDataCount = 0; Entity ent = (Entity)trans.GetObject(employeeId, OpenMode.ForRead, false); // Use it to open the current object! if (ent.GetType() == typeof(BlockReference)) // We use .NET's RTTI to establish type. { // Not all BlockReferences will have our employee data, so we must make sure we can handle failure bool bHasOurDict = true; Xrecord EmployeeXRec = null; try { BlockReference br = (BlockReference)ent; DBDictionary extDict = (DBDictionary)trans.GetObject(br.ExtensionDictionary, OpenMode.ForRead, false); EmployeeXRec = (Xrecord)trans.GetObject(extDict.GetAt("EmployeeData"), OpenMode.ForRead, false); } catch { // something bad happened...our dictionary and/or XRecord is not accessible for some reason bHasOurDict = false; } // If obtaining the Extension Dictionary, and our XRecord is successful... if (bHasOurDict) { // allocate memory for the list saEmployeeList = new String[4]; TypedValue resBuf = EmployeeXRec.Data.AsArray()[0]; saEmployeeList.SetValue(string.Format("{0}\n", resBuf.Value), nEmployeeDataCount); nEmployeeDataCount = 1; resBuf = EmployeeXRec.Data.AsArray()[1]; saEmployeeList.SetValue(string.Format("{0}\n", resBuf.Value), nEmployeeDataCount); nEmployeeDataCount = 1; resBuf = EmployeeXRec.Data.AsArray()[2]; string str = (string)resBuf.Value; saEmployeeList.SetValue(string.Format("{0}\n", resBuf.Value), nEmployeeDataCount); nEmployeeDataCount = 1; DBDictionary NOD = (DBDictionary)trans.GetObject(db.NamedObjectsDictionaryId, OpenMode.ForRead, false); DBDictionary acmeDict = (DBDictionary)trans.GetObject(NOD.GetAt("ACME_DIVISION"), OpenMode.ForRead); DBDictionary salesDict = (DBDictionary)trans.GetObject(acmeDict.GetAt((string)EmployeeXRec.Data.AsArray()[2].Value), OpenMode.ForRead); Xrecord salesXRec = (Xrecord)trans.GetObject(salesDict.GetAt("Department Manager"), OpenMode.ForRead); resBuf = salesXRec.Data.AsArray()[0]; saEmployeeList.SetValue(string.Format("{0}\n", resBuf.Value), nEmployeeDataCount); nEmployeeDataCount = 1; } } trans.Commit(); } } #endregion #region ListEmployeesCommand [CommandMethod("LISTEMPLOYEES")] public void List() { Editor ed = Application.DocumentManager.MdiActiveDocument.Editor; try { PromptSelectionOptions Opts = new PromptSelectionOptions(); TypedValue[] filList = new TypedValue[1]; //Build a filter list so that only block references are selected filList[0] = new TypedValue((int)DxfCode.Start, "INSERT"); SelectionFilter filter = new SelectionFilter(filList); PromptSelectionResult res = ed.GetSelection(Opts, filter); //Do nothing if selection is unsuccessful if (res.Status != PromptStatus.OK) return; Autodesk.AutoCAD.EditorInput.SelectionSet SS = res.Value; ObjectId[] idArray; idArray = SS.GetObjectIds(); string[] saEmployeeList = new string[4]; //collect all employee details in saEmployeeList array foreach (ObjectId employeeId in idArray) { ListEmployee(employeeId, ref saEmployeeList); //Print employee details to the command line foreach (string employeeDetail in saEmployeeList) { ed.WriteMessage(employeeDetail); } //separator ed.WriteMessage("----------------------" "\r\n"); } } catch (System.Exception ex) { ed.WriteMessage("Error Listing Employees: " ex.Message); } } #endregion #region PrintoutEmployeeCommand [CommandMethod("PRINTOUTEMPLOYEE")] public static void PrintoutEmployee() { Editor ed = Application.DocumentManager.MdiActiveDocument.Editor; Database db = HostApplicationServices.WorkingDatabase; try { using (Transaction trans = db.TransactionManager.StartTransaction()) { BlockTable bt = (BlockTable)trans.GetObject(HostApplicationServices.WorkingDatabase.BlockTableId, OpenMode.ForRead); BlockTableRecord btr = (BlockTableRecord)trans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForRead); foreach (ObjectId id in btr) { Entity ent = (Entity)trans.GetObject(id, OpenMode.ForRead, false); if (ent is BlockReference) { string[] saEmployeeList = null; ListEmployee(id, ref saEmployeeList); if ((saEmployeeList.Length == 4)) { ed.WriteMessage("Employee Name: {0}", saEmployeeList[0]); ed.WriteMessage("Employee Salary: {0}", saEmployeeList[1]); ed.WriteMessage("Employee Division: {0}", saEmployeeList[2]); ed.WriteMessage("Division Manager: {0}", saEmployeeList[3]); } } } } } catch (System.Exception ex) { ed.WriteMessage("Error Printing Out Employees: " ex.Message); } } #endregion #region TestCommand [CommandMethod("Test")] public void Test() { Editor ed = Application.DocumentManager.MdiActiveDocument.Editor; try { CreateDivision("Sales", "Randolph P. Brokwell"); } catch (System.Exception ex) { ed.WriteMessage("Error in Test Command: " ex.Message); } } #endregion }}
评论