社区 › VB › 在数组中插入多个图纸作为块

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

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

**** Hidden Message *****

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 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
~'J'~

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

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

查看完整版本: 在数组中插入多个图纸作为块