text trong cad

[sydaica 0]

chào các bạn , mình có 1 vấn đề mong sự giúp đỡ của các bạn

minh tạo một bảng 2 cột và 20 dòng, sau đó mình điền text vào từng ô trong bảng

bây giờ mình muốn xóa dữ liệu text trong bảng mà không làm mất bảng đó ,nếu xóa từng dòng text một thì

thật lâu ,không biết có cách nào xóa nhanh hơn không ? mong sự giúp đỡ của các bạn !

[phamngoctukts 714]

chào các bạn , mình có 1 vấn đề mong sự giúp đỡ của các bạn

minh tạo một bảng 2 cột và 20 dòng, sau đó mình điền text vào từng ô trong bảng

bây giờ mình muốn xóa dữ liệu text trong bảng mà không làm mất bảng đó ,nếu xóa từng dòng text một thì

thật lâu ,không biết có cách nào xóa nhanh hơn không ? mong sự giúp đỡ của các bạn !

Bạn gõ dòng lênh này vào (command "erase" (ssget '((0 . "TEXT"))) "") rồi chọn text cần xóa.

[maihanh191 16]

chào các bạn , mình có 1 vấn đề mong sự giúp đỡ của các bạn

minh tạo một bảng 2 cột và 20 dòng, sau đó mình điền text vào từng ô trong bảng

bây giờ mình muốn xóa dữ liệu text trong bảng mà không làm mất bảng đó ,nếu xóa từng dòng text một thì

thật lâu ,không biết có cách nào xóa nhanh hơn không ? mong sự giúp đỡ của các bạn !

filter chọn text rồi xóa bạn.

[sydaica 0]

các bạn có thể nói rõ hơn cho mình một chút dc không?

mình tthử cả hai cách nhưng đều không thấy hiệu quả

[ketxu 2.984]

Chắc ý bạn đang nói bạn tạo bảng bằng table và rồi muốn xóa hết dữ liệu text bên trong, chỉ để lại khung bảng ???

[sydaica 0]

đúng vậy, mong các cao thủ chỉ giúp

[phamngoctukts 714]

đúng vậy, mong các cao thủ chỉ giúp

Bạn có thể dùng đoạn lisp sau

(defun c:xoa()
 (setq tblobj (vlax-ename->vla-object (car(entsel "\n Chon bang de xoa text :"))))
(setq row (vla-get-rows Tblobj))
 (setq i 0)
(while (< i row)
(vla-setText TblObj i 0 "")
(vla-setText TblObj i 1 "")
(setq i (1+ i))
 )
)

[ketxu 2.984]

Thuần lisp thì có thể dùng :

(defun c:xoa(/ ent)
(foreach x (setq ent (entget (car(entsel "\n Chon bang de xoa du lieu :"))))
(if (or (= (car x) 1) (= (car x) 302))
	(entmod (setq ent(subst (cons (car x) "") x ent)))
)))

P/S bác Tú : e test code của bác thấy k xóa hết được, nên viết lại đoạn này ^^

[toanthanhphatq6 0]

dễ lắm nếu bạn kéo chuột từ phải qua và bấm delete thì nó sẽ xóa luôn cái cột ,nếu bạn kéo chuột từ trái qua và bấm delete thì nó chỉ xóa chữ thôi . hy vọng mình trả lời đúng ý của bạn 

[htmt234 10]

P/S bác Tú : e test code của bác thấy k xóa hết được, nên viết lại đoạn này ^^

 

Sao lisp không kéo được vùng của bảng vậy bác, kick chuột cái là báo lỗi  như này

(Chon bang de xoa text :; error: no function definition: VLAX-ENAME->VLA-OBJECT)