Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
hung1608

Lisp Tính Tổng Chiều Dài Dim

Các bài được khuyến nghị

hung1608    5

Dear All

Mình muốn nhờ các bạn viết hộ mình 1 lisp tính tổng các dim để mình thống kê chiều đai đối tượng, lisp mình có 1 chút lựa chọn sau:

+ Quét toàn bộ dim sẽ tính được tổng chiều dai tất cả các dim

+ Quét toàn bộ dim sẽ thống kê chiều dài Dim theo các Style

+ Chọn 1 dim làm mẫu quét Dim sẽ thống kê được chiều dài của Dim theo Style đó

Thanks các bạn

  • Vote giảm 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
ketxu    2.649

Mình nhớ là mình viết hết các yêu cầu này trên diễn đàn rồi thì phải. CHưa có time tìm, nên trong lúc chờ đợi, bạn search lại bằng các từ khóa liên quan đến tổng Dimension nhé :)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
hung1608    5

Mình tìm rùi bạn ah, link die với nó không thỏa mãn hết các điều kiện mình ghi ở trên bạn àh

Bạn làm hộ 1 mình một lisp thỏa mãn hết các đièu kiện trên được không bạn

Thanks

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
ketxu    2.649

Chắc mình k ^^ Viết riêng 3 cái còn đỡ ngại, chứ gộp vào mình thực sự ngại :(

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
quocmanh04tt    385

Thử phát không biết có đúng ý chủ thớt không???

Quét 1 lần ra các kết quả, lấy cái nào thì tùy ý.

(defun c:ttd  (/ els ent i k lst ss str sty ttl)
 (setq ttl 0)
 (if (setq ss (ssget '((0 . "DIMENSION"))))
  (progn (repeat (setq i (sslength ss))
          (setq ent (ssname ss (setq i (1- i)))
                els (entget ent)
                sty (cdr (assoc 3 els)))
          (or (not (eq (setq str (atof (cdr (assoc 1 els)))) 0.)) (setq str (cdr (assoc 42 els))))
          (setq ttl (+ ttl str))
          (if (not (assoc sty lst))
           (setq lst (cons (cons sty str) lst))
           (setq lst (subst (cons sty (+ str (cdr (assoc sty lst)))) (assoc sty lst) lst))))
         (foreach x lst (princ (strcat "\n" (car x) ": " (rtos (cdr x)))))
         (princ (strcat "\nTOTAL LENGTH: " (rtos ttl)))
         (textscr)))
 (princ))

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
gia_bach    1.442

Lisp không dùng được bạn ơi, mình dung cad 2016

Bạn xem có thể viết cả 3 yêu cầu của mình vào 1 lisp được không ban

CAD 2016 của tôi chạy được Lisp này.

Chắc bạn thiếu (vl-load-com) 

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
hung1608    5

CAD 2016 của tôi chạy được Lisp này.

Chắc bạn thiếu (vl-load-com) 

vl-load-com thêm vào ở đâu bạn

Mà bạn viết được lisp này tổng hợp các lệnh mình cần được không

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
quocmanh04tt    385

Mình đang dùng cad2017. Không cần (VL-load-com) vì không dung VL.

Không chạy được? Cad nó báo như thế nào? Dự đoán là lại down chứ không phải là copy.

1 lệnh, chạy ra tất cả những gì bạn cần.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
hung1608    5

Mình đang dùng cad2017. Không cần (VL-load-com) vì không dung VL.

Không chạy được? Cad nó báo như thế nào? Dự đoán là lại down chứ không phải là copy.

1 lệnh, chạy ra tất cả những gì bạn cần.

 đúng rùi bạn ah, mình copy lại thì dùng được

1 lệnh được tất cả những gì mình yêu cầu, có vẻ lisp này đã đáp ứng được điều đó

bạn nếu thấy cần cái tiến gì thì làm luôn cho mình nhé :)

  • Vote giảm 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay


×