구름마크 그리기
(defun c:CDMK ( / sel os cl ly pt1 pt2 rec mi1 ma1)
(setvar "cmdecho" 0)
(prompt "n구름마크 그리기...")
(setq os (getvar "osmode"))
(setq cl (getvar "clayer"))
(setq ly (tblsearch "layer" "Revcloud"))
(if (= ly nil)
(command "-layer" "m" "Revcloud" "C" "T" "255,40,37" "" "LW" 0.8 "" "")
);if
;(setq mi 100)
;(setq ma 200)
(setvar "cmdecho" 0)
(prompt "n구름마크 그리기...")
(setq os (getvar "osmode"))
(setq cl (getvar "clayer"))
(setq ly (tblsearch "layer" "Revcloud"))
(if (= ly nil)
(command "-layer" "m" "Revcloud" "C" "T" "255,40,37" "" "LW" 0.8 "" "")
);if
;(setq mi 100)
;(setq ma 200)
(setq sel (getint "n구름마크(호)길이변경<1> / 변화없음<엔터>:"))
(if (= sel 1)
(progn
(if (not mi) (setq mi 50))
(setq mi1 (getint (strcat "n구름마크(호)의 최소길이 입력<" (rtos mi 2 0) ">:")))
(if mi1 (setq mi mi1))
(prompt "n구름마크(호)의 최대길이는 최소길이의 3배를 초과할 수 없으며 작아서도 안됩니다!")
(if (not ma) (setq ma 100))
(setq ma1 (getint (strcat "n구름마크(호)의 최대길이 입력 (최소길이 3배이하)<" (rtos ma 2 0) ">:")))
(if ma1 (setq ma ma1))
(setvar "clayer" "revcloud")
)
)
(if (or (= sel nil) (= sel ""))
(progn
(if (not mi) (setq mi 100))
(setq mi1 mi)
(if mi1 (setq mi mi1))
(if (not ma) (setq ma 200))
(setq ma1 ma)
(if ma1 (setq ma ma1))
(setvar "clayer" "revcloud")
)
)
(setq pt1 (getpoint "n첫점을 찍으세요"))
(setq pt2 (getcorner pt1 "n다음점을 찍으세요"))
(command "rectang" pt1 pt2)
(setq rec (ssget "L" (list (cons 0 "LWPOLYLINE"))))
(command "revcloud" "s" "c" "a" mi ma "o" rec "")
(setvar "osmode" os)
(setvar "clayer" cl)
(princ)
);defun
(if (= sel 1)
(progn
(if (not mi) (setq mi 50))
(setq mi1 (getint (strcat "n구름마크(호)의 최소길이 입력<" (rtos mi 2 0) ">:")))
(if mi1 (setq mi mi1))
(prompt "n구름마크(호)의 최대길이는 최소길이의 3배를 초과할 수 없으며 작아서도 안됩니다!")
(if (not ma) (setq ma 100))
(setq ma1 (getint (strcat "n구름마크(호)의 최대길이 입력 (최소길이 3배이하)<" (rtos ma 2 0) ">:")))
(if ma1 (setq ma ma1))
(setvar "clayer" "revcloud")
)
)
(if (or (= sel nil) (= sel ""))
(progn
(if (not mi) (setq mi 100))
(setq mi1 mi)
(if mi1 (setq mi mi1))
(if (not ma) (setq ma 200))
(setq ma1 ma)
(if ma1 (setq ma ma1))
(setvar "clayer" "revcloud")
)
)
(setq pt1 (getpoint "n첫점을 찍으세요"))
(setq pt2 (getcorner pt1 "n다음점을 찍으세요"))
(command "rectang" pt1 pt2)
(setq rec (ssget "L" (list (cons 0 "LWPOLYLINE"))))
(command "revcloud" "s" "c" "a" mi ma "o" rec "")
(setvar "osmode" os)
(setvar "clayer" cl)
(princ)
);defun