[Bercut]

Как же надоело считать спецификации - занятие нудное и кропотливое думаю все со мной согласятся.
Вот и обращаюсь за помощью к ЛИСП-программистам. Задачка вроде не сложная, а сам я с лиспом к сожалению пока не знаком.
Если бы Вы ее решили, то благодарность сотен или даже тысяч инженеров к Вам в разумных пределах была бы безгранична.

Прикладываю файлик, там все необходимые пояснения.

Заранее БОЛЬШОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО.

______________
ICQ 300-528-194
[ATTACH]1159346709.rar[/ATTACH]

[DEM]

А поиском юзать не пробовал
Хотя бы эта прога

[Bercut]

Спасибо эту прогу я видел, но имелось ввиду что-нибудь простенькое, чтоб так сказать на коленке просуммировать (проверить кого-нибудь по готовым таблицам заполненных вручную). Без всяких заморочек с таблицами, сортаментами и т.п.

[DEM]

Лови на коленке
[ATTACH]1159349484.rar[/ATTACH]

[Кулик Алексей aka kpblc]

Может, будет проще в таком случае использовать NumLock Calculator?

[Bercut]

Спасибо, DEM, за участие, но фикус в том чтоб в AutoCADе лиспиком пощелкать цифирки и готово. Где-то мне попадался код он суммирует значения текстовых строк (к сожалению только однострочный текст), вот надо что-то похожее.

kpblc, кальком конечно можно, но пока десяток другой третий пар цифр одно на другое туда засунешь, можно и самому ошибиться. А так конечно им приходиться.

[Sleekka]

Не мне это говорить но все же, крыс я думаю уже устал давать примеры как правильно задавать вопрос.
1) если ты хотябы напишешь в каком виде у тебя цифирка текст, атрибут блока, или растр может тебе кто то и начнет помогать.
2) для цифирок записаных в текстовые объекты море прог написано ищи в даунлоде.
3) тему надо было назвать калькулятор в автокаде. Оптимизация - ето когда есть полная автоматизация и есть полная рукокалькуляция, оптимизация - ето поиск решения между одним и другим для получения наибольшей выгоды от процесса. а в итоге нужно два числа сложить было зато название то какое!!!

[Sleekka]

и еще НА ЭТОМ ФОРУМЕ МОРЕ ЗОЛОТЫХ ЛЮДЕЙ, нужно только правильно попросить. пример на сколько отзывчивы люди можно посмотреть хотя бы здесь. http://dwg.ru/forum/viewtopic.php?t=9616

[ilka_t]

(defun C:SUM (/ n summa nab el txt) (if my_kult (my_kult) (princ "\nCopyright by Alexey Mironchuk.") ) (setq n 0 summa 0 nab (ssget)) (repeat (sslength nab) (setq el (entget (ssname nab n))) (if (or (= (ch_dxf 0 el) "TEXT") (= (ch_dxf 0 el) "MTEXT")) (progn (setq txt (ch_dxf 1 el)) (if (or (eq (substr txt 1 3) "%%O") (eq (substr txt 1 3) "%%o") (eq (substr txt 1 3) "%%U") (eq (substr txt 1 3) "%%u") ) (setq txt (substr txt 4)) ) (setq summa (+ summa (atof txt)) n (1+ n) ) ) ) ) (princ (strcat "\nSumma - " (rtos summa 2 4))) (princ) ) (princ " SUM loaded") (princ)

Было такое дело, я тоже просил и вот что написали, простенько но складывает... есть один минус, чтобы складывать нужно каждый раз заново команду щелкать, нет зацикливания.... может ктонибудь подправит

[kha]

ИМХО - самое идеальное, когда есть спецификация в Exel'е, которая затем перекидывается в акад. Я начинаю пользоваться ATable, очень радует, хорошая штука

поделюсь своей считалкой:
[ATTACH]1159389050.rar[/ATTACH]

[Константин Михайлович]

а нет ли у кого проги которая может сказать общую длину выбраных линий на чертеже?

[Bercut]

С кодом, выложенным в посте №9 что-то не так: после выбора объектов выдает сообщение "; error: no function definition: CH_DXF"

[Bercut]

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

А вот уважаемый Крыс все сразу понял, потому что посмотрел приложенный файлик, где все ясно и понятно.
А за наставления спасибо, учтем.

[Bercut]

Сообщение от Константин Михайлович а нет ли у кого проги которая может сказать общую длину выбраных линий на чертеже?

Не помню кто его выложил, но огромное ему спасибо, очень просто и удобно.

(defun Clina (/ Nab Sum i Curve Param)
(vl-load-com)
(if (setq Nab (ssget))
(progn
(setq Sum 0 i 0)
(repeat (sslength Nab)
(setq Curve (vlax-ename->vla-object (ssname Nab i))

i (1+ i)
Param (vl-catch-all-apply 'vlax-curve-getEndParam
(list Curve))
)
(if (not (vl-catch-all-error-p Param))
(setq Sum (+ Sum (vlax-curve-getDistAtParam Curve
Param)))
)
)
)
)
(princ (strcat "\nСумма длин выбранных элементов равна: " (rtos
Sum 2 2)))
(prin1)
)

[kha]

а мне больше нравится вот этот алгоритм:

(vl-load-com) (defun c:entLen (/ set:OfEnts int:l rea:LengthOfEnts) (setq set:OfEnts (ssget) int:l 0 rea:LengthOfEnts 0.0 ) ;_ setq (while (< int:l (sslength set:OfEnts)) (setq rea:LengthOfEnts (+ rea:LengthOfEnts (vlax-curve-getDistAtParam (vlax-ename->vla-object (ssname set:OfEnts int:l)) (vlax-curve-getEndParam (ssname set:OfEnts int:l)) ) ;_ vlax-curve-getDistAtParam ) ;_ + ) ;_ setq (setq int:l (1+ int:l)) ) ;_ while (princ (strcat "\nПримитивов: - " (itoa (sslength set:OfEnts)) "\nОбщая длина: - " (rtos rea:LengthOfEnts) ) ;_ strcat ) ;_ princ (prin1) ) ;_ defun

тоже не помню, кто его создал, огромное ему спасибо )))

[Zombie]

Еще хорошо когда данные таблицы выполнены по ГОСТу... ммммммммм.
[sm2605]

[Bercut]

В поиске как ни рыл ничего не нарыл, точнее нарыл, но не совсем то.
На автокад.ру тоже был.
Придется изучить Лисп

[alisa]

Какие у нас все же люди отзывчивые (без иронии)! Советы, предложения... А для меня этот вопрос делится на две части:
1. Как это можно сделать - чисто техническое решение, знание ради знания? На это все и откликаются, что просто замечательно. Мне тоже интересно.
2. А какого черта я буду проверять спецификации, тратить время? - это уже вопрос принципа, если угодно. Не в детском саду. У нас эта проблема решена так: все обязуются пользоваться программой автоматического подсчета. Купили недорогую, но очень приличную программку - и все. Не хочешь, не умеешь пользоваться - сразу ощутишь облегчение кармана.

[ShaggyDoc]

Сообщение от alisa А какого черта я буду проверять спецификации, тратить время? - это уже вопрос принципа, если угодно.

Вот когда жизнь ударит больно, принципы сразу изменятся. Будешь проверять, перепроверять, дописывать. То, что "автоматическая" программа не сосчитала.

[alisa]

ShaggyDoc:

Вот когда жизнь ударит больно, принципы сразу изменятся.

Ударяла уже...
Я раньше тоже так поступала - и пересчитывала, и перепроверяла. Но этак можно дойти до того, что будешь стараться делать все сам, а это бред. Ошибки, описки, недочеты всегда были, есть и будут, я к этому отношусь спокойно, каждую букву не проверишь. Но есть какие-то вещи, которые смешно проверять - это же простая арифметика, если говорить конкретно о спецификациях. Длины стержней, количество тоже проверять будем? За что-то подчиненные должны отвечать?
Вообще-то это скорее вопрос организации рабочего процесса, но к теме имеет самое непосредственное отношение. [/quote]