freshclue 发表于 2008-12-6 16:47:00

[求助]这样的程序怎么改能选择图形中的块

<p>Dim blkDef As AcadBlock '定义块变量<br/>Dim sset As AcadSelectionSet '定义选择集</p><p>On Error Resume Next<br/>Set sset = ThisDrawing.SelectionSets("ssName")<br/>If Err Then Set sset = ThisDrawing.SelectionSets.Add("ssName")<br/>sset.Clear<br/>Dim fType(0 To 1) As Integer, fData(0 To 1)<br/>fType(0) = 0: fData(0) = "BLOCK": fType(1) = 8: fData(1) = "*"<br/>sset.Select acSelectionSetAll, , , fType, fData</p><p>这些语句执行完成，查看sset，count值为0,但是图形中有块存在，请问怎么才能选择图形中的块呢？</p>

sailorcwx 发表于 2008-12-7 10:09:00

<p>应该是"INSERT"不是“BLOCK”</p>
页: [1]
查看完整版本: [求助]这样的程序怎么改能选择图形中的块