Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.ApplicationServices

Public Class CommandMethods
    <CommandMethod("Test")>
    Public Sub Test()
        Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
        Dim prefs As Dynamic = Application.Preferences
        Dim supportPaths As String() = prefs.Files.SupportPath.Split(";"c)
        For Each str As String In supportPaths
            ed.WriteMessage(vbLf & "{0}", str)
        Next
    End Sub
End Class

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.ApplicationServices

Public Class CommandMethods
    <CommandMethod("Test")> _
    Public Sub Test()
        Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
        Dim prefs As AcadPreferences = CType(Application.Preferences, AcadPreferences)
        Dim supportPaths As String() = prefs.Files.SupportPath.Split(";"C)
        For Each str As String In supportPaths
            ed.WriteMessage(vbLf & "{0}", str)
        Next
    End Sub
End Class

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：1*6=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情