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

[hung1608 8]

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

[ketxu 2.984]

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é :)

[hung1608 8]

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

[ketxu 2.984]

1 cái lisp thoả mãn cả 3 yêu cầu hoàn toàn khác nhau nêu trên á ??

[hung1608 8]

đúng vậy bạn viết hộ mình được không

[ketxu 2.984]

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 :(

[quocmanh04tt 635]

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))

[hung1608 8]

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

[gia_bach 1.550]

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) 

[hung1608 8]

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

[quocmanh04tt 635]

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.

[hung1608 8]

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é :)