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

FutureX

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

    27
  • Đã tham gia

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

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


  1. Vào lúc 8/11/2015 tại 17:04, quocmanh04tt đã nói:

    Cách khắc phục:

    Command: DVIEW
    Select objects or <use DVIEWBLOCK>: Enter

    + [CAmera/TArget/Distance/POints/PAn/Zoom/TWist/CLip/Hide/Off/Undo]: PO

    + Specify target point <1843, 416, -32>: 0,0,0

    + Specify camera point <1843, 416, -31>: 0,0,1

    +> Enter2 ....

     

    quá hay!

    Bị lỗi này nhiều lần mà hôm nay mới biết cách khắc phục.


  2. 14 giờ trước, HOABAN_QD đã nói:

    Mình tìm trên Cadviet thấy có link hướng dẫn khắc phục text bị nhòe, sau khi down file cad (mẶt_bẰng_lm2.dwg) của bạn hoan2182 về và áp dụng lệnh DVIEW như theo hướng dẫn của bạn quocmanh04tt thì rất chi là ok (link bên dưới)

    https://www.cadviet.com/forum/topic/153879-cách-khắc-phục-lỗi-chữ-bị-nhòe/

    Nay mình lại bị trường hợp tương tự, cũng dùng lệnh DVIEW để khắc phục nhưng lại không được, các Pro xem giúp mình nhen. 

     

     

    TEXT BI NHOE.dwg

     

     đâu có bị nhòe gì đâu!

    ảnh.png


  3. Vào lúc 5/10/2021 tại 13:07, huyhoangutc52 đã nói:

    Anh cuongtk2
    Em thấy các bài hướng dẫn đo chiều dài đường tròn trên mạng phần nhiều là sử dụng đường gióng hướng tâm, em nghĩ do một biến nào đó mình có thể chuyển đổi được anh ạ!

    Theo tiêu chuẩn thì đúng như anh nói ở trên là Dim sẽ không mang ý nghĩa nếu sử dụng đường gióng hướng tâm.
    Em cảm ơn anh đã trả lời, chúc anh mạnh khỏe và công tác tốt ạ :))

    aaaaa.png

    bbb.png

     

    Ko có biến nào chỉnh được đâu bạn. vì theo khái niệm bạn kèm theo thì đó là quy định trình bày.

    Bạn có thể dùng lisp để hiển thị theo ý muốn hoặc dùng lệnh DAN rồi sửa giá trị lại.

    Mình đã từng làm 1 công trình có dạng cong và cũng muốn làm như bạn để cho bản vẽ đẹp hơn nên có tạo chủ đề trên diễn đàn nhưng ko có cách xử lý nên đành dùng lệnh DAN và sửa giá trị lại.


  4. Vào lúc 7/10/2018 tại 13:00, Biet ve CAD đã nói:

    ** Mình xin chia sẻ đến các bạn các lisp mình đã làm, có cả các lisp sưu tầm ( cũng khá mất thời gian và công sức ^^)

    ** Thông tin các bạn liên hệ qua Facebook hoặc email bietvecad@gmail.com

    ** Các bạn có thể xem thêm menu lệnh lisp BVC để gọi lệnh cho tiện 

     

    ***** Danh sách lisp: ( lisp nào chưa có link tải các bạn để lại email và tên lisp muốn tải về, mình sẽ gửi qua email )

    1. In nhanh bản vẽ Free_2 link diễn đàn tải về google drive tải về mediafire   Video hướng dẫn (trong bộ lisp in nhanh Free_2 này còn có các lisp sau)

      1-1. Dịch qua lại tiếng Việt - Anh ..... (áp dụng cho đối tượng Text)

      1-2.  Tính toán Text - Dimension - Length - Distance - Area

      1-3.  Scale - rotate Text, Block hàng loạt

      1-4.  Tạo danh mục bản vẽ

      1-5.  Tăng số thứ tự ( Text, block att )

      1-6.  Cập nhật số thứ tự

    2. Chuyển Font chữ Unicode - TCVN - VNI tải về - video

    3Tự động Boundary hàng loạt tải về - video

    4Lưu tên các lệnh lisp ( khi bạn có nhiều lệnh lisp mà ko nhớ hết thì dùng lisp này để gọi lệnh ) tải về - video

    5Dimension nhanh đối tượng polyline ( áp dụng cho cả polyline cong ) tải về - video

    6. Lisp chuyển các tính chất của đối tượng làm hiện hành ( ví dụ: layer, linetype, linetype scale, textstyle, textsize, dimstyle, dimlfac, color... )

    7. Lisp cắt pline tải về

    8. Chèn nhanh nhiều trang Pdf vào Cad video

     

    ***** Lisp nâng cao : các bạn dùng phần mềm này để lấy serial của máy tính, sau đó gửi vào bietvecad@gmail.com để nhận key, các bạn nhớ ghi kèm tên loại lisp muốn đăng ký

    1. In nhanh bản vẽ Final_5

     

    2. Tạo danh mục bản vẽ

     

    3. Tìm và thay thế nội dung Text hàng loạt

    4. Chỉnh sửa Text nhanh

     

    5. Tính diện tích Hatch vào block

    6. Tính diện tích Polyline vào block

    7. Gán block lô đất và tính diện tích

    8. Tự động Fillet - Champer - Dimension ( tạo đường giao thông quy hoăch )

    9. Rải Block mẫu nhà vào lô đất

    10. Trồng cây theo Pline

     

    11. Quản lý thư viện Block ( block đặt ở các thư mục, copy ra thư mục, chèn vào bản vẽ, thay thế ......)

    12. Thống kê Hatch với nhiều tùy chọn

    13. Tạo Viewport hàng loạt từ Model sang Layout

     

    14. Tách ghép bản vẽ Dwg ( tách bản vẽ theo khung tên, ghép bản vẽ dwg với tùy chọn số hàng )

     

    15. Tách nhiều khung bản vẽ của 1 layout ra thành các Layout mới hoặc file Dwg mới

    16. Tách các layout thành các bản Dwg mới

    17. Gộp nhiều layout lẻ của file Dwg thành 1 layout

    18. Xuất Layout sang Model của nhiều file Dwg cùng lúc

     

    19. Thống kê độ dốc rãnh ( dùng cho đường tuyến Civil 3D)

    20. Thống lý trình hàng rào ( dùng cho đường tuyến Civil 3D)

     

    21. Lisp đa chức năng nhiều file Dwg ( xuất layout sang model, tạo danh mục layout, bind xref, thay thế block....)

     

    Cảm ơn các bạn đã quan tâm !

     

     

     

    Mục số 18 có link tải ko bạn?

    • Vote giảm 1

  5. 8 giờ trước, quansla đã nói:

    file đây ạ, file Prọect là do em tự làm, còn file còn lại là tải tham khảo trên mạng,

     

    File trên mạng: https://www.mediafire.com/file/0iun0kh27c12bzf/10._TIEN_DO_DOI_THI_CONG__NGOAI_VI.mpp/file

     

    File tự làm: https://www.mediafire.com/file/dfw2s0mmw0arbf0/Project1.mpp/file

     

     

    Bạn sửa trong Schedule cho thống nhất với bên Change working time mà bạn đã thay đổi nhé!

    2020-12-08_221904.jpg

    2020-12-08_221936.jpg

    • Like 1

  6. 9 giờ trước, Biet ve CAD đã nói:

     

    Bạn nhắc mình mới nhớ là có lisp đo pline có cả đường cong này ^^

    Trong khi chờ đợi thì bạn có thể tải lisp đo Pline ( dùng tốt cho trường hợp của bạn ) : Lisp số 5 mục Free ở link này https://www.cadviet.com/forum/topic/173984-lisp-biết-vẽ-cad-share/

     

     

    Cảm ơn bạn nhiều nhé!

    Có nhiều lisp hay quá!


  7. Vào lúc 20/11/2020 tại 10:37, Doan Nguyen Van đã nói:

    Lisp QDV nhiều chức năng hơn nên mình chia sẻ theo máy thôi ạ

    Cho mình hỏi lisp QDV bạn còn chia sẻ nữa ko?

     

     

    Vào lúc 19/11/2020 tại 16:02, Doan Nguyen Van đã nói:

    Chi mình hỏi lisp VD và DPL khác nhau hả bạn?

    • Like 1
    • Vote giảm 1

  8. Xin chào!

    Nhờ các bạn hướng dẫn mình cách ghi kích thước cho cung tròn sao cho đường dóng là đường hướng tâm, để các đường gióng trùng nhau.

    Hiện mình ghi kích thước cung, cùng điểm chọn nhưng 2 đường dóng lại lệch nhau.

    Bạn nào biết cách xử lý thì hướng dẫn giúp mình với!

    Cảm ơn nhiều!

    2020-11-21_162654.jpg


  9. Chào cả nhà!

    Mình có tải trên diễn đàn được lisp xuất toạ độ của polyline ra file text. Nhưng chưa thật sự như ý muốn nên muốn nhờ mọi người sửa giúp!

    Cụ thể: ví dụ mình có polyline gồm 4 điểm góc, mình muốn lisp xuất toạ độ ra thành 5 dòng toạ độ như sau:

    Quote

    toạ độ điểm 1

    toạ độ điểm 2

    toạ độ điểm 3

    toạ độ điểm 4 

    toạ độ điểm 1

     

    Hiện lisp chỉ xuất toạ độ ra thành 4 dòng toạ độ như sau:

    Quote

    toạ độ điểm 1

    toạ độ điểm 2

    toạ độ điểm 3

    toạ độ điểm 4 

     

    Đính kèm lisp bên dưới ạ:

    Quote

     

    ; ----------------------------------------------------------------------

    (defun c:XX ()
      (setq sset (ssget '((-4 . "<OR")(0 . "POINT")
                          (0 . "LWPOLYLINE")(-4 . "OR>"))))
      (if sset
        (progn
          (setq itm 0 num (sslength sset))
          (setq fn (getfiled "Point Export File" "" "txt" 1))
          (if (/= fn nil)
            (progn
              (setq fh (open fn "w"))
              (while (< itm num)
                (setq hnd (ssname sset itm))
                (setq ent (entget hnd))
                (setq obj (cdr (assoc 0 ent)))
                (cond
                  ((= obj "POINT")
                    (setq pnt (cdr (assoc 10 ent)))
                    (princ (strcat (rtos (car pnt) 2 2) " "
                                   (rtos (cadr pnt) 2 2) " "
                                   (rtos (caddr pnt) 2 2)) fh)
                    (princ "\n" fh)
                  )
                  ((= obj "LWPOLYLINE")
                    (if (= (cdr (assoc 38 ent)) nil)
                      (setq elv 0.0)
                      (setq elv (cdr (assoc 38 ent)))
                    )
                    (foreach rec ent
                      (if (= (car rec) 10)
                        (progn
                          (setq pnt (cdr rec))
                          (princ (strcat (rtos (cadr pnt) 2 4) " "
                                         (rtos (car pnt) 2 4)) fh)
                          (princ "\n" fh)
                        )
                      )
                    )
                  )
                  (t nil)
                )
                (setq itm (1+ itm))
              )
              (close fh)
            )
          )
        )
      )
      (princ)
    )

    (princ "\nPoint Export loaded, type PTEXPORT to run.")
    (princ)

    Cảm ơn nhiều!


  10. Chào cả nhà!

    Do nhu cầu công việc nên mình cần lisp có thể xuất toạ độ (VN2000) của 1 vùng polyline ra file text (.txt) với định dạng "X Y" (chỉ có "toạ độ X" + khoảng trắng + "toạ độ Y", ko cần số thứ tự điểm)

    mình có tìm được vài lisp nhưng ko đúng theo định dạng trên, phải qua vài bước thao tác, hơi mất thời gian.

    Mình đính kèm file text có định dạng mẫu.

    Bạn nào có lisp như vậy thì cho mình xin với!

    Cảm ơn nhiều!

     

    VN2000.txt


  11. 23 giờ trước, united đã nói:

    Ọe! Windows defender báo có trojan Occamy.C, hình như là virus đào coin.

    Em đã cài xong mà tải mấy file crk về đều như nhau, thành ra không dám crk.

    Dân chơi mà sơ mưa rơi à?

    Tắt WD đi rồi crak. Trước giờ file crak CAD nào WD cũng báo virus mà.

×