면적구하는 리습 질문

Question

익명

등록일: 2022-10-172022-10-17T13:43:38+09:00 2022-10-17T13:43:38+09:00카테고리: AutoCAD & CADian

면적구하는 리습 질문

건축도면에서 객체 내부의 면적을 구한 뒤
평방미터 (m2) 와 평 (Py) 로 표시해주는 기능이라 lisp 을 구하고 있습니다.
지금 여러 대안을 알아보는 중이라
오토캐드나 다른 캐드에서 구동되는 기능이라도 알려주시면
다양하게 검토해보고 싶습니다.
고수님들의 고견을 부탁드립니다.

답변을 남겨주세요
응답 취소

답변을 등록하기 위해서는 로그인이 필요합니다.

아직 계정이 없으신가요?

3 답변

jackda · Answer 1 · 2022-10-17T14:05:30+09:00

jackda Lv.0

2022-10-17T14:05:30+09:00답변 등록 답변 등록 일시 2022-10-17 2:05 pm

(DEFUN C:AE()
(SETVAR “CMDECHO” 1)
(SETVAR “REGENMODE” 0)
(COMMAND “AREA” “e” pause)
(setvar “lunits” 2)
(setvar “luprec” 2)
(SETQ PP (GETPOINT “n Pick the point : “)
TS (GETVAR “TEXTSIZE”)
AREA (GETVAR “AREA”)
AA (/ AREA 1000000.)
AREA1 (RTOS AA 2 2)
AREA2 (RTOS (* AA 0.3025) 2 2)
AA (STRCAT “(” AREA1 “㎡ / ” AREA2 “PY” “)”)
)
(COMMAND “TEXT” PP TS “0” AA)
)