홈/ 질문/Q 172231
다음
진행 중
AidenJ
Lv.2
등록일: 2022-09-29T17:25:10+09:00 카테고리:

수치지도5000에서 1000변경

수치지도 1000도를 사용하는 작업을 하는데,
5000도 밖에 제공안되는 경우에 5000도를 1000도로 잘라서 사용하곤 합니다.
이때, 1000도와 5000도의 스케일이 달라서,,,

5000도에서 자른 1000도의 스케일을  1000도의 기본 스케일로 맞춰야합니다.

블록이나 글자 스케일 한번에 0.04배 줄일수 있는 리습이나 방법이 있을까요?

공유

    관련 있는 질문들

    답변을 남겨주세요

    답변을 등록하기 위해서는 로그인이 필요합니다.

    아직 계정이 없으신가요?

    4 답변

    1. aalan
    2. Lv.12 
      (defun c:yourname ( / bname sc x ss obj)
  (vl-load-com)
  (setq bname (cdr (assoc 2 (entget (car (entsel "nPlease pick block for name to be rescaled"))))))
  (setq sc (getreal "nEnter new scale "))
  (setq ss (ssget "X" (list (cons 0 "INSERT")(cons 2 bname)(cons 410 (getvar 'ctab)))))
  (if (= ss nil)
   (alert "something went wrong will do nothing ")
  (progn
  (repeat (setq x (sslength ss))
   (setq obj (vlax-ename->vla-object (ssname ss (setq x (- x 1)))))
   (vla-put-XScaleFactor obj sc)
   (vla-put-yScaleFactor obj sc)
  )
  )
)
(princ)
)
(c:yourname)
      • 1