Đến nội dung


Hình ảnh
- - - - -

hình khối 3D cần tính tiết diện S của mặt cắt


  • Please log in to reply
1 reply to this topic

#1 xuanthai.vmi

xuanthai.vmi

    Chưa sử dụng CAD

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

Đã gửi 20 August 2010 - 01:54 PM

Chào các bác.Mình là lính mới trong lĩnh vực Auto lisp nhờ các bác đi trước chỉ giáo giúp:Mình có 1 hình khối 3D giờ mình cần tính tiết diện S của mặt cắt theo cao độ Z (Hệ tọa độ 0XYZ, trong đó 0Z theo phương thẳng đứng) khi Z chạy từng cm, băt đầu từ cm thứ 1 đến hết chiều cao của khối. Rất mong các bác hồi âm sớm, cảm ơn rất nhiều.
  • 0

#2 ssg

ssg

    biết lệnh adcenter

  • Vip
  • PipPipPipPipPipPipPip
  • 1228 Bài viết
Điểm đánh giá: 1087 (rất tốt)

Đã gửi 20 August 2010 - 07:45 PM

Chào các bác.Mình là lính mới trong lĩnh vực Auto lisp nhờ các bác đi trước chỉ giáo giúp:Mình có 1 hình khối 3D giờ mình cần tính tiết diện S của mặt cắt theo cao độ Z (Hệ tọa độ 0XYZ, trong đó 0Z theo phương thẳng đứng) khi Z chạy từng cm, băt đầu từ cm thứ 1 đến hết chiều cao của khối. Rất mong các bác hồi âm sớm, cảm ơn rất nhiều.

Gợi ý:
1- (setq e (car (entsel "\nChon khoi 3DSolid:")))
2- Xác định điểm thấp nhất p (trên e)
3- (command "section" e "" "XY" p) -> Kết quả: 1 region được tạo thành
4- Tính diện tích entlast, tùy ý xử lý kết quả, xóa entlast
5- (setq p (+ p 10)), lặp lại các bước từ 3 đến 5 cho đến hết

Nếu bạn là Lisp Programmer, bạn sẽ biết cách cụ thể hóa những gợi ý trên.
  • 1