this must be one of those symbiotic moments
Actually, the one i really use is
Sub dp(str)
Dim doc As AcadDocument
Set doc = ThisDrawing
Debug.Print str
doc.Utility.prompt vbCrLf & str & vbCrLf
Set doc = Nothing
End Sub
and i've been wanting to add the automatic parsing of a point value but
haven't got around to it,
thanks for the momentum!
dp revised:
Option Compare Text
Option Explicit
Sub dp(str)
Dim doc As AcadDocument
Set doc = ThisDrawing
Dim i As Integer
Debug.Print TypeName(str)
Dim pointstr As String
pointstr = ""
If TypeName(str) = "string" Then
Debug.Print str
doc.Utility.prompt vbCrLf & str
ElseIf TypeName(str) = "variant()" Then
If UBound(str) > 0 Then
For i = LBound(str) To UBound(str) - 1
pointstr = pointstr & str(i) & ", "
Next i
pointstr = pointstr & str(i)
Debug.Print pointstr
doc.Utility.prompt vbCrLf & pointstr & vbCrLf
End If
End If
Set doc = Nothing
End Sub
Mark
"James Belshan" wrote in message
news:F71B1B21D6445C773542574E57DA025B@in.WebX.maYIadrTaRb...
> Mark,
> I don't know whether DP is actually a utility you use or just something
you
> wrote this one time, but I thought it was nifty and couldn't resist adding
> to it.
>
> I know I should just throw this e-mail out to spare myself the
> embarrassment, but maybe I can save someone, somewhere, from Debug.Print
> "carpal tunnel"... and yes, I know that with Auto-Complete it only takes
> about 5 keystrokes to debug.print something anyway 🙂
>
> Hmmm... this might be the start of a Development_Utility module that I
bring
> into new projects ...
>
> James
>
>
> Sub dp(ParamArray strs() As Variant)
> Dim i As Long
> If UBound(strs) = -1 Then Debug.Print: Exit Sub
> For i = LBound(strs) To (UBound(strs) - 1)
> Debug.Print strs(i) & ", ";
> Next
> Debug.Print strs(UBound(strs)) & ""
> End Sub
>
> Sub testDP()
> Dim x As String, y As Double
> x = "xxxx": y = "1234.12958"
> dp x
> dp
> dp x, y, x, y
> End Sub
>
>
>
