VẼ 2 POINTS PHÍA DƯỚI CỦA HÌNH CHỮ NHẬT

[HOABAN_QD 7]

 

Nhờ sự giúp đỡ của Anh, Chị, Em Diễn Đàn CadViet

Mình có một số hình chữ nhật, mình có thể nhập lệnh Lisp sau đó quét chọn các hình chữ nhật và Enter thì vẽ được 2 points ở phía dưới của hình chữ nhật. Xin cảm ơn A, C, E nhiều !

VE 2 POINTS TRONG HINH CHU NHAT.dwg

[cuongtk2 338]

Đây nhé:

 (defun c:lineduoihcn ( / ss)
 (defun velineduoi (ent / ENT LS P1 P2 P3)
  (setq ls (ACET-ENT-GEOMEXTENTS ent)
        p1 (car ls)
        p2 (cadr ls)
        p3 (list (car p2) (cadr p1) (caddr p1))
        )
  (entmake (list (cons 0 "POINT") (cons 10 p1)))
  (entmake (list (cons 0 "POINT") (cons 10 p3)))
  )
  (setq ss (ACET-SS-TO-LIST (ssget '((0 . "LWPOLYLINE")))  )  )
  (foreach ent ss (velineduoi ent))
  )

[HOABAN_QD 7]

Cả ngày hôm nay mình cứ xem diễn đàn miết, ngóng sự giúp đỡ của ace, mình thấy bạn cuongtk2 hay giúp đỡ mọi người trong đó có mình luôn, down về chạy một cái nó mừng hết cỡ, Cảm ơn tấm lòng tốt của bạn @cuongtk2 thật nhiều. Mình không có mail bạn cuongtk2, bạn có thể show cho mình không? Cảm ơn và chúc bạn sức khỏe nhé!