Xin lệnh gán thuộc tính contents cho text

[thoclep 143]

Trong bản vẽ có nhiều text khác nhau. Em cần lệnh có thể lấy thuộc tính contents (nội dung) của 1 text bất kỳ để gán cho những text bất kỳ khác. Mặc dù em biết dùng ctrl+1 cũng có thể làm được điều trên, nhưng nó không pro lắm. Em muốn lệnh trên nó sử dụng tương tự như lệnh MATCHPROP.

[ssg 1.102]

Trong bản vẽ có nhiều text khác nhau. Em cần lệnh có thể lấy thuộc tính contents (nội dung) của 1 text bất kỳ để gán cho những text bất kỳ khác. Mặc dù em biết dùng ctrl+1 cũng có thể làm được điều trên, nhưng nó không pro lắm. Em muốn lệnh trên nó sử dụng tương tự như lệnh MATCHPROP.

Bạn thử cái này, lệnh MCT:

 

(defun C:MCT( / et1 t1 et2 d2);;;Matchprop Content of Text
(setq
et1 (car (entsel "\nSelect Source text:"))
t1 (assoc 1 (entget et1))
)
(redraw et1 3)
(while (setq et2 (car (entsel "\nSelect Destination text or :")))
(setq
	d2 (entget et2)
	d2 (subst t1 (assoc 1 d2) d2)
)
(entmod d2)
)
(command "regen")
(princ)
)

[Hung_tthanh 3]

 

Bạn thử cái này, lệnh MCT:

 

(defun C:MCT( / et1 t1 et2 d2);;;Matchprop Content of Text
(setq
	et1 (car (entsel "\nSelect Source text:"))
	t1 (assoc 1 (entget et1))
)
(redraw et1 3)
(while (setq et2 (car (entsel "\nSelect Destination text or <Exit>:")))
	(setq
		d2 (entget et2)
		d2 (subst t1 (assoc 1 d2) d2)
	)
	(entmod d2)
)
(command "regen")
(princ)
)

bạn bổ sung thêm chọn nhiều phần tử thay đổi cùng lúc luôn đi, hiện giờ chỉ pick từng text 1 thôi...

[colombus 3]

ĐÚNG THẾ... CLICK TỪNG TEXT THÌ  ĐẾN BAO GIỜ MỚI XONG.

VÀI TRĂM CÁI TEXT NHƯ THẾ THÌ PHẢI DÙNG CÁCH KHÁC THÔI