아래와같이 클라우드 마크 리습입니다 근데 원레 cl이였던걸 제가 나름 바꾸겠다고 cloud 라고 바꿔났더니 cl도 안먹고 cloud 도 안먹네요 ㅡ,.ㅡ;
명령어 바꿀려면 어딜 건들여야 하는건가요 ㅡㅡ; 와 리습 감당하기좀 버겁네요;;
(defun dtr (a)
(* pi (/ a 180.0)))
(defun c:cloud(/ os or ts f1 f2 p0 p1 p2 p3 p4 p5 p6 a aa ab c d e )
(graphscr)
(Setq Ts (Cdr (Assoc 2 (Tblsearch “Layer” “REV”))))
(If (/= Ts nil)
(Setvar “Clayer” Ts)
(Command “Layer” “M” “REV” “C” “2” “REV” “”)
);If
(setq olderr *error* *error* exerr)
(setq os (getvar “osmode”))
(setq or (getvar “orthomode”))
(setvar “osmode” 0)
(setvar “orthomode” 0)
(setq c 0)
(setq e 3)
(prompt “n>> CLOUDE MAKE REV. MADE BY PARK MOON SOO!! <<“)
(setq p0 (getpoint “nENTER 1st POINT:”))
(setq p1 p0)
(command “pline” p1 “w” “0” “0” “a”)
(while e
(if (/= p3 nil) (setq f1 p4))
(if (> c 1) (setq f1 (polar p4 a d)))
(prompt “n>>ENTER IS CLOSE CLOUDE ! “)
(prompt “n>> “)
(setq p2 (getpoint p1 “nNEXT POINT:”))
(if (= p2 nil)
(progn
(prompt “n>> CLOSE CLOUDE ! <<“)
(setq p2 p0)
(arc)
(command “s” p6 p2 “”)
(setq e nil)
);progn
(progn
(arc)
(command “s” p6 p2)
(setq p1 p2)
);progn
);if
);while
(command “redraw”)
(setvar “osmode” os)
(setq *error* olderr)
(setvar “orthomode” or)
(princ)
)
(defun arc()
(setq c (+ c 1))
(setq a (angle p1 p2))
(setq aa (distance p1 p2))
(setq ab (/ aa 2))
(setq d (/ aa 4))
(setq p5 (polar p1 (+ a (dtr 0)) ab))
(setq p6 (polar p5 (+ a (dtr 90)) d))
(setq p3 (polar p1 (- a (dtr 90)) d))
(setq p4 (polar p2 (- a (dtr 90)) d))
)