아래 리습을 이용하니까 면적을 지정한 경계가 똑같이 생겨서 ..
문제가 되는데 생기지 않게 하고 면적을 구할 순 없나요..
아니면 구멍이 포함된 면적을 구할때 뺄 면적을 정해 줄수 있는
다른 면적 리습은 없나요….
(defun c:bae ()
(setq ds (getvar “dimscale”))
(setq ss (getpoint “n 전체면적 지정: “))
(command “boundary” ss “”)
(command “area” “o” “l” “”)
(setq di1 ( getvar “area”))
(setq di4 (strcat (rtos di1 2 3)));단위수조절
(prompt (strcat “nAREA(면적). : ” di4))
(setq di3(+ 0 di1))
(setq num(getint “n 뺄면적 갯수 입력<3>:”))
(while (>= num 1)
(setq sk (getpoint “n 뺄면적 지정: “))
(command “boundary” sk “”)
(command “area” “o” “l” “”)
(setq di2 (getvar “area”))
(setq di5 (strcat (rtos di2 2 3)));단위수조절
(princ num)
(prompt “:번째::::”)
(prompt “전체면적=”)
(princ di1)
(prompt “:::::뺄면적=”)
(princ di2)
(setq di3(- di3 di2))
(prompt “:::빼고난면적=”)
(princ di3)
(setq num(- num 1))
))