캐드 분류
전체 면적에서 제외 할 면적을 여러번 할수 있게 부탁 드립니다
컨텐츠 정보
- 220 조회
- 4 댓글
- 0 추천
- 0 비추천
- 목록
본문
(defun c:area1 ()
;(getvar "dimzin" 8)
(setq t1 (getpoint "n 문자위치을 포인팅 하시면:"))
(setq ss (getpoint "n 전체 면적을 지정하시오 : "))
(command "boundary" ss "")
(command "area" "o" "l" "")
(setq ar1 ( getvar "area"))
(prompt (strcat "n 전체 면적 : " (rtos ar1 2 3)))
(setq ss1 (getpoint "n 전체 면적에서 제외 할 면적을 지정하시오 : "))
(command "boundary" ss1 "")
(command "area" "o" "l" "")
(setq ar2 (getvar "area"))
(prompt (strcat "n 전체 면적에서 제외 할 면적 : " (rtos ar2 2 3)))
(setq ar3(- ar1 ar2))
(prompt (strcat "n 남은 면적 : " (rtos ar3 2 3)))
(setq ds (getvar "dimscale"))
(setq sch1 (* ds 2))
(setq temp7 (rtos ar3 2 3))
(setq ta " mm2″)
(setq temp8 (strcat temp7 ta))
(command "text" "m" t1 sch1 "0″ temp8)
(prin1)
)
관련자료
댓글 4