Đến nội dung


Hình ảnh
- - - - -

lisp vẽ hệ số mái,


  • Please log in to reply
4 replies to this topic

#1 vminh_ct

vminh_ct

    biết lệnh stretch

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

Đã gửi 25 August 2010 - 10:36 PM

bác nào viết hộ e cái lisp, vẽ 1 đoạn thẳng có độ dài bằng 1 và hệ số mái do người dùng nhập vào ( vd m=0.5, 0,75...), e cũng tìm trong diễn đàn có cái lisp vẽ độ dốc mái là vẽ i=10,100,...% với độ dài đoạn thẳng người dùng cho bất kỳ, e định mày mò để cải tiến thành vẽ hệ số mái m nhưng mãi không được, bác nào viết giúp e được không ạ, đây là file vẽ mái có độ dốc e tìm được.
http://www.cadviet.c...files/3/doc.lsp
  • 0
" Sống trên đời cần có 1 tấm lòng,để gió mãi cuốn đi"

#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 26 August 2010 - 05:17 AM

bác nào viết hộ e cái lisp, vẽ 1 đoạn thẳng có độ dài bằng 1 và hệ số mái do người dùng nhập vào ( vd m=0.5, 0,75...), e cũng tìm trong diễn đàn có cái lisp vẽ độ dốc mái là vẽ i=10,100,...% với độ dài đoạn thẳng người dùng cho bất kỳ, e định mày mò để cải tiến thành vẽ hệ số mái m nhưng mãi không được, bác nào viết giúp e được không ạ, đây là file vẽ mái có độ dốc e tìm được.
http://www.cadviet.c...files/3/doc.lsp

Của bạn đây :
(defun c:doc(/ p L m)
(command ".line" (setq p (getpoint "\n Pick diem dau :"))
(strcat "@" (rtos (setq L (getdist p "\n Nhap chieu dai :")))
","
(rtos (* L (getreal "\nVao he so mai doc : ") ))
)
"")
(princ)
)

  • 1

#3 vminh_ct

vminh_ct

    biết lệnh stretch

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

Đã gửi 26 August 2010 - 08:15 AM

(strcat "@" (rtos (setq L (getdist p "\n Nhap chieu dai :")))
","
(rtos (* L (getreal "\nVao he so mai doc : ") ))
)
Bác TUe_nv có thể giải thích cho e mấy dòng lisp của lệnh này không ạ.
e hiểu sơ sơ là tính tọa độ của 2 điểm rồi nối vào nhưng vẫn còn mập mờ chưa hiểu rõ.
Nhất là hàm rtos của dòng này: (rtos (* L
MOng bác chỉ giúp.
  • 0
" Sống trên đời cần có 1 tấm lòng,để gió mãi cuốn đi"

#4 vminh_ct

vminh_ct

    biết lệnh stretch

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

Đã gửi 26 August 2010 - 10:03 AM

Bác Tue hiểu nhầm ý em rồi, ý e là hệ số mái m= cotang (góc của mái dốc). e vẽ và đo thấy m=i= tang của góc mái dốc. Bác xem lại hộ e
  • 0
" Sống trên đời cần có 1 tấm lòng,để gió mãi cuốn đi"

#5 vminh_ct

vminh_ct

    biết lệnh stretch

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

Đã gửi 27 August 2010 - 05:21 PM

cám ơn bác Tue nhé, e thay dấu * thành dấu / là được cát tường như ý. nhưng vẫn chưa hiểu rõ lắm ý nghĩa các hàm và các dòng lênh.
  • 0
" Sống trên đời cần có 1 tấm lòng,để gió mãi cuốn đi"