홈/ 질문/Q 105597
다음
진행 중
Lv.0
등록일: 2015-12-02T11:27:11+09:00 카테고리:

리습 수정 부탁합니다.

안녕하세요? 정보만 얻어 가다가 오늘은 용기(?)를 내어 문의 드리고자 합니다.
아래의 리습에서 text height를 정수를 입력하라고 하는데 정수가 아닌 소수점 자리로 바꾸고 싶습니다.
소수점으로 변경하려면 어디를 어떻게 수정해야 하는지 고견을 부탁드립니다.
감사합니다.

;;===========================================
; 두점의 거리를 계산하여 텍스트로 표기하는 명령어
;——————————————–
(defun c:cond()
   (setvar “cmdecho” 0)
   (setq d_ts (getvar “textsize”) os (getvar “osmode”) dlf (getvar “dimlfac”))
   (setq ht d_ts)
    (prompt “n Text Height<“) (prin1 ht) (prompt “>: “)
    (setq ht (getint))
    (if (= ht nil) (setq ht d_ts))
    (setq scal (getint “n Input drawing scale (mm->1000 / m->1) -> “))
    (if (= scal nil) (setq scal 1))
   (prin1)
)

공유

    관련 있는 질문들

    3 답변

    1. aalan

    2. ㅎㅎㅎ…
      법처럼 질문을…
      메론님 법해석 잘하실거 같네요..

      • 0

    3. 바쁘신 가운데 고견을 알려주셔서 너무 감사합니다.
      아주 유용하게 사용하겠습니다.
      고맙습니다.

      • 0

    4. 저라면 getint 를..
      getreal 로 수정만 하겠습니다..

      • 0
    Lv.0
    등록일: 2012-10-01T23:04:41+09:00 카테고리:

    리습 수정 부탁합니다

    안녕하세요.
    파일은 중국 홈페지서 다운한 리습입니다.
    한국어 버전 캐드서 사용할 수 가 없네요.
    한국어 버전에 사용 할수 있도록 수정 부탁합니다.
    수고하세요

    • 0
    • 0 조회
    공유

      관련 있는 질문들

      Lv.0
      등록일: 2009-04-06T15:36:20+09:00 카테고리:

      리습 수정 부탁합니다

       면적 구하기 리습을 잘쓰고 있습니다
      그런데 캐드 도면이 mm로 작성이 되어있는데
      면적구하기 하여 텍스트로 표시하면 mm2로 표시되는데
      이를 m2 으로 표시되게 하고싶습니다 (현재는 텍스트를 6자리
      빼는 번거로움이 있습니다)
      고수님들 부탁드림니다
      defun C:VT( / TEX Q AR PT1 )
        (graphscr)
        (setvar “cmdecho” 0)
         (setq number 0)
      (while (setq dum (bpoly (getpoint “n Select pick point … : “)))
                (command “AREA” “object” dum)
                  (setq nu (getvar “AREA”))
                  (if ( = number nil)
                      (setq number 0))
                  (setq number  ( + number nu) )
                  (princ (strcat “area ==>”(rtos number 2 2))))
                  (setq tt (entsel “n>>Select change Text : “)
                         tt1 (car tt)
                        ; ett (substr (cdr (assoc 1 (entget tt1))) 1 6))
                ;  (setq AR (strcat ett ” ” (rtos (* number 1) 2 0)) )
                  (setq AR (rtos (* number 1) 2 0))


                  (command “CHANGE” TT “” “” “” “” “” “” AR)
         (setq number 0)
         (setvar “cmdecho” 1)
       (command “erase” “L” “”))
      (defun c:zz()
       (setq pz0 (getpoint “npick base of arrowhead “))
       (setq pz1 (getpoint “npick tip of arrowhead “))
       (command “insert” “2z” pz0 “” “” “”)
       (command “explode” “l”)
       (command “insert” “2z2” pz1 “” “” “”)
       (command “explode” “l”))

      • 0
      • 0 조회
      공유

        관련 있는 질문들

        Lv.0
        등록일: 2006-12-12T16:37:43+09:00 카테고리:

        리습 수정 부탁합니다.

        여기서 다운받은 리습인데요, 특정 문자 찾아서 색깔 바꿔주는 리습입니다. 그런데, 여기에 덧붙여 레이어를 생성 시킬수 있을 까 해서요…
        고수님들..수고스럽지만 좀 알려주세요.

        • 0
        • 0 조회
        공유

          관련 있는 질문들

          Lv.0
          등록일: 2005-10-10T11:25:39+09:00 카테고리:

          리습 수정 부탁합니다.

          text를 특정선의 기울기로 회전하는 리습을 만들고 싶어요..
          첨부파일처럼 작업을 했는데 리습이 안 먹네요..ㅠ.ㅠ
          어느 부분에 오류가 났는지 알수가 없습니다.
          부탁합니다…
          오류좀 고쳐주세요…

          • 0
          • 0 조회
          공유

            관련 있는 질문들