[[Lisp]]면적리습 수정 문의드립니다.

[cader]

제가사용중인 면적 리습입니다. 헌데 글씨도 너무작고 M2/PY 두줄로 나오는데 배열도 비뚤고

소수점자리가 너무 길게나와요.....간단한리습같은데도.. 멀 수정해야하는지 몰라 도움요청합니다

(defun C:ART()
       (setvar "cmdecho" 0)
       (SSGET)
       (command "AREA" "E" (SSGET "P"))
       (setq ar (getvar "area"))
       (SETQ AR1 (/ AR 1.0))
       (prompt "AREA (M2) =")(prin1 (SETQ AR2 (RTOS (/ AR1 1000000.0) 2 1)))
       (PROMPT "      AREA (PY) = ")(prin1 (setq ar3 (RTOS (/ ar1 3305800.0) 2 1)))
       (PROMPT "      CLICK TEXT POINT.......")
       (princ)
       (SETQ PO (GETPOINT))
       (COMMAND "STYLE" "STANDARD" "HY견고딕" "" "" "" "" "" "")(PRIN1)
       (SETQ TESI (* 2.5 (GETVAR "LTSCALE")))
       (SETQ ART1 (STRCAT AR2 " M2"))
       (SETQ ART2 (STRCAT AR3 " PY"))
       (COMMAND "TEXT" "BC" PO tesi "" ART1)(PRIN1)
       (COMMAND "TEXT" "TC" PO TESI "" ART2)(PRIN1) 

 - 제목 작성시 금지어

   만들어주세요? 해주세요? 안되는데 이렇게 변경해주세요? 등등

- 특정분과 질문은 제목에 분과삽입 [건축] 

   좋은예) [분과]무엇에 대해 문의합니다. /[분과]B로 바꾸는 방법을 알고싶습니다.

- 말머리 필수 

① CAD 종류   : AUTOCAD

② VERSION   : 2010

③ 운영 체제    : 윈도우XP

④ 질문내용 및 스크린샷(동영상)

⑤ 파일첨

ART.LSP

부 (LISP/DWG) - DWG 첨부시 보다 정확한 답변을 얻을수 있습니다.

※ 유의사항

 - ①말머리 : LISP

 - ②Screenshot :

 - ③파일 첨부 : 상위버전에서 테스트할 파일이 아니면 가급적 하위버전으로 저장후 첨부.

                          해당리습/해당파일(DWG) 도 같이 첨부하여 주세요.

 - ④제       목 : 면적리습 수정요청( 소수점한첫째자리까지),       ?

 - ⑤질문글 삭제금지 : 질문후 댓글이 달린글은 삭제금지.

    여러 리플러들이 소중한 시간을 내어서 고민한후 댓글을 작성한 이상 "강력조치" 토록 하겠음. 

※ 정답만이 댓글은 아닙니다. 그 답이 맞던 틀리던 그건 그 댓글로서 존중되어야 합니다.

    회원님들이 글을 읽었다는것과 댓글을 달았다는건 그만큼 관심을 가지고 있고 또 그 답을 해주기 위해

    검색도 해보고 도움말도 보고 고민도 하는 일련의 과정을 거치면서 나오기 때문이죠.

    이에 대한 고마움과 감사함을 모르는 테러행위(?)는 없었으면 합니다.

 

첨부파일첨부된 파일이 1개 있습니다.

• etc 파일 ART.LSP

[『형진`s』]

제목 수정해주셔요 ~ 질문내용도 질문하는 박스 안쪽으로 옮겨주시구요 ^^

[3:16]

암튼...운영진 뜻에 따라 주셔서 감사합니당^^* ㅎㅎ

글로서 서로 얘기 하다보니....적잖은 오해가 생길 수두 있거든요^^* ㅎㅎ

앞으로..눈부신 활동 기대하겠습니다..^6;

[3:16]

dimzin??? 잘모르겠네요..^^;

[『형진`s』]

아이고 여기 난리네 ㅡㅡ;

[예민한 신신애]

스샷이 필요할꺼 같은데요...
ucs문제인듯 싶기도 하고요..