도곽블럭_선택하여_선축척변경

도곽블럭_선택하여_선축척변경.lsp

 

;;; 도곽선택하여 선축척,치수축척 변경
;;; 2017-08-17, izzarder.com
(defun c:xxx ( / blk ent scale)
   (setvar 'CMDECHO 0)
   (command "_.UNDO" "_BE")
   (if 
      (and
         (setq blk (car (entsel "\n>> 기준 도곽 선택: ")))
         (setq ent (entget blk))
         (= (cdr (assoc 0 ent)) "INSERT")
      )
      (progn
         (setq scale (cdr (assoc 41 ent)))
         (setvar 'LTSCALE scale)
         (setvar 'DIMSCALE scale)  ;;; 필요없으면 앞에 주석처리 ;;;
         (prompt (strcat "선축척이 " (rtos scale 2) " 로 변경되었음..."))
      )
   )
   (command "_.UNDO" "_E")
   (setvar 'CMDECHO 1)
   (princ)
)

출처 : https://izzarder.com/409