insertionPoint = Thisdrawing.Utility.GetPoint(, "Lua chon vi tri de mat cat:")
Edit có nghĩa là sửa chữa.Nếu co bị trục trặc gì nói mình edit cho nhé các bạn
Gởi các bạn file Vẽ mặt cắt dầm từ excel, cho bạn nào cần
Các bạn copy file có tên "cadClick" bỏ vào ổ C
Rồi mở file excel, enable macro là sử dụng.
Nếu co bị trục trặc gì nói mình edit cho nhé các bạn
View attachment 301765
Cảm ơn bạn để mình thêm mấy các thông số kia.Cảm ơn chia sẻ của bạn.
Bạn xem bổ sung thêm:
Cho phép người dùng nhập vị trí mặt cắt.
Bổ sung tên của dầm, chiều dài dầm, vẽ lúc nào cũng phải đi kèm tiêu đề;Mã:insertionPoint = Thisdrawing.Utility.GetPoint(, "Lua chon vi tri de mat cat:")
Mình thử sửa số lượng thép thì code vẽ chưa chính xác ?
*** Nên vẽ một lúc cả mặt cắt gối, nhịp. Thống kê lượng cốt thép, bê tông, ván khuôn ...
Em mở file excel xong bấm ALT F11, rồi làm như 2 hình sau xem sao. Ví dụ em xài Cad 2018 đến 2022 thì tick vào .......2021....em nhéSao em chạy file thì báo lỗi như nà nhỉ?
View attachment 301769
Nếu edit code trong khả năng mình thì mình edit, còn ko có các bạn trên diễn đàn nữa mà^^Edit có nghĩa là sửa chữa.
Bạn hứa sửa chữa bài của người ta hay sửa chữa code?
...
Nếu edit code trong khả năng mình thì mình edit, còn ko có các bạn trên diễn đàn nữa mà^^
Vậy bạn cần edit trên code hay trên file?Vẫn không giải thích: ê đít trên code hay trên file?
1. Code sai mà chỉnh sửa thì là "correct"
2. Code chưa đúng chỗ thì là "readjust the interface"
3. Code không cần "correct", hay "readjust" mà chỉ cần sửa cho người nào đó chạy đúng trường hợp đặc thù của họ thì là "customize"
Tức là bạn hứa làm cả hai?Vậy bạn cần edit trên code hay trên file?
Cái này mà nét thép dày = phi luôn thì đẹp hơn, và ký hiệu thanh là block xếp thẳng hàng thì đẹp, và thép màu layer riêng, ký hiệu layer riêng. Và sẽ còn rất nhiều thứ...Gởi các bạn file Vẽ mặt cắt dầm từ excel, cho bạn nào cần
Các bạn copy file có tên "cadClick" bỏ vào ổ C
Rồi mở file excel, enable macro là sử dụng.
Nếu co bị trục trặc gì nói mình edit cho nhé các bạn
View attachment 301765
Tò mò Tôi thử có lẻ thiếu thư viện CreateObject("AutoCAD.Application")Sao em chạy file thì báo lỗi như nà nhỉ?
View attachment 301769
Bạn dùng ObjectDBX để có thể tác động vào file đang đóng >> Bạn có thể dồn toàn bộ block vào trong 1 bản vẽ, sau đó dùng ObjectDBX để có thể add một block bất kỳ trong bản vẽ đó, thay vì bạn đang để riêng lẻ từng file.Tiếp tục tới đoạn này : Vẽ Autocad dầm bê tông cốt thép từ Excel, Các bạn tải lại file và làm theo thứ tự sau:
1) Chép file CadClick bỏ vào ổ C
2) Mở file autocad lên, nếu ko chương trình sẽ tự mở
3) Mở file excel lên, edit các thông số và nhấn nút 2CAD
4) Khi vẽ xong chương trình sẽ báo OK (thời gian là 2 phút tùy máy tính các bạn nha)
Cảm ơn bạn, mình sẽ cập nhập 2 vấn đề bạn nói, và học hỏi thêm từ diễn đàn bạn chia sẻ. Xin cảm ơnBạn dùng ObjectDBX để có thể tác động vào file đang đóng >> Bạn có thể dồn toàn bộ block vào trong 1 bản vẽ, sau đó dùng ObjectDBX để có thể add một block bất kỳ trong bản vẽ đó, thay vì bạn đang để riêng lẻ từng file.
Cải tiến lên là sẵn các dạng thép hoặc block att.
Tham khảo từ link bài viết: https://www.cadtutor.net/forum/topic/2139-inserting-block-using-vba/?do=findComment&comment=18870
Thấy bạn đầu tư để xây dựng quá, chúc bạn luôn vui khỏe giữ vững tinh thần đóng góp.
Rất mong được thấy các version update thêm từ bạn.