Đến nội dung


Hình ảnh
- - - - -

Hỏi lisp để chuyển đơn vị diện tích từ mét vuông sang héc ta ?


  • Please log in to reply
4 replies to this topic

#1 thuong_mdc80

thuong_mdc80

    biết vẽ line

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

Đã gửi 18 March 2010 - 09:18 AM

Chào các A/c.
Tôi có các bản vẽ mà diện tích được tính bằng mét vuông (m2). Nhờ các Bác viết hộ 1 lisp thỏa mãn các yêu cầu sau:
- Cho phép chuyển đơn vị từ mét vuông (m2) sang đơn vị héc ta (ha, 1m2= 0.0001ha);
- Cho phép chọn từng vùng hoặc toàn bộ bản vẽ đang mở;
- Cho phép chọn số chữ số thập phân sau đơn vị héc ta (VD: diện tích là 12345 (m2) sau khi chuyển có dạng: 1.2 (ha), hoặc 1.23 (ha) hoặc 1.234 (ha) tùy theo người chọn 1 hoặc 2 hoặc 3 chữ số thập phân lẻ).
Xin chân thành cảm ơn.
  • 0

#2 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 18 March 2010 - 09:59 AM

Chào các A/c.
Tôi có các bản vẽ mà diện tích được tính bằng mét vuông (m2). Nhờ các Bác viết hộ 1 lisp thỏa mãn các yêu cầu sau:
- Cho phép chuyển đơn vị từ mét vuông (m2) sang đơn vị héc ta (ha, 1m2= 0.0001ha);
- Cho phép chọn từng vùng hoặc toàn bộ bản vẽ đang mở;
- Cho phép chọn số chữ số thập phân sau đơn vị héc ta (VD: diện tích là 12345 (m2) sau khi chuyển có dạng: 1.2 (ha), hoặc 1.23 (ha) hoặc 1.234 (ha) tùy theo người chọn 1 hoặc 2 hoặc 3 chữ số thập phân lẻ).
Xin chân thành cảm ơn.


Bạn thuong_mdc80 thân mến,
Bạn có thể nói rõ cái đơn vị mà bạn sử dụng để vẽ được không??? m hay mm??? Bởi vì Cad sẽ tính diện tích vùng bạn chọn theo đơn vị bạn sử dụng để vẽ. Đó là chưa kể đến cái tỷ lệ bạn dùng nữa.
Để có được chính xác kết quả bạn cần cho biết cụ thể bạn nhé.
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#3 bachngoctung

bachngoctung

    biết lệnh copy

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

Đã gửi 18 March 2010 - 11:08 PM

Chào các A/c.
Tôi có các bản vẽ mà diện tích được tính bằng mét vuông (m2). Nhờ các Bác viết hộ 1 lisp thỏa mãn các yêu cầu sau:
- Cho phép chuyển đơn vị từ mét vuông (m2) sang đơn vị héc ta (ha, 1m2= 0.0001ha);
- Cho phép chọn từng vùng hoặc toàn bộ bản vẽ đang mở;
- Cho phép chọn số chữ số thập phân sau đơn vị héc ta (VD: diện tích là 12345 (m2) sau khi chuyển có dạng: 1.2 (ha), hoặc 1.23 (ha) hoặc 1.234 (ha) tùy theo người chọn 1 hoặc 2 hoặc 3 chữ số thập phân lẻ).
Xin chân thành cảm ơn.

-thế này bạn nhé: mình thấy trên diễn đàn có lisp tính diện tích đó ra m2 > bạn sử dụng lisp đó ghi diện tích ra(cho nó vào 1 layer nhé) sau khi làm xong hết rồi thì layiso các giá trị diện tích lên rồi dùng lisp chia các giá trị đó cho 10000> thì sẽ dc diện tích là HA (cái lisp chia này có cả buớc chọn số chữ số thập phân bạn nhé).
- Hai lisp trên bạn tìm là có ngay > mình dùng cái này lâu rồi nên ko còn giữ nữa
  • 1

#4 thuong_mdc80

thuong_mdc80

    biết vẽ line

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

Đã gửi 19 March 2010 - 10:39 PM

Trước hết tôi xin cảm ơn các bạn đã quan tâm.
- Vấn đề của tôi xin nói thêm như sau: Tôi có bản vẽ mà trên đó có các giá trị bằng số cụ thể và thuộc 1 lớp (layer). Xin hỏi làm như thế nào để chuyển các giá trị đó thành các giá trị mới mà giá trị mới = 0.0001 lần giá trị đã có (các giá trị đó không phụ thuộc vào đơn vị vẽ, tỉ lệ bản vẽ). Bình thường thì tôi làm thủ công bằng cách dùng lệnh Mo để sửa từng giá trị trên bản và chọn số chữ số thập phân cần thể hiện nên rất mất thời gian.
  • 0

#5 bachngoctung

bachngoctung

    biết lệnh copy

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

Đã gửi 19 March 2010 - 11:49 PM

Trước hết tôi xin cảm ơn các bạn đã quan tâm.
- Vấn đề của tôi xin nói thêm như sau: Tôi có bản vẽ mà trên đó có các giá trị bằng số cụ thể và thuộc 1 lớp (layer). Xin hỏi làm như thế nào để chuyển các giá trị đó thành các giá trị mới mà giá trị mới = 0.0001 lần giá trị đã có (các giá trị đó không phụ thuộc vào đơn vị vẽ, tỉ lệ bản vẽ). Bình thường thì tôi làm thủ công bằng cách dùng lệnh Mo để sửa từng giá trị trên bản và chọn số chữ số thập phân cần thể hiện nên rất mất thời gian.

-trời thế thì quá ngon rồi, đây chính là cái bạn cần cái lisp chia text là ok. Lisp sẽ có công dụng là chia các text mà bạn chọn cho 1 giá trị nào đó ở đây là chia cho 10000 thì sẽ dc đơn vị là HA thôi .trước khi chia nó hỏi số chữ số thập phân của giá trị sau khi chia thì bạn chọn 2,3,.... tùy thích nhé
-Lisp đây : http://www.cadviet.c.../chiasochia.lsp > có cái này chắc mất 30s thì xong
  • 0