Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
11 replies to this topic

#1 hung1608

hung1608

    biết lệnh rotate

  • Members
  • PipPipPip
  • 134 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 22 April 2016 - 08:32 AM

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


  • -1

#2 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5678 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 22 April 2016 - 09:22 AM

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


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3 hung1608

hung1608

    biết lệnh rotate

  • Members
  • PipPipPip
  • 134 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 22 April 2016 - 11:36 AM

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


  • 0

#4 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5678 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 22 April 2016 - 01:58 PM

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


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#5 hung1608

hung1608

    biết lệnh rotate

  • Members
  • PipPipPip
  • 134 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 22 April 2016 - 08:22 PM

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

  • 0

#6 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5678 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 23 April 2016 - 08:55 AM

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


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#7 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 665 Bài viết
Điểm đánh giá: 312 (khá)

Đã gửi 23 April 2016 - 11:03 AM

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

  • 0

#8 hung1608

hung1608

    biết lệnh rotate

  • Members
  • PipPipPip
  • 134 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 23 April 2016 - 09:06 PM

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


  • 0

#9 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1431 Bài viết
Điểm đánh giá: 1425 (rất tốt)

Đã gửi 23 April 2016 - 10:20 PM

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) 


  • 1

#10 hung1608

hung1608

    biết lệnh rotate

  • Members
  • PipPipPip
  • 134 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 23 April 2016 - 10:27 PM

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


  • 0

#11 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 665 Bài viết
Điểm đánh giá: 312 (khá)

Đã gửi 23 April 2016 - 10:35 PM

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.


  • 1

#12 hung1608

hung1608

    biết lệnh rotate

  • Members
  • PipPipPip
  • 134 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 23 April 2016 - 10:58 PM

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


  • -1