(defun newline( )
 (graphscr)
 (setq ss (entsel "\n請用點選擇需要修改的直線"))
 (setq ee (car ss))
 (setq aa (entget ee))
 (setq p (getstring"\n把直線擺正成水平(s)/垂直(c):(s/c?)")) 
 (setq c1 (getpoint "\n 請輸入新起點"))
 (setq aa (subst (list 10 (car c1) (cadr c1) 0) (assoc 10 aa) aa))   
 (setq d1 (getpoint "\n 請輸入新終點"))
   (cond
     ((= p "s") (setq aa  (subst (list 11 (car d1) (cadr c1) 0) (assoc 11 aa) aa)))
     ((= p "c") (setq aa  (subst (list 11 (car c1) (cadr d1) 0) (assoc 11 aa) aa)))
     )
 (entmod aa)
)