캐드 분류
면적리습이 않되요 수정부탁드립니다.
컨텐츠 정보
- 125 조회
- 2 댓글
- 0 추천
- 0 비추천
-
목록
본문
안녕하세요
캐드 2006에서 잘되던 면적구하는 리습이었는데요
윈도우 10으로 업그레이드 하고 캐드를 2015로 바꾸니 리습에 오류가 납니다…
구체적으론 캐드가 멈춰버립니다,,,ㅠㅠ
고수님들 이거 수정부탁드립니다.
관련자료
댓글 2
상큼메론90님의 댓글
.gif)
질문에 첨부된 리습 내용이, 아래와 같은데요. 캐드 2013 과 2016 에서는 잘 됩니다. 그러나 2015 에서는 안됩니다. 그 이유는…
(defun c:ca( / TEX Q AR PT1 ) (graphscr) (setvar "cmdecho" 0) (setq number 0) (if (and ( = asc nil)( = asc2 nil))(setq asc 1000)) (if (and ( = asc nil)( /= asc2 nil))(setq asc asc2)) (while (setq dum (bpoly (getpoint (strcat "n>> 면적 구할 곳을 피크하세요 <도면스케일 = 1/"(rtos asc 2 0)">")))) (command "AREA" "entity" dum) (setq nu (getvar "AREA")) (setq nu (* (/ (* asc asc) 1000000) nu)) (if ( = number nil) (setq number 0)) (setq number ( + number nu)) (princ (strcat "면적 ==>"(rtos number 2 2))) ) (setq AR (rtos number 2 2)) (if (and ( = th nil)( = th2 nil))(setq th 2)) (if (and ( = th nil)( /= th2 nil))(setq th th2)) (setq PT1 (getpoint (strcat ".5>> 구한 면적을 텍스트로 써줄 인써트포인트를 피크하세요 <텍스트높이:"(rtos th 2 2)">…"))) (command "text" pt1 th "0″ ar) (setq number 0) (setvar "cmdecho" 1) )
캐드 2015 버젼보다는 2016 을 사용하세요. 안되는 이유는 이 부분 입니다.
(while (setq dum (bpoly (getpoint (strcat "n>> 캐드 2015 에서는 빨간색 부분이 안됩니다. 이유는 모르겠고, 그냥 안돼요.
그래서 아래와 같은 방식으로 사용 가능하나, (while (setq dum (getpoint "n선택포인트:")) (command "_.Boundary" dum "")
면적 리습은 구글 검색하면 엄청 많습니다. 다른 리습을 구해서 사용하세요… .
