Drawing architect lines

[armenta_43]

What is the proper way to input architectial lines into site plan drawing?

[nocturne00]

very vague...

How do you mean architectural lines?

[armenta_43]

Sorry,

 

I am in architect units and trying use the correct commands to enter line cordinates and having no success

[nocturne00]

I assume you are using metric.

Are you trying to layout lot boundaries?

[armenta_43]

inches & boundaries

[tzframpton]

do you mean placing Dimensions?

[nocturne00]

Armenta, it would help us a lot if you could elaborate on your intentions. help us help you.

just simply saying inches and boundaries looks like an effortless attempt to undertand your questions

[armenta_43]

Sorry fellas, I am trying to create a site plan and havent mastered the cordinate system of Degrees, Hours & Minutes commands...just need a baseline direction

[nocturne00]

That sheds light on the issue.

check this tutorial, its exactly what your after i believe

http://www.cadtutor.net/tutorials/autocad/survey-data.php

[armenta_43]

Thanks! Good Stuff

[rookie37]

I am also struggling with bearings and distance coordinates

 

I believe the way autocad wants you to input it is very user unfriendly

 

@116.77

 

I have a lisp routine that I got off this site

 

it sepparates the input

 

instead of the one line above, type

 

116.77

86

32

54

 

and it will draw the line

 

 

 

 

type bd to start

 

;Tip1741: BD.LSP Bearing/Distance lines ©2001, Joon Hong $50 Bonus Winner

 

(defun C:BD ()

(setvar "cmdecho" 0)

(initget 1)

(setq PT (getpoint "\nPick a starting point: "))

(initget 1 "NE NW SE SW")

(setq BR (getkword "\nPick bearing (NE/NW/SE/SW): "))

(setq OPT (strcase BR))

(initget 1)

(setq LEN (getreal "\nType the length: "))

(setq DEG (getstring "\nType the degree: ")

minx (getstring "\nType the minute: ")

SEC (getstring "\nType the second: "))

(if (= DEG "")

(setq DEG "0"))

(if (= minx "")

(setq minx "0"))

(if (= SEC "")

(setq SEC "0"))

(cond ((= "SW" OPT)

(setvar "angbase" (cvunit 270 "degree" "radian"))

(setvar "angdir" 1))

((= "SE" OPT)

(setvar "angbase" (cvunit 270 "degree" "radian"))

(setvar "angdir" 0))

((= "NW" OPT)

(setvar "angbase" (cvunit 90 "degree" "radian"))

(setvar "angdir" 0))

((= "NE" OPT)

(setvar "angbase" (cvunit 90 "degree" "radian"))

(setvar "angdir" 1)))

(command "line" PT (strcat "@" (rtos LEN) "

(setvar "angbase" 0)

(setvar "angdir" 0)

(setvar "cmdecho" 1)

(princ))

(princ "\nType 'BD' to draw lines with bearings")

(princ)

[armenta_43]

Thanks I will give it a try