Elias Posted September 26, 2020 Share Posted September 26, 2020 (edited) I need a code that can help me to select all the objects like ( Polyline, 3D polyline, line, Arc, Points etc...) because I can't do anything when I run The VBA program. Thanks Edited September 26, 2020 by Elias Quote Link to comment Share on other sites More sharing options...
sanju2323 Posted September 26, 2020 Share Posted September 26, 2020 Please find the attachment file TEST.xlsm Quote Link to comment Share on other sites More sharing options...
Elias Posted September 26, 2020 Author Share Posted September 26, 2020 (edited) Thanks Sir, But I need the code for AutoCAD VBA Source (.dvb) program, for example I have code that can help me to export coordinates of the polyline but the problem which I faced I can't select specific object it export all in the same time. Edited September 26, 2020 by Elias Quote Link to comment Share on other sites More sharing options...
Tharwat Posted September 26, 2020 Share Posted September 26, 2020 Why do you want to select these types of objects? Quote Link to comment Share on other sites More sharing options...
BIGAL Posted September 27, 2020 Share Posted September 27, 2020 (edited) ADMIN needs to be moved to VBA section "it export all in the same time" You need to find some good tutorials about using VBA in Autocad. Look on KIndle or google "ebook". There are older VBA for Autocad books out there. Compare these 2 lines a selection set or a single entity make a slection set of blocks FilterDXFCode(0) = 0 FilterDXFVal(0) = "INSERT" Set SS = ThisDrawing.SelectionSets.Add("pit2sel") SS.Select acSelectionSetAll, , , FilterDXFCode, FilterDXFVal get a single entity ThisDrawing.Utility.GetEntity Ent1, basepnt, "pick object : " Edited September 27, 2020 by BIGAL Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.