my_computer 发表于 2006-4-12 15:39:00

入门级问题_如何用VBA的方法将图形中一些实体转化为内部块

<P>如题</P>

雪山飞狐_lzh 发表于 2006-4-12 16:15:00

Copyobjects

my_computer 发表于 2006-4-13 10:59:00

<P>copyobjects是用来复制实体用的.</P>
<P>我是想将图形中的一些实体(例如我们已经将他们放在一个选择集中了),做成Block.这个功能就像block命令,选择一些实体,并将他们块.</P>

mccad 发表于 2006-4-13 11:37:00

这是添加对象到图块中的函数，改造一下就可以变成选择集变图块了：
Public Sub AddObjectsToBlock(blkRef As AcadBlockReference, _
            entArray() As AcadEntity,Optional delObj As Boolean = True)
    Dim blkDef As AcadBlock, origin(0 To 2) As Double, i As Long
   
    origin(0) = 0: origin(1) = 0: origin(2) = 0
   
    Set blkDef = ThisDrawing.Blocks(blkRef.Name)
   
    For i = LBound(entArray) To UBound(entArray)
      entArray(i).Move blkRef.InsertionPoint, origin
    Next
   
    ThisDrawing.CopyObjects entArray, blkDef
   
    If delObj Then
      For i = LBound(entArray) To UBound(entArray)
            entArray(i).Delete
      Next
    End If
End Sub

my_computer 发表于 2006-4-14 10:11:00

好程序.
页: [1]
查看完整版本: 入门级问题_如何用VBA的方法将图形中一些实体转化为内部块