在数组中插入多个图纸作为块

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

fixo · 发表于 2012-5-2 00:10:07

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

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

~'J'~

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

**编辑-帖子已删除...我觉得这个线程很熟悉:
http://www . CAD tutor . net/forum/show thread . PHP？68984-将多个图形作为块插入到数组中

在数组中插入多个图纸作为块

发表回复

精选推荐