홈/ 질문/Q 112775
다음
진행 중
Lv.0
등록일: 2021-01-07T09:38:32+09:00 카테고리:

치수 두줄 넣는법

이렇게 하려면 어떤 명령어 사용해야하나요?
공유

    관련 있는 질문들

    1 답변

    1. aalan
    2. Lv.0

      상한공차+하한공차네요.

      원래는 치수 스타일 관리자 들어가서 설정해야 하는데 좀 거지 같습니다.

      그냥 리습 쓰시는게 속 편합니다.
      (defun c:UB(/ dim tp tm osm os)            ;기존치수선에 공차추가 리습
      (defun *error* (msg) (setvar “osmode” os) (princ) )
      (setq os (getvar “osmode”))
      ;(setvar “cmdecho” 0)
        (setvar “dimtzin” 8)     ;공차값에서 0 억제를 조정.
                                            ;8 : 소숫점 아래 0을 표시하지 않는다
        (setvar “dimtdec” 3)   ;공차값에서 소숫점이하 자릿수
        (setvar “dimtfac” 0.75)    ;공차값의 크기를 dimtxt의 75%로 설정
        (setvar “dimtol” 1)     ;공차를 기입
        (setvar “dimtolj” 1)   ;공차의 위치를 설정
        
        (setq dim (ssget))         ;공차를 기입할 치수를 선택
        (IF ( = dim nil );;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 공차 삭제
            (progn
         (command “dimTOL” “0” )    ;공차 없음
                 (setq dim (ssget))         ;공차를 삭제할 치수를 선택
         (if (= dim nil) (exit))
                 (command “-dimstyle” “a” dim “”)
                 (exit)
            );progn end
        );if end  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       
        (setq tp (getreal “n상한공차 :”)
                 tm (getreal “n하한공차 :”))
        (setvar “dimtp” tp)    ;상한공차값에 tp값을 입력
        (setvar “dimtm” tm)    ;하한공차값에 tm값을 입력
        (command “-dimstyle” “a” dim “”)
      ;기입한 공차를 적용시킨다.
      ;dimstyle dml a 옵션을 이용해서 선택한 치수선에 공차를 기입한다.
        (setvar “dimtol” 0)
      ;공차기입 취소
        (princ)
      )
      • 0