Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
alibaba2209

(Yêu cầu): Lsp cộng vào dãy số ngẫu nhiên

Các bài được khuyến nghị

Chào anh chị! em có 1 dãy số và cộng vào ngẫu nhiên: chạy từ 0~0.03

VD: lệnh (cnn) -> chọn ngẫu nhiên từ 0 đến 0.03 -> chọn đối tượng

40.00  40.00 40.00 40.00 40.00

kết quả = 40.02 40.00 40.01 40.03 40.02

Untitled.png

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Chuẩn luôn! cao độ phân lớp, chạy san nền số đều tăm tắp, tư vấn không nghe, bắt chỉnh cho ngẫu nhiên.. chỉnh tay từng số thì ốm mất. nên muốn nhờ anh em viết cho lsp kích chuột chọn all số phát nhẩy ngẫu nhiên tùm lum giống như lệnh randbetween ở excel

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
8 phút trước, alibaba2209 đã nói:

Bản vẽ đây: mình cần cộng thêm vào 1 loạt dãy số, lấy sau dấu phẩy bao nhiêu đơn vị, cộng vào ngẫu nhiên từ số ?? đến số ??

KL San nen.dwg

Mai rảnh sẽ viết cho bạn!

  • Like 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
12 phút trước, alibaba2209 đã nói:

Tối hộ mình luôn được không, đang cần quá, làm hồ sơ công trình của VinGroup nó bắt hoàn công theo từng ngày

Yes. Bắt Phạm Nhật Vượng trả tiền nhé!

  • Like 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Buồn ngủ rồi


;----- Ranom cong ngau nhien vao cac Text co san tren ban ve. By HA, 26/02/2020
(defun C:CNN(/ nho lon sle ss i txt rdm)
 (command "undo" "be")
 (setq nho (getreal "\nNhap so nho nhat: "))
 (setq lon (getreal "\nNhap so lon nhat: "))
 (setq sle (getint "\nSo luong so le can lay: "))
 (princ "\nChon tap hop Text can Random...")
 (setq ss (ssget '((0 . "Text"))))
 (repeat (setq i (sslength ss))
  (setq txt (cdr (assoc 1 (setq lst (entget (ssname ss (setq i (1- i))))))))
  (setq rdm (* (- lon nho) (LM:rand)))
  (entmod (subst (cons 1 (rtos (+ (atof txt) rdm) 2 sle)) (cons 1 txt) lst)))
 (command "undo" "e") 
 (princ))
(defun LM:rand ( / a c m )
 (setq m 4294967296.0 a 1664525.0 c 1013904223.0 $xn (rem (+ c (* a (cond ($xn) ((getvar 'date))))) m))
 (/ $xn m))

  • Like 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
15 phút trước, Doan Van Ha đã nói:

Buồn ngủ rồi

 



;----- Ranom cong ngau nhien vao cac Text co san tren ban ve. By HA, 26/02/2020
(defun C:CNN(/ nho lon sle ss i txt rdm)
 (command "undo" "be")
 (setq nho (getreal "\nNhap so nho nhat: "))
 (setq lon (getreal "\nNhap so lon nhat: "))
 (setq sle (getint "\nSo luong so le can lay: "))
 (princ "\nChon tap hop Text can Random...")
 (setq ss (ssget '((0 . "Text"))))
 (repeat (setq i (sslength ss))
  (setq txt (cdr (assoc 1 (setq lst (entget (ssname ss (setq i (1- i))))))))
  (setq rdm (* (- lon nho) (LM:rand)))
  (entmod (subst (cons 1 (rtos (+ (atof txt) rdm) 2 sle)) (cons 1 txt) lst)))
 (command "undo" "e") 
 (princ))
(defun LM:rand ( / a c m )
 (setq m 4294967296.0 a 1664525.0 c 1013904223.0 $xn (rem (+ c (* a (cond ($xn) ((getvar 'date))))) m))
 (/ $xn m))

 

ôi! sướng quá. vị cứu tinh.. cảm ơn bạn nhiều

mà mình hỏi chút số nhỏ nhất lấy giá trị âm được không nhỉ!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Âm dương


;----- Ranom cong them ngau nhien vao cac Text co san tren ban ve. By HA, 26/02/2020
(defun C:CNN(/ nho lon sle ss i txt rdm)
 (command "undo" "be")
 (setq nho (getreal "\nNhap so nho nhat: "))
 (setq lon (getreal "\nNhap so lon nhat: "))
 (setq sle (getint "\nSo luong so le can lay: "))
 (princ "\nChon tap hop Text can Random...")
 (setq ss (ssget '((0 . "Text"))))
 (repeat (setq i (sslength ss))
  (setq txt (cdr (assoc 1 (setq lst (entget (ssname ss (setq i (1- i))))))))
  (setq rdm (LM:HA:randrange lon nho))
  (entmod (subst (cons 1 (rtos (+ (atof txt) rdm) 2 sle)) (cons 1 txt) lst)))
 (command "undo" "e") 
 (princ))
(defun LM:HA:randrange ( a b )
  (+ (min a b) (* (LM:rand) (abs (- a b)))))
(defun LM:rand ( / a c m )
 (setq m 4294967296.0 a 1664525.0 c 1013904223.0 $xn (rem (+ c (* a (cond ($xn) ((getvar 'date))))) m))
 (/ $xn m))

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
57 phút trước, Doan Van Ha đã nói:

Âm dương

 



;----- Ranom cong them ngau nhien vao cac Text co san tren ban ve. By HA, 26/02/2020
(defun C:CNN(/ nho lon sle ss i txt rdm)
 (command "undo" "be")
 (setq nho (getreal "\nNhap so nho nhat: "))
 (setq lon (getreal "\nNhap so lon nhat: "))
 (setq sle (getint "\nSo luong so le can lay: "))
 (princ "\nChon tap hop Text can Random...")
 (setq ss (ssget '((0 . "Text"))))
 (repeat (setq i (sslength ss))
  (setq txt (cdr (assoc 1 (setq lst (entget (ssname ss (setq i (1- i))))))))
  (setq rdm (LM:HA:randrange lon nho))
  (entmod (subst (cons 1 (rtos (+ (atof txt) rdm) 2 sle)) (cons 1 txt) lst)))
 (command "undo" "e") 
 (princ))
(defun LM:HA:randrange ( a b )
  (+ (min a b) (* (LM:rand) (abs (- a b)))))
(defun LM:rand ( / a c m )
 (setq m 4294967296.0 a 1664525.0 c 1013904223.0 $xn (rem (+ c (* a (cond ($xn) ((getvar 'date))))) m))
 (/ $xn m))

 

 

Bạn ơi! bị 1 lỗi như này:  Giá trị của mình là 40.00

+ Giờ mình muốn cộng vào số 40.00 ngẫu nhiên từ 0.002-0.005 thì kết quả trả về chỉ cộng thêm 0.003 kết quả 40.001, 40.003  là max từ 40.000~40.003.

+ kết quả mình muốn cộng vào phải là chạy từ 40.000~40.005: vd 40.002, 40.005, 40.003

+ Chỉnh luôn cho mình cái giá trị min mạc định để là 0 ()

Untitled.png

  • Vote giảm 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
6 phút trước, alibaba2209 đã nói:

 

Bạn ơi! bị 1 lỗi như này:  Giá trị của mình là 40.00

+ Giờ mình muốn cộng vào số 40.00 ngẫu nhiên từ 0.002-0.005 thì kết quả trả về chỉ cộng thêm 0.003 kết quả 40.001, 40.003  là max từ 40.000~40.003.

+ kết quả mình muốn cộng vào phải là chạy từ 40.000~40.005: vd 40.002, 40.005, 40.003

+ Chỉnh luôn cho mình cái giá trị min mạc định để là 0 ()

Untitled.png

 

code mới lấy giá trị âm giải quyết được vấn đề này luôn rồi, cảm ơn bạn nhiều. Thêm cái mạc định lúc lệnh giá trị nhỏ nhất để sẵn là 0 như nào bạn nhỉ

  • Vote giảm 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay
Đăng nhập để thực hiện theo  

×