Topic: Draw site from list of bearings w/ distance

[GDF]

I am trying to come up with a code that will read a set of bearings and distance and draw a site plan.

N68°54'52"E 341.30'

Here is a crude first step...

Code: [Select]

(defun SnapAngleFunction ()
    (or (member "geomcal.arx" (arx))
      (arxload "geomcal")
    )
    (and           
      (setvar "SNAPANG" (atan (/ 12 (distof LWID))))
    ) 
)
(defun c:tEST ()
  (setvar "cmdecho" 0)
  (SnapAngleFunction)
  (setq pnt1 (getpoint "\n* Pick beginning point of Line *"))
  (setq pnt2 (getpoint pnt1 "\n* Pick beginning point of Line *"))
  (command "line" pnt1 pnt2 "")
  (princ)
)

My first question is how would I modify the SnapAngleFunction to snapang to the bearing: N68°54'52"E? Or am I approaching this all wrong.

Gary

[mjfarrell]

This would suggest , just setting units to survey and then use a batch file with your courses in it....


as in


PLINE   @ Angle, Dist (your data here....)
repeat until done....

[GDF]

This would suggest , just setting units to survey and then use a batch file with your courses in it....


as in


PLINE   @ Angle, Dist (your data here....)
repeat until done....

Thanks, my mind did not want to work this morning. I will give it a try.

Gary

[Dinosaur]

Michael, if I were drawing the courses individually, my syntax would be " @123.45<N65d43'21"E " with the appropriate numbers  and bearing quadrants replacing the ones I used.  Would not the batch file need to follow the same syntax?

[mjfarrell]

DinØ,

NO, If you wer doing this you would follow the prompts for drawing using the TRANSPARENT commands in C3D my friend.

So yours would be more like:

PLINE
'BD
1
89.5623
250.67
2
45.2546
320.14
etc....


for what it's woth YES it would need be @dist,ang....My fingers and brain woke up on different sides of the planet.

[Dinosaur]

Of course, that is one of the most well hidden features of Civil 3D and one of my favorites, but I have a feeling Gary is using pure French vanilla flavor Autocad and needs the method from that world.