Nhờ sửa Lisp

[dohoangviet1606 0]

(DEFUN c:QQ ()

 

(setq BONG (car (entsel "\ Chon Bong")))
(setq DBBB (entget BONG))
(setq B2 (cdr(assoc 10 DBBB)))
(setq D1 (cdr(assoc 40 DBBB)))

 

(setq LED (car (entsel "\ Chon Mui ten")))
(setq DLED (entget LED))
(setq B1 (cdr(assoc 10 DLED)))
(command ".erase" LED "")

(setq D (distance B1 B2))
(setq D2 (- D D1))

(setq A (angle B1 B2))
(setq L1 (polar B1 A D2))

(command "qleader" B1 L1 "" "") (command)

)

---------------

Đậy là Lisp em tự viết để sửa nhanh mũi tên LE lệch khỏi tâm Bóng khi Move (dùng lệnh S "Stretch" để move bóng và điểm cuối mũi tên mà vẫn giữ nguyên điểm đầu mũi tên)

 

Ý tưởng ban đầu là quét ngược cả bóng và mũi tên để chọn đối tượng, nhưng em tham khảo theo sách mà không biết có hàm nào thực hiện được. Nên em đẫ dùng "entsel" để chọn từng đối tượng (bóng và mũi tên). Nhưng khi làm nhiều thì nó khá phiền dễ  missclick...

 

Nên em muốn nhờ các Bác sửa lại thành quét chuột để chọn cả  bóng và mũi tên cùng lúc với ạ!
 

suabong-QQ.lsp

[Duong Nhat Duy 423]

Nếu sợ missclick mà vẫn muốn dùng entget thì bạn dùng while như này:

(while (not (setq BONG (car (entsel "\n Chon Bong: ")))))
(while (not (setq LED (car (entsel "\n Chon Mui ten: ")))))

Hoặc nếu muốn dùng selection set:

(setq elst (vl-remove-if 'listp (mapcar 'cadr (if (ssget (list (cons 0 "*LEADER,CIRCLE"))) (ssnamex (ssget "_P"))))))
(setq BONG (car (vl-remove-if-not '(lambda (e) (wcmatch (cdr (assoc 0 (entget e))) "CIRCLE")) elst)))
(setq LED (car (vl-remove-if-not '(lambda (e) (wcmatch (cdr (assoc 0 (entget e))) "*LEADER")) elst)))