Đến nội dung


Hình ảnh
- - - - -

Để kết quả ra 2 số sau dấu phẩy


  • Please log in to reply
7 replies to this topic

#1 tuvn254

tuvn254

    biết vẽ line

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

Đã gửi 25 May 2009 - 02:12 PM

:s_big: thực là iem không bít viết lisp, nhưng có cop được một số lisp của mấy ku bạn, khi xuất ra kết quả nó thường để 4 số sau dấu fẩy, vậy giờ iem muốn sửa lại thành 2 số sau dấu fẩy thì vào đoạn mã nào sửa, và sửa thế nào vậy các bác. Thanks các bác nhìu......... :s_big:
  • 0

#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 25 May 2009 - 02:15 PM

:s_big: thực là iem không bít viết lisp, nhưng có cop được một số lisp của mấy ku bạn, khi xuất ra kết quả nó thường để 4 số sau dấu fẩy, vậy giờ iem muốn sửa lại thành 2 số sau dấu fẩy thì vào đoạn mã nào sửa, và sửa thế nào vậy các bác. Thanks các bác nhìu......... :s_big:

Dùng hàm rtos
Bạn upload file Lisp lên đây, Tue_NV sửa dùm cho.
  • 1

#3 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 25 May 2009 - 02:24 PM

:s_big: thực là iem không bít viết lisp, nhưng có cop được một số lisp của mấy ku bạn, khi xuất ra kết quả nó thường để 4 số sau dấu fẩy, vậy giờ iem muốn sửa lại thành 2 số sau dấu fẩy thì vào đoạn mã nào sửa, và sửa thế nào vậy các bác. Thanks các bác nhìu......... :s_big:

Bạn dấu lisp thì làm như sau:
Tìm chử rtos cú pháp nó đại khái thế này (rtos gigi 2 4)
bạn sửa số 4 thành số 2
  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#4 tuvn254

tuvn254

    biết vẽ line

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

Đã gửi 25 May 2009 - 02:56 PM

hihi, các bác nói e giấu lisp thì tội cho e quá. Chẳng qua iem mún hỏi để sau này có thể tự chỉnh lại được, vì iem xài rất nhiều lisp-chã nhẽ post hết lisp lên nhờ các bác thì bùn kười quá. Có lần e thấy 1 người bật lisp lên chỉnh lại 4 thành 2 (theo iem hiểu là 4 số sau dấu phẩy thành 2 số sau dấu phẩy, mà iem không nhớ được ngừoi đó chỉnh ở câu lệnh gì trong lisp). Thanks các bác, và đừng nghĩ iem dấu lisp, tội nghiệp iem, vì hấu như bộ lisp của iem cũng toàn lấy trên cadviet về mà, các bác giúp iem lisp này: http://www.cadviet.c...pfiles/DT_1.rar
:s_big:
  • 0

#5 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 25 May 2009 - 03:06 PM

hihi, các bác nói e giấu lisp thì tội cho e quá. Chẳng qua iem mún hỏi để sau này có thể tự chỉnh lại được, vì iem xài rất nhiều lisp-chã nhẽ post hết lisp lên nhờ các bác thì bùn kười quá. Có lần e thấy 1 người bật lisp lên chỉnh lại 4 thành 2 (theo iem hiểu là 4 số sau dấu phẩy thành 2 số sau dấu phẩy, mà iem không nhớ được ngừoi đó chỉnh ở câu lệnh gì trong lisp). Thanks các bác, và đừng nghĩ iem dấu lisp, tội nghiệp iem, vì hấu như bộ lisp của iem cũng toàn lấy trên cadviet về mà.... :s_big: :s_big:

Tue_NV thì không nghĩ bạn giấu nên mới yêu cầu bạn upload lên

Bạn hoàn toàn có thể post 1 đoạn Lisp đó lên đây được mà.
Bạn nói post nhiều Lisp lên là ý làm sao? Tue_NV chưa được tỏ
Nếu không có vấn đề gì thì Bạn hãy upload Lisp của bạn lên đây nhé.

Còn nếu muốn chỉnh số lẻ thập phân thì bạn có thể làm theo cách này

(setq thapphan (getint "\n So chu so thap phan :"))

Tìm chữ rtos cú pháp nó đại khái thế này (rtos gigi 2 4)
bạn sửa số 4 thành thapphan là OK.
  • 0

#6 tuvn254

tuvn254

    biết vẽ line

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

Đã gửi 25 May 2009 - 04:34 PM


(Defun c:a2()
(setvar "cmdecho" 0)
(initget "Heso Do")
(setq pt (getpoint "\n Chon diem:"))
(if (= pt "Heso")
(progn
(setq am (getreal "Cho he so"))
(if (and (null am) (/= ac 0))
(setq am ac)
)
(setq pt (getpoint "\n Chon diem: "))
)
(setq ac am))

(if (or (= am 0) (null am)) (setq am 1))
(setq s 0)
(progn
; (setq pt (getpoint "\n Chon diem: "))
(while pt
(setq entold (cdr (assoc 5 (entget (entlast)))))
(command "boundary" pt "")
(setq entnew (cdr (assoc 5 (entget (entlast)))))
(if (/= entold entnew)
(progn
(setq entnew (entget (entlast)))
(if (assoc 62 entnew)
(setq entnew (subst (cons 62 (+ 3 (cdr (assoc 62 entnew)))) (assoc 62 entnew) entnew))
(setq entnew (append entnew (list (cons 62 (+ 3 (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 entnew))))))))))
)


(entmod entnew)
(Command "area" "o" (entlast))
(setq s (+ s (getvar "area")))
(setq pt (getpoint "\n Chon diem: "))
(entdel (entlast))
)
(progn
(princ "chon diem sai")
(setq pt (getpoint "\n Chon diem: "))
)
)
)

)

(princ (* s 1))
(princ)
)


  • 0

#7 tuvn254

tuvn254

    biết vẽ line

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

Đã gửi 25 May 2009 - 04:36 PM

mình đã post lên rồi, bạn chỉ cho mình cách sửa nhé..........
  • 0

#8 q288

q288

    biết lệnh fillet

  • Members
  • PipPipPipPip
  • 209 Bài viết
Điểm đánh giá: 164 (tàm tạm)

Đã gửi 25 May 2009 - 05:55 PM

:s_big: thực là iem không bít viết lisp, nhưng có cop được một số lisp của mấy ku bạn, khi xuất ra kết quả nó thường để 4 số sau dấu fẩy, vậy giờ iem muốn sửa lại thành 2 số sau dấu fẩy thì vào đoạn mã nào sửa, và sửa thế nào vậy các bác. Thanks các bác nhìu......... :s_big:


Bạn sửa dòng cuối cùng (princ (* s 1)) ---> (princ (rtos (* s 1) 2 2))
nhưng k hiểu sao ng viết ct lại viết (* s 1) làm gì nhỉ :s_big:
  • 1