( Yêu Cầu ) Nhờ Các Bác Viết Giúp Lisp Chuyển Trục Tọa Độ Theo 1 Đường Thẳng Bất Kỳ

[Thuc Tap Vien 2]

Nhờ các Bác viết giúp Lisp chuyển trục tọa độ theo 1 đường thẳng bất kỳ.

VD : Có 1 đường thẳng bất kỳ, sau khi dùng lệnh chỉ cần pick vào đường thẳng đó là trục tọa độ xoay theo vị trí đường thẳng hiện tại.

 Sau khi dùng lệnh trên nếu muốn trở về trục tọa độ W thì chỉ cần gõ thêm lệnh nữa là về trục tọa độ W.

Nếu có thể được thì trục tọa độ Y luôn nằm phía bên trên so với đường ngang.

Xin chân thành cảm ơn !!!!

[cuongtk2 356]

Mình hay dùng cái này :

(defun c:UO ()

(command "UCS" "ob" "pause" "")

)

(defun c:Uu ()

(command "UCS" "w" "")

)

Nếu bạn muốn Y quay lên thì bạn pick phía trái của LINE

[Thuc Tap Vien 2]

Mình hay dùng cái này :

(defun c:UO ()

(command "UCS" "ob" "pause" "")

)

(defun c:Uu ()

(command "UCS" "w" "")

)

Nếu bạn muốn Y quay lên thì bạn pick phía trái của LINE

Cảm ơn bác. Đã OK. Nhưng trục Y vẫn quay xuống dưới. Bác xem lại giúp

[gia_bach 1.552]

Mình hay dùng cái này :

(defun c:UO ()

(command "UCS" "ob" "pause" "")

)

(defun c:Uu ()

(command "UCS" "w" "")

)

Nếu bạn muốn Y quay lên thì bạn pick phía trái của LINE

Nếu muốn trục Y đảo chiều thì pick phía bên kia của Line (so với lần chọn trước đó).

[Thuc Tap Vien 2]

Cảm ơn bạn