Помогу бесплатно разработать любую программу на autolisp.

попробуйте облазить еще раздел ресурсы этого форума... и немного фантазии

 

Подгонометрия. Мне очень помогает в некоторых случаях.

 

Вот поощряете вы несамостоятельность :)
Тогда еще предложу свой вариант, в некоторых случаях несколько удобнее и практичнее подгонометрии - если пользоваться цивилом, то можно простой текст переводить в cogo с этой отметкой, а уже эту точку править с помощью ТочностиНЕТ из ресурсов. При грамотной настройке можно крутые штуки автоматом делать :)

 

Не я первый начал:) Название темы почитай.

 

Оффтоп

Дык я ж не про то... разработать - это одно, сам часто прошу помощи, когда точно ни в ресурсах, ни на двг.ру нету =)

 

тогда, на кадюзере ищи.

 

Я конешно понимаю) что очень тупо выгляжу в чьих то глазах. Но у меня все равно не получается найти нужный файл по этой ссылке... Скинте пожалуйста сам файл который бы можно было просто загрузить и в автокад и спокойно работать)......

 

Ребятки) Напишите кто нибудь пожалуйста програмку в lisp. "Генератор случайных чисел". Весь инет облазил не могу ни как найти. Вот например в автокаде есть слой, и в этом слое есть много однострочного текста(числа). И ты такой нажимаешь на кнопку, и хоп! Все числа изменились в заданном диапазоне чисел, например от 60 до 80)) Буду очень благодарен, если все же кто нибудь возьмется за такое))) Вот)))

--- Сообщения объединены, 7 июл 2015, Оригинальное время сообщения: 7 июл 2015 ---

Спасибо) большое

--- Сообщения объединены, 7 июл 2015 ---

Тем более там тоже неправильный код... Изменяет только одно значение. А целый слой не может.. Вот((((((((

--- Сообщения объединены, 7 июл 2015 ---

Обращаюсь к пацанам серьезным!) Вот код генератора случайных чисел:

(defun vk_RandNum (/ 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:tr (/ From To Diff SS Ent +Sign Num)
(initget 0)
(setq From (getint "From: "))
(while (progn (initget 0) (not (> (setq To (getint "To: ")) From)))
)
(setq +Sign (if (< From 0)
"+"
""
)
)
(setq Diff (- To From))
(while (setq SS (ssget "_:S" (list (cons 0 "*TEXT"))))
(setq Num (- To (atoi (rtos (* Diff (vk_RandNum)) 2 0))))
(setq Ent (entget (ssname SS 0)))
(entmod
(subst
(cons 1
(if (<= Num 0)
(itoa Num)
(strcat +Sign (itoa Num))
)
)
(assoc 1 Ent)
Ent
)
)
)
(princ)
)

Он работает все нормально все цивильно все аккуратно. Но он изменяет только одну цифру, а не весь слой(или выделенный массив). Вообщем кто может помочь и переписать ее так чтобы она могла работать с целым массивом или слоем. Заранее спасибо тому кто поможет)

 

Что ж вы там некорректного нашли?

 

Задаешь диапазон например от 60 до 80. Генерируешь. А он хоп и выводит два числа из массива - 567 и -36 например а некоторые числа вообще не меняются даже((( Как то так...

 

Фрагмент файла можешь скинуть?

 

Могу!)

 

Изменил все числа в диапазоне от 60 до 80.
Было так:

Стало так:

В чем проблема?

 

Так у тебя по картинке числа ни фига не в диапазоне от 60 до 80. Понимаешь что мне нужно. Чтобы конечный результат был в диапазоне от 60 до 80. Понимаешь в чем фишка ))) Ладно, здесь наверно вряд ли кто помочь сможет((....

 

Ну вот тебе в диапазоне от 60 до 80.

 

Все спасибо)) Все работает в 2015... Все нормально, разобрался... У меня дома 2012 стоит там что т не хочет работать... хз почему

 

А вот это обидно было...
Тем более что дело не в бобине.