Nhờ giúp đỡ sửa lisp hình chữ nhật thêm hatch

[babylong10 7]

Đầu năm mới em Chúc mọi người năm mới nhiều sức khỏe và gặp nhiều may mắn. Em tìm được lisp trên diễn đàn về vẽ hình chữ nhật qua 3 điểm, em muốn nhờ Bác nào edit giúp em thêm Hacth tường vào lisp khi vẽ với. Em xin cám ơn.

Quote

(defun c:test1(/ p1 p2 p3 p4)
(and  (setq p1 (getpoint "\nP1 :") p2 (getpoint p1 "\nP2") p3 (not (grdraw p1 p2 3 -1)) p3 (getpoint p2 "\nP3:"))
 (entmake (append (list '(0 . "LWPOLYLINE")'(100 . "AcDbEntity") '(100 . "AcDbPolyline")(cons 90 4)(cons 70 1))
  (mapcar '(lambda (x) (cons 10 x)) (list p1 p2 p3 (polar p1 (angle p2 p3) (distance p2 p3))))))
)(redraw))
 

 

test1.lsp

[duy782006 1596]

Ít ra cũng cho các thông số hahtch mong muốn, nhỡ ai họ muốn giúp cũng đỡ phải hỏi lại nhé!

[babylong10 7]

56 phút trước, duy782006 đã nói:

Ít ra cũng cho các thông số hahtch mong muốn, nhỡ ai họ muốn giúp cũng đỡ phải hỏi lại nhé!

Thanks Bạn để mình sửa

 

[limfx 32]

Ủa lisp vẽ hình bình hành chứ đâu hình chữ nhật?

[babylong10 7]

Vừa xong, limfx đã nói:

Ủa lisp vẽ hình bình hành chứ đâu hình chữ nhật?

Hình chữ nhật đó fenci, lisp này vẽ tiện hơn dùng rectang

[NTHAHT 112]

Bạn thử sử dụng lisp này xem sao!

https://drive.google.com/file/d/17Qwdpebr6RWZeV3RCH1CkL78wnO6wpla/view?usp=sharing

[babylong10 7]

12 phút trước, NTHAHT đã nói:

Bạn thử sử dụng lisp này xem sao!

https://drive.google.com/file/d/17Qwdpebr6RWZeV3RCH1CkL78wnO6wpla/view?usp=sharing

Cám ơn Bạn.

[babylong10 7]

23 giờ trước, NTHAHT đã nói:

Bạn thử sử dụng lisp này xem sao!

https://drive.google.com/file/d/17Qwdpebr6RWZeV3RCH1CkL78wnO6wpla/view?usp=sharing

Lisp này có sửa để vẽ liên tục được không Bạn giống như kiểu vẽ tường quanh phòng đó Bạn.

[NTHAHT 112]

Vào lúc 8/2/2025 tại 14:29, babylong10 đã nói:

Lisp này có sửa để vẽ liên tục được không Bạn giống như kiểu vẽ tường quanh phòng đó Bạn.

Có thể, nhưng sẽ có nhiều trường hợp xảy ra, để xử lý triệt để được các trường hợp thì rất khó.

[NTHAHT 112]

Chưa ưng ý hoàn toàn nhưng cũng có thể dùng tạm, kiểu thế này (Lisp vẫn ở link cũ ở trên).

 

[babylong10 7]

1 giờ} trướ}c, NTHAHT đã nói:

Chưa ưng ý hoàn toàn nhưng cũng có thể dùng tạm, kiểu thế này (Lisp vẫn ở link cũ ở trên).

 

Thanks bạn, quá Pro

[NTHAHT 112]

Vào lúc 10/2/2025 tại 16:57, babylong10 đã nói:

Thanks bạn, quá Pro