Nhờ chỉnh sửa Lisp chọn 1 đối tượng thành chọn nhiều đối tượng trong cad

[thesaintzero 1]

Chẳng là mình có góp nhặt trên mạng được một cái lisp vẽ "tâm" các hình nhưng khổ nỗi do không biết tí gì về lisp nên không thể sửa được, mong các bro giúp mình thay vì "click" từng "boundary" hay "region" chuyển thành "chọn nhiều đối tượng" hay "chọn trong 1 vùng trên màn hình cad". Mong các Pro giúp mình với, thanks các bro.

 

(Defun c:ght (/ oldlay p e e1 pt)
(vl-load-com)
(setq Oldlay (getvar "clayer"))

(if (not (tblsearch "layer" "thua"))
  (command "layer" "m" "thua" "c" "5" "thua" )
  (setvar "clayer" "thua")
)
(setq p (getpoint  "\n Pick chon diem ben trong thua can ghi chu "))
(command "boundary" p "")
(setq e (entlast))
(command "region" e "")
(setq e1 (entlast))
(setq pt (vlax-safearray->list (vlax-variant-value (vlax-get-property (vlax-ename->vla-object e1) 'centroid))))
(if (not (tblsearch "layer" "tam_thua"))
  (command "layer" "m" "tam_thua" "c" "2" "tam_thua" )
  (setvar "clayer" "tam_thua")
)
(setvar "pdmode" 34)
(command "point" pt )
(setvar "clayer" oldlay)

(princ)
)

Ght.lsp

[thesaintzero 1]

Có Bro nào giúp mình với được không?