캐드 분류
면적리습 수정부탁드립니다.
컨텐츠 정보
- 799 조회
- 4 댓글
- 0 추천
- 0 비추천
-
목록
본문
리습고수님들… 리습수정 부탁드립니다.
다른분들 컴퓨터에서는 잘되는데.. 제컴퓨터에서 설정하면 오류가 뜨네요ㅠㅠ
명령: as 2개를 찾음
점 또는 옵션 키워드를 요구함.
; 오류: 함수가 취소되었습니다.
다음 점 또는 [호(A)/길이(L)/명령 취소(U)] 지정: *취소*
면적 구하려는 것들을 다 선택해서 AS누르면 명령어 창에 합계면적이 나오는 리습이었습니다만..
계속 저렇게 뜨네요ㅠ 직장을 옮기면서 새로운 컴퓨터에 리습을 깔았는데 적용이 전혀 안되네요..
다른분들 컴퓨터에서는 잘되는데ㅠㅠ
수정이 가능하다면 수정 꼭 부탁드리겠습니다.
관련자료
댓글 4
/ 1 페이지
상큼메론90님의 댓글
.gif)
다른분들 컴에서는 잘 되는데,,?? 그러면 다른분들 컴 환경도 질문에 적으셔야 해답을 더 쉽게 유추할 수 있겠지요???
(defun c:AS (/ z ss sno no tno sum x entity etype num h pt ent_sum ) (setvar "cmdecho" 0) (setq sno 0) (setq ss (ssget)) (setq sno (sslength ss)) (setq no 0) (setq sum 0.0) (setq tno 0) ; (command "area" "0,0″ "") (setq ent_sum 0) (repeat sno (setq x (ssname ss no)) (setq etype (cdr (assoc 0 (entget x)))) (if (or (= etype "POLYLINE")(= etype "LWPOLYLINE") (= etype "CIRCLE")(= etype "SPLINE")) (progn (command "area" "e" x) (setq ent_sum (getvar "area")) ) (progn (setq tno (1- tno)) (setq ent_sum 0) ) ) (setq sum (+ sum ent_sum)) (setq tno (1+ tno)) (setq no (1+ no)) ) (setq tno (itoa tno)) (setq sum (/ sum 1000000)) (setq sum (rtos sum 2 2)) (princ "nAdding ") (princ tno) (princ " nTexts: ") (princ "nThe Result is: ") (princ sum) (princ " ") (princ "nDo You Want Write it into the DWG? ") (setq z (strcase (getstring))) (if (or (= z "") (= z "Y")) (progn (setq pt (getpoint "nText Point: ")) (setq h (getvar "textsize")) (prompt "nText Height: ") (princ H) (princ " : ") (setq z (getdist)) (if z (setq h z) ) (command "text" (setq z pt) (setq z h) (setq z 0.0) (setq z sum) ) ) ) (setvar "cmdecho" 1) (setvar "blipmode" 0) (prin1))
;;
.gif)
