sethians Posted January 26, 2009 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
fixo Posted January 26, 2009 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
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.