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

emhoccad

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

    28
  • Đã tham gia

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

  • Ngày trúng

    2

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


  1. Nhờ các bác chuyển giúp lisp sau xuất các block từ định dạng dwg sang dxf luôn.

    Lệnh này sẽ xuất các block trong 1 bản vẽ ra từng file riêng tại thư mục DXF với đuôi file là dwg

    Hiện tại mình phải qua 1 khâu trung gian dùng phần mềm khác chuyển sang định dạng dxf sau khi dùng lệnh lisp trên.

     

     

    ExB.lsp

    • Vote giảm 1

  2. Vào lúc 12/4/2022 tại 14:08, Toan_ZwCAD đã nói:

    Ngày càng có nhiều khách hàng tìm kiếm phần mềm CAD thay thế, đặc biệt là khi AutoCAD bắt buộc phải gia hạn hàng năm. Bất kể doanh nghiệp lớn, hay vừa và nhỏ, áp lực mua AutoCAD thực sự đang tăng lên hàng năm!

    Thực sự không phải là một ý tưởng tồi khi xem xét và thử nghiệm phần mềm CAD mới ngay cả khi công ty mình chưa có kế hoạch mua phần mềm mới ngay bây giờ. Mình liên hệ với công ty mình và hy vọng rằng công ty mình sẽ cần nó trong tương lai và có quyền chủ động chọn lựa phần mềm CAD. Một số tính năng ưu việt khi lựa chọn ZWCAD như sau:

     

    1. Bản quyền phần mềm là vĩnh viễn (mua 1 lần dùng mãi mãi), AutoCAD đã chuyển sang thuê bao theo năm.

    2. Hỗ trợ license dạng Network, giúp tối ưu nhu cầu sử dụng trong nhà máy, công ty…

    3. Hỗ trợ Borrow License: cho phép sử dụng ngoài nhà máy một cách linh hoạt.

    4. Tương thích hoàn hảo với định dạng DWG, DXF…

    5. Câu lệnh và giao diện tương đồng với các phần mềm CAD 2D đang sử dụng. Kỹ sư sẽ không mất thời gian làm quen hay học lại.

    . 6Dịch vụ sau bán hàng có sẵn với công ty tại Việt Nam và đội ngũ nhân viên hơn 20 người.

    SemiConducter.png

    Auto & Mold.png

     

    Dùng ZWCad 1 thời gian lỗi tùm lum, xung đột với hệ điều hành Windows. Một trong các lỗi phổ biến là bật mãi ko lên ứng dụng hoặc lên đc 1 lúc thì tự out ra. Hai là lỗi đăng kí phần mềm.

    Mặc dù có support từ bên hãng rất nhiệt tình, nhưng vẫn bị các lỗi trên. Vì nó thuộc về " Core" rồi. Các support cũng ko thể hiều là vì sao.

    Khuyên các thím mấy cái ứng dụng thay thế CAD này chỉ mua để nói có bản quyền thôi, giá rẻ đấy. Nhưng dùng để làm vc 1 cách nghiêm túc, ổn định thì nó ko bao giờ có thể thay dc AutoCad đâu nhé. Mặc dù so với các sản phẩm thay thế Cad khác thì công nhận ZWCad gần như bản sao hoàn chỉnh của AutoCad.

    PS: Nói "Quân ZWSoft" em đừng buồn nhé, mà sự thật nó là như vậy em ạ"


  3. Vào lúc 24/10/2021 tại 20:31, levanhop1 đã nói:

    Các bác cho em hỏi bản vẽ của em như này thì em tính cái chỏm này như thế nào ạ 

    1.png

     

    Đây là chỏm 2:1 có I.D=2000mm,

     

    Vậy để xây dựng vẽ chỏm này như hình dưới:

    image.png.4c08892ac8b3513d620427689dcd4dda.png

     

    Còn chỗ comment kia là : cập nhật chiều dày tấm pad của tai cẩu (thường lấy= chiều dày tôn vỏ bồn).

    hai là không được hàn tai cẩu tại ví trí đường hàn nối giữa chỏm và thân bồn (CS#3), ví dụ sửa lại như sau

     

    image.png.44eec788c192dd389b2642f56dc31103.png

     

     

     


  4. Vào lúc 24/11/2020 tại 09:12, Ted Mosby đã nói:

    Các bro chuyên nghiệp cho hỏi: Các bro vẽ một bản vẽ chuyên ngành hết bao lâu ?

    VD: Dựng mặt đứng, mặt ngang của một ngôi nhà phố, nhà biệt thự. Vẽ kết cấu cho ngôi nhà đó. Các bản vẽ điện , nước, pccc ... cho chung cư.

    Mình vẽ hơi chậm, muốn có một mốc thời gian để luyện. Thank you !

     

    Theo mình, nếu là bro chuyên nghiệp, họ sẽ có các template (mẫu) có sẵn sau đó kết hợp với kinh nghiệm chỉnh sửa của mình, thì sẽ rất nhanh. Nên nếu là người ko chuyên bắt đầu làm từ đầu thì bạn nên tự đặt cho mình 1 mốc thời gian sau đó làm để đúc kết kinh nghiệm. Vì ko ai biết trình độ của bạn đang ở level nào nên khó có thể đưa cho bạn được target và deadline được.


  5. Theo mình bạn nên cài bản 2020, vì bản này thấy chạy ổn định nhất, ít bị lỗi fatal error hơn các phiên bản khác.

    Ngoài ra các bộ cài của hãng autodesk phiên bản cao nhất 2020 (Inventor, advance steel, ...) này cũng chạy ổn định ít bị lỗi license khi patch vì nó là phiên bản cuối cùng ko dùng đăng kí = license server 


  6. Vào lúc 19/2/2022 tại 11:25, huunhantvxdts đã nói:

    Chắc là máy có load hàm đó vào trong 1 lisp khác rồi Hehehe

     

    10 giờ trước, vietduc147258 đã nói:

    Trong khi chờ đợi cao nhân ra Lisp thì bạn có thể thử theo cách sau.

    B1: Save ass file thành . dxf

    B2: Open with cái file dxf đó bằng Notepad (Hoặc notepad +)

    B3: Ctrl + H 

    Ví dụ bạn muốn thay P   A123456, P   B123456 thành A123456 và B123456 thì nó có điểm chung là bỏ đi "P " (P và dấu cách)

    Ô trên bạn nhập "P "  (không có dấu "" nha)

    Ô dưới bạn để trống.

    Hoặc chắc ăn làm 2 lần: ô trên ghi P A ô dưới ghi A, Ô trên Ghi P B dưới ghi B

    Chữ trên, dưới ghi càng chi tiết càng tốt, tránh nhầm lẫn tên Block với chữ P khác

     

    B4: Save lại, rồi mởi lại file dxf bằng Autocad.

    Hơi phức tạp đó. Chúc thành công

    Vâng làm cái này E sợ nó nhầm hoặc hỏng file mất

     

    8 giờ trước, ketxu đã nói:

    Thế này là xong mà

    2022-03-17_23-13-40.png

    Cách này của bác ketxu đúng ý mình rồi, thank you


  7. Vào lúc 15/3/2022 tại 18:12, Nguyễn Công Quý đã nói:

    E cũng muốn học hỏi kinh nghiệm bóc tách nhờ mn chỉ giáo!! Gmail của e là : nguyenquy12345777@gmail.com

    E cám ơn mn.

     

    Với dân cơ khí hay còn gọi là dân kĩ thuật nói chung thì một trong các công việc là :

    1. Đọc hiểu bản vẽ, bóc tách các chi tiết ra bản vẽ chế tạo ( thường = Autocad)

    2. Lập bảng danh sách chi tiết ( Tên, chủng loại, kích thước, loại vật liệu, số lượng, khối lượng, chú thích đặc biệt nếu có) (thường = Excel)

    3. Thông kê sắp xếp tối ưu hay còn gọi lên sơ đồ cắt tạm thời để tiết kiệm vật tư khi mua (thường = Excel)

    4. Căn cứ bước 3 lập danh sách các chi tiết vật tư để mua. (thường = Excel)

     

    Thông thường với kinh nghiệm của mình, để đào tạo 1 người có thể làm được công việc trên (mức cơ bản) phải mất ít nhất 6 tháng.

    Tất nhiên bạn đó phải làm trong lĩnh vực cơ khí, ngoài ra nếu là người thường xuyên làm việc tiếp xúc với công việc này thì sẽ nhanh hơn.

    Ví dụ Đôi khi tuyển 1 anh công nhân làm việc có khi tốt hơn 1 anh kỹ sư (trong ngắn hạn và cv thuần túy).

    Vì thế theo mình để làm tốt được công việc trên bạn cần phải được ai đó đào tạo dẫn đường thì sẽ tốt và nhanh hơn. Tránh sai sót trong lúc thực hiện công việc này

     

     


  8. Vào lúc 12/8/2021 tại 10:48, cuongtk2 đã nói:

    Mình sửa lại cho bạn đây nhé, trước vì không test kỹ nên bị như thế, vì biến toàn cục.

    (defun c:test    (/ ENT EXPORTFILE FILE FILE1 P1 PATH SS)
      (setq ss (ACET-SS-TO-LIST (ssget "x" '((0 . "*TEXT")))))
      (setq path (acet-ui-pickdir "Select directory" (getvar "dwgprefix")))

      (foreach n ss
        (progn
          (setq ent     (entget n)
            p1     (acet-dxf 10 ent)
            file (acet-dxf 1 ent)
          )
          (vl-cmdf "-boundary" p1 "")
          (setq exportFile (strcat path "\\" (VL-STRING-TRIM " " file)))
          (command "_.dxfout"
               exportFile
               "_entities"
               (entlast)
               ""
               "_version"
               "2007"
               6
          )
          (entdel (entlast))
        )

      )
    )

    Vâng lần này thì được 99%, còn 1% bác @cuongtk2 giúp nốt e với ạ. 

    Nguyên nhân là có 1 số chi tiết nằm trong nó không lấy được, chỉ lấy dc hình bao ngoài.

    Và file dxf xuất ra cần cho chi tiết đó move về gốc tọa độ (0,0,0)

     

    Chi tiết gốc:

    image.png.c502d00011b44440a4f49516489fd439.png

     

    Sau khi xuất ra DXF (mất 2 lỗ và 2 đường line)

     

    image.png.2ae843fa63c1d970bf37d81e5af86804.png

     

    So với lisp đầu tiên, thì đã giữ lại đầy đủ các hình bên trong.

     

    Nhờ bác giúp cho trọn vẹn ạ (File cad đính kèm) ^^

     

    test.dwg

    • Vote giảm 1

  9. Vào lúc 3/8/2021 tại 12:28, cuongtk2 đã nói:

    Xuất ra các chi tiết thành dxf file bằng cách tạo boundary tại mỗi text position

    (defun c:test ()
      (setq ss (ACET-SS-TO-LIST (ssget "x" '((0 . "TEXT")))))

      (foreach n ss
        (progn
          (setq ent     (entget n)
            p1     (acet-dxf 10 ent)
            file (acet-dxf 1 ent)
          )
          (vl-cmdf "-boundary" p1 "")
          (setq acadObj (vlax-get-acad-object))
          (setq doc (vla-get-ActiveDocument acadObj))
          (setq file1 (VL-STRING-TRIM " " file))
          (setq path (acet-ui-pickdir "Select directory" (getvar "dwgprefix")))
          (setq exportFile (strcat path "\\" file1))
          ;; Adjust path to match your system

          ;; Create an empty selection set
          (setq sset (vla-Add (vla-get-SelectionSets doc) "TEST"))
          (vla-Select sset acSelectionSetLast)

          ;; Export the current drawing to the file specified above.
          (vla-Export doc exportFile "DXF" sset)

          (vla-Delete sset)
        )
      )
    )

    Hi bác @cuongtk2, lệnh lisp của bác e chạy thấy bá quá. Tuy nhiên bác có thể sửa lại lisp trên 1 chút giúp e được không ?

    - Cho phép chọn cả Mtext

    - Mỗi hình boundary kèm text (mtext) khi xuật ra vào 1 file riêng ko chứa các boundary khác ( hiện tại mỗi file xuất ra đều bao gồm hết các boundary).

    - Tạo 1 thư mục để tự xuất file dxf (hiện tại cứ mỗi text/mtext xuất ra lại hỏi thư mục lưu file đó).

    - Các boundary xuất ra phải xóa nét rời rạc cũ (Hiện tại vẫn đang chứa nét cũ ở file dxf xuất ra)

    Nhờ bác giúp đỡ.


  10. 31 phút trước, Bee đã nói:

    Nếu chỉ còn 1 block thì chỉnh tay sẽ nhanh hơn viết lisp. Nếu muốn tổng quát hơn thì gửi bản vẽ cụ thể vì có rất nhiều trường hợp khác xảy ra. Viết xong block này lại phát sinh cái khác thì nó vô cùng lắm. Sẽ phải làm vài cái vòng lặp 1 line màu 4 với các đối tượng còn lại line màu xanh 3 chứ không còn đơn giản như thay màu nữa đâu chủ thớt nhé. Nếu muốn nhiều hơn nữa thì có thể inbox mình.

     

    Vâng làm phiền bác quá.

    Cái đổi màu kia đã tốt lắm rồi ạ.

    Thanks bác


  11. 10 phút trước, Bee đã nói:

    Đổi về Layer 0 thì nó lại theo màu layer 4.

    
    (defun c:test  (/ ss e blk doc)
      (setq doc (vla-get-activedocument (vlax-get-acad-object)))
      (if
        (setq ss (ssget ":L" '((0 . "INSERT"))))
         (repeat (setq i (sslength ss))
           (setq e (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
           (setq blk (vla-item (vla-get-blocks doc) (vla-get-effectivename e)))
           (vlax-for x  blk
             (cond
               ((= (vlax-get x 'layer) "2")
                (vla-put-layer x "4")
                )
               ((= (vlax-get x 'layer) "3")
                (vla-put-layer x "7")
                )
               ((= (vlax-get x 'Color) 3)
                (vla-put-color x 256)
                (vla-put-layer x "0")
                )           
               )         
             )
           )
         )
      (vla-regen doc acallviewports)
      (princ)
      )

     

     

    Vâng ổn quá rồi thank bác chúc bác vui vẻ hp

×