How to use QUICK DIMENSION (QDIM) VBA

[sethians]

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

[fixo]

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'~