2013.08.04 17:35
안녕하세요
제가 면적 리습을 사용하는데 CAD2010 버젼과 2014 버젼에서는 작동을 안합니다.
객체를 선택하면 선택한 객체의 면적이 덱스트로 표시해줌니다.
그런데 꼭 CAD2010 버젼과 2014 버젼 에서는 오류가 난다고 하는데 전문가 분께서 봐주시기 바랍니다.
(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"))
(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? <y> ")
(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" 1)
(prin1))
무엇이 문제 일까요
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
공지 | ★ 드림플러스 질문은 메일 또는 홈페이지에 부탁합니다 ★ | 아저씨 | 2017.05.16 | 2772 |
공지 | 제목이 엉망이면 답변달지 않습니다. [1] | 아저씨 | 2014.04.04 | 23853 |
공지 | 순수 캐드 질문은 고캐드로 | 아저씨 | 2013.05.28 | 68640 |
공지 | 질문 답변 게시판을 만들었습니다. | 아저씨 | 2013.02.09 | 74943 |
1804 | 문자내용으로 점찍기 정말 유용합니다. [1] | 단순노무자 | 2013.07.23 | 2081 |
1803 | Dream이 설치됐는데 어디에 설치가 됐는지 못 찾겠습니다. [2] | 캐신이되는날까지 | 2013.07.23 | 1934 |
1802 | 64bit에 캐드 설치시 문제점 문의드립니다. [1] | 세아들 | 2013.07.24 | 2689 |
1801 | 오토캐드2010 64비트에서는 드림이 안되는건가요? [1] | 안되는건가요 | 2013.07.24 | 3177 |
1800 | 안녕하세요. 아저씨님 질문좀 드릴게요 [1] | spoon | 2013.07.25 | 2442 |
1799 | 캐드 종료시 시스템 다운이 됩니다. [1] | 설계 | 2013.07.26 | 2149 |
1798 | 드림 명령어가 거의다 먹히질 않습니다. [1] | 샘블즈 | 2013.07.26 | 3014 |
1797 | 도면분할 기능에 대해 질문이 있습니다 [1] | 이지희 | 2013.07.26 | 1988 |
1796 | 2009 버전 64비트 용 드림아직 출시 안되는지요 [1] | 코넷 | 2013.07.26 | 1 |
1795 | AutoCAD2008에서 드림아이콘 생성이 안되요 [2] | 111 | 2013.07.29 | 20093 |
1794 | CAD-숨은객체 보이는 방법 [1] | 박선희 | 2013.07.30 | 2765 |
1793 | 드림과 엑셀 스타터의 호환성? [1] | 땍땍이 | 2013.07.31 | 1992 |
1792 | 드림으로 인해 오토캐드2010 느려짐 현상에 대해서 [1] | 선비글방 | 2013.08.04 | 4569 |
» | 면적 리습 질문이요 [1] | 용맨 | 2013.08.04 | 2130 |
1790 | 응용프로그램을 로드하는중에 문제발생,, 이라고 뜨네요 ㅠ [1] | LJH | 2013.08.05 | 2047 |
제가 프로그램을 만들줄 아는 언어는 VB/VBA, .NET 정도 밖에 없습니다.
올려주신 리습언어는 저도 모릅니다.
따라서 고캐드 리습 질문방 같은 곳에 문의하셔야 할듯합니다.
http://www.gocad.co.kr/qa_lisp