아래 꺼좀 수정해주세요 제나름대로 해볼려고했는데 안되서 자문을 구합니다
기존도면에서 모든객체 기준점으로 이동시키고 현재 치수 스캐일을 지정한 스캐일값으로 바꾼후에 치수 이름바꾸는 등등 되게 해주시면 ㄳㄳ
(defun c:mm (/ a ba b ca c d e f g h i j k l)
(setvar “cmdecho” 0)
(setq a (getvar “DIMscale”))
(prompt “select remove object ? :”)
(setq ba (ssget))
(setq b (getpoint “nbase point?:”))
(setq ca (strcat “” a))
(setq c (getstring ca))
(setq d (strcat “dim-” c))
(setq e (* a 841))
(setq f (* a 594))
(setq g (list e f))
(setq h (list 0 0))
(setq i (getstring “nnew scale?:”))
(setq j (strcat “dim-” i))
(command “-units” “2” “0” “1” “0” “0” “N”)
(command “move” “al” “” ba h “limits” h g “-dimstyle” “r” d “-rename” “d” d j “dimscale” i “gg” “26”)
(command “-units” “2” “4” “1” “4” “0” “N”)
(princ))