Đến nội dung


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

[Yêu cầu] Lisp xuất text theo thứ tự chọn ra excel


  • Please log in to reply
51 replies to this topic

#41 tientracdia

tientracdia

    biết lệnh scale

  • Members
  • PipPipPip
  • 147 Bài viết
Điểm đánh giá: -11 (hơi kém)

Đã gửi 28 October 2012 - 10:50 AM

Cám ơn Bạn, file này thì được khi xuất ra Excel, nhưng trên Cad thì các só theo hàng thể hiện lại bằng 0.
Mình có thể nhờ bạn giúp cho việc xuất các sồ trên ra excel theo một qui luật, như sau :
1. Chọn theo đường bao đa giác bất kỳ.
2. Xuất nội dung theo lớp khi chọn đường bao đó
3. xuất ra excel theo từng hàng ngang theo thứ tự sau STT ô - CDTN1,2............. -Diện tích
File gởi kèm
http://www.cadviet.c...81_ycau_1_1.dwg
Rất mong được bạn giúp.
  • 0

#42 dmkdt199

dmkdt199

    biết zoom

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

Đã gửi 20 November 2012 - 03:46 PM

Vậy các bác có lisp nào như sau:
Trong nhiều vùng khép kín, ở mỗi vũng có “Text” và “số” , “Text” thì nằm không theo quy luật nào trong vùng khép kin đó cả, noi chung là năm bất kỳ trong vùng khép kín đó, nhưng “số” thì nằm tại tâm của vùng kín, vì đã có tâm điểm rồi,
Có lisp nào có thể đưa “Text” về “số” hay là tâm của vùng khép kin đó được không, cảm ơn các bác,
hoa

Công việc em ngày nào cũng phải nhặt thóc như thế này, lâu lắm

Hoặc gán “Text” và “số” ra file *.txt, hay *.csv cũng được. miên sao có định dạng
1 Text 10
2 Text 22
3 Text 34
4 Text 41
5 Text 57
……………….
……………….Hình đã gửi
  • 0

#43 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 20 November 2012 - 04:00 PM

Vậy các bác có lisp nào như sau:
Trong nhiều vùng khép kín, ở mỗi vũng có “Text” và “số” , “Text” thì nằm không theo quy luật nào trong vùng khép kin đó cả, noi chung là năm bất kỳ trong vùng khép kín đó, nhưng “số” thì nằm tại tâm của vùng kín, vì đã có tâm điểm rồi,
Có lisp nào có thể đưa “Text” về “số” hay là tâm của vùng khép kin đó được không, cảm ơn các bác,
hoa

Công việc em ngày nào cũng phải nhặt thóc như thế này, lâu lắm

Hoặc gán “Text” và “số” ra file *.txt, hay *.csv cũng được. miên sao có định dạng
1 Text 10
2 Text 22
3 Text 34
4 Text 41
5 Text 57
……………….
……………….

Hề hề hề,
Bạn cần gửi file bản vẽ lên mới có thể biết được có làm được hay không chứ. hãy đọc kỹ nội quy post bài khi yêu cầu viết lisp.
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#44 dmkdt199

dmkdt199

    biết zoom

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

Đã gửi 20 November 2012 - 04:13 PM

Đây bác ạ, đây là ví du của emhttp://www.cadviet.c...115001_vidu.dwg
  • 0

#45 dmkdt199

dmkdt199

    biết zoom

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

Đã gửi 20 November 2012 - 04:13 PM

Mà em dùng autocad R14, Nên hinh như không có tính năng VBA đâu bác a
  • 0

#46 dmkdt199

dmkdt199

    biết zoom

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

Đã gửi 20 November 2012 - 04:14 PM

Xin lỗi vì quên mất không đánh dấu,Em cảm ơn bác trước
  • 0

#47 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 20 November 2012 - 09:03 PM

Đây bác ạ, đây là ví du của emhttp://www.cadviet.c...115001_vidu.dwg

Hề hề hề,
Bạn dùng thử cái này coi sao nhé.
Lưu ý rằng:
1/- Lisp viết trên cơ sở các thông số do bản vẽ của bạn cung cấp, tỷ như các text số đều nằm trên layer TCT và text chữ nằm trên layer TT_CHU. Vì thế nếu bản vẽ của bạn dùng không đúng với sự sắp xếp này thì lisp sẽ không cho kết quả đúng.
2/- Lisp hoạt động trên nguyên tắc move text chữ về vị trí tương ứng với text số hiện có mà không thay đổi vị trí của text số. Việc chọn text chữ để move dựa trên khoảng cách từ các text chữ tới mỗi text số. Vì thế nếu như trên bản vẽ của bạn có các text chữ trong khung khác với text số nhưng lại gần text số đó hơn thì lisp sẽ move text chữ này. Do vậy trước khi chạy lisp bạn cần quan sát sơ bộ bản vẽ và điều chỉnh các text chữ này nếu thấy cần thiết.
3/- Các text hiện có trên bản vẽ bạn gửi đều có canh lề ngang là center. Vì thế nếu các bản vẽ khác mà text có canh lề không phải là center thì lisp sẽ chạy ra kết quả không như ý.
4/- Để có thể sử dụng lisp hữu hiệu, bạn nên tìm hiểu kỹ về nó trước khi dùng, Hãy cố gắng vì nếu không sẽ rất dễ bị lợn lành chữa thành lợn toi.

http://www.cadviet.c...94_movetext.lsp

Chúc bạn vui.
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#48 dmkdt199

dmkdt199

    biết zoom

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

Đã gửi 21 November 2012 - 09:13 AM

Bác ơi sao không chạy được bác a,bấn điểm thứ nhất , rồi bấn đường chéo của điểm thứ 2 mà nó không chạy, em dùng cad R14, và cả cad 2004 mà vẫn không chạy được bác ạ

Nó hiện lên như thế này bác ạ


( Chon diem thu nhat cua cua so
Chon diem thu hai cua cua so theo duong cheo; error: no function definition:
ACET-SS-TO-LIST)
  • 0

#49 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 21 November 2012 - 01:59 PM

Bác ơi sao không chạy được bác a,bấn điểm thứ nhất , rồi bấn đường chéo của điểm thứ 2 mà nó không chạy, em dùng cad R14, và cả cad 2004 mà vẫn không chạy được bác ạ

Nó hiện lên như thế này bác ạ


( Chon diem thu nhat cua cua so
Chon diem thu hai cua cua so theo duong cheo; error: no function definition:
ACET-SS-TO-LIST)

hề hề hề,
Vậy là bạn chưa cài Express tool rồi.
Để mình chỉnh lại lisp vậy.

Của bạn đây:
http://www.cadviet.c..._movetext_1.lsp
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#50 dmkdt199

dmkdt199

    biết zoom

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

Đã gửi 03 December 2012 - 08:26 PM

hề hề hề,
Vậy là bạn chưa cài Express tool rồi.
Để mình chỉnh lại lisp vậy.

Của bạn đây:
http://www.cadviet.c..._movetext_1.lsp


  • 0

#51 dmkdt199

dmkdt199

    biết zoom

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

Đã gửi 03 December 2012 - 08:29 PM

Dạ được rồi bác ạ.lâu giờ có việc nên chưa cảm ơn bác được, cảm ơn bác nhiều nha
  • 0

#52 dmkdt199

dmkdt199

    biết zoom

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

Đã gửi 23 July 2013 - 03:32 PM

lâu ngày giờ mới lại được lên cadviet.com xin giúp đỡ

bác giúp em tý nữa được không

làm sao tô màu thật nhanh layer khép kín mà không ảnh hưởng đến các layer khác và không phải làm thủ công là tô từng layer 

vd: http://www.cadviet.c.../115001_1_1.dwg

 và sẽ được 2 như sau

http://www.cadviet.c.../115001_2_1.dwg

xin bác giúp cho

em cảm ơn bác 


  • 0