비밀번호를 잊으셨나요?

비밀번호를 잊으셨나요? 비밀번호를 재설정하려면 이메일 주소를 입력해주세요.

계정이 있나요? 로그인

You must login to ask a question.

비밀번호를 잊으셨나요?

아직 계정이 없으신가요? 회원가입 하기

해당 질문을 신고하는 이유를 간단히 입력해주세요.

해당 답변을 신고하는 이유를 간단히 입력해주세요.

해당 유저를 신고하는 이유를 간단히 입력해주세요.

로그인회원가입

고캐드 – 캐드(CAD) 정보의 중심

고캐드 – 캐드(CAD) 정보의 중심 Logo 고캐드 – 캐드(CAD) 정보의 중심 Logo

고캐드 – 캐드(CAD) 정보의 중심 Navigation

  • Q&A
    • AutoCAD & CADian
    • Inventor & Solidworks
    • Revit & ArchiCAD
    • 자유질문
    • 기타
  • 커뮤니티
    • 오늘의이슈
    • 자유게시판
    • 익명게시판
    • 건의게시판
  • 자료실
    • 자료요청
    • 일반파일
    • 도면샘플
    • 유틸리티
    • 기타
  • 작품 갤러리
    • 그래픽
    • 캐드도면
    • 3D모델
    • 기타
  • 뉴스&이벤트
    • 공지사항
    • 뉴스
    • 전시/행사
    • 이벤트
    • 기타
검색
질문하기

Mobile menu

닫기
질문하기
  • 홈
  • 카테고리
    • AutoCAD & CADian
    • Inventor & Solidworks
    • Revit & ArchiCAD
    • 자유질문
    • 기타
  • 투표
  • 커뮤니티 그룹
  • Q&A
    • AutoCAD & CADian
    • Inventor & Solidworks
    • Revit & ArchiCAD
    • 자유질문
    • 기타
  • 커뮤니티
    • 오늘의이슈
    • 자유게시판
    • 익명게시판
    • 건의게시판
  • 자료실
    • 자료요청
    • 일반파일
    • 도면샘플
    • 유틸리티
    • 기타
  • 작품 갤러리
    • 그래픽
    • 캐드도면
    • 3D모델
    • 기타
  • 뉴스&이벤트
    • 공지사항
    • 뉴스
    • 전시/행사
    • 이벤트
    • 기타
홈/ 질문/Q 112802
다음
진행 중
Lv.0
등록일: 2021-01-152021-01-15T13:42:01+09:00 2021-01-15T13:42:01+09:00카테고리: AutoCAD & CADian

캐드 리습 소수점 수정질문 있습니다

리습 소수점 현재 두 자리까지 반올림 표현됩니다.
한 자리로 바꾸고 싶은데 검색하고 참고해봐도 
이 리습에서는 뭘 바꿔야 하는지 모르겠네요,,  도와주실분 계신지요..
;;; Annotates the area (“da” stands for ‘d’im ‘a’rea)
(defun c:aa()
        (graphscr)
        (setq f0 (getvar “dimscale”))
        (setq os (getvar “osmode”))
        (setq ff (getvar “dimlfac”))
        (setq dec (getvar “dimdec”))
        (setvar “osmode” 1)
        (setq pt (getpoint “nPick Point : “))
        (while (/= pt nil)
                (cOMMAND “BPOLY” pt “”)
                (command “.area” “e” “L”) (command “.erase” “L” “”)   (command”.redraw”)      
                (setq aa (rtos (* ff (getvar “area”))  2 dec))
                (setvar “osmode” 32)
                (setq pnt (getpoint “Text a Point : “))
                (setvar “osmode” 1)
                (setq x (+ (car pnt) (* f0 -4.6535)))
                (setq y (+ (cadr pnt) (* f0 2.5)))
                (setq pt1 (list x y))
                (command “.text” “j” “mr” pt1 (* f0 3) 0.0 aa)
                (print aa)
                (setq pt (getpoint “nPick the internal point : “))
        )
        (setvar “osmode” os)
        (princ)
)
  • 0
  • 2 2 답변
  • 419 조회
공유
  • Facebook

    관련 있는 질문들

    • 도서관 도면 구합니다. !
    • 캐드2022 레이어 그룹 분류시 레이어 드래그 오류
    • 전기도면 나사모양의 폴리선을 그릴수 있나요?
    • 캐드, zw캐드 와이프아웃 박스가 너무 많이 생겨요. 폴리선 박스가 중첩으로 많이 생겨요

    2 답변

    • 작성 순
    • 최신 순
    • 공감 순
    1. aalan
    2. 고탁 Lv.2
      2021-01-15T14:26:53+09:00답변 등록 답변 등록 일시 2021-01-15 2:26 pm
      (setq aa (rtos (* ff (getvar “area”))  2 dec)) -> (setq aa (rtos (* ff (getvar “area”))  2 1))

      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter
    3. [Deleted User]
      2021-01-15T15:57:30+09:00답변 등록 답변 등록 일시 2021-01-15 3:57 pm

      해결되었습니다. 정말 감사드립니다!

      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter

    Sidebar

    질문하기
    공지사항

    • AI CAD의 미래! 캐디안 2025 1+1 프로모션 안내 2025-05-14

    Adv 234x60

    aalan

    Adv 234x60

    aalan

    Adv 120x600

    aalan

    Explore

    • 홈
    • 카테고리
      • AutoCAD & CADian
      • Inventor & Solidworks
      • Revit & ArchiCAD
      • 자유질문
      • 기타
    • 투표
    • 커뮤니티 그룹
    aalan

    Footer

    Support

    • 회사 및 서비스 소개
    • 자주 묻는 질문
    • 문의하기

    Guide

    • 제휴/협업 안내
    • 광고 서비스 안내

    Policy

    • 서비스 이용약관
    • 개인정보 처리방침
    • 광고성 정보 수신 동의

    Contents

    • 고밍스토리
    • 리습 시리즈

    정소프트 | 사업자등록번호 : 677-40-00198 | 대표 : 정은숙 | 이메일 : gocad.manager@gmail.com
    주소 : 서울특별시 강서구 양천로 400-12, 6층 614,615,617호(등촌동, 더리브골드타워)
    Copyright. 2012-2024 GOCAD All rights reserved