نوشته شده توسط
PouriaParhami
سلام فکر می کنم شما به پلاگین AutoDesk احتیاج دارید.
این هم یک مثال :
Imports Autodesk.AutoCAD.ApplicationServicesImports Autodesk.AutoCAD.DatabaseServicesImports Autodesk.AutoCAD.Runtime <CommandMethod("NewDrawing", CommandFlags.Session)> _Public Sub NewDrawing() '' Specify the template to use, if the template is not found '' the default settings are used. Dim strTemplatePath As String = "acad.dwt" Dim acDocMgr As DocumentCollection = Application.DocumentManager Dim acDoc As Document = acDocMgr.Add(strTemplatePath) acDocMgr.MdiActiveDocument = acDocEnd Sub