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

Question

Lv.0

등록일: 2004-11-032004-11-03T10:30:25+09:00 2004-11-03T10:30:25+09:00카테고리: AutoCAD & CADian

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

world ucs를 움직일수가 있나여?
new로 새로 지정을 한다고 world ucs 의 0,0이 움직이는건 아닌것 같은데요…

world 자체를 움직일수가 있을까요

11 답변

[Deleted User] · Answer 1 · 2004-11-03T17:26:43+09:00

[Deleted User]

2004-11-03T17:26:43+09:00답변 등록 답변 등록 일시 2004-11-03 5:26 pm

UCS를 전환하는 명령만 넣으면 되는데요…. ㅎㅎㅎ

0

공유
공유
- 공유 Facebook
- 공유 Twitter

[Deleted User] · Answer 2 · 2004-11-03T17:25:44+09:00

;————————————————————————————
(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))))
)
;————————————————————————————