고치느라 고쳤는데 에러가 자꾸만 나는데 고수님들 좀 봐주세요 ㅜ,ㅜ; error: bad argument type: numberp: “60”
위에 보시는것처럼 에러가 나거든요..
수정좀 해 주세요,,,ㅜ,ㅜ
(defun c:han(/ e n x y z var old new chg)
(setq id (load_dialog “han.dcl”))
(if (not (new_dialog “han” id)) (exit))
(action_tile “gx” “(setq xx $value)”)
(action_tile “gy” “(setq yy $value)”)
(action_tile “gz” “(setq zz $value)”)
(action_tile “rx” “(setq x $value)”)
(action_tile “ry” “(setq y $value)”)
(action_tile “rz” “(setq z $value)”)
(start_dialog)
(setq
e (ssget ‘((0 . “INSERT”)))
n (sslength e)
i 0
)
(setq x (/ x xx))
(setq y (/ y yy))
(setq z (/ z zz))
(repeat n
;;; X scale
(setq var (entget (ssname e i))
old (assoc 41 var)
new (cons 41 (* x (cdr old)))
chg (subst new old var)
)
(entmod chg)
;;; y scale
(setq var (entget (ssname e i))
old (assoc 42 var)
new (cons 42 (* y (cdr old)))
chg (subst new old var)
)
(entmod chg)
;;; z scale
(setq var (entget (ssname e i))
old (assoc 43 var)
new (cons 43 (* z (cdr old)))
chg (subst new old var)
)
(entmod chg)
(setq i (1+ i))
)
(princ))