site plan input feet instead of inches

[james281]

I've been using this code below to draw site plan, but when ask for distance it only allow you to input inches and not feet, is there anyway someone can help me convert this so that we can input 112.21' instead inches.
thanks,

;Tip1741:  BD.LSP           Bearing/Distance lines         (c)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) "<" DEG "d" minx "'" SEC "\"") "")
  (setvar "angbase" 0)
  (setvar "angdir" 0)
  (setvar "cmdecho" 1)
  (princ))
(princ "\nType 'BD' to draw lines with bearings")
(princ)

[tedg]

This routine is assuming you are in decimal units where one unit = 1 foot.
AFIK...that is typically how civil drafting is done in AutoCAD (in the United States/Imperial Units).

It doesn't want feet or inch marks, just "foot units".

If you set up your drawing/template for decimal units where one unit is 1 foot, you should be all set.

[cadtag]

It seems that it would be simpler to just set angular units to surveyor's units, and just input the distance and bearing directly.

[james281]

I did try to change the unit to decimal but it doesn't seem to work, plus I am also drawing this on the same drawing as the architecture plan set, so i don't want to keep switch the unit to decimal to draw the site and switch back. I was hoping someone can help me with this. Thank you both for the fast response.

[Opie]

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

I would recommend you change the getreal in this line to a getdist. This would allow you to input the length by keyboard or mouse clicks.

[james281]

I try that but still doesn't allow me to input 112.15'. I get this error "Requires numeric distance or two points." I even comment out the (initget 1) and it still doesn't work.

[james281]

Opie, Thank you very much, i got everything to work now, the problem i have earlier is my unit set to decimal so it wouldn't let me punch in the feet tick mark.

[Opie]

Opie, Thank you very much, i got everything to work now, the problem i have earlier is my unit set to decimal so it wouldn't let me punch in the feet tick mark.

That would be correct. The getdist function accomplishes that.