Autocad2005编程指南(1)用VB.net编写Arx程序

翱翔人生

看来我要开始学3次开发了


真的看不懂哦！！

LostPatrol

ahlzl发表于2004-4-3 21:20:00AX是什么啊?

我想是ActiveX吧。先引用部件，再设置属性，方法。VB6.0可以做CAD的二次开发。我在大学期间做过一些程序（不敢说是软件）。我认为它唯一的毛病在于速度慢。

lotusfly

2. Imports Autodesk.AutoCAD.ApplicationServices
3. Imports Autodesk.AutoCAD.DatabaseServices
4. Imports Autodesk.AutoCAD.Runtime
5. Imports Autodesk.AutoCAD.Interop
6. Imports Autodesk.AutoCAD.Geometry
7. Imports DBTransMan = Autodesk.AutoCAD.DatabaseServices.TransactionManager
8. Public Class TLCad
9.        <CommandMethod("test")> Public Shared Sub MytestCmd()
10.                Dim db As Database = Application.DocumentManager.MdiActiveDocument.Database
11.                Dim tm As DBTransMan = db.TransactionManager
12.                Dim myT As Transaction = tm.StartTransaction()
13.                Try
14.                        Dim line As New Line(New Point3d(0, 0, 0), New Point3d(1, 1, 0))
15.                        Dim bt As BlockTable = CType(tm.GetObject(db.BlockTableId, OpenMode.ForRead, False), BlockTable)
16.                        Dim btr As BlockTableRecord = CType(tm.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite, False), BlockTableRecord)
17.                        btr.AppendEntity(line)
18.                        tm.AddNewlyCreatedDBObject(line, True)
19.                        Dim tbl As RegAppTable = CType(myT.GetObject(db.RegAppTableId, OpenMode.ForWrite, False), RegAppTable)
20.                        Dim app As New RegAppTableRecord
21.                        app.Name = "test1"
22.                        tbl.Add(app)
23.                        tm.AddNewlyCreatedDBObject(app, True)
24.                        line.XData = New ResultBuffer( _
25.                                        New TypedValue(CInt(DxfCode.ExtendedDataRegAppName), "test1"), _
26.                                        New TypedValue(CInt(DxfCode.ExtendedDataAsciiString), "tlcad test"))
27.                        myT.Commit()
28.                Finally
29.                        myT.Dispose()
30.                End Try
31.        End Sub
32. End Class

Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.Interop Imports Autodesk.AutoCAD.Geometry Imports DBTransMan = Autodesk.AutoCAD.DatabaseServices.TransactionManager Public Class TLCad        <CommandMethod("test")> Public Shared Sub MytestCmd()                Dim db As Database = Application.DocumentManager.MdiActiveDocument.Database                Dim tm As DBTransMan = db.TransactionManager                Dim myT As Transaction = tm.StartTransaction()                Try                        Dim line As New Line(New Point3d(0, 0, 0), New Point3d(1, 1, 0))                        Dim bt As BlockTable = CType(tm.GetObject(db.BlockTableId, OpenMode.ForRead, False), BlockTable)                        Dim btr As BlockTableRecord = CType(tm.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite, False), BlockTableRecord)                        btr.AppendEntity(line)                        tm.AddNewlyCreatedDBObject(line, True)                        Dim tbl As RegAppTable = CType(myT.GetObject(db.RegAppTableId, OpenMode.ForWrite, False), RegAppTable)                        Dim app As New RegAppTableRecord                        app.Name = "test1"                        tbl.Add(app)                        tm.AddNewlyCreatedDBObject(app, True)                        line.XData = New ResultBuffer( _                                        New TypedValue(CInt(DxfCode.ExtendedDataRegAppName), "test1"), _                                        New TypedValue(CInt(DxfCode.ExtendedDataAsciiString), "tlcad test"))                        myT.Commit()                Finally                        myT.Dispose()                End Try        End Sub End Class

看了上面的例子，有OBJECTARX的感觉！createLine()
{
       AcGePoint3d startPt(4.0, 2.0, 0.0);
       AcGePoint3d endPt(10.0, 7.0, 0.0);
       AcDbLine *pLine = new AcDbLine(startPt, endPt);       AcDbBlockTable *pBlockTable;
       acdbHostApplicationServices()->workingDatabase()
               ->getSymbolTable(pBlockTable, AcDb::kForRead);       AcDbBlockTableRecord *pBlockTableRecord;
       pBlockTable->getAt(ACDB_MODEL_SPACE, pBlockTableRecord,
               AcDb::kForWrite);
       pBlockTable->close();       AcDbObjectId lineId;
       pBlockTableRecord->appendAcDbEntity(lineId, pLine);       pBlockTableRecord->close();
       pLine->close();       return lineId;
}

cag

用VB。Net 开发出来的程序是用dll作扩展名的？


是否只支持CAD2005，不支持2002吗？

雪山飞狐_lzh

是的

happy362

请问有相关的参考书卖没有


能不能给一个创建实体的例子,如 创建点线 注写文字等


在此谢谢啦

happy362

已看到啦谢谢啦

happy362

告诉大家一个好消息, cad2005中文正式版出来啦在 http://down.9iv.com/ 有得下,不过有点慢, 只能单线程下 我已下下来啦,很好用,绝对正式注册版

sujianyong

我想请问怎样才能找到Objectarx，万分感谢

雪山飞狐_lzh

to sujianyong 论坛里太多了，不过还是贴过来 http://usa.autodesk.com/adsk/servlet/item?siteID=123112&id=785550