将多个图形作为块插入阵列中

BlackBox · 发表于 2012-5-1 07:08:03

我对vba编程完全陌生，不幸的是，我很难理清基本的东西
我想要实现的是：用户设置每个块要插入的次数，用户为块1选择一个点，系统创建一个由一行和i个列组成的数组（i=由用户在上一步中定义）用户为块2选择一个点值，系统创建一个由一行和i个列组成的数组（i=用户在上一步中定义的）等等…
有人对如何处理有什么建议吗
如果您有任何需要，我们将不胜感激
（我正在通过autocad 2012运行vba）

天后联盟 · 发表于 2012-5-2 00:10:07

请参阅帮助文件中的MinsertBlock方法：

copy

Option Explicit
Public Sub TestForBlockArray()
Dim acsp As AcadBlock
Set acsp = ThisDrawing.ActiveLayout.Block
Dim pt(2) As Double
Dim blkname  As 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~

桥人 · 发表于 2012-5-2 01:23:41

** 编辑-删除帖子…我觉得这个帖子很熟悉：
http://www.cadtutor.net/forum/showthread.php?68984-将多个图形作为块插入阵列中

将多个图形作为块插入阵列中

发表回复

精选推荐