Đến nội dung


Hình ảnh
* * * - - 1 Bình chọn

[Yêu cầu] viết lisp thống kê bản vẽ


  • Please log in to reply
177 replies to this topic

#161 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 30 September 2013 - 05:44 PM

Không thế thì các bạn đâu còn nhớ tác giả :)


  • 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


#162 engineer0405

engineer0405

    biết vẽ polygon

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

Đã gửi 01 October 2013 - 10:58 AM

Update : download here (password : cadviet.com )

Anh gia_bach ơi cho em hỏi tý ạ:

Sao chưa dùng lần nào nó cũng hết hạn sử dụng là sao vậy anh


  • 0

#163 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 01 October 2013 - 11:02 AM

Sorry!

Dạo này "lười" quá, chả muốn "viết lách" gì cả.

Chờ vài ngày nha.

 

PS: Có cần bổ sung chức năng gì thì "yêu cầu" luôn.


  • 1

#164 engineer0405

engineer0405

    biết vẽ polygon

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

Đã gửi 01 October 2013 - 01:33 PM

Sorry!

Dạo này "lười" quá, chả muốn "viết lách" gì cả.

Chờ vài ngày nha.

 

PS: Có cần bổ sung chức năng gì thì "yêu cầu" luôn.

Em có ý kiến thế này ạ

Nếu sai thì mong anh bỏ qua nha

Theo em thì anh đã giúp mọi người thì nên cho dùng luôn ạ

Còn nếu sợ ko nhớ tác giả thì sao mỗi lần thực hiện lệnh xong là hiện tên tác giả đc anh ạ

Theo em là vậy

Em có ý kiến vậy thôi ạ

Nếu đc thì móng anh giúp cho ạ

Em cảm ơn anh


  • 0

#165 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 04 October 2013 - 03:32 PM

Update fix lỗi trên cad 2012-64 bi

t.exblk_1.jpg

 

download here 


Bài viết đã được chỉnh sửa nội dung bởi gia_bach: 27 October 2016 - 03:57 PM

  • 2

#166 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 04 October 2013 - 05:00 PM

Bravo a :)


  • 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


#167 engineer0405

engineer0405

    biết vẽ polygon

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

Đã gửi 06 October 2013 - 10:44 AM

Update fix lỗi trên cad 2012-64 bit.

download here 

em cảm ơn anh gia_bach nhiều ạ

anh cho em hỏi tý nữa ạ

nếu trong bản vẽ có 2 loại khung tên

khung tên ngang (KTN) từ kc 01-kc 05

khung tên doc (KTD) từ kc 06 đến kc 10

khung tên ngang lại lặp lại từ kc 11 đến kc 20

vậy làm sao để thống kê đc vậy anh

em cảm ơn anh


  • 0

#168 HoaVien

HoaVien

    biết vẽ arc

  • Members
  • PipPip
  • 44 Bài viết
Điểm đánh giá: 12 (tàm tạm)

Đã gửi 06 October 2013 - 12:59 PM

em cảm ơn anh gia_bach nhiều ạ

anh cho em hỏi tý nữa ạ

nếu trong bản vẽ có 2 loại khung tên

khung tên ngang (KTN) từ kc 01-kc 05

khung tên doc (KTD) từ kc 06 đến kc 10

khung tên ngang lại lặp lại từ kc 11 đến kc 20

vậy làm sao để thống kê đc vậy anh

em cảm ơn anh

Hi! Chúc mừng gia bach có "đơn hàng" mới.

 

Trong khi chờ và đợi, engineer0405 có thể nghiên cứu các lệnh tách-nhập bảng của Cad để áp dụng cho t/hợp của mình.

Cụ thể là : 

- tạo bảng  (KTN) gồm kc 01-05 và kc 11-20

- tạo bảng (KTD) gồm kc 06-10

sau đó dùng các lệnh edit bảng để chèn các dòng của bảng kc06-10 vào trước dòng kc06 của bảng đầu.


  • 2

#169 engineer0405

engineer0405

    biết vẽ polygon

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

Đã gửi 07 October 2013 - 08:22 AM

Hi! Chúc mừng gia bach có "đơn hàng" mới.

 

Trong khi chờ và đợi, engineer0405 có thể nghiên cứu các lệnh tách-nhập bảng của Cad để áp dụng cho t/hợp của mình.

Cụ thể là : 

- tạo bảng  (KTN) gồm kc 01-05 và kc 11-20

- tạo bảng (KTD) gồm kc 06-10

sau đó dùng các lệnh edit bảng để chèn các dòng của bảng kc06-10 vào trước dòng kc06 của bảng đầu.

em cảm ơn anh HoaVien nhiều ạ

Để em thử xem ạ


  • 0

#170 trinhvqh

trinhvqh

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 408 Bài viết
Điểm đánh giá: 222 (khá)

Đã gửi 07 October 2013 - 02:22 PM

em cảm ơn anh gia_bach nhiều ạ

anh cho em hỏi tý nữa ạ

nếu trong bản vẽ có 2 loại khung tên

khung tên ngang (KTN) từ kc 01-kc 05

khung tên doc (KTD) từ kc 06 đến kc 10

khung tên ngang lại lặp lại từ kc 11 đến kc 20

vậy làm sao để thống kê đc vậy anh

em cảm ơn anh

Em hỏi thật "hồn nhiên" nhưng sẽ khiến người viết Lisp "bị điên"  :)


  • 0

#171 engineer0405

engineer0405

    biết vẽ polygon

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

Đã gửi 07 October 2013 - 04:23 PM

Em hỏi thật "hồn nhiên" nhưng sẽ khiến người viết Lisp "bị điên"  :)

Anh trinhvqh cứ quá lời ạ

Do khi em làm thấy thế nên mới đề xuất ý kiến thôi mà

hihi


  • 0

#172 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 07 October 2013 - 08:14 PM

Cũng chẳng có gì là khó khi làm một list lọc append cả, nhưng ket nghĩ cái này bạn In gin nia tự làm tay được, công đoạn k phải nhiều


  • 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


#173 conghoa

conghoa

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 411 Bài viết
Điểm đánh giá: 88 (tàm tạm)

Đã gửi 13 January 2014 - 11:23 AM

Update fix lỗi trên cad 2012-64 bit.

download here 

@gia bach mình download về dùng thì hình như bị giới hạn chỉ thống kê được 5 bản vẽ thôi, bác gia bach kiểm tra giúp nhé!


  • 0

#174 camxa99

camxa99

    Chưa sử dụng CAD

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

Đã gửi 14 December 2014 - 11:49 PM

Các bác ơi bác nào có lisp boc khối lượng BLKQTY cho em xin nhé. em đang cần lắm. các bác gửi vào mail cho em xin nhé. nguyensycuong99@gmail.com

Cảm ơn các bác


  • 0

#175 anhcau

anhcau

    Chưa sử dụng CAD

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

Đã gửi 03 February 2015 - 01:46 PM

Cám ơn các anh chị đã tham gia phản biện và góp ý trong mục này.

Đặc biệt cám ơn anh gia_bach đã tạo được cái THỐNG KÊ HỮU ÍCH.

 

Tôi đã dùng thử, thấy kết xuất ra file được đấy; dù khi chọn Tạo bảng thì không ngon cho lắm (không có chữ)

 

Cũng xin góp thêm vấn đề sau:

 

- Trong bản vẽ của tôi có nhiều Layout (thi du MATDUNG; MAT CAT; CHI TIET....)

 

Khi tôi làm lệnh xuất ra file nó làm được, thí dụ như thế này, với khung A3 2013

 

 

Bang thong ke : A3 2013     STT DRAWING_NO. TEN_NHO

1          XD-BLA-KC-05         CỐT THÉP TRỤC 1,4 (LỚP TRONG)

 2         XD-BLA-KC-06         CỐT THÉP TRỤC 1,4 (LỚP NGOÀI)

3          XD-BLA-KC-07         CỐT THÉP VÁCH TRỤC C

4          XD-BLA-KC-08         CỐT THÉP VÁCH TRỤC D

5          XD-BLA-KC-09         CỐT THÉP VÁCH TRỤC 2,3

6          XD-BLA-KC-10         MẶT CẮT 7-7,8-8,9-9,10-10

7          XD-BLA-KC-11         MẶT CẮT 11-11,12-12,13-13

 

Lần sau, do có nhiều Layout, tôi xóa di một vài layout (mỗi layout lại có nhiều bản vẽ)

Tôi làm lại, kết quả:

 

Bang thong ke : A3 2013                   

STT     DRAWING_NO.        TEN_NHO

1          XD-BLO-KC-08         MẶT BẰNG SÀN - DẦM SÀN COS +4.50

2          XD-BLO-KC-09         CỐT THÉP DẦM SÀN VÀ SÀN MÁI

3          XD-BLO-KC-010       CHI TIẾT ĐAN LỌC LOẠI 1 & 2

4          XD-BLO-KC-11         CỐT THÉP HỐ XI PHÔNG VÀ SÀN CẦU THANG

5          XD-BLO-KC-12         CHI TIẾT TRỤ ĐỠ ĐAN LỌC              

 

 

Lần sau nữa, tôi tiếp tục xóa di một vài layout (mỗi layout lại có nhiều bản vẽ)

Tôi làm lại, kết quả:

 

 

Bang thong ke : A3 2013                   

STT     DRAWING_NO.        TEN_NHO

1          XD-BLO-02              MẶT BẰNG BẢN ĐÁY - ĐÀ KIỀNG

2          XD-BLO-03              MẶT CẮT MÓNG VÀ CHI TIẾT ĐÀ KIỀNG

3          XD-BLO-01               MẶT BẰNG ĐỊNH VỊ CỌC VÀ MẶT BẰNG MÓNG

4          XD-BLO-KC-06         CỐT THÉP VÁCH TRỤC B & C

5          XD-BLO-KC-04         CỐT THÉP VÁCH TRỤC 1, 4, GIỮA

6          XD-BLO-KC-05         CỐT THÉP VÁCH TRỤC A

7          XD-BLO-KC-07         MẶT CẮT 9-9,10-10, 11-11, 12 VÀ CỐT THÉP TƯỜNG BL2

 

 

 

Vấn đề xảy ra như thế này, tôi có đảo thứ tự một Layout ra ngoài (như vị trí Layout1) thường có, thì hầu như nó không thay đổi. Có lẽ chương trình ngầm hiểu cái vị trí Layout1 chăng, bất kể nó ở đâu, dù đã đổi tên là gì.

 

Vấn đề nữa là trong 1 khung tên có nhiều thuộc tính, thí dụ Mục DRAWING_NO. nó có thể có 2 đến 3 loại:

 

XD-BLO-KC-01,02,...

XD-BLA-KC-01,02....

 

Thì chắc là nó chưa hiểu hết được chăng.

 

và dĩ nhiên nó chưa hoàn toàn tìm được hết các khung tên trong toàn bộ bản vẽ chăng?

 

Tôi giải quyết các điều này bằng cách dò xem trong danh mục tạo ra nếu nó thuộc Layout nào tôi xóa Layout đó đi, để lần sau nó không thống kê nữa và dán thủ công sau mỗi lần tạo được thì được.

 

Vậy xin phản hồi để tác giả được biết luôn một thể

 

Chúc năm mới an khang thịnh vượng.


  • 0

#176 anhcau

anhcau

    Chưa sử dụng CAD

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

Đã gửi 03 February 2015 - 02:01 PM

File tôi sử dụng trong bài trên, xin gửi kèm.http://www.cadviet.c.../139315_123.dwg


  • 0

#177 happytiu

happytiu

    biết zoom

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

Đã gửi 17 August 2015 - 04:55 PM

Các bác cho em hỏi  vấn đề này chút ạ .Em có dùng lisp này của bác gia_bach để thống kê bản vẽ , nhưng giờ gặp chút rác rối là đối với những bản vẽ có tên bản vẽ nhiều dòng thì lại ko thống kê được,các bác có thể sửa giúp em hay hướng dẫn em sửa với ạ .Cám ơn các bác nhiều ! 


  • -1

#178 vanhaks

vanhaks

    Chưa sử dụng CAD

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

Đã gửi 27 October 2016 - 12:07 PM

Update fix lỗi trên cad 2012-64 bi

t.exblk_1.jpg

 

download here 

Cảm ơn anh gia_bach đã viết lisp hay cho anh em sử dụng. Nhưng sao em tải về lại không dùng được :(  (phiên bản dùng thử này đã hết hạn). Em thấy anh gia_bach đã publish rồi mà. Em cũng đang cần lisp này. Hy vọng anh gửi cho em lisp với ạ. :)


  • 0