Giúp mk List vẽ điểm biết khoảng cách và góc

[microcad 0]

ai có list vẽ 1 điểm khi biết góc ngang của điểm ấy với đoạn thẳng bất kì và biết khoảng cách không cho mk xin

. không thì tạo giúp mk với mk mới hk list nhưng chỉ làm đc cái cơ bản thôi

 ảnh minh họa mk có bên dưới mong đc các b giúp

 

 

 

Điểm A , B bất kỳ nhé

[microcad 0]

không có ai à :mellow:

[Tot77 508]

Bạn thử cái này. Nó có hỏi thêm phía so với AB. Khi nhập góc nhớ có thêm chữ "d".

 

(defun c:tmp()
  (setq a (getpoint "\nChon diem A:")
b (getpoint a "\nChon diem B:")
g (angtof (getstring "\nNhap goc<thi du: 10d20'30\">:") 3)
kc (getreal "\nNhap khoang cach:")
p (getpoint "\nNhap phia cua diem can ve so voi AB:")
p1 (inters a b p (polar p (+ 1.5708 (angle a b)) 1) nil)
c (polar b (if (equal (angle p1 p) (+ 1.5708 (angle a b)) 0.001)
    (- (+ pi (angle a b)) g) (+ (- (angle a b) pi ) g)) kc))
  
  (command "line" b c "")
)

 

P/S: Bạn viết yêu cầu bằng tiếng gì lạ vậy?

[microcad 0]

ý bạn là sao ha?

[microcad 0]

thanks b nha. b dạy mk list đc không z

[Tot77 508]

Tôi không có thời gian và cũng chẳng thích dạy học. Cadviet có lớp autolisp online đó, bạn đăng ký vào đó học, có gì khó quá thì post lên đây, ai giúp được thì giúp.

Bạn dùng mấy cái từ "mk","hk" .. làm tôi tưởng đang ở trong chat room nào đó chứ không phải cadviet forum. :)  :)  :)

[thanhduan2407 272]

Tôi không có thời gian và cũng chẳng thích dạy học. Cadviet có lớp autolisp online đó, bạn đăng ký vào đó học, có gì khó quá thì post lên đây, ai giúp được thì giúp.

Bạn dùng mấy cái từ "mk","hk" .. làm tôi tưởng đang ở trong chat room nào đó chứ không phải cadviet forum. :)  :)  :)

Ý kiến của anh em cũng rất tán thành. Hiii.  :wub:  :wub:  :wub:  :wub: