아래의 리습을 실행시키시고 캐드화면에서 마우스를 움직여 보세요..^^
이쁜 모습이 나올거에요..
지우는 명령은 redraw
(defun c:zzz(/ as n)
(Setq color 0
len (list (/ (getvar “viewsize”) 300) (/ (getvar “viewsize”) 30))
as T
)
(while as
(setq as (cadr (grread 5)))
(grdraw as (mapcar ‘+ len as) color)
(setq color (1+ color))
(if (> color 254) (setq color (- color 254)))
)
)
출처는 http://www.vbcad.com.ne.kr/ 입니다…. ^^