摘要：
Sub CreateBlockFromEntities() Dim blockName As String Dim basePoint As Variant Dim selectedEntities As AcadSelectionSet Dim blockDef As AcadBlock Dim 阅读全文
摘要：
Public Sub TestKeyWords() AppActivate ThisDrawing.Application.Caption Dim kwordList As Variant, kws1 As String, kws2 As String, rtn As String kwordLis 阅读全文
