Đến nội dung


Hình ảnh
- - - - -

Thống kê hình dạng line


  • Please log in to reply
6 replies to this topic

#1 bibach

bibach

    biết zoom

  • Members
  • Pip
  • 18 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 16 December 2010 - 09:20 AM

Các anh cho em hỏi có lisp nào thống kê hình dạng của pline không vậy . Em có file cad sau em muốn nó thống kê chiều dài của từng pline . Nếu có 2 pline giống nhau về chiều dài thì nó thống kê là 2
http://www.cadviet.c..._dang_pline.dwg
  • 0

#2 npham

npham

    biết lệnh rotate

  • Members
  • PipPipPip
  • 136 Bài viết
Điểm đánh giá: 75 (tàm tạm)

Đã gửi 16 December 2010 - 11:41 AM

Các anh cho em hỏi có lisp nào thống kê hình dạng của pline không vậy . Em có file cad sau em muốn nó thống kê chiều dài của từng pline . Nếu có 2 pline giống nhau về chiều dài thì nó thống kê là 2
http://www.cadviet.c..._dang_pline.dwg


bạn muốn ra dữ liệu kiểu gì? Princ ra màn hình hay chứa trong biến để bạn sử dụng lisp?

hay xuất ra kiểu ((n1 . L1) (n2 . L2).......) nhé?
  • 0

#3 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3805 (đỉnh cao)

Đã gửi 16 December 2010 - 12:56 PM

Các anh cho em hỏi có lisp nào thống kê hình dạng của pline không vậy . Em có file cad sau em muốn nó thống kê chiều dài của từng pline . Nếu có 2 pline giống nhau về chiều dài thì nó thống kê là 2
http://www.cadviet.c..._dang_pline.dwg

Cái này là thép đai vách đây mà. Ban muốn thống kê thép đai vách?
Bạn đặt vấn đề chưa đầy đủ??
Nếu có 2 pline giống nhau về chiều dài và cả hình dạng của nó nữa thì mới thống kê là 2
Tue_NV viết như vầy đúng không bạn?
  • 0

#4 bibach

bibach

    biết zoom

  • Members
  • Pip
  • 18 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 16 December 2010 - 01:11 PM

Cái này là thép đai vách đây mà. Ban muốn thống kê thép đai vách?
Bạn đặt vấn đề chưa đầy đủ??
Nếu có 2 pline giống nhau về chiều dài và cả hình dạng của nó nữa thì mới thống kê là 2
Tue_NV viết như vầy đúng không bạn?

Dạ đúng rồi đó anh Tue_NV có file lisp nào làm được như vậy không .Xuất ra bảng thống kê (n1,L1) (n2,L2) để tiện theo dõi
  • 0

#5 bibach

bibach

    biết zoom

  • Members
  • Pip
  • 18 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 20 December 2010 - 10:50 AM

Cái này là thép đai vách đây mà. Ban muốn thống kê thép đai vách?
Bạn đặt vấn đề chưa đầy đủ??
Nếu có 2 pline giống nhau về chiều dài và cả hình dạng của nó nữa thì mới thống kê là 2
Tue_NV viết như vầy đúng không bạn?

Sao không bác nào giúp em 1 tay với vậy . Em đang cần cái lisp này gấp lắm
  • 0

#6 Noob_Lisp

Noob_Lisp

    Chưa sử dụng CAD

  • Members
  • Pip
  • 4 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 20 December 2010 - 11:31 AM

Sao không bác nào giúp em 1 tay với vậy . Em đang cần cái lisp này gấp lắm


Bạn xem thử có được không? Nếu có thời gian sẽ phát triển thêm phân theo hình dạng, tính tổng chiều dài từng loại v.v..

(defun c:ll (/ ss data i e xtype x y number)
(setq ss (ssget (list (cons 0 "*LINE"))))

(setq i 0 data nil)
(while (setq e (ssname ss i))
(command ".area" "o" e "")
(setq data (append data (list (fix (getvar "Perimeter")))))
(setq i (1+ i))
)

(setq xtype (vl-sort data '<))
(mapcar '(lambda (x)
(progn
(setq number 0)
(foreach y data (if (= x y) (setq number (+ number 1))))
(princ (strcat "\nLoai L = " (rtos x 2 0) ". So thanh: " (itoa number)))
)) xtype)
(textscr)
(princ)
)

  • 1

#7 bibach

bibach

    biết zoom

  • Members
  • Pip
  • 18 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 20 December 2010 - 12:20 PM

Thanks bác Noob_Lisp đã share . Nếu Lisp này copy hình dáng của thanh thép rồi kế bên để chiều dài , số lượng thì tốt biết mấy . Nhưng dù sao cũng cảm ơn bác Noop_List , cho em hỏi có cách nào cho nó xuất hiện bảng thông kê trong file cad luôn cho dễ quan sát không anh Noob_Lisp
  • 0