I did try to add the following references via the "Browse" option:īut when I do this, the program fails to find them when I debug the application.Īn exception of type 'System.IO.FileNotFoundException' occurred in WpfAutoCAD.exe but was not handled in user codeĪdditional information: Could not load file or assembly 'Acdbmgd.dll' or one of its dependencies. In the references I have specified "" and in the imports: I have used a standard VB.Net template for a Microsoft WPF application - as I do not have any AutoCAD templates. TransactionManager.StartTransaction (method for AutoCAD database) However, I am having an issue with some of the methods and types not being available. The example appears to be C#.Net, which is OK, because I can convert the statements to VB.Net. How would I select an object in VB.Net using selection sets?ĪcadDoc.SendCommand("_BURST ALL" & vbCr & vbCr)ĪcadDoc.SaveAs("C:\temp\ BlockTest_Burst.dwg") The best I can do so far is to use the Send command and burst "ALL" blocks - see below.īut I would prefer to burst the blocks one at a time. When you say to use "_BURST" from the express tools does this mean it can be done from within.
We need to convert a large number of drawings and remove block intelligence, so we need to use a program like vb.Net 'If explodedObjects(n).Invisible = True Or explodedObjects(n).TextString = "" Then 'If explodedObjects(n).EntityName = "AcDbAttributeDefinition" Then 'For n = UBound(explodedObjects) To 0 Step -1 'Debug.Print(varAttributes(n).TagString & " - " & 'If varAttributes(n).Invisible = False Then 'If checkProperty(varAttributes(n), "Invisible") Then 'If TypeOf (mspaceObj) Is AcadBlockReference Then If TypeOf (mspaceObj) Is AcadBlockReference ThenĪcadDoc.SaveAs("C:\temp\ BlockTest_burst.dwg") Can a selection set be used by the "SendCommand" function?ĪcadApp = GetObject(, "AutoCAD.Application")ĪcadApp = CreateObject("AutoCAD.Application", vbNullString)Ī("C:\temp\BlockTest.dwg", False)ĭebug.Print("Blocks: " & )ĭebug.Print("Block Name: " & acadBlocks.Name())ĭebug.Print("Objects in ModelSpace: " & ()).Is there a method of doing a "BURST" using vb.net and retain all the attributes?.I have looked at "SelectionSets" for a document, but it is not clear how you add an object to a selection set.
The "burst" command does not appear to be available as a method from vb.net although it may be possible through the "SendCommand" and performing a "BURST" on the current selected object.īut this would mean selecting the object in the drawing and this I cannot get to work.Ī minor issue with the "BURST" command is it seems to default some of the "Line Types" to layer 0. I would like to explode or burst all blocks using VB.net (Visual Studio 2015) in either AutoCAD 2014 or AutoCAD 2015.Īt the moment the "explode" command reverts all the text elements to their tag names and any repositioning of elements within a block, after it was inserted, is lost.Įffectively it gives you current saved block definition and you lose all the custom attributes entered when you insert the block.
0 kommentar(er)
