수평 수직 바꾸는 리습인데 수정좀 부탁드려도 될가요?

(defun c:vhh(/ ot os ss)
 (vl-load-com)
   (setq ot (getvar “orthomode”) os (getvar “osmode”))
   (setvar “orthomode” 1)(setvar “osmode” 0)
   (prompt “nCommand: vertical & horizontal Line…”)
   (and
 (setq ss (ssget ‘((0 . “line”))))
 (foreach en (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss)))
  (command “change” en “” (vlax-curve-getendpoint en))
 )
 )
   (setvar “orthomode” ot)
   (setvar “osmode” os)
   (prin1)
)


스톰님이 수정해주신 리습 잘 쓰고 있는데요
한가지만 추가 할수 있을까요

바뀐 라인들 색을 바꾸고 싶은데 수정좀 부탁드릴게요 ^^;