ntchjie 发表于 2005-5-20 18:07:00

月海临风发表于2005-5-8 15:03:00static/image/common/back.gif有VB.net版本的吗?


呵呵,学习先


向楼主致敬!!!!

<BR>

tr100 发表于 2005-6-22 16:13:00

向楼主学习

yiyiwyy 发表于 2006-4-27 12:48:00

zhf7878发表于2005-4-24 13:36:00static/image/common/back.gif18009


&nbsp;想请教版主和看到帖子的高手们:
怎么能实现在CAD中插入一个C#的动态菜单啊?可以教教我吗?
请大家赐教!

&nbs


<P><BR>&nbsp;</P>

cag 发表于 2006-4-28 10:05:00

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

tcsl9621 发表于 2006-4-28 22:35:00

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

tcsl9621 发表于 2006-5-2 20:58:00

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

quren 发表于 2006-5-12 10:39:00

<P><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '定义圆的圆心</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim center As Point3d = New Point3d(100, 100, 0)</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '定义圆的半径<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim radius As Double = 50</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '定义一个Circle对象来表示你要生成的圆，传入的第二个参数为圆的法向，<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '就是把圆生、//成在什么面上，因为AutoCAD程序一般都是平面问题， <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '因此你一般都把这个法向量定义成//z轴方向。<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim circle As Circle<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; circle = New Circle(center, New Vector3d(0, 0, 1), radius)</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim bt As BlockTable<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim btr As BlockTableRecord</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim db As Database<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '获得当前活动AutoCAD文档所在的数据库<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; db = Application.DocumentManager.MdiActiveDocument.Database</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '获得事务处理管理器<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim tm As Autodesk.AutoCAD.DatabaseServices.TransactionManager<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; tm = db.TransactionManager</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '定义事务处理<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim trans As Transaction</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Try<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '开始事务处理，也就是往CAD中加入东西<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; trans = tm.StartTransaction<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bt = tm.GetObject(db.BlockTableId, OpenMode.ForRead, False)</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '获得块表记录<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; btr = tm.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite, False)</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '向块表记录加入圆的相关信息<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; btr.AppendEntity(Circle)</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '向AutoCAD加入圆<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; tm.AddNewlyCreatedDBObject(Circle, True)</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; trans.Commit()</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Catch ex As Exception<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Throw New ApplicationException(ex.Message)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Try</P>

dry 发表于 2006-6-24 16:46:00

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

fangweiren 发表于 2006-6-29 16:40:00

<P>请问楼主有c++版的没有</P>

tcsl9621 发表于 2006-7-4 19:54:00

此帖应永远置顶。
页: 1 [2] 3
查看完整版本: [ARX].NET开发AutoCAD2006指南（一）