지금 사무실에서 사용하는 massprop 명령 리습인데요.
여기서 문제는 centroid 가 예를들어 x:122 y:31 이렇게 나와서 계산이 되거든요. 이걸 자동으로 x:0 y:0 으로 맞춰준 후 그외 여러 모멘트값들이 계산되도록 리습을 수정할수 없을까요?.
원래는 잘 사용하던 리습인데, 며칠전부터 갑자기 되던게 안되어서요..
리습 명령어는 예전에 사용하던 그대로인데, 뭐가 잘못된건지 잘 모르겠어요…
(defun c:MP()
(setvar “cmdecho” 0)
(setq ssP (entsel “n Select object : “))
(if (not ssp) (exit))
(setq na (car ssp))
(setq b (entget na))
(setq name (cdr (assoc 0 b)))
(if (= name “REGION”)
(progn
(command “hatch” “ansi31” “” “” ssp “”)
(command “_massprop” ssp “” “Y” “massprop”)
(setq fi (open “massprop.mpr” “r”))
(repeat 7 (read-line fi))
(setq xp (atof (substr (read-line fi) 25 ))
yp (atof (substr (read-line fi) 25 )))
(setq os_v (getvar “osmode”))
(setvar “osmode” 0)
(close fi)
(setvar “pdmode” 3)
(command “point” (list xp yp) “UCS” “o” (list xp yp) )
(command “UCSICON” “or”)
(setvar “osmode” os_v)
(command “_massprop” ssp “” “Y” “massprop”)(textscr)
(COMMAND “UCS” “”)(princ)
)
(progn
(PRINC “nNot a REGION “)
(PRINC)
)
)
)
(princ “n type ‘MP’ to run MassProperties”)
(princ)