[Nhờ giúp đỡ] Phương pháp toạ độ cực trong Trắc Địa

[thanhduan2407 272]

Chào các bác!

Em có 1 vấn đề cần nhờ các bác tư vấn cho cách thức để viết LISP.

Vấn đề tọa độ cực trong Autocad em đã hiểu, tuy nhiên em mới biết trong hệ tọa độ WCS, còn UCS thì chưa thực sự hiểu lắm.

Với phương pháp Trắc Địa thì em thừa sức làm được điều này.

Cái khó em chưa biết bởi chiều góc của Trắc Địa là cùng chiều kim đồng hồ còn trong Autocad là ngược chiều kim đồng hồ.

Ví dụ hình ảnh dưới đây các bác xem và tư vấn việc viết LISP giúp em được không?

Thao tác em muốn làm là:

Chọn điểm gốc (P1)

Chọn điểm hướng 0 (P2)

Nhập góc hợp bởi hướng (Gocbeta) (0 <= Gocbeta <= 360)

Nhập khoảng cách từ điểm gốc đến điểm cần tính

=>Tính ra được tọa độ 

[Tot77 508]

Có phải như vầy không.

 

(setq p1 (getpoint "\nDiem P1: ")
      p2 (getpoint p1 "\nHuong OX: ")
      ang (angle p1 p2) )
(command "line" "_none" p1 "_none" p2 "")
(while (setq goc (getangle "\nNhap goc <Cung chieu kim dong ho = +>: "))
  (setq cl (getreal "\nKhoang cach:")
p3 (polar p1 (- ang goc) cl))
  (command "line" "_none" p1 "_none" p3 "")
  (princ p3)
)

[thanhduan2407 272]

Ok rồi anh.

Nhiều lúc thấy mình ngốc xít quá. Chỉ việc lùi lại 1 góc là OK rồi. Haizzz..

Em lại làm phức tạp vấn đề rồi.

Cảm ơn anh Tot77 nhiều

[Tot77 508]

Sao thấy bạn nghiên cứu đủ các thứ vậy?  :P  :P

[thanhduan2407 272]

Sao thấy bạn nghiên cứu đủ các thứ vậy?  :P  :P

Và lúc nào em cũng được anh Tot77 giúp đỡ nhiệt tình.

Kiểu này em phải vọc của anh nhiều rồi, ^^

:wub:   :wub: