sethians Posted January 26, 2009 Share Posted January 26, 2009 Hello i have this code to draw a polyline, i would like to add dimesions QDIM comand with VBA. Sub Example_AddPolyline() Dim linea As AcadPolyline Dim puntos(0 To 14) As Double puntos(0) = 0: puntos(3) = 34.5: puntos(6) = 50.2: puntos(9) = 76.3: puntos(12) = 120.5: Set linea = ThisDrawing.ModelSpace.AddPolyline(puntos) End Sub Quote Link to comment Share on other sites More sharing options...
fixo Posted January 26, 2009 Share Posted January 26, 2009 Welcome on board! Try this one: Option Explicit Sub Example_QDim() Dim linea As AcadPolyline Dim puntos(0 To 14) As Double Dim hndl As String puntos(0) = 0: puntos(3) = 34.5: puntos(6) = 50.2: puntos(9) = 76.3: puntos(12) = 120.5: Set linea = ThisDrawing.ModelSpace.AddPolyline(puntos) hndl = linea.Handle ThisDrawing.Utility.Prompt (vbCr & "Handle: " & hndl) & vbCr ThisDrawing.SendCommand "_qdim" & vbCr & "(handent " & vbCr & Chr(34) & hndl & Chr(34) & ") " & vbCr & " PAUSE" & vbCr End Sub ~'J'~ 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.