Đến nội dung


Hình ảnh
- - - - -

Nhờ các anh, các bạn sửa giúp Lisp "Tính diện tích và lập bảng tổng hợp"


  • Please log in to reply
11 replies to this topic

#1 bm21v2011

bm21v2011

    biết zoom

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

Đã gửi 13 April 2014 - 11:02 AM

Hôm nay tôi mới đăng ký tài khoản Cadviet để nhờ giúp đỡ. Xong từ lâu Cadviet đã là 1 người bạn thân do những thắc mắc trong quá trình sử dụng AutoCad. Tôi có 1 lisp tính diện tích và lập bảng download trên diễn đàn nhờ các anh, các bạn sửa giúp cho phù hợp với nhu cầu công việc. Lisp gốc:

http://www.cadviet.c...ap_bang_sua.lsp

Mong muốn:

1/ Sửa để diện tích của lớp 1 chẳng hạn sẽ gồm nhiều hình thành phần hay hiểu đơn giản là pick nhiều vùng kín (Tương tự như lisp dưới đây: 

http://www.cadviet.c...064_dtich_1.lsp

Lệnh n diện tích lớp 1 bằng diện tích tổng của nhiều hình) rồi cho tổng diện tích của lớp 1 vào bảng (Có thể là kết thúc bằng phím "Enter" rồi có 2 lựa chọn "Pick nhiều vùng kín để tính diện tích nhiều lớp tiếp theo" hoặc "Enter để kết thúc lệnh", tính tổng trên bảng (Nếu khó có thể bỏ tổng ở bảng tổng hợp cũng được).

 

2/ Sửa để số thứ tự lớp (1, 2, 3....) trên hình vẽ nhỏ lại (bằng khoảng 1/5 đến 1/8 để số nằm vừa lọt trong lớp) hiện tại (Số thứ tự lớp chứ không phải chiều cao của Text trong Bảng tổng hợp vì Text đã có lựa chọn chiều cao Text).

 

Hình minh họa các yêu cầu:

130064_minh_ha.jpg

 

File minh họa công việc:

https://doc-0s-3k-do...5626&e=download

 

Cảm ơn các anh và các bạn!


  • 0

#2 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 13 April 2014 - 12:40 PM

Tác giả cái lisp này trông (cách viết) quen quen. Hình như là bác ThaiStreetz thì phải.  B)

Mạn phép tác giả sửa lại theo yêu cầu chủ thớt.

 

http://www.cadviet.c...ap_bang_sua.lsp


  • 0

#3 bm21v2011

bm21v2011

    biết zoom

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

Đã gửi 13 April 2014 - 02:13 PM

Cảm ơn bạn "Tot77" :) . Nhờ bạn nào sửa thêm giúp mình 1 chút nữa trên Lisp bạn "Tot77" đã sửa: Khi Pick tính diện tích để phần hatch mịn hơn 1 chút (các đường gạch chéo gần nhau hơn) và sau khi thay cho số thì xóa Hatch đã tạo như Lisp mình đã gửi ở trên: http://www.cadviet.c...064_dtich_1.lsp


  • 0

#4 bm21v2011

bm21v2011

    biết zoom

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

Đã gửi 13 April 2014 - 03:48 PM

Và 1 cái nữa bạn "Tot77" chưa sửa là chiều cao số thứ tự của lớp vẫn rất lớn. Mình muốn nó nằm lọt trong giới hạn 2 lớp.


  • 0

#5 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 13 April 2014 - 03:56 PM

1. Không thể biết cái lớp của bạn to nhỏ thế nào để định chiều cao text. Chiều cao hiện nay bằng chiều cao chữ trong bảng. Nếu muốn nhỏ cũng được nhưg nhỏ như thế nào?

2. Bạn muồn hatch mịn làm gì để sau đó xóa hatch đi?


  • 0

#6 bm21v2011

bm21v2011

    biết zoom

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

Đã gửi 13 April 2014 - 04:16 PM

Thấy có số 77 nên tớ cứ gọi anh cho chắc. Mình sinh 1985.

1/ Lớp thì mình có gửi kèm file ở trên. Mình gửi lại ở đây:

https://www.mediafir...sh2njajg2omf36d

 

Mình muốn chiều cao text nhỏ để text nằm gọn trong lớp để TVGS kiểm tra cho dễ.

 

2/ Mình muốn Hatch mịn vì bản vẽ của mình thiết kế nhiều phần diện tích rất nhỏ. Mình muốn Hatch mịn để dễ nhìn, khỏi nhầm lẫn.


  • 0

#7 bm21v2011

bm21v2011

    biết zoom

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

Đã gửi 13 April 2014 - 04:21 PM

Và nếu được thì nhờ bạn sửa giúp mình luôn Lisp này:

 

http://www.cadviet.c...h-dien-tich-ss/

 

Sau khi lập bảng xong bằng lisp trên mình sẽ dùng Lisp này để kiểm tra. ""Mình muốn Hatch mịn vì bản vẽ của mình thiết kế nhiều phần diện tích nhỏ. Mình muốn Hatch mịn để dễ nhìn, khỏi nhầm lẫn"".


  • 1

#8 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 13 April 2014 - 05:53 PM

Sửa lại như sau:

 

http://www.cadviet.c..._bang_sua_1.lsp


  • -1

#9 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 13 April 2014 - 06:08 PM

Và cái lisp ss.

 

http://www.cadviet.c...a_ghi_so_ss.lsp


  • 0

#10 bm21v2011

bm21v2011

    biết zoom

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

Đã gửi 13 April 2014 - 07:47 PM

Tuyệt vời. Rất cảm ơn bạn.


  • 0

#11 rancua1501

rancua1501

    biết zoom

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

Đã gửi 02 June 2014 - 08:01 AM

sao e k dowload đc 

các a up lại giùm e


  • 0

#12 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 03 June 2014 - 05:49 PM

sao e k dowload đc 

các a up lại giùm e

Bạn liên hệ với bạn bm21v2011 là người sử dụng chắc là còn lưu file lisp, link cadviet không down được không liên quan gì tới tôi.


  • 0