[ARX].NET开发AutoCAD2006指南（一）

ntchjie

月海临风发表于2005-5-8 15:03:00有VB.net版本的吗? 呵呵,学习先 向楼主致敬!!!!

tr100

向楼主学习

yiyiwyy

zhf7878发表于2005-4-24 13:36:0018009  想请教版主和看到帖子的高手们: 怎么能实现在CAD中插入一个C#的动态菜单啊?可以教教我吗? 请大家赐教! &nbs

 

cag

VB.NET 能否用来创建自定义对像?

tcsl9621

楼主是个高手.还望日后多多提点.

tcsl9621

我也在用VB.net编制AUTOCAD程序。有人就是看不起VB。其实VB.net已不是以前的VB了。是两种完全不同的语言。和C#基本一样，功能上一点不差。

quren

        '定义圆的圆心

        Dim center As Point3d = New Point3d(100, 100, 0)

        '定义圆的半径
        Dim radius As Double = 50

        '定义一个Circle对象来表示你要生成的圆，传入的第二个参数为圆的法向，
        '就是把圆生、//成在什么面上，因为AutoCAD程序一般都是平面问题，
        '因此你一般都把这个法向量定义成//z轴方向。
        Dim circle As Circle
        circle = New Circle(center, New Vector3d(0, 0, 1), radius)

        Dim bt As BlockTable
        Dim btr As BlockTableRecord

        Dim db As Database
        '获得当前活动AutoCAD文档所在的数据库
        db = Application.DocumentManager.MdiActiveDocument.Database

        '获得事务处理管理器
        Dim tm As Autodesk.AutoCAD.DatabaseServices.TransactionManager
        tm = db.TransactionManager

        '定义事务处理
        Dim trans As Transaction

        Try
            '开始事务处理，也就是往CAD中加入东西
            trans = tm.StartTransaction
            bt = tm.GetObject(db.BlockTableId, OpenMode.ForRead, False)

            '获得块表记录
            btr = tm.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite, False)

            '向块表记录加入圆的相关信息
            btr.AppendEntity(Circle)

            '向AutoCAD加入圆
            tm.AddNewlyCreatedDBObject(Circle, True)

            trans.Commit()

        Catch ex As Exception
            Throw New ApplicationException(ex.Message)
        End Try

dry

好好学习一下，谢谢楼主了

fangweiren

请问楼主有c++版的没有

tcsl9621

此帖应永远置顶。