求助VB开发Autocad遇到的问题

njlhb

大家好：

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

wmz

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

zhuxuhong

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

wmz

荣幸之至!

njlhb

'生成点,实际上是创建块
Public Sub addpoint(ByVal p0 As Double, ByVal p1 As Double)
Dim blockObj As AcadBlock
Dim insertpoint(0 To 2) As Double
insertpoint(0) = p0
insertpoint(1) = p1
insertpoint(2) = 0
Set blockObj = acadapp.ActiveDocument.Blocks.Add(insertpoint, "d1")

Dim blockobjref As AcadBlockReference
Set blockobjref = acadapp.ActiveDocument.ModelSpace.InsertBlock(insertpoint, "d1", 1#, 1#, 1#, 0)