fyt234 发表于 2006-5-12 14:39:00

[VBA]求助各位达人，关于块属性编辑--已解决

本帖最后由 作者 于 2006-5-12 15:42:57 编辑 <br /><br /> 利用下面代码段，我可以访问到块的名称，现在想访问块编辑“增强属性编辑器”对话框里面“文字选项”面板内“高度”这个属性，不知道怎么访问到呢？<br>&nbsp;&nbsp;&nbsp; Dim blkColl As AcadBlocks<br>&nbsp;&nbsp;&nbsp; Set blkColl = ThisDrawing.Blocks<br>&nbsp;&nbsp;&nbsp; '扫描图块集合<br>&nbsp;&nbsp;&nbsp; For Each elem In blkColl<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; Msg elem.Name<br>&nbsp;&nbsp;&nbsp; Next<br><br>已经解决,谢谢这个论坛,答案在三楼<br>

fyt234 发表于 2006-5-12 15:19:00

好像用GetAttributes方法只能得到这个对话框里面第一个"属性"面板里面的属性和值,不能得到“文字选项”面板内“高度”这个属性??

fyt234 发表于 2006-5-12 15:41:00

&nbsp;&nbsp; ThisDrawing.SelectionSets("ss1").Delete<br>&nbsp;&nbsp;&nbsp; Set sset = ThisDrawing.SelectionSets.Add("ss1") '新建一个选择集<br>&nbsp;&nbsp;&nbsp; sset.SelectOnScreen '提示用户选择<br>&nbsp;&nbsp; &nbsp;<br>&nbsp;&nbsp;&nbsp; For Each elemEnt In sset<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If elemEnt.ObjectName = "AcDbBlockReference" Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If elemEnt.HasAttributes Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' Get the attributes for the block reference<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim varAttributes As Variant<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; varAttributes = elemEnt.GetAttributes<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim strAttributes As String<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim I As Integer<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For I = LBound(varAttributes) To UBound(varAttributes)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; varAttributes(I).Height = 20<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br>&nbsp;Next elemEnt
页: [1]
查看完整版本: [VBA]求助各位达人，关于块属性编辑--已解决