Chuyển đến nội dung
Diễn đàn CADViet

phuong44e1

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    60

  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi phuong44e1

  2. Đã đăng · Trả lời báo cáo

    Nhờ các bác chỉ giúp e với ạ,

    E bị mắc cái hàm cộng tổng, công thức nó vẫn cộng nhưng không phân biết được âm hay dương, dấu thập phân mà cứ cộng các số vào với nhau nên sai số nhiều quá

    Cụ thể: e đăt công thức tính thể tích: V = Cdai*Crong*Ccao*Hso

    Khi đó chi tiết các đồi tượng cần tính V nó vẫn đúng, cho ra giá trị có cả thập phân hay số âm khi hệ số là âm

    Nhưng khi e làm phép cộng tổng thể tích 10 đối tượng lại với nhau thì kết quả nó lại sai ( Cứ cộng các con số, ko phân biết thập phân, số âm)

    Chẳng hạn như : 0.38 nó thay bằng 38

                                  11.26 nó thay bằng 1126

                                  -35.12 nó thay bằng 3522 để thực hiện phép cộng dồn.

    Ở trên e khai báo thế này:

     

     .List(.ListCount - 1, 2) = Round(Cdai*Crong*Ccao*Hso, 2)

    Và hàm cộng tổng e làm như sau: 

     

     TotalVolume = 0

     For j = 1 To .ListCount
                TotalVolume = Round(TotalVolume+ .List(j - 1, 2), 2)

     

    Nó vẫn thực hiện phép cộng cho tâtcs cả các kết quả chi tiết trong cột nhưng lại chỉ nhận là số dương và không phân biệt thập phân.

    Bác nào chỉ giúp e dùng hàm nào hay khai báo lại thế nào để phép cộng tổng nó nhận được đúng giá trị với ạ.

     

    E cảm ơn nhiều.

  10. Đã đăng · Trả lời báo cáo

    Hi bác!

    lâu quá lại mơi lên lai diễn đàn có việc nhờ bác xíu

    Cái vụ  load cái menu trên cad 2020 lúc trc bác làm hộ e  mà e quên mất không ghi lại.

    Nay nó lại bi ko load được, bác chỉ lại giúp e với dc ko bác

    E nhớ là bác vào cad chỉ cái gì cho nó show lên là được mà e tìm mãi không ra

    Thank bác nhiều!

     

  13. Đã đăng · Trả lời báo cáo

    e chào bác gia_bach,

    lâu rồi lại mới có việc nhờ các bác hỗ trợ, chả là mấy cái tool vba lúc trước viết thì e tạo 1 cái pull_down menu để nó chạy macro.

    Mấy cái tạo menu và tool vba đó vẫn chạy trên autocad 2010- 64 bit và cad 2015- 64 bit. Giờ e đổi sang dùng win10 nên cài sang cad 2020 thì load cái menu nó không được nữa bác ah.

    Vào load macro trực tiếp từ Run VBA macro thì nó báo lỗi, e cũng chẳng biết sao.

    Nhờ các bác xem hộ e cái phần load menu giúp e với ạ

    E cảm ơn nhiều.

     

     

    tienich.rar

  18. Đã đăng · Trả lời báo cáo

    Bạn xem giúp mình được không?

    khi chạy lần 1 nó vẫn báo lỗi ở dòng  SS.SelectOnScreen FT, FD

    Sau đó cho chạy tiếp thì nó mới chạy được

    Private Sub CommandButton1_Click()

    Dim SS As AcadSelectionSet

    If ThisDrawing.SelectionSets.Count > 0 Then

    For Each SS In ThisDrawing.SelectionSets

    If SS.Name = "Kira" Then

    SS.Delete

    Exit For

    End If

    Next

    End If

    Set SS = ThisDrawing.SelectionSets.Add("Kira")

    Dim FT(0) As Integer

    Dim FD(0) As Variant

    FT(0) = 0: FD(0) = "LWPolyline"

     

    SS.SelectOnScreen FT, FD

    Dim LWPolylineObj As AcadLWPolyline

    Dim TextPnt(2) As Double

    Dim TextObj As AcadText

    Dim i As Integer

    For Each LWPolylineObj In SS

    For i = 0 To UBound(LWPolylineObj.Coordinates) Step 2

    'Toa do X

    TextPnt(0) = 0.5 * (LWPolylineObj.Coordinates(i) + LWPolylineObj.Coordinates(i + 2))

    'Toa do Y

    TextPnt(1) = 0.5 * (LWPolylineObj.Coordinates(i + 1) + LWPolylineObj.Coordinates(i + 3))

     

    Set TextObj = ThisDrawing.ModelSpace.AddText("Kira", TextPnt, LWPolylineObj.Length / 20)

     

    If i + 3 = UBound(LWPolylineObj.Coordinates) Then

    Exit For

    End If

    Next

    Next

     

    End Sub

  20. Đã đăng · Trả lời báo cáo

    Mình cũng chỉ là đang học thôi, đây là những bài mình đang tập làm nên cũng chưa biết debug

    Đang cố gắng học từ các bài thực hành. Cũng cố gắng suy luận mà ko ra vì cũng chưa biết nhiều

    Nếu như bạn hướng dẫn lỗi ở 2 chỗ này thì đúng là cái mình ko biết rồi. vì như mình nghĩ đối với lineobject nó dùng vậy thì pl nó cũng tương tự. Khong biết cú pháp có gì khác không?

    Theo mình nghĩ chỗ Stapt ở dưới nó là tham chiếu điểm chèn đã được dịnh nghĩa ở trên

    Còn chỗ Stapt trên thì mình thấy nó cũng chỉ là 1 ký hiệu thôi, nó tương tự phép gán pt1=ThisDrawing.Ultility.Getpoint...

    Nhờ bạn chỉ rõ hơn hoặc sửa giúp mình, mình sẽ học được từ bài của bạn.

    Cảm ơn bạn 

    Chắc bạn gia_bach bận bịu quá. bạn Ketxu chỉ giúp mình được không?

    không có ai giúp dc mình sao? là các bạn ko có hứng giúp hay ko giúp dc vậy.

    Vậy trên diễn đàn có bác nào dạy được BVA không mình đăng ký học.

  21. Đã đăng · Trả lời báo cáo

    Cái thú của lập trình là tự mình tìm ra được lỗi của chương trình.

    Bạn thử Debug chưa ?

    Gợi ý

    : 15454_addtext_error.png

    Mình cũng chỉ là đang học thôi, đây là những bài mình đang tập làm nên cũng chưa biết debug

    Đang cố gắng học từ các bài thực hành. Cũng cố gắng suy luận mà ko ra vì cũng chưa biết nhiều

    Nếu như bạn hướng dẫn lỗi ở 2 chỗ này thì đúng là cái mình ko biết rồi. vì như mình nghĩ đối với lineobject nó dùng vậy thì pl nó cũng tương tự. Khong biết cú pháp có gì khác không?

    Theo mình nghĩ chỗ Stapt ở dưới nó là tham chiếu điểm chèn đã được dịnh nghĩa ở trên

    Còn chỗ Stapt trên thì mình thấy nó cũng chỉ là 1 ký hiệu thôi, nó tương tự phép gán pt1=ThisDrawing.Ultility.Getpoint...

    Nhờ bạn chỉ rõ hơn hoặc sửa giúp mình, mình sẽ học được từ bài của bạn.

    Cảm ơn bạn 

    Chắc bạn gia_bach bận bịu quá. bạn Ketxu chỉ giúp mình được không?

  23. Đã đăng · Trả lời báo cáo

    Cái thú của lập trình là tự mình tìm ra được lỗi của chương trình.

    Bạn thử Debug chưa ?

    Gợi ý

    : 15454_addtext_error.png

    Mình cũng chỉ là đang học thôi, đây là những bài mình đang tập làm nên cũng chưa biết debug

    Đang cố gắng học từ các bài thực hành. Cũng cố gắng suy luận mà ko ra vì cũng chưa biết nhiều

    Nếu như bạn hướng dẫn lỗi ở 2 chỗ này thì đúng là cái mình ko biết rồi. vì như mình nghĩ đối với lineobject nó dùng vậy thì pl nó cũng tương tự. Khong biết cú pháp có gì khác không?

    Theo mình nghĩ chỗ Stapt ở dưới nó là tham chiếu điểm chèn đã được dịnh nghĩa ở trên

    Còn chỗ Stapt trên thì mình thấy nó cũng chỉ là 1 ký hiệu thôi, nó tương tự phép gán pt1=ThisDrawing.Ultility.Getpoint...

    Nhờ bạn chỉ rõ hơn hoặc sửa giúp mình, mình sẽ học được từ bài của bạn.

    Cảm ơn bạn 

×