随机缩放、旋转和移动（有更强大的，这个免费）

小毛草 · 发表于 2025-11-15 21:10:12

本帖最后由小毛草于 2025-12-11 09:33 编辑

;;;;;;;;;;;;;;;;;;;;;随机缩放、旋转和移动（各自中心点，带记忆功能，面板设置）;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 全局变量用于记忆上次使用的参数
(setq *rrs_last_min_scale* 0.5)
(setq *rrs_last_max_scale* 2.0)
(setq *rrs_last_min_angle* 0.0)
(setq *rrs_last_max_angle* 0.0)
(setq *rrs_last_min_move* 0.0)
(setq *rrs_last_max_move* 0.0)
(defun c:rrs (/ *error* old_cmd ss min_scale max_scale min_angle max_angle min_move max_move
ent i scale_factor angle move_x move_y center_pt seed user_input params)
;; 错误处理函数
(defun *error* (msg)
(if (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*EXIT*"))
(princ (strcat "\n错误: " msg))
)
(setvar "CMDECHO" old_cmd)
(princ)
)
;; 保存系统变量
(setq old_cmd (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
;; 选择对象
(princ "\n选择要缩放、旋转和移动的对象: ")
(setq ss (ssget))
(if ss
(progn
;; 显示当前参数并询问是否需要设置新参数
(princ (strcat "\n当前参数: 缩放 " (rtos *rrs_last_min_scale* 2 2) " 到 " (rtos *rrs_last_max_scale* 2 2)
", 旋转 " (rtos *rrs_last_min_angle* 2 2) " 到 " (rtos *rrs_last_max_angle* 2 2) "°"
", 移动 " (rtos *rrs_last_min_move* 2 2) " 到 " (rtos *rrs_last_max_move* 2 2)))
(initget "S s")
(setq user_input (getkword "\n按[S]设置参数/<直接执行>: "))
(if (or (equal user_input "S") (equal user_input "s"))
(progn
;; 调用面板设置参数
(if (setq params (show_settings_panel))
(progn
(setq min_scale (nth 0 params)
max_scale (nth 1 params)
min_angle (nth 2 params)
max_angle (nth 3 params)
min_move (nth 4 params)
max_move (nth 5 params))
;; 更新记忆值
(setq *rrs_last_min_scale* min_scale
*rrs_last_max_scale* max_scale
*rrs_last_min_angle* min_angle
*rrs_last_max_angle* max_angle
*rrs_last_min_move* min_move
*rrs_last_max_move* max_move)
(princ (strcat "\n使用新参数: 缩放 " (rtos min_scale 2 2) " 到 " (rtos max_scale 2 2)
", 旋转 " (rtos min_angle 2 2) " 到 " (rtos max_angle 2 2) "°"
", 移动 " (rtos min_move 2 2) " 到 " (rtos max_move 2 2)))
)
(progn
(princ "\n用户取消设置，使用记忆参数。")
(setq min_scale *rrs_last_min_scale*
max_scale *rrs_last_max_scale*
min_angle *rrs_last_min_angle*
max_angle *rrs_last_max_angle*
min_move *rrs_last_min_move*
max_move *rrs_last_max_move*)
)
)
)
(progn
;; 使用记忆的参数
(setq min_scale *rrs_last_min_scale*
max_scale *rrs_last_max_scale*
min_angle *rrs_last_min_angle*
max_angle *rrs_last_max_angle*
min_move *rrs_last_min_move*
max_move *rrs_last_max_move*)
(princ "\n使用记忆参数执行...")
)
)
;; 验证参数范围
(if (or (<= max_scale min_scale)
(and (/= min_angle max_angle) (< max_angle min_angle))
(and (/= min_move max_move) (< max_move min_move)))
(progn
(princ "\n错误: 参数范围设置不正确!")
(setvar "CMDECHO" old_cmd)
(princ)
)
)
;; 初始化随机种子
(setq seed (getvar "MILLISECS"))
;; 遍历选择集并缩放、旋转和移动每个对象
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
;; 获取对象的中心点
(setq center_pt (get_entity_center ent))
(if center_pt
(progn
;; 为每个对象生成独立的随机缩放比例
(setq scale_factor (better_random min_scale max_scale seed i))
;; 执行缩放命令，以对象中心点为基点
(command "_.scale" ent "" "_non" center_pt scale_factor)
;; 如果设置了旋转角度范围，则进行随机旋转
(if (/= min_angle max_angle)
(progn
;; 为每个对象生成独立的随机旋转角度
(setq angle (better_random min_angle max_angle seed (+ i 1000)))
;; 执行旋转命令，以对象中心点为基点
(command "_.rotate" ent "" "_non" center_pt angle)
)
)
;; 如果设置了移动距离范围，则进行随机移动
(if (/= min_move max_move)
(progn
;; 为每个对象生成独立的随机移动向量
(setq move_x (better_random (- max_move) max_move seed (+ i 2000)))
(setq move_y (better_random (- max_move) max_move seed (+ i 3000)))
;; 执行移动命令
(command "_.move" ent "" "_non" center_pt
"_non" (list (+ (car center_pt) move_x)
(+ (cadr center_pt) move_y)
(caddr center_pt)))
)
)
;; 输出处理结果
(princ (strcat "\n对象 " (itoa (1+ i)) " 缩放比例: " (rtos scale_factor 2 3)))
(if (/= min_angle max_angle)
(princ (strcat ", 旋转角度: " (rtos angle 2 2) "°"))
)
(if (/= min_move max_move)
(princ (strcat ", 移动距离: " (rtos (sqrt (+ (* move_x move_x) (* move_y move_y))) 2 2)))
)
)
(princ (strcat "\n警告: 无法获取对象 " (itoa (1+ i)) " 的中心点，跳过处理"))
)
(setq i (1+ i))
)
(princ (strcat "\n成功处理 " (itoa i) " 个对象"))
(princ (strcat "\n缩放比例范围: " (rtos min_scale 2 2) " 到 " (rtos max_scale 2 2)))
(if (/= min_angle max_angle)
(princ (strcat "\n旋转角度范围: " (rtos min_angle 2 2) " 到 " (rtos max_angle 2 2) "°"))
)
(if (/= min_move max_move)
(princ (strcat "\n移动距离范围: " (rtos min_move 2 2) " 到 " (rtos max_move 2 2)))
)
)
(princ "\n未选择任何对象。")
)
;; 恢复系统变量
(setvar "CMDECHO" old_cmd)
(princ)
)
;; 显示设置面板函数
(defun show_settings_panel (/ dcl_id dcl_file dcl_name result params validation_result)
;; 创建DCL文件内容
(setq dcl_file (vl-filename-mktemp "rrs_settings.dcl")
dcl_name "rrs_settings")
;; 写入DCL内容到临时文件
(if (not (write_dcl_file dcl_file))
(progn
(princ "\n无法创建对话框文件!")
(return nil)
)
)
;; 加载对话框
(setq dcl_id (load_dialog dcl_file))
(if (not (new_dialog dcl_name dcl_id))
(progn
(princ "\n无法加载设置对话框!")
(unload_dialog dcl_id)
(vl-file-delete dcl_file)
(return nil)
)
)
;; 设置初始值
(set_tile "min_scale" (rtos *rrs_last_min_scale* 2 2))
(set_tile "max_scale" (rtos *rrs_last_max_scale* 2 2))
(set_tile "min_angle" (rtos *rrs_last_min_angle* 2 2))
(set_tile "max_angle" (rtos *rrs_last_max_angle* 2 2))
(set_tile "min_move" (rtos *rrs_last_min_move* 2 2))
(set_tile "max_move" (rtos *rrs_last_max_move* 2 2))
;; 确定按钮动作
(action_tile "accept"
"(setq params (get_dialog_values))
(setq validation_result (validate_dialog_values params))
(if validation_result
(done_dialog 1)
(progn
(alert "参数值无效，请检查输入!")
)
)")
;; 取消按钮动作
(action_tile "cancel" "(done_dialog 0)")
;; 重置按钮动作 - 重置为默认值
(action_tile "reset"
"(set_tile "min_scale" "0.5")
(set_tile "max_scale" "2.0")
(set_tile "min_angle" "0.0")
(set_tile "max_angle" "0.0")
(set_tile "min_move" "0.0")
(set_tile "max_move" "0.0")")
;; 显示对话框并等待用户响应
(setq result (start_dialog))
(unload_dialog dcl_id)
(vl-file-delete dcl_file)
;; 处理结果
(if (and (= result 1) params validation_result)
params
nil
)
)
;; 验证对话框值的函数
(defun validate_dialog_values (params / min_scale max_scale min_angle max_angle min_move max_move)
(if (not params)
(return nil)
)
(setq min_scale (nth 0 params)
max_scale (nth 1 params)
min_angle (nth 2 params)
max_angle (nth 3 params)
min_move (nth 4 params)
max_move (nth 5 params))
;; 检查是否为有效数字
(if (or (not (numberp min_scale)) (not (numberp max_scale))
(not (numberp min_angle)) (not (numberp max_angle))
(not (numberp min_move)) (not (numberp max_move)))
(progn
(princ "\n错误: 参数必须为数字!")
(return nil)
)
)
;; 检查范围
(cond
((<= max_scale min_scale)
(princ "\n错误: 最大缩放比例必须大于最小缩放比例!")
nil
)
((and (/= min_angle max_angle) (< max_angle min_angle))
(princ "\n错误: 最大旋转角度必须大于最小旋转角度!")
nil
)
((and (/= min_move max_move) (< max_move min_move))
(princ "\n错误: 最大移动距离必须大于最小移动距离!")
nil
)
(t t)
)
)
;; 获取对话框值的函数
(defun get_dialog_values (/ min_scale max_scale min_angle max_angle min_move max_move
str_min_scale str_max_scale str_min_angle str_max_angle str_min_move str_max_move)
(setq str_min_scale (get_tile "min_scale")
str_max_scale (get_tile "max_scale")
str_min_angle (get_tile "min_angle")
str_max_angle (get_tile "max_angle")
str_min_move (get_tile "min_move")
str_max_move (get_tile "max_move"))
;; 确保所有值都是有效的数字，如果为空则使用记忆值
(setq min_scale (if (and str_min_scale (/= str_min_scale ""))
(atof str_min_scale)
*rrs_last_min_scale*))
(setq max_scale (if (and str_max_scale (/= str_max_scale ""))
(atof str_max_scale)
*rrs_last_max_scale*))
(setq min_angle (if (and str_min_angle (/= str_min_angle ""))
(atof str_min_angle)
*rrs_last_min_angle*))
(setq max_angle (if (and str_max_angle (/= str_max_angle ""))
(atof str_max_angle)
*rrs_last_max_angle*))
(setq min_move (if (and str_min_move (/= str_min_move ""))
(atof str_min_move)
*rrs_last_min_move*))
(setq max_move (if (and str_max_move (/= str_max_move ""))
(atof str_max_move)
*rrs_last_max_move*))
(list min_scale max_scale min_angle max_angle min_move max_move)
)
;; 写入DCL文件函数
(defun write_dcl_file (filename)
(setq dcl_content (strcat
"rrs_settings : dialog {\n"
" label = "随机缩放旋转设置";\n"
" : boxed_column {\n"
" label = "缩放设置";\n"
" : row {\n"
" : text { label = "最小比例:"; width = 10; }\n"
" : edit_box { key = "min_scale"; width = 10; fixed_width = true; }\n"
" }\n"
" : row {\n"
" : text { label = "最大比例:"; width = 10; }\n"
" : edit_box { key = "max_scale"; width = 10; fixed_width = true; }\n"
" }\n"
" }\n"
" : boxed_column {\n"
" label = "旋转设置";\n"
" : row {\n"
" : text { label = "最小角度:"; width = 10; }\n"
" : edit_box { key = "min_angle"; width = 10; fixed_width = true; }\n"
" }\n"
" : row {\n"
" : text { label = "最大角度:"; width = 10; }\n"
" : edit_box { key = "max_angle"; width = 10; fixed_width = true; }\n"
" }\n"
" }\n"
" : boxed_column {\n"
" label = "移动设置";\n"
" : row {\n"
" : text { label = "最小距离:"; width = 10; }\n"
" : edit_box { key = "min_move"; width = 10; fixed_width = true; }\n"
" }\n"
" : row {\n"
" : text { label = "最大距离:"; width = 10; }\n"
" : edit_box { key = "max_move"; width = 10; fixed_width = true; }\n"
" }\n"
" }\n"
" spacer;\n"
" : row {\n"
" : button { key = "reset"; label = "重置默认"; width = 12; fixed_width = true; }\n"
" : spacer { width = 2; }\n"
" : button { key = "cancel"; label = "取消"; width = 8; fixed_width = true; is_cancel = true; }\n"
" : button { key = "accept"; label = "确定"; width = 8; fixed_width = true; is_default = true; }\n"
" }\n"
"}\n"
))
(if (setq fp (open filename "w"))
(progn
(write-line dcl_content fp)
(close fp)
T
)
nil
)
)
;; 获取对象中心点函数
(defun get_entity_center (ent / obj minpt maxpt center)
(if (and ent (entget ent))
(progn
(setq obj (vlax-ename->vla-object ent))
(if obj
(progn
(vla-getboundingbox obj 'minpt 'maxpt)
(setq minpt (vlax-safearray->list minpt)
maxpt (vlax-safearray->list maxpt))
(setq center (list
(/ (+ (car minpt) (car maxpt)) 2.0)
(/ (+ (cadr minpt) (cadr maxpt)) 2.0)
(/ (+ (caddr minpt) (caddr maxpt)) 2.0)
))
center
)
nil
)
)
nil
)
)
;; 改进的随机数生成函数
(defun better_random (min_val max_val seed index / x)
(setq x (* (getvar "MILLISECS") (1+ index) seed (getvar "CDATE")))
(setq x (rem x 1000000))
(setq x (rem (+ x (* index 7919)) 1000000))
(setq x (/ (float x) 1000000.0))
(+ min_val (* x (- max_val min_val)))
)
(princ "\n随机缩放旋转移动命令已加载，输入 RRS 使用。")
(princ)

;;;;;;;;;;;;;;;;;;;;;随机缩放、旋转和移动（各自中心点，带记忆功能，面板设置）;;;;;;;;;;;;;;;;;;;;;;;;;; 
 
;; 全局变量用于记忆上次使用的参数 
(setq *rrs_last_min_scale* 0.5) 
(setq *rrs_last_max_scale* 2.0) 
(setq *rrs_last_min_angle* 0.0) 
(setq *rrs_last_max_angle* 0.0) 
(setq *rrs_last_min_move* 0.0) 
(setq *rrs_last_max_move* 0.0) 
 
(defun c:rrs (/ *error* old_cmd ss min_scale max_scale min_angle max_angle min_move max_move 
                ent i scale_factor angle move_x move_y center_pt seed user_input params) 
   
  ;; 错误处理函数 
  (defun *error* (msg) 
    (if (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*EXIT*")) 
      (princ (strcat "\n错误: " msg)) 
    ) 
    (setvar "CMDECHO" old_cmd) 
    (princ) 
  ) 
   
  ;; 保存系统变量 
  (setq old_cmd (getvar "CMDECHO")) 
  (setvar "CMDECHO" 0) 
   
  ;; 选择对象 
  (princ "\n选择要缩放、旋转和移动的对象: ") 
  (setq ss (ssget)) 
   
  (if ss 
    (progn 
      ;; 显示当前参数并询问是否需要设置新参数 
      (princ (strcat "\n当前参数: 缩放 " (rtos *rrs_last_min_scale* 2 2) " 到 " (rtos *rrs_last_max_scale* 2 2) 
                     ", 旋转 " (rtos *rrs_last_min_angle* 2 2) " 到 " (rtos *rrs_last_max_angle* 2 2) "°" 
                     ", 移动 " (rtos *rrs_last_min_move* 2 2) " 到 " (rtos *rrs_last_max_move* 2 2))) 
      (initget "S s") 
      (setq user_input (getkword "\n按[S]设置参数/<直接执行>: ")) 
       
      (if (or (equal user_input "S") (equal user_input "s")) 
        (progn 
          ;; 调用面板设置参数 
          (if (setq params (show_settings_panel)) 
            (progn 
              (setq min_scale (nth 0 params) 
                    max_scale (nth 1 params) 
                    min_angle (nth 2 params) 
                    max_angle (nth 3 params) 
                    min_move (nth 4 params) 
                    max_move (nth 5 params)) 
               
              ;; 更新记忆值 
              (setq *rrs_last_min_scale* min_scale 
                    *rrs_last_max_scale* max_scale 
                    *rrs_last_min_angle* min_angle 
                    *rrs_last_max_angle* max_angle 
                    *rrs_last_min_move* min_move 
                    *rrs_last_max_move* max_move) 
                     
              (princ (strcat "\n使用新参数: 缩放 " (rtos min_scale 2 2) " 到 " (rtos max_scale 2 2) 
                           ", 旋转 " (rtos min_angle 2 2) " 到 " (rtos max_angle 2 2) "°" 
                           ", 移动 " (rtos min_move 2 2) " 到 " (rtos max_move 2 2))) 
            ) 
            (progn 
              (princ "\n用户取消设置，使用记忆参数。") 
              (setq min_scale *rrs_last_min_scale* 
                    max_scale *rrs_last_max_scale* 
                    min_angle *rrs_last_min_angle* 
                    max_angle *rrs_last_max_angle* 
                    min_move *rrs_last_min_move* 
                    max_move *rrs_last_max_move*) 
            ) 
          ) 
        ) 
        (progn 
          ;; 使用记忆的参数 
          (setq min_scale *rrs_last_min_scale* 
                max_scale *rrs_last_max_scale* 
                min_angle *rrs_last_min_angle* 
                max_angle *rrs_last_max_angle* 
                min_move *rrs_last_min_move* 
                max_move *rrs_last_max_move*) 
          (princ "\n使用记忆参数执行...") 
        ) 
      ) 
       
      ;; 验证参数范围 
      (if (or (<= max_scale min_scale) 
              (and (/= min_angle max_angle) (< max_angle min_angle)) 
              (and (/= min_move max_move) (< max_move min_move))) 
        (progn 
          (princ "\n错误: 参数范围设置不正确!") 
          (setvar "CMDECHO" old_cmd) 
          (princ) 
        ) 
      ) 
       
      ;; 初始化随机种子 
      (setq seed (getvar "MILLISECS")) 
       
      ;; 遍历选择集并缩放、旋转和移动每个对象 
      (setq i 0) 
      (repeat (sslength ss) 
        (setq ent (ssname ss i)) 
         
        ;; 获取对象的中心点 
        (setq center_pt (get_entity_center ent)) 
         
        (if center_pt 
          (progn 
            ;; 为每个对象生成独立的随机缩放比例 
            (setq scale_factor (better_random min_scale max_scale seed i)) 
             
            ;; 执行缩放命令，以对象中心点为基点 
            (command "_.scale" ent "" "_non" center_pt scale_factor) 
             
            ;; 如果设置了旋转角度范围，则进行随机旋转 
            (if (/= min_angle max_angle) 
              (progn 
                ;; 为每个对象生成独立的随机旋转角度 
                (setq angle (better_random min_angle max_angle seed (+ i 1000))) 
                
                ;; 执行旋转命令，以对象中心点为基点 
                (command "_.rotate" ent "" "_non" center_pt angle) 
              ) 
            ) 
             
            ;; 如果设置了移动距离范围，则进行随机移动 
            (if (/= min_move max_move) 
              (progn 
                ;; 为每个对象生成独立的随机移动向量 
                (setq move_x (better_random (- max_move) max_move seed (+ i 2000))) 
                (setq move_y (better_random (- max_move) max_move seed (+ i 3000))) 
                
                ;; 执行移动命令 
                (command "_.move" ent "" "_non" center_pt 
                         "_non" (list (+ (car center_pt) move_x) 
                                      (+ (cadr center_pt) move_y) 
                                      (caddr center_pt))) 
              ) 
            ) 
             
            ;; 输出处理结果 
            (princ (strcat "\n对象 " (itoa (1+ i)) " 缩放比例: " (rtos scale_factor 2 3))) 
            (if (/= min_angle max_angle) 
              (princ (strcat ", 旋转角度: " (rtos angle 2 2) "°")) 
            ) 
            (if (/= min_move max_move) 
              (princ (strcat ", 移动距离: " (rtos (sqrt (+ (* move_x move_x) (* move_y move_y))) 2 2))) 
            ) 
          ) 
          (princ (strcat "\n警告: 无法获取对象 " (itoa (1+ i)) " 的中心点，跳过处理")) 
        ) 
         
        (setq i (1+ i)) 
      ) 
       
      (princ (strcat "\n成功处理 " (itoa i) " 个对象")) 
      (princ (strcat "\n缩放比例范围: " (rtos min_scale 2 2) " 到 " (rtos max_scale 2 2))) 
      (if (/= min_angle max_angle) 
        (princ (strcat "\n旋转角度范围: " (rtos min_angle 2 2) " 到 " (rtos max_angle 2 2) "°")) 
      ) 
      (if (/= min_move max_move) 
        (princ (strcat "\n移动距离范围: " (rtos min_move 2 2) " 到 " (rtos max_move 2 2))) 
      ) 
    ) 
    (princ "\n未选择任何对象。") 
  ) 
   
  ;; 恢复系统变量 
  (setvar "CMDECHO" old_cmd) 
  (princ) 
) 
 
;; 显示设置面板函数 
(defun show_settings_panel (/ dcl_id dcl_file dcl_name result params validation_result) 
  ;; 创建DCL文件内容 
  (setq dcl_file (vl-filename-mktemp "rrs_settings.dcl") 
        dcl_name "rrs_settings") 
   
  ;; 写入DCL内容到临时文件 
  (if (not (write_dcl_file dcl_file)) 
    (progn 
      (princ "\n无法创建对话框文件!") 
      (return nil) 
    ) 
  ) 
   
  ;; 加载对话框 
  (setq dcl_id (load_dialog dcl_file)) 
   
  (if (not (new_dialog dcl_name dcl_id)) 
    (progn 
      (princ "\n无法加载设置对话框!") 
      (unload_dialog dcl_id) 
      (vl-file-delete dcl_file) 
      (return nil) 
    ) 
  ) 
   
  ;; 设置初始值 
  (set_tile "min_scale" (rtos *rrs_last_min_scale* 2 2)) 
  (set_tile "max_scale" (rtos *rrs_last_max_scale* 2 2)) 
  (set_tile "min_angle" (rtos *rrs_last_min_angle* 2 2)) 
  (set_tile "max_angle" (rtos *rrs_last_max_angle* 2 2)) 
  (set_tile "min_move" (rtos *rrs_last_min_move* 2 2)) 
  (set_tile "max_move" (rtos *rrs_last_max_move* 2 2)) 
   
  ;; 确定按钮动作 
  (action_tile "accept" 
    "(setq params (get_dialog_values)) 
     (setq validation_result (validate_dialog_values params)) 
     (if validation_result 
       (done_dialog 1) 
       (progn 
         (alert "参数值无效，请检查输入!") 
       ) 
     )") 
   
  ;; 取消按钮动作 
  (action_tile "cancel" "(done_dialog 0)") 
   
  ;; 重置按钮动作 - 重置为默认值 
  (action_tile "reset" 
    "(set_tile "min_scale" "0.5") 
     (set_tile "max_scale" "2.0") 
     (set_tile "min_angle" "0.0") 
     (set_tile "max_angle" "0.0") 
     (set_tile "min_move" "0.0") 
     (set_tile "max_move" "0.0")") 
   
  ;; 显示对话框并等待用户响应 
  (setq result (start_dialog)) 
  (unload_dialog dcl_id) 
  (vl-file-delete dcl_file) 
   
  ;; 处理结果 
  (if (and (= result 1) params validation_result) 
    params 
    nil 
  ) 
) 
 
;; 验证对话框值的函数 
(defun validate_dialog_values (params / min_scale max_scale min_angle max_angle min_move max_move) 
  (if (not params) 
    (return nil) 
  ) 
   
  (setq min_scale (nth 0 params) 
        max_scale (nth 1 params) 
        min_angle (nth 2 params) 
        max_angle (nth 3 params) 
        min_move (nth 4 params) 
        max_move (nth 5 params)) 
   
  ;; 检查是否为有效数字 
  (if (or (not (numberp min_scale)) (not (numberp max_scale)) 
          (not (numberp min_angle)) (not (numberp max_angle)) 
          (not (numberp min_move)) (not (numberp max_move))) 
    (progn 
      (princ "\n错误: 参数必须为数字!") 
      (return nil) 
    ) 
  ) 
   
  ;; 检查范围 
  (cond 
    ((<= max_scale min_scale) 
     (princ "\n错误: 最大缩放比例必须大于最小缩放比例!") 
     nil 
    ) 
    ((and (/= min_angle max_angle) (< max_angle min_angle)) 
     (princ "\n错误: 最大旋转角度必须大于最小旋转角度!") 
     nil 
    ) 
    ((and (/= min_move max_move) (< max_move min_move)) 
     (princ "\n错误: 最大移动距离必须大于最小移动距离!") 
     nil 
    ) 
    (t t) 
  ) 
) 
 
;; 获取对话框值的函数 
(defun get_dialog_values (/ min_scale max_scale min_angle max_angle min_move max_move 
                           str_min_scale str_max_scale str_min_angle str_max_angle str_min_move str_max_move) 
  (setq str_min_scale (get_tile "min_scale") 
        str_max_scale (get_tile "max_scale") 
        str_min_angle (get_tile "min_angle") 
        str_max_angle (get_tile "max_angle") 
        str_min_move (get_tile "min_move") 
        str_max_move (get_tile "max_move")) 
   
  ;; 确保所有值都是有效的数字，如果为空则使用记忆值 
  (setq min_scale (if (and str_min_scale (/= str_min_scale "")) 
                    (atof str_min_scale) 
                    *rrs_last_min_scale*)) 
                     
  (setq max_scale (if (and str_max_scale (/= str_max_scale "")) 
                    (atof str_max_scale) 
                    *rrs_last_max_scale*)) 
                     
  (setq min_angle (if (and str_min_angle (/= str_min_angle "")) 
                    (atof str_min_angle) 
                    *rrs_last_min_angle*)) 
                     
  (setq max_angle (if (and str_max_angle (/= str_max_angle "")) 
                    (atof str_max_angle) 
                    *rrs_last_max_angle*)) 
                     
  (setq min_move (if (and str_min_move (/= str_min_move "")) 
                   (atof str_min_move) 
                   *rrs_last_min_move*)) 
                   
  (setq max_move (if (and str_max_move (/= str_max_move "")) 
                   (atof str_max_move) 
                   *rrs_last_max_move*)) 
   
  (list min_scale max_scale min_angle max_angle min_move max_move) 
) 
 
;; 写入DCL文件函数 
(defun write_dcl_file (filename) 
  (setq dcl_content (strcat 
    "rrs_settings : dialog {\n" 
    "  label = "随机缩放旋转设置";\n" 
    "  : boxed_column {\n" 
    "    label = "缩放设置";\n" 
    "    : row {\n" 
    "      : text { label = "最小比例:"; width = 10; }\n" 
    "      : edit_box { key = "min_scale"; width = 10; fixed_width = true; }\n" 
    "    }\n" 
    "    : row {\n" 
    "      : text { label = "最大比例:"; width = 10; }\n" 
    "      : edit_box { key = "max_scale"; width = 10; fixed_width = true; }\n" 
    "    }\n" 
    "  }\n" 
    "  : boxed_column {\n" 
    "    label = "旋转设置";\n" 
    "    : row {\n" 
    "      : text { label = "最小角度:"; width = 10; }\n" 
    "      : edit_box { key = "min_angle"; width = 10; fixed_width = true; }\n" 
    "    }\n" 
    "    : row {\n" 
    "      : text { label = "最大角度:"; width = 10; }\n" 
    "      : edit_box { key = "max_angle"; width = 10; fixed_width = true; }\n" 
    "    }\n" 
    "  }\n" 
    "  : boxed_column {\n" 
    "    label = "移动设置";\n" 
    "    : row {\n" 
    "      : text { label = "最小距离:"; width = 10; }\n" 
    "      : edit_box { key = "min_move"; width = 10; fixed_width = true; }\n" 
    "    }\n" 
    "    : row {\n" 
    "      : text { label = "最大距离:"; width = 10; }\n" 
    "      : edit_box { key = "max_move"; width = 10; fixed_width = true; }\n" 
    "    }\n" 
    "  }\n" 
    "  spacer;\n" 
    "  : row {\n" 
    "    : button { key = "reset"; label = "重置默认"; width = 12; fixed_width = true; }\n" 
    "    : spacer { width = 2; }\n" 
    "    : button { key = "cancel"; label = "取消"; width = 8; fixed_width = true; is_cancel = true; }\n" 
    "    : button { key = "accept"; label = "确定"; width = 8; fixed_width = true; is_default = true; }\n" 
    "  }\n" 
    "}\n" 
  )) 
   
  (if (setq fp (open filename "w")) 
    (progn 
      (write-line dcl_content fp) 
      (close fp) 
      T 
    ) 
    nil 
  ) 
) 
 
;; 获取对象中心点函数 
(defun get_entity_center (ent / obj minpt maxpt center) 
  (if (and ent (entget ent)) 
    (progn 
      (setq obj (vlax-ename->vla-object ent)) 
      (if obj 
        (progn 
          (vla-getboundingbox obj 'minpt 'maxpt) 
          (setq minpt (vlax-safearray->list minpt) 
                maxpt (vlax-safearray->list maxpt)) 
          (setq center (list 
                         (/ (+ (car minpt) (car maxpt)) 2.0) 
                         (/ (+ (cadr minpt) (cadr maxpt)) 2.0) 
                         (/ (+ (caddr minpt) (caddr maxpt)) 2.0) 
                       )) 
          center 
        ) 
        nil 
      ) 
    ) 
    nil 
  ) 
) 
 
;; 改进的随机数生成函数 
(defun better_random (min_val max_val seed index / x) 
  (setq x (* (getvar "MILLISECS") (1+ index) seed (getvar "CDATE"))) 
  (setq x (rem x 1000000)) 
  (setq x (rem (+ x (* index 7919)) 1000000)) 
  (setq x (/ (float x) 1000000.0)) 
   
  (+ min_val (* x (- max_val min_val))) 
) 
 
(princ "\n随机缩放旋转移动命令已加载，输入 RRS 使用。") 
(princ)

bskidtf · 发表于 2025-11-16 01:30:22

迷失1786 发表于 2025-11-15 21:35
起码来个图吧，现在AI都那么懒了？

都这么简单了还索要币，那说明什么问题。

迷失1786 · 发表于 2025-11-15 21:35:56

起码来个图吧，现在AI都那么懒了？

39922228 · 发表于 3 天前

画图谁要随机缩放的？你是来搞笑的吧

账号		自动登录	找回密码
密码			注册

随机缩放、旋转和移动（有更强大的，这个免费）

本帖子中包含更多资源

点评