클라우드 마킹메뉴를 실행시키는 방법을 알려 주세요.

1.캐드 프로그램상에 보너스 기능이 없는 경우에 보너스 기능을 추가하는 방법을 알려 주십시오.

==> 캐드를 풀옵션으로 다시 설치해 보심이….

2.보너스 기능상에 클라우드 명령이 있어도 실행이 되지 않는 경우에는 어떻게 하는지요?
제게 알려 주시는 분께는 부자가 되기를 빌어 드리겠습니다. ^^

==> 리습을 한번 사용해보세요..

;=======CLOUD MARK 만들기=======================================
(defun C:cld ()
(setvar “cmdecho” 0 )
(setvar “osmode” 0 )
(setq LAST_PT (getpoint “nPick cloud start point: “)
START_PT LAST_PT
ARC_DIST (* 7 (getvar “dimscale” )) ;; adjust arc size here!
INC_ANGLE 110 ;; adjust arc angle here!
OLDERR *ERROR*
*ERROR* MYERROR )
(prompt “nGuide crosshairs along cloud path…” )
(command “pline” LAST_PT “w” “0” “0” “a” “a” INC_ANGLE )
(while LAST_PT
(setq NEXT_PT (cadr (grread 1 ) ) )
(if (> (distance LAST_PT NEXT_PT ) ARC_DIST )
(progn
(command NEXT_PT “a” INC_ANGLE )
(setq LAST_PT NEXT_PT ) )
)
(if (> (distance LAST_PT NEXT_PT ) (distance START_PT NEXT_PT ) )
(progn
(command START_PT “cl” )
(setq LAST_PT nil ) )
)
)
(princ “nClosing cloud…” )
);end cloud.lsp

*p.s 저 부자 되겠죠?