Đến nội dung


Hình ảnh
- - - - -

Gán giá trị tọa độ


  • Please log in to reply
5 replies to this topic

#1 DanKhaosat

DanKhaosat

    biết lệnh scale

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

Đã gửi 25 September 2013 - 11:24 AM

Kính chào các bác em đang làm có đoạn gán dữ liệu :

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
            (setq X1 (car (nth 1 lst))
            Y1 (cadr (nth 1 lst)))
                (setq X2 (car (nth 2 lst))
                Y2 (cadr (nth 1 lst)))     
                    (setq X3 (car (nth 3 lst))
                    Y3 (cadr (nth 3 lst)))
                        (setq X4 (car (nth 4 lst))
                        Y4 (cadr (nth 4 lst)))
                    (setq goc1 (atan (- Y1 Y4) (- X1 X4)))
                    (setq goc (/ goc1 pi))
                    (setq goc (* goc -180))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    (setq P11 '(X1 Y1))
    (setq P22 '(X4 Y4))
    (setq Gocxoay (angle P11 P22))
    (setq Kc (distance P11 P22))
    (setq P3 (polar P11 (+ (/ pi 2) Gocxoay) Height))
    (setq P4 (polar P3  Gocxoay  Kc))

Khi chạy ra nó báo: ; error: bad argument type: 2D/3D point: (X1 Y1)

Em k biết nó như thế nào nhờ các bác chỉ giáo


  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 25 September 2013 - 11:29 AM

Sửa những dòng này :

 (setq P11 '(X1 Y1))    => (setq P11 (list X1 Y1))
  (setq P22 '(X4 Y4))  => (setq P22 (list X4 Y4))

 

Bạn chú ý phân biệt hàm List và Quote (')


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 25 September 2013 - 11:31 AM

Lỗi của bạn ở chỗ: (setq P3 (polar P11 (+ (/ pi 2) Gocxoay) Height))

Bạn nên viết hẳn ra: (setq P11 (list X1 Y1))


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#4 DanKhaosat

DanKhaosat

    biết lệnh scale

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

Đã gửi 25 September 2013 - 11:33 AM

Sửa những dòng này :

 (setq P11 '(X1 Y1))    => (setq P11 (list X1 Y1))
  (setq P22 '(X4 Y4))  => (setq P22 (list X2 Y2))

 

Bạn chú ý phân biệt hàm List và Quote (')

Cảm ơn bác!


  • 0

#5 DanKhaosat

DanKhaosat

    biết lệnh scale

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

Đã gửi 25 September 2013 - 11:35 AM

Cảm ơn bác!

Chắc chương trình tắc đoạn nào nó lại báo: ; error: bad argument type: numberp: nil

Bác ạ!


  • 0

#6 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 25 September 2013 - 11:41 AM

Bạn đọc lại, nãy mình typo


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC