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

nguyen 1linh

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    6

  • Đã tham gia

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

Bài đăng được đăng bởi nguyen 1linh

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

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

    em tìm trên group thì lấy 1 lisp của bác Doan Van Ha nhưng mà em muốn thay dung sai dưới khác số 0 thì có được không ạ? ví dụ từ 6-10: dung sai trên là +0,015, dung sai dưới là 0,006 chứ kh như trong lisp là dung sai trên là +0,015, dung sai dưới là 0 ạ
    (defun C:H7( / ass ss elst len dsai suff exdata) (setq ass (list '(0 3 0.010) '(3 6 0.012) '(6 10 0.015) '(10 18 0.018) '(18 30 0.021) '(30 50 0.025) '(50 80 0.030) '(80 120 0.035) '(120 180 0.040) '(180 250 0.046) '(250 315 0.052) '(315 400 0.057))) (regapp "ACAD") (princ "\nChon cac Dim can ghi dung sai...") (if (setq ss (ssget '((0 . "DIMENSION")))) (progn (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))) (setq elst (entget ent)) (setq len (cdr (assoc 42 elst))) (foreach n ass (if (and (> len (car n)) (<= len (cadr n))) (setq dsai (caddr n)))) (if dsai (progn (setq suff (strcat "\\C5;\\H0.5X;\\S+" (rtos dsai 2 3) "^" "-0.0;")) (setq exdata (list (list -3 (cons "ACAD" (list (cons 1000 "DSTYLE") (cons 1002 "{") (cons 1070 3) (cons 1000 suff) (cons 1002 "}")))))) (setq elst (append elst exdata)) (entmod elst) (entmod (subst (cons 1 (strcat "%%C<>" (cdr (assoc 1 elst)))) (assoc 1 elst) elst))))))) (princ))

     

     

     

    Tôi thấy nếu ghi dung sai thì bạn dùng phần mềm autocad mechanical, ghi dung sai rất nhanh và tiện, có thể tra được cả chế độ lắp ráp theo tiêu chuẩn quốc tế ( H7, k6 ....) các loại cấp chính xác dung sai và các loại kích thước.

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

    Vào lúc 6/12/2018 tại 16:03, Danh Cong đã nói:

     

    Tương đương với lisp này tôi viết:

    Lisp có tác dụng cộng thêm 1 giá trị vào Dim. Với nội dung của bạn thì không cần cộng, nên giá trị nhập = 0.

    DCong.lsp

    Cái lisp này mình thử thì với dim measurement thì textoverride lại thành số mình cộng thêm, đối với dim đã sửa số thì cộng được, cái này có thể sửa thành field để cộng với giá trị measurement không, khi kéo dãn ra giá trị kích thước thay đổi theo kích thước dim.

    Thanks bạn

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

    9 giờ trước, Duong Nhat Duy đã nói:

    Mình đã fix lại rồi nhé, thanks bạn !

    Mình dùng thử, thấy rất ổn, có một chút là chiều rộng cột không để mặc định, mà không  sửa được ở trong khi thực hiện lệnh. là ai dùng sẽ sửa lisp theo thực tế sử dụng - Nếu được thì Bạn nên để ở tỷ lệ 1:1 mọi người dễ hình dung hơn. Cảm ơn vì đã chia sẻ

×