Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
6 replies to this topic

#1 microcad

microcad

    Chưa sử dụng CAD

  • Members
  • Pip
  • 4 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 17 June 2014 - 05:19 PM

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úpuubq.jpg

 

 

 

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


  • 0

#2 microcad

microcad

    Chưa sử dụng CAD

  • Members
  • Pip
  • 4 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 17 June 2014 - 05:30 PM

không có ai à :mellow:


  • 0

#3 Tot77

Tot77

    biết lệnh adcenter

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

Đã gửi 17 June 2014 - 06:28 PM

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?


  • 1

#4 microcad

microcad

    Chưa sử dụng CAD

  • Members
  • Pip
  • 4 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 17 June 2014 - 07:45 PM

ý bạn là sao ha?


  • 0

#5 microcad

microcad

    Chưa sử dụng CAD

  • Members
  • Pip
  • 4 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 17 June 2014 - 07:52 PM

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


  • 0

#6 Tot77

Tot77

    biết lệnh adcenter

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

Đã gửi 17 June 2014 - 08:28 PM

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


  • 2

#7 thanhduan2407

thanhduan2407

    biết lệnh adcenter

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

Đã gửi 23 June 2014 - 04:35 PM

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:


  • 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