world ucs를 움직일수가 있나여?

;————————————————————————————
(defun c:of3 (/ a b p1 p2 a_p10 a_p11 b_p10 b_p11 of3_ang10 of3_dist10 of3_dist10 of3_dist11)
;평행한 두선의 중심선 그리기
(setvar “osmode” 0)
(setq a (entsel))
(setq b (entsel))

(command “ucs” “w”) ;; UCS를 W로 전환

(setq a_p10 (of3_get_dxf a 10))
(setq a_p11 (of3_get_dxf a 11))
(setq b_p10 (of3_get_dxf b 10))
(setq b_p11 (of3_get_dxf b 11))

(of3_po_chk a_p10 a_p11 b_p10 b_p11)

(command “dist” a_p10 b_p10)
(setq of3_ang10 (angle a_p10 b_p10))
(setq of3_dist10 (getvar “distance”))
(command “dist” a_p11 b_p11)
(setq of3_ang11 (angle a_p11 b_p11))
(setq of3_dist11 (getvar “distance”))
(setq p1 (polar a_p10 of3_ang10 (/ of3_dist10 2)))
(setq p2 (polar a_p11 of3_ang11 (/ of3_dist11 2)))
(command “line” p1 p2 “”)
(setvar “osmode” 0)

(command “ucs” “p”) ;; 이전 UCS로 복귀

)

(defun of3_po_chk (p1 p2 p3 p4)
(setq of3_po_cr (inters p1 p3 p2 p4 ))
(if of3_po_cr
(progn
(setq b_p10 b_p11)
(setq b_p11 (of3_get_dxf b 10))
)
)
(prin1)
)

(defun of3_get_dxf(ga gb)
(cdr (assoc gb (entget (car ga))))
)
;————————————————————————————

음 어려워진당.. ^^;; ucs를 자주바꾸시나본뎅 할때마다 바꾸기도 뭐하구.. ㅡ.,ㅡ;

아…

진정 월드는 못 바꾸나여? 아흑 ㅠㅠ 못 바꾼다니깐 더 바꾸고 싶네염

그렇게 움직이곤..다시 world로 하면 예전 0,0 위치로 바껴버리는데염? 그럼 월드는 안 바꼈다는 얘기가 아닌가요..