Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
luhaivinh

Tạo điểm 3d từ một điểm cho trước.

Các bài được khuyến nghị

luhaivinh    9

Em muốn tạo một điểm từ một điểm cho trước và khoảng cách giữa 2 điểm trong 3d. Hàm polar chỉ tạo được trong 2d thôi. Mọi người giúp e với.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
luhaivinh    9

Tiện đây em nêu ra bài toán mà e cần giai quyết luôn.

Em có một đường ống có n khúc cua (quanh co đủ hướng), đường ống đã có đầy đủ kích thước và góc cua rồi. Em muốn tính chiều dài đường thẳng nối từ điểm đầu và điểm cuối của đường ống.

Ý  của em là chỉ cần tìm tọa độ điểm cuối là giải quyết được vấn đề vì đã có điểm đầu rồi.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
luhaivinh    9

:(  :(  :(

Em không upload file cho bác xem được vì công ty chặn không cho up tài liệu lên internet.

Bác Hà cho em hỏi có những các nào để tạo điểm 3d không.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Doan Van Ha    2.680

Quá mệt với bạn! Bạn thử cái này (của ai quên rồi) coi đúng ý không, chứ tôi không hiểu câu hỏi của bạn.

 

; Polar point with corrected Z value
; X,Y are same as regular 2D polar, but Z is corrected to be co-linear in 3D
; ARG: pt1: 3D point (this end)
; ARG: pt2: 3D point (other end)
; ARG: dist: 2D (horz) distance
; RETURN: point at specified 2D distance from pt1, with Z corrected
(defun polar (pt1 pt2 dist / dz dx pt3 z3)
  (setq
    dz (- (caddr pt2) (caddr pt1))
    dx (distance pt1 (stripz pt2)) ; 2D distance
    pt3 (polar pt1 (angle pt2 pt1) dist) ; this will have same Z as pt1
    dz (* (/ dz dx) dist) ; dz at new point
    z3 (- (caddr pt3) dz)) ; Z val at new point
  (zfix pt3 z3)) ; new point with corrected Z
(defun stripz (pt)(list (car pt)(cadr pt)))
(defun zfix (pt z) (list (car pt) (cadr pt) z))
  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×