ngokiet

(defun c:getview() (prin1 (list 'command "zoom" "c" (cons 'list (getvar 'viewctr)) (getvar 'viewsize))) (princ)) Copy cái text do lệnh này tạo ra gởi là dc.

Bác nhấn zoom all. Nhấn Ctrl+a sẽ thấy chấm xanh như hình có vòng đỏ. Bỏ chọn và select lại vùng đó sẽ có 10240 line trùng nhau và length = 0. Xóa di. Zoom A lại sẽ bình thường.

Làm ngược lại. Lấy bản vẽ 1 xóa sạch rồi chen bàn vẽ 2 vào. Nếu sửa nhiều block. Còn không thì wblock đó ra rồi các bàn vẽ khác kéo thả block đó vào. Còn có 1 cách nữa là nhấn Ctrl+2. mở tới bản vẽ 1 - blocks . Nhán nút phải trên block đã sửa chọn redefine only

Ít nhất bạn phải có file cho người ta test chứ. Trong các điểm bạn đưa thì gần như không có quy luật nào chính xác. Bạn phải tìm 1 quy luật tương đối gần đúng với nó nhất để sort. Bạn dề xuất sort theo x+y thì không đúng rồi. Theo mình thấy là nên xoay trục tọa đô rồi sort

(mapcar 'cdr (vl-remove-if '(lambda(x) (/= (car x) 10)) (entget (bpoly (getpoint))))) Bác muốn gắn vào biến nên chắc bạn biết list. Thử dòng code trên. Nó sẽ tạo pline. và kq là list đỉnh.