Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
4 replies to this topic

#1 luhaivinh

luhaivinh

    Edu level: li10

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

Đã gửi 20 May 2015 - 01:33 PM

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.


  • 0

#2 luhaivinh

luhaivinh

    Edu level: li10

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

Đã gửi 20 May 2015 - 02:08 PM

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.


  • 0

#3 luhaivinh

luhaivinh

    Edu level: li10

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

Đã gửi 20 May 2015 - 03:01 PM

:(  :(  :(

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.


  • 0

#4 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 20 May 2015 - 03:17 PM

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))

  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#5 luhaivinh

luhaivinh

    Edu level: li10

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

Đã gửi 28 May 2015 - 11:22 AM

Thanks bác Hà. Đã đúng ý em rồi. :D


  • 0