Tìm kiếm và thay thế chữ theo định dạng trong Cad! (1 người xem)

[aduc]

Mình muốn thay thế chữ số trong cad theo định dạng.
Ví dụ thay thế 123.4567 thành 123.456. Tức là xóa bớt chữ số thập phân.
Xin mọi người giúp đỡ.

 

[hoa35ktxd]

Cái này bạn dùng hàm Round hoặc Format là được mà.

 

[aduc]

Ý mình là trong CAD cơ!

 

[hoa35ktxd]

Thì đúng thế, trong cad cũng dùng được VBA mà.
Hay ý bạn là dùng trực tiếp lệnh Find của CAD á? Nếu thế thì không được rồi.
Còn nếu dùng VBA thì điều quan trọng là đối tượng của bạn thuộc loại gì, nếu là text hoặc attribuste thì bạn cần phải lọc ra đoạn text cần định dạng lại rồi dùng Round hoặc Format để định dạng, còn nếu là dimension thì không cần dùng đến VBA, chỉ việc chỉnh lại dimstyle là xong.

 

[PhanTuHuong]

Cái này chắc phải cần đến VBA hoặc Lisp thôi.

Định dạng hơi lằng nhằng Round trước, Format sau. Số và số giá trị sau dấu thập phân phải bằng nhau (ở ví dụ này là 5). Đoạn code trong VBA đây:

Sub RoundTestNumber()
    Dim NumberT As Object
    On Error Resume Next
    For I = 0 To ThisDrawing.ModelSpace.Count - 1
        Set NumberT = ThisDrawing.ModelSpace.Item(I)
        If NumberT.ObjectName = "AcDbText" Or NumberT.ObjectName = "AcDbMText" Then
            If IsNumeric(NumberT.TextString) Then
                NumberT.TextString = Format(Round(NumberT.TextString, 5), "0.00000")
            End If
        End If
    Next
    Set NumberT = Nothing
End Sub

 

[ndtnv]

Mình muốn thay thế chữ số trong cad theo định dạng.
Ví dụ thay thế 123.4567 thành 123.456. Tức là xóa bớt chữ số thập phân.
Xin mọi người giúp đỡ.

Bạn phải đưa file lên (phải có đủ các trường hợp cần giải quyết) và ghi rõ yêu cầu thì mới giải quyết tốt được. Nếu làm theo cách của bạn PhanTuHuong thì sẽ thay đổi cả những text không mong muốn trong toàn bộ bản vẽ

 

[minhnvm]

Đối tượng text là chữ số như bạn hỏi có thể thuộc đối tượng text hoặc Dim.
Nếu là Text thì có thể sửa bằng cách click 2 lần và edit bằng tay, hoặc dùng chức năng Properties để chọn phần mở rộng là 0.000
Nếu số thuộc Dim thì dùng Dim style để sửa, vào Format->Dim style chọn Unit để chọn số chữ số cần hiện dau dấu phẩy

 

[PhanTuHuong]

Bạn phải đưa file lên (phải có đủ các trường hợp cần giải quyết) và ghi rõ yêu cầu thì mới giải quyết tốt được. Nếu làm theo cách của bạn PhanTuHuong thì sẽ thay đổi cả những text không mong muốn trong toàn bộ bản vẽ

Phải chấp nhận nếu tiêu chí không rõ ràng, code trên thực hiện trên toàn bộ đối tượng là Text, Mtext.