COND statement help

what am i doing wrong with this "cond" please.....i would like it to perform both setq statements if

quant-type = "A" or "L"

(setq quant-type "A")

(cond ((= quant-type "L")(= quant-type "A")

(setq obj-startpt (getpoint"\n select approximate START point Station of object"))

(setq obj-endpt (getpoint"\n select approximate END point Station of object"))

))

thanks

i would normally use the IF statement but wanted to try Cond

(setq quant-type "A")
(setq obj-startpt (getpoint"\n select approximate START point Station of object"))
(setq obj-endpt (getpoint"\n select approximate END point Station of object"))

(cond 
((= A (distance obj-startpt obj-endpt)) (princ "Equal"))
(t (princ "Not Equal"))
)
(princ)

There are lots of ways to it:

(setq quant-type "A")

(cond ((or (= quant-type "L")
          (= quant-type "A"))
      (initget 1)
      (setq obj-startpt (getpoint"\n select approximate START point Station of object:   "))
      (initget 1)
      (setq obj-endpt (getpoint obj_startpt "\n select approximate END point Station of object:   "))))

You could also use a (member) call as the boolean test:

(member quant-type '("A" "L"))

-David

Please read the CODE POSTING GUIDELINES and edit your post.

(setq quant-type "A")
(set (setq x (read (cond
                        ((= quant-type "L") (setq pr "obj-startpt"))
                        ((= quant-type "A") "obj-endpt"))))
    (getpoint
          (strcat "\nSelect approximate " (if pr "START" "END") " point Station of object")))

thanks all