常用语句

1、当前活动文档   

Dim doc As ApplicationServices.Document = ApplicationServices.Application.DocumentManager.MdiActiveDocument

View Code

2、拾取图元

        Dim peo As New EditorInput.PromptEntityOptions("请指定一个图块")
        With peo
            .SetRejectMessage("需要图块")
            .AddAllowedClass(GetType(DatabaseServices.BlockReference), True)
        End With

        Dim per As EditorInput.PromptEntityResult = doc.Editor.GetEntity(peo)

        If Not per.Status = EditorInput.PromptStatus.OK Then
            Exit Sub
        End If

View Code

 

标签：语句,Dim,常用,End,per,peo,ApplicationServices,EditorInput
来源： https://www.cnblogs.com/rf8862/p/13726229.html