Hi Alls,
I just create a simle a code,look this below,but that code I can not create a line,for detail look at attach file
(setq loc '(0 0 0))
(setq rad 5)
(command "_circle" loc rad "")
(setq el1 (entlast))
(setq p1 (polar loc 0 rad))
(command "_line" loc p1 "")
(setq el2 (entlast))