Ai giúp tôi về precision với

[kimvantoan 0]

Tôi có đoạn mã lệnh đơn giản sau:

 

Public Sub VD()

Dim a As String

Dim point As Variant

point = ThisDrawing.Utility.GetPoint(, "pick diem")

a = ThisDrawing.Utility.RealToString(point(0), acDecimal, 3)

End Sub

 

Tôi lấy sau dấu phảy 3 chữ số bằng cách chọn precision của "Realtostring" là "3".

Nhưng, làm như vậy thì khi mình muốn thay đổi precision là một số khác thì phải can thiệp trực tiếp vào mã lệnh( chỉnh precision của "Realtostring" thành số khác, ví dụ như "2" chẳng hạn). Như vậy rất bất tiện!

Tôi muốn làm sao cho precision của "Realtostring" sẽ như precision trong lệnh "Units" của autocad.

Các bạn giúp tôi với! Cám ơn!

[Detailing 281]

Tôi có đoạn mã lệnh đơn giản sau:

 

Public Sub VD()

Dim a As String

Dim point As Variant

point = ThisDrawing.Utility.GetPoint(, "pick diem")

a = ThisDrawing.Utility.RealToString(point(0), acDecimal, 3)

End Sub

 

Tôi lấy sau dấu phảy 3 chữ số bằng cách chọn precision của "Realtostring" là "3".

Nhưng, làm như vậy thì khi mình muốn thay đổi precision là một số khác thì phải can thiệp trực tiếp vào mã lệnh( chỉnh precision của "Realtostring" thành số khác, ví dụ như "2" chẳng hạn). Như vậy rất bất tiện!

Tôi muốn làm sao cho precision của "Realtostring" sẽ như precision trong lệnh "Units" của autocad.

Các bạn giúp tôi với! Cám ơn!

 

Public Sub VD()

Dim a As String

Dim point As Variant

Dim pre As Integer

 

pre = ThisDrawing.GetVariable("LUPREC")

point = ThisDrawing.Utility.GetPoint(, "pick diem")

a = ThisDrawing.Utility.RealToString(point(0), acDecimal, pre)

End Sub

[kimvantoan 0]

Public Sub VD()

Dim a As String

Dim point As Variant

Dim pre As Integer

 

pre = ThisDrawing.GetVariable("LUPREC")

point = ThisDrawing.Utility.GetPoint(, "pick diem")

a = ThisDrawing.Utility.RealToString(point(0), acDecimal, pre)

End Sub

 

Cám ơn bạn rất nhiều!