Public Sub StartAutoCAD(dwgPath As String)
    Dim DirInfo = New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles))
    DirInfo = DirInfo.GetDirectories("Autodesk").FirstOrDefault()
    Dim exefiles = DirInfo.GetFiles("accoreconsole.exe", SearchOption.AllDirectories)
    Dim exepath As String Is Nothing
    If exefiles.Length > 0 Then
        exepath = exefiles(0).FullName
    End If

    Dim scriptpath = Path.Combine(Path.GetTempPath(), "Temp.scr")
    Using writer = File.CreateText(scriptpath)
        writer.WriteLine("ZOOM")
        writer.WriteLine("EXTENTS")
        writer.WriteLine("QSAVE")
    End Using
    Dim p = New System.Diagnostics.Process()
    p.StartInfo.FileName = exepath
    p.StartInfo.Arguments = String.Format("/i ""{0}"" /s ""{1}""", dwgPath, scriptpath)
    p.StartInfo.UseShellExecute = False
    p.StartInfo.CreateNoWindow = True
    p.Start()
End Sub

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

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