Tìm text trùng giá trị

[mua_buon12 0]

Các bác ơi cho em hỏi làm sao để tìm được các text trùng nhau trên bản vẽ. Em gửi ví dụ lên nhờ mọi người chỉ giúp. Cảm ơn các bác

http://www.cadviet.com/upfiles/2/vidu_1.jpg

[xuantran15 112]

Dùng lệnh find để tìm kiếm các đối tượng text giống nhau.

[svba1608 627]

Các bác ơi cho em hỏi làm sao để tìm được các text trùng nhau trên bản vẽ. Em gửi ví dụ lên nhờ mọi người chỉ giúp. Cảm ơn các bác

http://www.cadviet.com/upfiles/2/vidu_1.jpg

Trong trường hợp này mình nghĩ là cần dùng lệnh fi (filter). Nếu bạn gửi file bản vẽ lên thì chắc dễ chỉ ra hơn. Hình dưới đây mình thử với các text, cả Dtext và Mtext, không cùng layer và không có điểm gì chung ngoài giá trị.

Để lọc các text có giá trị 3.5 bạn cần làm như sau:

+ Gõ fi.

Hiện ra một bảng bạn pick vào "Add select object" sau đó chọn text bất kỳ có giá trị 3.5. Bây giờ trên bảng có rất nhiều thông số:

 

 

Bạn pick vào và xóa hết đi (bằng phím delete), chỉ cần giữ lại 2 thông số là: Object = text và Text value = 3.5.

 

 

Sau đó bạn nhấn vào nút Apply và quét toàn bộ bản vẽ, sau khi Enter, bạn đã chọn được toàn bộ text có giá trị là 3.5 để ... thích làm gì thì làm. :(

[huong259 351]

Bài tham khảo:

http://www.cadviet.com/forum/index.php?showtopic=12723

[mua_buon12 0]

Bài tham khảo:

http://www.cadviet.com/forum/index.php?showtopic=12723

 

Cảm ơn các bác rất nhiều. Nhưng Tôi muốn các bác hướng dẫn viết 1 chương trình VBA tìm được tất cả các text trùng giá trị trên bản vẽ cơ. Thanks

[anhcos 197]

Giả sử selset là tập chọn đối tượng text:

 

 Dim i, j as integer

Sử dụng thuật toán sau:

'mảng này dùng kiểm tra trong trường hợp số text được chọn quá nhiều
dim xemcotrunghaykhong(selset.Count-1) as boolean
for i=0 to selset.Count-1
  xemcotrunghaykhong(i) = false'giả sử nó không trùng
next i

for i=0 to selset.Count-1
if xemcotrunghaykhong(i)=false then
for j=i+1 to selset.Count-1
if trim(selset.Item(i).TextString) = trim(selset.Item(j).TextString) then
xemcotrungkhong(j) = true'ngăn không xử lý nó trong tương lai

'làm cái gì đó ở đây

end if
next j
end if
next i

 

Cái trên chỉ xài cho text có chứa số thôi.

 

Nếu so sánh text thì khác, nhất là so sánh tiếng Việt khác mã lại mệt hơn.

 

Lệnh find không thể tìm thấy chữ "Việt" mã unicode và "Việt" mã VNI trong cùng một lần tìm được.

[toantv821026 0]

CẢM ƠN BẠN NHIỀU NHÉ!