Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
4 replies to this topic

#1 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 993 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 13 August 2014 - 08:46 AM

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 độ 36665_toa_do_cuc.jpg


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#2 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 13 August 2014 - 10:01 AM

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)
)

  • 1

#3 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 993 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 13 August 2014 - 10:20 AM

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


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#4 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 13 August 2014 - 10:29 AM

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


  • 1

#5 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 993 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 13 August 2014 - 11:08 AM

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:


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn