aravinthaan@yahoo.co.in Posted August 11, 2008 Share Posted August 11, 2008 Hi all, i am new to this field.How to extract values form autocad drawing one by one.I want to take all the objects individualy(line,circle,arc) and store it in one text file.Can any one know please help me... Private Sub CommandButton1_Click() Dim ssetObj As AcadSelectionSet Dim count As Integer Set ssetObj = ThisDrawing.SelectionSets.Add("1sfiv") Dim a As AcadBlockReference Dim text As AcadEntity Dim obj As Object ssetObj.SelectOnScreen Dim entry As AcadEntity For Each entry In ssetObj 'If entry.ObjectName = "AcDbText" Then //i don't know what should do here 'End If Next entry End Sub Quote Link to comment Share on other sites More sharing options...
Strix Posted August 12, 2008 Share Posted August 12, 2008 Hi, and welcome to the forum Just a couple of things... I'm going to move your thread to somewhere more appropriate where it may find an answer, as that's a bit more than we usually have in 'beginners' Please don't post the same question over - it makes picking up answers more difficult and it frustrates the users who've already helped you to find their posts seem to have gone missing! ... and it's not a good idea to have your email address as your username if you PM a mod I'm sure we can make an alteration to that for you 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.