Đến nội dung


Hình ảnh
- - - - -

[Help] Em mới học lisp cần mọi người chỉ giáo


  • Please log in to reply
6 replies to this topic

#1 tadanghai1991

tadanghai1991

    Chưa sử dụng CAD

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

Đã gửi 08 January 2013 - 08:02 PM

Chẳng là sang học kì mới em đc học môn lập trình cad/cam. Thầy giáo có cho 2 cái bài này em tìm gg mãi chẳng thấy có cái liên quan, đc cái ông giáo cũng dạy chả hiểu gì. Mọi người giúp em với. Tks các bác!
  • 0

#2 tadanghai1991

tadanghai1991

    Chưa sử dụng CAD

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

Đã gửi 08 January 2013 - 08:12 PM

em cần code thôi, ai giúp em có thể post tại topic hoặc gửi vào mail tadanghai1991@gmai.con. Tks!
Hình đã gửi
  • 0

#3 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 08 January 2013 - 09:06 PM

Mình đọc mail, định code giúp bạn, nhưng chẳng hiểu bạn đã học được những gì ở LISP, cũng k hiểu bạn khó hiểu chỗ nào. Bạn bí ý tưởng, hay thuật toán, hay hàm cần có ... ? Bạn chia sẻ lên đây nhé.
Code giúp bạn có thể nhanh, nhưng như vậy sau này bạn có tự làm được gì không ?
  • 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


#4 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 08 January 2013 - 09:18 PM

P/s : mình cũng đã thử viết, cũng chỉ mất 5p và chưa thấy vấn đề nào khó về toán học ở đây cả. Bạn khó chỗ nào ?
  • 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


#5 nhoclangbat

nhoclangbat

    Edu level: li10

  • Members
  • PipPipPipPipPipPipPip
  • 1409 Bài viết
Điểm đánh giá: 379 (khá)

Đã gửi 08 January 2013 - 09:37 PM

anh Ket em ko hỉu câu 1, còn câu 2 chắc em chưa học tới :D
  • 0
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#6 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 08 January 2013 - 09:56 PM

Câu 1 hàm điều kiện, câu 2 có một chút tính toán điểm, cả 2 nhóc đều chưa tới, n sắp tới rồi :)
  • 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


#7 quansla

quansla

    biết lệnh xclip

  • Members
  • PipPipPipPipPipPipPip
  • 643 Bài viết
Điểm đánh giá: 224 (khá)

Đã gửi 08 January 2013 - 10:34 PM

em cần code thôi, ai giúp em có thể post tại topic hoặc gửi vào mail tadanghai1991@gmai.con. Tks!


(defun c:tinha ( / x KQ)
(setq x (getreal "nhap so thuc x "))
(if (and ( > x 2 )(< x (* 2 pi)))
(progn
(princ (strcat "gia tri x da nhap: " (rtos x ) " thoa man 2 < " (rtos x ) " < 2pi"))
(princ)
(setq KQ (sin (/ (- ( * 5 x) 2) (sqrt (- x 2)))))
)
(progn
(princ (strcat "gia tri x da nhap: " (rtos x ) "/nphai tinh theo co (2 + 5x)" ))
(princ)
(setq KQ (cos (+ 2 (* 5 x))))
)
)
(princ KQ)
(princ)
)
(defun c:ve (/ p r A B C D os k)
(setvar "cmdecho" 0)
(setq p (getpoint "/nNhap toa do diem A")
r (getdist "/nNhap r"))
(progn
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(defun chuyen (p x y z)
(mapcar '+
p
(list x y z))
)
(setq A p
B (chuyen A r 0 0)
C (chuyen A r r 0)
D (chuyen A 0 r 0))
(command "line" A B C D A "")
(command "Arc" "c" A B D)
(command "Arc" "c" C D B)
)
(setq k (* 0.2 (distance A D))
A1 (chuyen A k k 0))
(command "BOUNDARY" A1 "")
(command "area" "o" "l")
(Princ (strcat "Dien tich hinh la " (rtos (* 2 (getvar "area")))))
(princ)
(setvar "osmode" os)
(setvar "cmdecho" 1)
)

  • 2