Lisp về lệnh Copy mở rộng thêm ạ!

[thanhtruongqt 1]

Xin chào các anh chị trong diễn đàn. anh chị có thể giúp em viết một lisp mà mình có thể chèn và sắp xếp thêm đối tượng trong khi đang copy 1 đối tượng trước đó. 

Thay vì mình copy 1 bỏ lên dầm, sau đó copy 2 bỏ lên 1 thì mình dùng lisp copy 1, 2 bỏ lên là được luôn. Em có đăng hình kèm theo ạ. Cám ơn các anh chị rất nhiều.

001.pdf

002.pdf

[cuongtk2 415]

Thay vì copy ghép 2 thứ ở 2 nơi khác nhau vào vị trí thứ 3, bạn nên tạo 1 block có 2 attribute.

Chèn nó vào vị trí.

Thực hiện lisp có chức năng truyền nội dung text từ A đến att1, B đến att2. 

Lisp nó chức năng lấy nội dung của 1 text, att và truyền vào 1 text, att. Thậm chí có thể lấy trực tiếp text từ trong block.  

(defun c:t2t ( / nd ent ent0)
  (setq nd (ACET-DXF 1 (entget (car (nentsel "\nText nguon:")))))
  (setq ent0  (car (nentsel "\nText dich:"))
	ent (entget ent0)
	ent (subst (cons 1 nd) (assoc 1 ent) ent)
	)
  (entmod ent)
  (princ)  
  )

 

[thanhtruongqt 1]

cảm ơn anh @cuongtk2 ạ! để em thử ý tưởng của a xem. mà có vẻ như nó bất khả thi với e vì e có 60.000 bản như vậy và tên khác nhau hết. mình tối ưu càng ít bước càng tốt ạ!

[tannguyen291 163]

60.000 bản vẽ mà với cái lisp bạn nghĩ đến thì cũng :)) haha 

Inbox mình nghĩ cách chạy auto toàn bộ xem sao !

[cuongtk2 415]

Upload lên vài mẫu để tìm nguyên tắc .