Đến nội dung


Hình ảnh
- - - - -

Cao Thủ Sửa Giúp - Lisp Tính Tổng Chiều Dài


  • Please log in to reply
5 replies to this topic

#1 hitboynoluv

hitboynoluv

    biết vẽ circle

  • Members
  • PipPip
  • 33 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 09 May 2016 - 08:56 AM

Nhờ các bác sửa giúp em Lisp tính tổng chiều dài này. Em muốn xóa đi các chữ số sau khi tính tổng từ dấu chấm. Tức là làm tròn số đó lên tự nhiên đó. Ngoài ra có thể thêm dấu chấm hoặc phảy phân cách số hàng nghìn thì tốt. Ví dụ: 123456.789 => 123,457
 
Các bác xử lý giúp em với ạ. Hoặc chỉ cho em cách xử lý. Cảm ơn các bác rất nhiều

  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 09 May 2016 - 09:30 AM

Tiếc là ở đây toàn thấp thủ :((


  • 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 hitboynoluv

hitboynoluv

    biết vẽ circle

  • Members
  • PipPip
  • 33 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 09 May 2016 - 09:51 AM

Tiếc là ở đây toàn thấp thủ :((

Nhìn số điểm của bác là biết siêu thủ rùi, bác lại khiêm tốn. :D


  • 1

#4 phongtran86

phongtran86

    biết lệnh offset

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

Đã gửi 09 May 2016 - 06:38 PM

Onl đt, ko mở file dc. Bạn tìm dòng (rtos "biến số" làm tròn) sửa lại là dc. Rtos làm tròn số mà
  • 0

#5 phongtran86

phongtran86

    biết lệnh offset

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

Đã gửi 09 May 2016 - 08:18 PM

 

Nhờ các bác sửa giúp em Lisp tính tổng chiều dài này. Em muốn xóa đi các chữ số sau khi tính tổng từ dấu chấm. Tức là làm tròn số đó lên tự nhiên đó. Ngoài ra có thể thêm dấu chấm hoặc phảy phân cách số hàng nghìn thì tốt. Ví dụ: 123456.789 => 123,457
 
Các bác xử lý giúp em với ạ. Hoặc chỉ cho em cách xử lý. Cảm ơn các bác rất nhiều

 

bài của bạn đọc trên đt dc thì k mở dc file, ,ở trên pc phải quote mới đọc dc bài viết j. hài za. chắc các bác ấy thấy đơn giản quá nên k động tay chân ấy mà. Hihi

tìm dòng lệnh

(alert (strcat "Total length = " (rtos L))) 

thay bằng 

(alert (strcat "Total length = " (rtos L 2 0)))

ok?


  • 1

#6 hitboynoluv

hitboynoluv

    biết vẽ circle

  • Members
  • PipPip
  • 33 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 09 May 2016 - 10:27 PM

bài của bạn đọc trên đt dc thì k mở dc file, ,ở trên pc phải quote mới đọc dc bài viết j. hài za. chắc các bác ấy thấy đơn giản quá nên k động tay chân ấy mà. Hihi

tìm dòng lệnh

(alert (strcat "Total length = " (rtos L))) 

thay bằng 

(alert (strcat "Total length = " (rtos L 2 0)))

ok?

Cảm ơn bác. Em cũng không hiểu sao. Em đăng cũng chẳng nhìn thấy gì cả. Mà vào chỉnh sửa thì vẫn thấy.


  • 1