将多个图形作为块插入阵列中
我对vba编程完全陌生，不幸的是，我很难理清基本的东西我想要实现的是：用户设置每个块要插入的次数，用户为块1选择一个点，系统创建一个由一行和i个列组成的数组（i=由用户在上一步中定义）用户为块2选择一个点值，系统创建一个由一行和i个列组成的数组（i=用户在上一步中定义的）等等…
有人对如何处理有什么建议吗
如果您有任何需要，我们将不胜感激
（我正在通过autocad 2012运行vba）
请参阅帮助文件中的MinsertBlock方法：
Option Explicit
Public Sub TestForBlockArray()
Dim acsp As AcadBlock
Set acsp = ThisDrawing.ActiveLayout.Block
Dim pt(2) As Double
Dim blknameAs String
Dim NumRows As Long, _
NumColumns As Long, _
RowSpacing As Long, _
ColumnSpacing As Long
NumRows = 24
NumColumns = 12
RowSpacing = 700
ColumnSpacing = 350
blkname="foo" '<-- block name
acsp.AddMInsertBlock pt, blkname, 1, 1, 1, 0, NumRows, NumColumns, RowSpacing, ColumnSpacing
End Sub
~&039；J#039~ ** 编辑-删除帖子…我觉得这个帖子很熟悉：
http://www.cadtutor.net/forum/showthread.php?68984-将多个图形作为块插入阵列中
页:
[1]