njlhb 发表于 2005-11-5 20:29:00

求助VB开发Autocad遇到的问题

<P>大家好：</P>
<P>&nbsp;&nbsp;&nbsp; 本人现在用autocad+vb开发一个管线系统，实现由Access数据库表（mdb格式的文件）生成autocad图形文件，其中在生成点时，每个点的显示样式都是由块来显示的，这些块（都以dwg格式存储）我都做好了，现在的问题是在VB里如何调用这些已做好的块！谢谢！</P>

wmz 发表于 2005-11-6 08:43:00

将Access数据库表中的坐标数据读出来,再在这个坐标处插入你做好的块就行了.

zhuxuhong 发表于 2005-11-6 11:40:00

哈哈，同行。前段时间我用VBA+AUTOCAD开发了一个管线系统，有机会可以切磋一下。

wmz 发表于 2005-11-6 12:11:00

荣幸之至!

njlhb 发表于 2005-11-6 14:31:00

<P>'生成点,实际上是创建块<BR>Public Sub addpoint(ByVal p0 As Double, ByVal p1 As Double)<BR>Dim blockObj As AcadBlock<BR>Dim insertpoint(0 To 2) As Double<BR>insertpoint(0) = p0<BR>insertpoint(1) = p1<BR>insertpoint(2) = 0<BR>Set blockObj = acadapp.ActiveDocument.Blocks.Add(insertpoint, "d1")</P>
<P>Dim blockobjref As AcadBlockReference<BR>Set blockobjref = acadapp.ActiveDocument.ModelSpace.InsertBlock(insertpoint, "d1", 1#, 1#, 1#, 0)</P>
<P>&nbsp;</P>
页: [1]
查看完整版本: 求助VB开发Autocad遇到的问题