i'm creating a seperate windowsapplication with a form and oather stuffs. will be getting inputs from the user to get drawings in autocad.
for time being i just had a button and in the click event i've called the sub routine from a class containing
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry
Public Class Class1
Public Shared Sub NewClass()
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim tAcadDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim ed As Editor = doc.Editor
Dim tTrAct As Transaction = Nothing
Using myTrans As Transaction = tAcadDoc.TransactionManager.StartTransaction
Dim tBlTab As BlockTable = CType(tTrAct.GetObject(tAcadDoc.Database.BlockTableId, OpenMode.ForRead), BlockTable)
Dim tModSp As BlockTableRecord = CType(tTrAct.GetObject(tBlTab(BlockTableRecord.ModelSpace), OpenMode.ForRead), BlockTableRecord)
Dim tModSpCOM As AcadModelSpace = CType(tModSp.AcadObject, AcadModelSpace)
For Each myObjId As ObjectId In tModSpCOM
Dim myEnt As Entity = CType(myObjId.GetObject(OpenMode.ForRead), Entity)
Select Case UCase(myEnt.PlotStyleName)
Case "ACDBLINE"
End Select
Next
End Using
End Sub
End Class
