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

Nguyen Hoanh

Moderator
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    4239

  • Đã tham gia

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

  • Ngày trúng

    259

Bài đăng được đăng bởi Nguyen Hoanh

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

    7 giờ trước, NAnh@123 đã nói:

    chào mọi người, em muốn hỏi công thức tính thống kê dây nhà xưởng ai biết chỉ em với. Em cảm ơn!!!

    Câu hỏi của bạn quá rộng để trả lời.

     

    Bạn nói thêm cho mọi người hiểu muốn làm cái gì, và bạn đang vướng mắc ở đâu khiến bạn không làm được.

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

    6 giờ trước, VoTuanKiet đã nói:

    Em chào các anh chị trên cộng đồng, em hiện có 1 lisp như file và cần chỉnh chiều cao chữ trong lệnh QS (tính tổng các text số). Mong các anh chị hỗ trợ sửa lisp để khi sử dụng có thêm phần nhập chiều cao chữ trước khi xuất kết quả ra ạ (có thể mặc định cỡ chữ là 220 nhưng cũng có thể thay đổi được).

    CS, CT, NS.lsp

    - Bạn dùng lệnh DTEXT,

    - rồi viết một TEXT theo chiều cao mà bạn mong muốn, sau đó xóa text tạm này đi.

    - dùng lại lệnh QS là sẽ có chiều cao theo lệnh TEXT trước đó của bạn.

    • Like 1

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

    Được bạn nhé.

     

    Thông tin từ trang web autodesk:

    Yêu cầu hệ thống cho AutoCAD 2024 bao gồm Specialized Toolsets (Windows)

    Hệ điều hành Microsoft® Windows® 11 và Windows 10 phiên bản 1809 trở lên 64-bit. Xem Vòng đời hỗ trợ sản phẩm của Autodesk để biết thông tin hỗ trợ.

    Bộ xử lý Cơ bản : Bộ xử lý 2,5–2,9 GHz (cơ bản) Bộ xử lý ARM không được hỗ trợ.

    Khuyến nghị : Bộ xử lý 3+ GHz (cơ bản), 4+ GHz (turbo)

    RAM Cơ bản : 8 GB

    Khuyến nghị : 32 GB

    Độ phân giải màn hình Màn hình thông thường:

    1920 x 1080 với

    Độ phân giải cao True Color & Màn hình 4K:

    Độ phân giải lên đến 3840 x 2160 (với card màn hình "Được khuyến nghị")

    Card màn hình 

    Cơ bản : GPU 2 GB với Băng thông 29 GB/giây và tương thích DirectX 11

    Khuyến nghị : GPU 8 GB với Băng thông 106 GB/giây và tương thích DirectX 12

     

    DirectX 12 với Mức tính năng 12_0 là bắt buộc đối với các kiểu hình ảnh Shaded (Nhanh) và Shaded with edges (Nhanh). Hãy đảm bảo sử dụng trình điều khiển mới nhất của nhà sản xuất card màn hình từ trang web của họ.

     

    Lưu ý : AutoCAD sử dụng card màn hình của máy tính của bạn cho nhiều hoạt động đồ họa thiết yếu bao gồm nhưng không giới hạn ở thao tác xem, làm mịn đường và tạo kiểu văn bản/đường kẻ. Bạn nên có card màn hình có VRAM chuyên dụng để hỗ trợ các hoạt động này ở tốc độ tối ưu.

     

    Dung lượng đĩa 10,0 GB (khuyến nghị SSD)

    Mạng Xem Autodesk Network License Manager cho Windows

    Thiết bị trỏ Tương thích với MS-Mouse

    .Nền tảng NET .NET Framework phiên bản 4.8 trở lên

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

    Bạn thử dùng đoạn code này: 

    
(defun c:ChangeTextCoords (/ points texts nPoints nTexts)

  (setq points (ssget "_X" '((0 . "POINT")))) ; Chọn các đối tượng POINT

  (setq texts (ssget "_X" '((0 . "TEXT")))) ; Chọn các đối tượng TEXT

  

  (setq nPoints (sslength points)) ; Số lượng POINT

  (setq nTexts (sslength texts)) ; Số lượng TEXT

 

  (if (/= nPoints nTexts)

    (progn

      (prompt "\nDoi tuong POINT va TEXT khong bang nhau.")

      (exit)

    )

  )

 

  (defun find-nearest-point (text)

    (setq min-dist nil)

    (setq nearest-point nil)

    (foreach point (vl-remove-if 'null (mapcar 'cdr (ssnamex points)))

      (setq dist (distance (cdr (assoc 10 (entget point))) (cdr (assoc 10 (entget text)))))

      (if (or (null min-dist) (< dist min-dist))

        (progn

          (setq min-dist dist)

          (setq nearest-point point)

        )

      )

    )

    nearest-point

  )

 

  (foreach text (vl-remove-if 'null (mapcar 'cdr (ssnamex texts)))

    (setq nearest-point (find-nearest-point text))

    (if nearest-point

      (progn

        (setq point-coord (cdr (assoc 10 (entget nearest-point))))

        (entmod (subst (cons 10 point-coord) (assoc 10 (entget text)) (entget text)))

      )

    )

  )

  (princ)

)

 

(defun c:chgtxtpt ()

  (c:ChangeTextCoords)

)

(princ "\nSu dung lenh 'chgtxtpt' de chay chuong trinh.")

(princ)

     

    • Vote tăng 1

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

    Vào lúc 18/11/2023 tại 17:20, monavamonava đã nói:

    Chào các bác. Em in bản vẽ trên autocad 2024 mà tốc độ chậm ( khoảng 30-40s/trang a3) so với bình thường (~1-2S) sử dụng các phiên bản 201x. Có bác nào gặp trường hợp tương tự như vậy không ạ?
    -> Mong nhận được sự trợ giúp hỗ trợ của các bác để em cải thiện tốc độ in được không ạ...

    image.png

     

    Bạn thử reset AutoCAD to default xem sao?

     

    Windows 11: Start > All Apps > AutoCAD 20xx > Reset Settings To Default

    Windows 10: Start > AutoCAD 20xx > Reset Settings To Default

     

    image.png

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

    21 giờ trước, ldnamxddd đã nói:

    Chã là em có tìm trong diễn đàn Lisp chọn các thuộc tính giống nhau của block thuộc tính của bác Doãn Văn Hà.

    Tuy nhiên, trên bản vẽ của công trình em thì Block người ta làm vừa là dynamic block, vừa là attribute block. Nên chạy lisp ( trong máy em) không thực hiện được. 

    Mong các bác giúp em cải tiến với ạ. 

     

    Bạn nên post vào bài có lisp đó, và up file dwg mà bạn đang muốn dùng, thì mọi người mới dễ dàng giúp bạn được.

    • Like 1

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

    Chưa hiểu bạn muốn gì.

    Có phải bạn muốn nói: bạn đã dùng lisp trên diễn đàn nhưng chưa đúng ý,  và muốn sửa?

     

    Nếu vậy thì:

    1- Bạn đã dùng lisp nào, bạn có thể upload lại file lsp, hoặc đường link đến bài viết có lisp đó.

    2- Bạn không ưng lisp đó ở điểm nào, bạn muốn sửa lại như thế nào?

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

    Vấn đề này đã được Autodesk mô tả tại đây:

    https://knowledge.autodesk.com/support/autocad/troubleshooting/caas/sfdcarticles/sfdcarticles/XLine-will-not-work-properly-when-snapping-to-an-endpoint-in-AutoCAD.html

     

    VẤN ĐỀ:
    Trong AutoCAD, bạn muốn tạo XLine bằng cách bắt vào điểm cuối của một đoạn thẳng nhưng thay vì sử dụng điểm cuối làm tâm của XLine và cho phép bạn chọn điểm tiếp theo để xác định góc, XLine sẽ chỉ hiển thị dưới dạng thẳng đứng hoặc nằm ngang cho đến khi xong lệnh. Lệnh hoạt động bình thường khi bắt điểm vào các OSnap khác như trung điểm (midpoint) và điểm gần nhất (nearest).

     

    NGUYÊN NHÂN:
    lệnh XLine cố gắng bắt vuông góc với đối tượng tại  điểm cuối vừa chọn.

     

    GIẢI PHÁP:
    Hãy thử thực hiện một trong những cách sau:
    - Tắt OSnap perpendicular (vuông góc).[hoặc tắt F3, chọn điểm bằng cách giữ shift + phải chuột]

    - Bật OSnap tangent  (tiếp tuyến) thêm mỗi khi bật OSnap perpendicular (vuông góc). 

    - Tạm thời tắt OSnaps và chọn điểm kết thúc bằng cách nhấn shift + chuột phải.

     

    Nói cách khác, đây không phải là lỗi, mà là chức năng mới của AutoCAD. Bạn cần tắt osnap (nhấn F3) khi chọn điểm thứ 2 là được.

    • Like 1

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

    Mình đã viết lisp cho bạn như bên dưới.

     

    Cách dùng:

    1- Download file lisp về

    2- Mở file lisp, Sửa chữ chỗ ("DESC3"."S"..... theo nguyên tắc: Phía bên trái dấu chấm là tên tag, phía bên phải dấu chấm là giá trị default value. Mỗi dòng là 1 lần thay. Lưu lại.

    3- Add file lisp này vào mục chạy tự động, bằng lệnh Appload > Contents > Add

    4- Dùng một chức năng nào đó để mở 3500 file của bạn, mỗi lần file được mở lên, lisp sẽ tự động chạy, sửa, lưu lại và tự động close bản vẽ.

     

    Sau khi dùng xong, thì xóa hoặc rename file lisp thành tên khác, rồi remove file lisp ra khỏi việc chạy tự động. 

    (setq
  cv:thay '(
	 ("DESC3" . "S")
	 ("DESC1" . "XY")
	)
)

(defun c:thayattr( / dt ss ent tt find repl)
(foreach dt cv:thay
  (setq ss (ssget "X" (list (cons 0 "ATTDEF") (cons 2 (car dt)))))
  (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
    (setq tt (entget ent)
	  find (assoc 1 tt)
	  repl (cons 1 (cdr dt))
	  tt (if find
	       (subst repl find tt)
	       (cons repl find)
	     )
     )
     (entmod tt)
  )
)
  (command ".qsave" "y")
  (command ".close")
)
(c:thayattr)

     

×