Message 1 of 6
Not applicable
06-09-2014
10:47 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi!
Sorry for my English.
I have a program in VB2010 (AutoCAD2012) to VB2012 (AutoCAD2015)
taken. Unfortunately, when I start it now (netload), nothing happens.
Admit it still features the in VB2012 (AutoCAD2015) must be observed?
Thank you for your help.
Imports System
Imports System.IO
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Windows
Imports Autodesk.AutoCAD.Runtime.RuntimeSystem
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.ApplicationServices.Application
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.Colors
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.GraphicsSystem.View
Imports Autodesk.AutoCAD.Windows
Imports Autodesk.AutoCAD.Runtime
<Assembly: CommandClass(GetType(LB_System_Standrohr.MyCommands))>
Namespace LB_System_Standrohr
Public Class MyCommands
<CommandMethod("LB_Standrohr")>
Public Sub FormLoad1()
Dim myDoc As Document = DocumentManager.MdiActiveDocument
Dim myDB As Database = myDoc.Database
Using myTrans As Transaction = myDB.TransactionManager.StartTransaction
Try
'--Linientyp laden "VERDECKT" und "STRICHPUNKT"
Dim myLineTypTable As LinetypeTable
myLineTypTable = myTrans.GetObject(myDB.LinetypeTableId, OpenMode.ForRead)
Dim myVERDECKT As String = "VERDECKT"
If myLineTypTable.Has(myVERDECKT) = False Then
myDB.LoadLineTypeFile(myVERDECKT, "acad.lin")
End If
Dim mySTRICHPUNKT As String = "STRICHPUNKT"
If myLineTypTable.Has(mySTRICHPUNKT) = False Then
myDB.LoadLineTypeFile(mySTRICHPUNKT, "acad.lin")
End If
'--Form laden bzw. aufrufen
Dim FormObj1 As LB_System = New LB_System
FormObj1.StartPosition = Forms.FormStartPosition.CenterScreen
FormObj1.ShowDialog()
End Sub
End Class
End Namespace
Solved! Go to Solution.