Topic: Seconds issue

[Matersammichman]

Okay, I'm stumped.
How can I string together "seconds" as in Degrees Minutes Seconds, in a command?
When I try to string it as """, it adds an extra " ("""")
If I do it as two minute marks ('), it's not recognizable to Cad.
I've tried lots of variations to no avail.
fyi- this is for drawing a Civil Bearing as in,

@244<120DN15'44"W

[Matt__W]

Can you post what you've got so far?

[Matersammichman]

Here ya go...

Private Sub cmdAddLine_Click()
If Label1.Caption = "" Then
Label1.Caption = "@" & Val(txtboxDistance.text) & "<" & lblStartDir.Caption & Val(txtboxDegrees.text) & "D" & Val(txtboxMinutes.text) & "'" & Val(txtboxSeconds.text) & vbCr & lblEndDir.Caption
Else
End If

ListBox1.AddItem Label1.Caption
txtboxDistance.text = ""
txtboxDegrees.text = ""
txtboxMinutes.text = ""
txtboxSeconds.text = ""
optClear1.value = True
optClear2.value = True
Label1.Caption = ""

End Sub

Private Sub cmdStringInfoTogether_Click()
On Error Resume Next
ThisDrawing.SendCommand "line" & vbCr & "0,0,0" & vbCr & ListBox1.List(0)
End Sub

[Matersammichman]

Naturally, values are added first for,

txtboxDistance.text
txtboxDegrees.text
txtboxMinutes.text
txtboxSeconds.text

[Matersammichman]

...plus the Radio Button data selection for start and end directions (NSEW).

[Cathy]

I have used something like this in the past. 
Private Const quote     As String = """"
Label1.Caption = "@" & Val(txtboxDistance.text) & "<" & lblStartDir.Caption & Val(txtboxDegrees.text) & "D" & Val(txtboxMinutes.text) & "'" & Val(txtboxSeconds.text) & quote & vbCr & lblEndDir.Caption

[Jeff_M]

THis little test worked for me....

ThisDrawing.SendCommand "line" & vbCr & "0,0,0" & vbCr & "@244<N30D15'44""W" & vbCr & vbCr

[Matersammichman]

Right Jeff, but since I can't know ahead of time what the seconds are, or what the end direction is, I can't compile it like that. It has be strung on-the-fly.

[David Hall]

Not to harp on using send command, but what if you took the 3 text box values, did the math, converted to radians (which is what autocad wants) and draw the line that way?

[Jeff_M]

Yeah, I realized that as I was posting.....see Cathy's response....or Duh's

[Matersammichman]

Duh....
Enlighten me on the best way to perform the task. Code?
I don't have to convert or draw Civil very often.
In fact, I'm doing this so that I don't have to remember all of the symbology on future projects.
I'm getting older, and remembering every last detail of VBA and CAD is getting more challenging by the day, LOL.

[Jeff_M]

Here's a quickie that will convert Surveyor DMS to Acad Radians. The arguments you need to pass are:
Direction Quadrant in the form of an Integer, where NE = 1, SE = 2, SW = 3, and NW = 4
DD as a Double .... use the converter CDbl(txtbox.value)
MM as a Double ....ditto
SS as a Double ....ditto

Code: [Select]

Function NEWS2Rads(iDir As Integer, dd As Double, mm As Double, ss As Double) As Double
Dim decDeg As Double
decDeg = ss / 60#
decDeg = (mm + decDeg) / 60#
decDeg = dd + decDeg

Dim pi As Double
Dim radDeg As Double
pi = Atn(1) * 4
radDeg = pi * (decDeg / 180#)

Select Case iDir
    Case Is = 1 'NorthEast
        NEWS2Rads = (pi * 0.5) - radDeg
    Case Is = 2 'SouthEast
        NEWS2Rads = (pi * 1.5) + radDeg
    Case Is = 3 'SouthWest
        NEWS2Rads = (pi * 1.5) - radDeg
    Case Else   'NorthWest
        NEWS2Rads = (pi * 0.5) + radDeg
End Select
       
End Function


[David Hall]

thanks Jeff.  I haven't been at a computer all weekend and that was what I was thinking.  I will go through my stuff tomorrow at work and see if I can post any other examples.

[MickD]

no escape char's in vb??

eg  str = value & "\""

just a thought....

[David Hall]

For clarification sake, would it be clearer to show ss as the number divided by 3600, with minutes divided by 60, and add these to degrees all at once.  The reason I ask is I was re-reading through the code, and saw the seconds being divided by 60 twice, and thought "thats not right", but after thinking about it more, it is right.