[zvezdochiot]

Уважаемые форумчане.

Нужен простой лисп для замены содержимого (текстовой части) линейного размера (по умолчанию "<>") на шаблон "<>\X{SIZE+RND}", где{SIZE+RND} - число, получаемое путём добавления к действительному размеру некоей "случайной поправки" в диапазоне, задаваемом параметрами команды.

Искал, но нашёл только отдельные компоненты для такой "задумки". При этом никак не уверен, что смогу справится с форматированием этого доп. значения (ведь оно нужно в том же формате, что и верхнее значение, использующее для форматирования свойства размера).

Такие вот дела.

[zvezdochiot]

Пока слепил "винегрет" из "отдельных компонент", dimprand.lsp:

Код:

[Выделить все]

 
(defun rnd (/ modulus multiplier increment random)
  (if (not seed)
    (setq seed (getvar "DATE"))
  )
  (setq modulus    65536
        multiplier 25173
        increment  13849
        seed  (rem (+ (* multiplier seed) increment) modulus)
        random     (/ seed modulus)
  )
)

(defun c:dimprand ()
  (setq dim (entget (car (entsel "\nSelect dimension object: "))))
  (setq rl (getreal "\nEnter rand limits:  "))
  (setq orig (cdr (assoc 42 dim)))
  (setq dest (+ orig (- (* (+ rl rl) (rnd)) rl)))
  (setq text (strcat "<>\\X" (rtos dest 2 0) " "))
  (entmod (subst (cons 1 text) (assoc 1 dim) dim))
  (princ)
)

Использование свойства 42 позволяет не беспокоиться о масштабном коэффициенте размера.
Но!
Недостатки скрипта:

1. команда обрабатывает один размер
2. нет проверки, является ли объект размером
3. округление до целого, а не как в свойствах размера

Пока же использую:

Код:

[Выделить все]

 
(princ dim)

и пытаюсь разобрать, какое же свойство является этим самым "округлением".

[zvezdochiot]

Изменил порядок параметров и завёл выбор и замену размера в бесконечный цикл. Стало значительно удобнее:

Код:

[Выделить все]

 
(defun rnd (/ modulus multiplier increment random)
  (if (not seed)
    (setq seed (getvar "DATE"))
  )
  (setq modulus    65536
        multiplier 25173
        increment  13849
        seed  (rem (+ (* multiplier seed) increment) modulus)
        random     (/ seed modulus)
  )
)

(defun c:dimprand ()
 (setq rl (getreal "\nEnter rand limits:  "))
 (while 1
  (setq dim (entget (car (entsel "\nSelect dimension object: "))))
  (setq orig (cdr (assoc 42 dim)))
  (setq dest (+ orig (- (* (+ rl rl) (rnd)) rl)))
  (setq text (strcat "<>\\X" (rtos dest 2 0) " "))
  (entmod (subst (cons 1 text) (assoc 1 dim) dim))
 )
 (princ)
)

[zvezdochiot]

И до кучи небольшой лисп _dimpin для ручного ввода нужного значения:

Код:

[Выделить все]

 
(defun c:dimpin ()
 (while 1
  (setq dim (entget (car (entsel "\nSelect dimension object: "))))
  (setq dest (getreal "\nEnter used size:  "))
  (setq text (strcat "<>\\X" (rtos dest 2 0) " "))
  (entmod (subst (cons 1 text) (assoc 1 dim) dim))
 )
 (princ)
)