홈/ 질문/Q 112507
다음
진행 중
무나미
Lv.0
등록일: 2020-07-23T11:10:26+09:00 카테고리:

리습수정좀 부탁드립니다 ㅠㅠ

면적 길이 평 리습인데..
여기에 글자크기 변경기능을 넣고 싶습니다..
고수님들 부탁드립니다 ㅠㅠ

공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.0
      (defun c:aaa (/ doc space ss index obj mi mx minpt maxpt inspt area txtobj)
        (setq doc (vla-get-activedocument (vlax-get-acad-object)))
        (cond
          ((= (vla-get-activespace doc) 1)
           (setq space (vla-get-modelspace doc))
          )
          ((= (vla-get-activespace doc) 0)
           (setq space (vla-get-paperspace doc))
          )
        )
        (if (and (setq ss (car (entsel “n객체 선택 : “)))
         (setq inspt (getpoint “n텍스트 삽입점 지정 : “))
         (setq texth (getint “n텍스트 크기 지정:”))
         (setq textg (getint “n텍스트 간격 지정: “))
            )
          (progn
            (setq obj (vlax-ename->vla-object ss))
            (setq area (vla-get-area obj)
          len (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))
            )
            (mapcar ‘(lambda (a b)
      (setq p (vlax-3d-point inspt))
      (setq txtobj (vla-addtext space (strcat a b) p texth))
      ;<—문자크기;
      (vla-put-alignment txtobj 8)
      (vla-put-textalignmentpoint txtobj p)
      (setq inspt (polar inspt (/ (* 270 pi) 180) textg))
      ;<—줄간격;
             )
            (list (rtos (/ area 1000000.) 2 2)
          (rtos (/ len 1000.) 2 2)
          (rtos (* area 0.000001 0.3025) 2 2)
            )
            ‘(“m2” “m” “py”)
            )
          )
        )
        (princ)
      )
      • 0
    3. Lv.0

      늦게 봐서 죄송합니다 . ㅠㅠ 포기 하고 있었거든요
      정말 감사합니다 !!

      • 0
    Lv.0
    등록일: 2016-11-11T13:43:03+09:00 카테고리:

    리습수정좀 부탁드립니다 ㅠㅠ

    블럭자르는 리습인데
    이걸사용하면 오스냅이 다 꺼져서
    너무 불편해요 ㅠㅠ…
    수정좀 부탁드립니다 ㅠㅠ

    공유

      관련 있는 질문들

      3 답변

      1. Lv.0
        VLX 화일은 원작자를 찾으셔야 수정이 됩니다.~
        • 0

      2. 아 그렇군요ㅜㅜ…. 감사합니다…

        • 0

      3. ai_sysvar 함수가 없어서 인거 같습니다….
        많이 본거 같아..
        찾아보니 자료가 있네요…
        파일 소스 첨부합니다.
        최종본인진 모르겠네요..

        소스를 차근 보니.. 수정은 쉽겠네요..

        • 0