치수와지시선만선택하는리습인데요 수정부탁합니다.

요리습에서 치추와지시선만선택해서 무브시키는리습인데요 여기다가 빨간색만선택을추가하고싶어요
아무리해도 잘모르겠네요 리습수정부탁합니다^^

(defun c:dc(/ ss)
  (prompt “ndim select move..”)
  (if (setq ss (ssget ‘((0 . “DIMENSION,LEADER”))))
    (command “move” ss “”)
  ) ;if
(princ)
);defun