Jump to content

How to extract values from autocad drawing?


Recommended Posts


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


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

Link to post
Share on other sites

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 :thumbsup:

Link to post
Share on other sites

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.

Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Create New...