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

Nộ Thiên

Thành viên
  • Số lượng nội dung

    290
  • Đã tham gia

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

  • Ngày trúng

    2

Bài đăng được đăng bởi Nộ Thiên


  1. Mặc dù câu hỏi của mình không liên quan đến Autocad nhưng trong bản vẽ cống tròn mình bóc khối lượng của thép cốt đai xoắn nhưng không tính được.

    Mình nhớ có công thức tính chiều dài đường xoắn đối với hình trụ như sau:

    L=(pi()*sqrt(D^2+a^2))/4*(H/a) trong đó:

    - L: chiều dài đường xoắn;

    - D: Đường kính vòng xoắn theo phương vuông góc với trục tâm;

    - a: Bước vòng xoắn (khoảng cách giữa hai vòng liền kề theo phương song song với trục tâm);

    - H: Chiều dài bố trí vòng xoắn.

    Nhưng sao mình thử trên mô hình thì công thức này không đúng. Ngoài ra mình đang cần tìm công thức tính chiều dài đường xoắn của hình chóp và hình nón. Rất mong mọi người trong diễn dàn giúp đỡ. Thanks alot !!!!

    Dựa vào công thức sau: Lxien = Lmb/cos(anpha)

    Trong đó :

    - Lxien : chiều dài đoạn xiên

    - Lmb : là chiều dài hình chiếu của Lxien

    - anpha : góc hợp bởi Lxien và Lmb

     

    Như vậy chiều dài cốt đai xoắn được tính như sau:

    -Lđxoắn = số vòng*chuvi 1vòng (ở mặt cắt)/cos(anpha)

    -anpha đc tính như sau: tg(anpha)=khoảng cách giữa 2đai/chuvi 1vòng ở trên

     

    Để hình dung rõ hơn về góc anpha bạn có thể tưởng tượng như sau:

    -cắt 1 tờ giấy hình chữ nhật có: cạnh ngắn = khoảng cách gữa 2 đai, cạnh dài = chu vi của 1vòng (ở mặt cắt)

    -Dùng viết vẽ lên tờ giấy đường chéo của hình chữ nhật

    -Bây giờ cuộn tờ giấy lại theo cạnh ngắn, nó tạo thành 1 mặt trụ.

    Thì :

    - Đường chéo bạn vừa vẽ là ch.dài thép đai

    - Góc anpha chính là góc giữa đường chéo và cạnh dài của hình chữ nhật.

     

    ***Công thức trên có thể mở rộng ra để tính cho Diện tích mặt xiên

    Smxiên= Sh.chiếu/cos(anpha)

    • Vote tăng 2

  2. Tôi chưa rõ sử dụng Block thuộc tính có lợi hơn so với Block thường như thế nào? Nhờ mọi người chỉ giúp, xin cám ơn

    Còn tôi thì xem Block thuộc tính như là 1 đối tượng duy nhất trong CAD có khả năng chứa data.

    Mỗi Block thuộc tính là mỗi Row (data).

    Mỗi giá trị của Text thuộc tính là mỗi giá trị ứng với field cụ thể.

    Như vậy Data nằm ngay trong bản vẽ có thể truy xuất bất cứ khi nào muốn, có thể edit, copy, del...

    • Vote tăng 1

  3. Hoàn toàn đồng ý với bạn, các vấn đề tương tự như trên dùng entmake là hợp lý nhất. Tuy nhiên, không cần phải "dựa hơi" style có sẵn, có vẻ không "chính quy" lắm. Mình ví dụ, nếu ai đó đổi tên Standard thành MyStandard chẳng hạn thì hàm chStyle của bạn không tạo được style?

    Bạn tham khảo đoạn sau:

    ;;;--------------------------------------------------------------------------
    (defun emk_style (MyStyle MyFont MyFlag)
    (entmake (list
       (cons 0 "STYLE")
       (cons 100 "AcDbSymbolTableRecord")
       (cons 100 "AcDbTextStyleTableRecord")
       (cons 2 MyStyle)
       (cons 3  MyFont)
       (cons 70 MyFlag)
    ))
    )
    ;;;--------------------------------------------------------------------------
    (defun C:VD()
    (emk_style "MyStyle1" "txt" 0)
    (emk_style "MyStyle2" "txt" 4)
    )
    ;;;--------------------------------------------------------------------------
    

    Chạy VD sẽ tạo 2 style: MyStyle1 bỉnh thường và MyStyle2 có hiệu ứng Vertical như ý bạn Nộ Thiên.

    Mình đã thử emk_style với nhiều tổ hợp mã DXF khác nhau. Các mã 0, 100, 100, 2, 3, 70 như trên là bắt buộc, nghĩa là tối thiểu cần phải có để tạo thành style. Bạn lưu ý: các code 100 là bắt buộc trong đa số trường hợp để tạo các đối tượng Symbol Table bằng entmake.

    Ngoài các code tối thiểu trên, có thể bổ sung các code khác theo ý đồ và nhu cầu sử dụng. Bạn có thể tham khảo DXF Reference trong Help để biết cụ thể hơn.

    Ngoài ra, theo mình, không nên đưa các biểu thức điều kiện như (if (null (setq item (tblsearch "style" tenstyle)))... vào các function mang tính public như cái chúng ta đang xây dựng. Các điều kiện như vậy nên đặt trong chương trình chính khi áp dụng, dễ xử lý tình huống một cách triệt để hơn.

    Đúng là mình bị "ì" rồi. Quên mất là còn khả năng tạo textstyle bằng entmake. Thank so much.

     

    không nên đưa các biểu thức điều kiện như (if (null (setq item (tblsearch "style" tenstyle)))...

    Còn cái này cũng do "ì" mà ra bởi vì nguồn gốc của nó do hàm public (chlayer) mà ra. Chứ nếu viết nó độc lập thì mình đã đặt tên hàm là (creatstyle) rồi chứ kg phải (chstyle).

     

    (emk_style "MyStyle1" "VNI-Helve-Condense" 0)

    Cái dòng code trên có gì đó kg ổn, kg biết SSG có nhận thấy kg vì:

    Nếu tetstyle bằng lệnh của CAD thì kg bao giờ có thể tick vào "Vertical" đc.

    Nhưng với dòng code trên thì có thể. Kg biết có rắc rối chi về sau kg. Cái này để test sau vậy.

    Một lần nữa gửi lời cảm ơn đến 2 bạn: Crazylisp và Ssg


  4. Mình muốn hiển thị cả ngày giờ.và tự cập nhật giờ sau mỗi lần Re.Mình vừa kiếm được một đoạn cột $(getvar,dwgname): $(edtime,$(getvar,date),YYYY-MO-DD - HH:MM:SS am/pm) dùng cũng hay hay,mọi người thử xem.

    Chép đoạn côt này vào Rtext/Diesel

    Thực ra cái này cũng làm đc từ field mà: kg up đc hình đành phải viết như vậy nè

    trong field-dialog chọn System Variable\Date


  5. Trước đây mình có một lần tham gia bóc lại dự toán của một nhà (mình làm giám sát). Mình thấy khi thống kê thép thì bên thiết kế dùng bảng thống kê thép như những lisp TKT mà mình hay dùng, nhưng có một điều khác là ở bảng tổng hợp khối lượng thép là họ chia làm 3 cột. ví dụ như là thép có đường kính fi6 sẽ ở vào cột "<fi10", thép fi12 ở vào cột " <=fi18", thép fi22 ở vào cột ">fi18". Mình thấy làm như vậy rất hay, vì nếu bạn nào đã từng vừa làm thiết kế lại vừa phải làm dự toán sẽ thấy được chia fi thép làm 3 khoảng như vậy rất tiện cho tính dự toán. Bạn nào có lisp như vậy thì có thể chia sẻ cho mọi người dùng ké không. Hoặc anh em nào có thể viết lisp như vậy thì giúp với. Mình nghĩ bảng thống kê thép đó họ dùng phần mềm thì phải, vì là khi thống kê thép sàn lại không ra được số thép thuộc số tự nhiên : vì mình thấy ở bảng thống kê ở phần số thanh thỉnh thoảng lại nhảy ra số: 11,4 hay 14,5.

    Nếu là họ dùng phần mềm thì anh em có ai biết đó là phần mềm gì không; Đó không phải là phần mềm CICTKT.

    Thiết nghĩ phân lọai thép như vậy cũng kg hay, tốt nhất là nên phân lọai theo từng lọai fi ứng với kh.lượng là bao nhiêu luôn thì tiện hơn:

    - Thứ nhất bên thi công có thể nắm đc khluợng từng lọai fi để dễ dàng mua vật tư.

    - Thứ hai thực tế đơn giá của từng lọai fi lại khác nhau.

    - Thứ ba: cái kiểu chia ra fi<=10, hoặc fi<=18 và fi>18 là kiểu của "nhà nước" cũng có thể tính đc bằng cách chỉ cộng lại vài con số từ cách phân loại từng fi trên. Với việc lập dự toán thì với chừng ấy con số đâu có nghĩa lý chi. (Đây chỉ là kiểu của nhà nước chứ thực tế ngta bán đâu có phân biệt theo kiểu 12, 18 đâu)

     

    Thực tế với các chương trình lisp thống kê thép thì mục tổng hợp cốt thép lại phụ thuộc rất nhiều vào chủ quan ngviết (công việc thực tế của ngviết đang làm theo kiểu gì thì viết theo kiểu ấy) cho nên có người thì viết kiểu này có người thì viết kiểu kia là không có gì lạ.


  6. Em muốn Trim nhiều đối tượng mà dùng một dao cắt- Giống như là khi có một loạt đường thẳng-nó hơi dài nên em phải vẽ một đường thẳng để Trim nó ấy- em phải lựa chọn từng cái một.

    Có ai có thể giúp em chút- có thể dùng lệnh hoặc lisp

    Em xin cảm ơn nhiều!

    (Em ko thấy chỗ up ảnh nên ko up được- Các bác thông cảm chút nghe!)

    @Em có tham khảo một số bài viết trên 4room rồi but mà ko rõ lắm- với lại cũng là phải chọn từng điểm căt một- Các bác chỉ cụ thể cho em cái nha!

    Chúc mọi người tuần mới vui vẻ!

    Gõ "trim" enter

    select đối tượng để chọn dao cắt xong

    gõ "f", rồi pick 2 điểm để cắt hàng loạt

    Xong.

    • Vote tăng 1

  7. Thế làm sao mà chuyển đc từ lsp sang PROTECTED LISP vậy bác. Trước tôi có chơi với dân cầu đường thấy fần mềm Nova có những file bị mã hoá y như vậy mặc dù biết có nhiều bổ ích nhưng ko làm thế nào dc. Thanks again...

    Là dùng cái này.

    <a href="http://www.cadviet.com/upfiles/PROTECT.exe" target="_blank">http://www.cadviet.com/upfiles/PROTECT.exe</a>

     

    --------------------------------------------------------------

    Nói chung tình hình hiện nay là kg có cách nào mã hóa lsp file 1 cách đảm bảo cả!

    • Vote tăng 2

  8. ;==Ham lay gia tri chuoi co ten Tag trong Block==
    (DEFUN GetTag (objblock tag / temp1 att_list old)
     (setq temp1	objblock)
     (setq att_list (ENTGET temp1))
     (WHILE (NOT (= (CDR (ASSOC 2 att_list))tag))
    (setq temp1	(ENTNEXT temp1))
    (setq att_list (ENTGET temp1))
    )
     (setq old (CDR (ASSOC 1 att_list)))
    );End Defun GetTag
    ;========Lay chuoi co ten tag tong Block=========
    (DEFUN GetStringTag (objblock tag / thtin)
     (setq thtin (GetTag objblock tag))
     thtin
    );End defun GetStringTag

     

    Bác Hoanh ngcứu làm sao mà kg cần dùng đến 2cách sau:

    - Dùng "attext" xuất các dữ liệu của tất cả block "TagGoiTT" ra 1 file txt, rồi lọc dữ liệu từ file txt này để cho ra thuộc tính TENDAM = "DS2"

    - Dùng hàm entget đối tượng chính, rồi sau đó (entget (entnext DTChinh)) để lấy dữ liệu đối tượng con, rồi mới kiểm tra đkiện

     

    Vấn đề này mình đã giải quyết xong lâu rồi.

    Thanks for answer!


  9. Mình có 1 đọan lisp tạo textstyle như sau:

     

    ;;;\\\\\\\\\-----Kiem tra TextStyle, neu chua co thi tao moi -----\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

    (defun chStyle (Tenstyle tenfont)

    (if (null (setq item (tblsearch "style" tenstyle)))

    (command "-style" tenstyle tenfont "0" "1" "0" "n" "n")

    )

    )

     

    Đọan code trên nó chạy đúng với đa số các lọai front. Nhưng với 1 số font thì bị lỗi.

    Sau khi tìm hiểu thì phát hiện ra nguyênnhân như sau.

     

    Có hiệu ứng vertical

    textstyle1.jpg

     

    Kg có hiệu ứng Vertical (đọan code trên chỉ đúng với lọai này)

    textstyle2.jpg

     

    Như vậy vấn đề đặt ra là làm thế nào để đọan code trên mang tính tổng quát (đúng với mọi font)???


  10. Mouse Emulator 2.5 - Giải pháp thay thế khi chuột hư

    Phím tắt:

    "QWER" - "ADDF" - "ZXCV" :Di chuyển chuột đến vùng lớn

    "UIO" - "JKL" - "M,." : di chuột từng đọan nhỏ để đến các vị trí chính xác hơn

    G,B (click chuột trái)

    H,N (click chuột phải)

    Caps Lock: Thay đổi tốc độ di chuyển chuột.

    download tại: www.readmesoft.com

     

    Ngòai ra còn có:

    ADVANCED KEY AND MOUSE RECORDER 2.8 - Ghi lại họat động của bàn phím và chuột

    http://tinyurl.com/2nnm43

     

    -trích từ "PC Tips"

     

    Chỉ nghe quảng cáo vậy thôi, chưa xài nên chưa biết ra sao. Ai quan tâm thì load về xài thử.


  11. KHÔNG PHẢI HƠI ĐÂU MÀ ĐIÊN HẲN ĐẤY, CÀNG NGHĨ CÀNG ĐIêN!

    1--TẠO SLD QUÁ DỄ, AI CŨNG CÓ THỂ VIẾT 1 LISP BẬT FILE CAD LÊNH LÀ OK

    2--TẠO SLB CŨNG KHONG CÓ VẤN ĐỀ GÌ

    3--VẤN ĐỀ LÀ THỐNG KÊ NÓ LẠI, BẰNG 1 MENU (TẠO ĐUÔI MNU) VÀ CÁCH CỦA TÔI LÀ:

    DÙNG PHẦM MÊN NGHE NHẠC WINAP 5.0, BẬT TẤT CẢ CÁC FILE CAD LÊN, đương nhiên là không đọc đợc, nhưng mà nó sẽ in ra đựoc 1 cái list tên file(dùng chức năng lọc của word lọc ra tên cần thiết.

    4--dùng excel kéo 1 phát là xong

    http://www.cadviet.com/upfiles/Book1.xls

    Nếu cần thiết hãy viết 1 lisp để tạo cái đoạn text nhàm chán trên trong file *.mnu


  12. Bác nôthiên tạo thư viện kiểu này rất hay đấy, nhưng mà em có rất nhiều file thư ivện (10000file) bác có cách nào mà làm thư viện kiểu này không.em thấy cácnh này nhanh!

    Em có 1 cách nhưng mà nó hơi "điên" 1 chút, nếu bác có cách nào hay thì em sẽ bỏ cách của em. Chứ tạo 1 .MNU cho các file thư viện vậy thì "chết đấy"

    (cách của em em nói sau)

    Cái hình trên đó kg phải dùng như một thư viện đâu. Tất nhiên đối với thư viện dwg thì kg thể làm theo kiểu này đc. (từng file SLD)


  13. 3) Như bạn duy782006 nói, nếu thấy "khó chơi" quá thì thôi, chấp nhận dùng *.sld. Tuy nhiên, không xét đến chuyện pro hay amateur, nếu chỉ tạo Image hay Image_Button cho dialog thì cái nào cũng đuợc. Nhưng để làm được Image_Tile_Menu thì chỉ có một cách duy nhất là dùng *.slb.

    Kỳ thật, mình vẫn tạo image-Tile-menu bằng *.SLD:

     

    Đây là menu

    p1.jpg

     

    Đây các file *.SLD

    p2.jpg

     

    Đây nội dung file *.MNU

    p3.jpg

     

    Bác SSG nhầm lẫn gì đây chăng? hay là đây kg phải là image-tile-menu?

    • Vote tăng 2

  14. Hãy thử kiểm tra xem chỉ số thông minh của bạn là bao nhiêu :)

    http://vatlysupham.com/dovui/quiz.php?quiz=18

    http://elearning.ioit-hcm.ac.vn/mod/resour...true&id=567

    Mới vô trang nhất vatlysupham... gì đó đã thấy có vấn đề rồi nên kg thèm chơi tiếp:

    IQ = sốcâuđúng*2 + 46

    số câu đúng max =60 => IQmax= 60*2+46=166

    Vậy mà nó nói nếu IQ = 200 thì tương đương Lê-nát-đô-đờ-vin-xi.!?

    Nó sai thì Test ai đc.

×