[Yêu cầu] Lisp vẽ polyline vuông góc bằng pick 2 điểm.

[enix 3]

Do yêu cầu công việc nên em cần 1 lisp có yêu cầu như sau:

Khi pick 2 điểm lisp sẽ tự động vẽ 1 polyline có góc vuông qua 2 điểm đó.

Nó tương tự như lệnh rec vẽ hình chữ nhật, nhưng em chỉ muốn polyline vẽ 1 nửa hcn này thôi, bên nào cũng được.

Em vẽ ra cho mấy bác dễ hình dung.

Thanks mấy bác.

http://upfile.vn/FQBtZTjmy-Lg/ve-polyline-vuong-goc-dwg.html

[enix 3]

Sao trắng xác vậy, cadviet bị lỗi ah?

[gia_bach 1558]

 

Do yêu cầu công việc nên em cần 1 lisp có yêu cầu như sau:

Khi pick 2 điểm lisp sẽ tự động vẽ 1 polyline có góc vuông qua 2 điểm đó.

Nó tương tự như lệnh rec vẽ hình chữ nhật, nhưng em chỉ muốn polyline vẽ 1 nửa hcn này thôi, bên nào cũng được.

Em vẽ ra cho mấy bác dễ hình dung.

Thanks mấy bác.

 

Tôi quote thì thấy như thế này. (không thấy hình)

[enix 3]

Tôi quote thì thấy như thế này. (không thấy hình)

 

Em đã up link upfive, còn đính kèm đang bị gì ko đính kèm được >.<

[gia_bach 1558]

Do yêu cầu công việc nên em cần 1 lisp có yêu cầu như sau:

Khi pick 2 điểm lisp sẽ tự động vẽ 1 polyline có góc vuông qua 2 điểm đó.

Nó tương tự như lệnh rec vẽ hình chữ nhật, nhưng em chỉ muốn polyline vẽ 1 nửa hcn này thôi, bên nào cũng được.

Em vẽ ra cho mấy bác dễ hình dung.

Thanks mấy bác.

http://upfile.vn/FQBtZTjmy-Lg/ve-polyline-vuong-goc-dwg.html

Nếu hai điểm nằm ngang hoặc thẳng đứng thì sao ?

[enix 3]

Nếu hai điểm nằm ngang hoặc thẳng đứng thì sao ?

 

Nếu đứng hay ngang thì vẽ polyline nối 2 điểm đó thôi bác ơi, tại em cần đo chiều dài của polyline đó.

[pphung183 428]

(defun c:plvg (/ os p1 p2 p11 p22 p3)
(setq os (getvar "osmode")) 
(setq p1 (getpoint "\n Chon diem bat dau ")
p2 (getpoint p1 "\n Chon diem thu hai "))
(setq p11 (polar p1 (* pi 0.5) 1) p22 (polar p2 0 1) p3 (inters p1 p11 p2 p22 nil))
(setvar "osmode" 0)
(vl-cmdf "pline" p1 p3 p2 "") (setvar "osmode" os) (princ))

Code nhanh cho bạn!!!

[Doan Van Ha 3210]

osmode sớm quá

[pphung183 428]

Chỉnh lại tí :D

[enix 3]

(defun c:plvg (/ os p1 p2 p11 p22 p3)
(setq os (getvar "osmode")) 
(setq p1 (getpoint "\n Chon diem bat dau ")
p2 (getpoint p1 "\n Chon diem thu hai "))
(setq p11 (polar p1 (* pi 0.5) 1) p22 (polar p2 0 1) p3 (inters p1 p11 p2 p22 nil))
(setvar "osmode" 0)
(vl-cmdf "pline" p1 p3 p2 "") (setvar "osmode" os) (princ))

Code nhanh cho bạn!!!

 

 

Chuẩn rồi thanks bác nhiều nhiều ^.^