| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как сосчитать сумму цифр из отдельных мтекстов (и лисп для подсчета спецификаций)

Как сосчитать сумму цифр из отдельных мтекстов (и лисп для подсчета спецификаций)

Ответ
Поиск в этой теме
Непрочитано 26.01.2008, 13:15
Расчет спецификаций из мтекстов
Red Nova
 
ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Торонто
Регистрация: 23.10.2007
Сообщений: 1,980

Я не пользуюсь таблицами AutoCADа, черчу ячейки, в них по мтексту. Вопрос как оперативно соcчитать сумму цифр их содержимого. Слышал есть такой калькулятор, по моему calcacad называется, но на 2008-й Cad не идет. Что делать?

Добавлено.
Постепенно форум перешел в разработку липа для расчета спецификаций из мтекстов, и расчет суммы из мтекстов стал просто полезной добавкой к расчету спецификации. Последний вариант программы находится тут

Последний раз редактировалось Red Nova, 13.03.2009 в 10:11.
Просмотров: 196207
 
Непрочитано 29.05.2009, 11:35
#581
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,143


Command:
Command: (LOAD "C:/Documents and Settings/Admin/Рабочий стол/TEST22.lsp")
Type TEST in command line"\nType TEST in command line"
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 30.05.2009, 02:20
#582
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


dextron3, вот ты это к чему?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 07.07.2009, 15:23
#583
Piton

Инженер строитель
 
Регистрация: 24.02.2005
Москва
Сообщений: 396


Хочу чтобы считались перемычки. В файл prokat.ves добавляю:
Код:
[Выделить все]
;;; =============== Перемычки ГОСТ 948-84  ====================
("ПЕРЕМЫЧКИ" 42 "ГОСТ 948-84;ГОСТ948-84" "ПЕРЕМЫЧКИ" "Перемычки ГОСТ 948-84" (("1ПБ10-1" 20.0)("1ПБ13-1" 25.0)))
Не считает помогите исправить ошибку
В прикрепленном файле спецификация перемычек
Вложения
Тип файла: dwg
DWG 2004
1.dwg (68.6 Кб, 3690 просмотров)
Piton вне форума  
 
Непрочитано 07.07.2009, 19:55
#584
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Piton, База правильная. Ты добавляешь новый тип конструкции "ПЕРЕМЫЧКИ", поэтому нужно было править немного лисп. Изменил немного алгоритм поиска. Теперь по умолчанию для неопознанных он ищется как для штучных материалов (болты, гайки, шайбы) Т.е. масса из базы умножается на количество.
Обновил архив в #564. Эта же ссылка приведена в первом посте. Использовал команду Spec5 и выбирал 2 строки по 4 столбца.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 08.07.2009, 09:23
#585
Piton

Инженер строитель
 
Регистрация: 24.02.2005
Москва
Сообщений: 396


VVA Спасибо работает как надо
Еслиб и Ведомость расхода стали считала было бы вообще шоколадно.
Piton вне форума  
 
Непрочитано 27.07.2009, 13:51
#586
kshatriy


 
Регистрация: 06.08.2008
Сообщений: 30


После исспользования команд (SPEC3 SPEC3D SPEC4 SPEC4D SPEC5 SPEC5D)
масса (используемого в спецификации проката) сохраняется где-то в файле и при повторном использовании этих команд автокаду не требуется файл prokat.ves....
Подскажите пожалуйста, возможно ли удаление данных массы проката?(т.е. чтоб при каждом расчете спецификаций автокад брал массу из prokat.ves?
kshatriy вне форума  
 
Непрочитано 27.07.2009, 15:01
#587
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


kshatriy, Можно, но непонятно зачем. Ты каждый раз массу в базе корректируешь? Есть 2 варианта:
1. Обнулить переменную, в которой хранится считанная база.
Код:
[Выделить все]
(setq *PROKAT_VES_BASE* nil)
2. Перечитать базу
Код:
[Выделить все]
(_read-prokat-base)
Можно оформить командой
Код:
[Выделить все]
(defun C:RPB ()(_read-prokat-base))
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 28.07.2009, 07:18
#588
kshatriy


 
Регистрация: 06.08.2008
Сообщений: 30


пару раз пришлось корректировать...
зачем:пробую сделать (по аналогии) команду для подсчета длин проката.
переименовал sumТ (и несколько команд в нутри него),дублировал и переименовал prokat.vec, (массу всех видов проката=1).

1. Обнулить переменную, в которой хранится считанная база. - то что нужно!!! куда в лиспе етот код нужно вставить?

Последний раз редактировалось kshatriy, 28.07.2009 в 08:34.
kshatriy вне форума  
 
Непрочитано 28.07.2009, 15:22
#589
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Сразу после
Код:
[Выделить все]
(defun C:Нужная_Команда ( )
   (setq *PROKAT_VES_BASE* nil)
 ....
)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 29.07.2009, 10:28
#590
kshatriy


 
Регистрация: 06.08.2008
Сообщений: 30


VVA ,сделал так:
Код:
[Выделить все]
(defun C:SPEC5 ()
   (setq *PROKAT_VES_BASE* nil)(speckg "5")(princ))
(defun C:SPEC5D ()
   (setq *PROKAT_VES_BASE* nil)(speckg "5D")(princ))
(defun C:SPEC4 ()
   (setq *PROKAT_VES_BASE* nil)(speckg "4")(princ))
(defun C:SPEC4D ()
   (setq *PROKAT_VES_BASE* nil)(speckg "4D")(princ))
(defun C:SPEC3 ()
   (setq *PROKAT_VES_BASE* nil)(speckg "3")(princ))
(defun C:SPEC3D ()
   (setq *PROKAT_VES_BASE* nil)(speckg "3D")(princ))
(defun C:SPECKG ( / ret)
   (setq *PROKAT_VES_BASE* nil)
   (setq ret (mydcl-i "Вариант расчета спецификации. Количество стролбцов"
-удаляю prokat.ves
-SPEC5......команда работает без prokat.ves
в чем может быть проблема?
Вложения
Тип файла: dwg
DWG 2007
Спецификация.dwg (125.8 Кб, 3628 просмотров)
kshatriy вне форума  
 
Непрочитано 29.07.2009, 10:45
#591
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Могу предположить, что где-то есть двойник prokat.ves. Набери
Код:
[Выделить все]
(findfile "prokat.ves")
и посмотри находит ли он файл и, если да, то где?
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 29.07.2009, 10:58
#592
kshatriy


 
Регистрация: 06.08.2008
Сообщений: 30


Цитата:
Сообщение от VVA Посмотреть сообщение
Могу предположить, что где-то есть двойник prokat.ves. Набери
Код:
[Выделить все]
(findfile "prokat.ves")
и посмотри находит ли он файл и, если да, то где?
"nil" ....здесь я сам запутал немного..вариант плохой...
можно ли это оптимизировать ?(переделал с пластин)
Код:
[Выделить все]
	 ;;;======= Дерево (Брус или Доска) +
   ((vl-position (car WHAT) '( "ДОСКА" "БРУС" )) ;_Дерево
     (setq L (vl-string-translate "X" "Х" (car(str-str-lst (cadr what) " ")))) ;;;_ Заменяем  английское X на русское Х на у первых символов до пробела
     (setq L (str-str-lst L "Х"))
    (setq *MPROF* (STRCAT (if (= (car WHAT) "БРУС") "Брус " "Доска ")
                          (dwgru-string-replace (rtos (apply 'min (mapcar 'atof L)) 2 1) ".0" "")
                          ))
     (if (= (length L) 3)(setq DLN 1))
     (setq ves_det_1 (* (apply '* (mapcar 'atof L)) DLN *STAL*  0.0001273885)
           ves_det_1   (if (_get_sumT_Ves1)(atof(_sumT_Ves_okr ves_det_1)) ves_det_1)
                    ves_det_all (* count ves_det_1))
     )
	 	 ;;;======= Дерево (Подкладка или Планка) +
   ((vl-position (car WHAT) '( "ПОДКЛАДКА" "ПЛАНКА" )) ;_Дерево
     (setq L (vl-string-translate "X" "Х" (car(str-str-lst (cadr what) " ")))) ;;;_ Заменяем  английское X на русское Х на у первых символов до пробела
     (setq L (str-str-lst L "Х"))
    (setq *MPROF* (STRCAT (if (= (car WHAT) "ПОДКЛАДКА") "Подкладка " "Планка ")
                          (dwgru-string-replace (rtos (apply 'min (mapcar 'atof L)) 2 1) ".0" "")
                          ))
     (if (= (length L) 3)(setq DLN 1))
     (setq ves_det_1 (* (apply '* (mapcar 'atof L)) DLN *STAL*  0.0001273885)
           ves_det_1   (if (_get_sumT_Ves1)(atof(_sumT_Ves_okr ves_det_1)) ves_det_1)
                    ves_det_all (* count ves_det_1))
     )
	  ;;;======= Дерево (Стропильная нога) +
   ((vl-position (car WHAT) '( "СТРОПИЛЬНАЯ" "ДИАГОНАЛЬНАЯ")) ;_Дерево
     (setq L (vl-string-translate "X" "Х" (car(str-str-lst (cadr what) " ")))) ;;;_ Заменяем  английское X на русское Х на у первых символов до пробела
     (setq L (str-str-lst L "Х"))
    (setq *MPROF* (STRCAT (if (= (car WHAT) "СТРОПИЛЬНАЯ") "Стропильная " "Диагональная ")
                          (dwgru-string-replace (rtos (apply 'min (mapcar 'atof L)) 2 1) ".0" "")
                          ))
     (if (= (length L) 3)(setq DLN 1))
     (setq ves_det_1 (* (apply '* (mapcar 'atof L)) DLN *STAL*  0.0001273885)
           ves_det_1   (if (_get_sumT_Ves1)(atof(_sumT_Ves_okr ves_det_1)) ves_det_1)
                    ves_det_all (* count ves_det_1))
     )
	  ;;;======= Дерево (Распределительный брус и Подкладная доска) +
   ((vl-position (car WHAT) '( "РАСПРЕДЕЛИТЕЛЬНЫЙ" "ПОДКЛАДНАЯ")) ;_Дерево
     (setq L (vl-string-translate "X" "Х" (car(str-str-lst (cadr what) " ")))) ;;;_ Заменяем  английское X на русское Х на у первых символов до пробела
     (setq L (str-str-lst L "Х"))
     (setq *MPROF* (STRCAT (if (= (car WHAT) "РАСПРЕДЕЛИТЕЛЬНЫЙ") "Распределительный " "Подкладная ")
                          (dwgru-string-replace (rtos (apply 'min (mapcar 'atof L)) 2 1) ".0" "")
                          ))
     (if (= (length L) 3)(setq DLN 1))
     (setq ves_det_1 (* (apply '* (mapcar 'atof L)) DLN *STAL*  0.0001273885)
           ves_det_1   (if (_get_sumT_Ves1)(atof(_sumT_Ves_okr ves_det_1)) ves_det_1)
                    ves_det_all (* count ves_det_1))
     )
	  ;;;======= Дерево (Подкос или Прогон) +
   ((vl-position (car WHAT) '( "ПОДКОС" "ПРОГОН" )) ;_Дерево
     (setq L (vl-string-translate "X" "Х" (car(str-str-lst (cadr what) " ")))) ;;;_ Заменяем  английское X на русское Х на у первых символов до пробела
     (setq L (str-str-lst L "Х"))
    (setq *MPROF* (STRCAT (if (= (car WHAT) "ПОДКОС") "Подкос " "Прогон ")
                          (dwgru-string-replace (rtos (apply 'min (mapcar 'atof L)) 2 1) ".0" "")
                          ))
     (if (= (length L) 3)(setq DLN 1))
     (setq ves_det_1 (* (apply '* (mapcar 'atof L)) DLN *STAL*  0.0001273885)
           ves_det_1   (if (_get_sumT_Ves1)(atof(_sumT_Ves_okr ves_det_1)) ves_det_1)
                    ves_det_all (* count ves_det_1))
     )
	  ;;;======= Дерево (Накладка или Стойка) +
   ((vl-position (car WHAT) '( "СТОЙКА" "НАКЛАДКА")) ;_Дерево
     (setq L (vl-string-translate "X" "Х" (car(str-str-lst (cadr what) " ")))) ;;;_ Заменяем  английское X на русское Х на у первых символов до пробела
     (setq L (str-str-lst L "Х"))
    (setq *MPROF* (STRCAT (if (= (car WHAT) "СТОЙКА") "Стойка " "Накладка ")
                          (dwgru-string-replace (rtos (apply 'min (mapcar 'atof L)) 2 1) ".0" "")
                          ))
     (if (= (length L) 3)(setq DLN 1))
     (setq ves_det_1 (* (apply '* (mapcar 'atof L)) DLN *STAL*  0.0001273885)
           ves_det_1   (if (_get_sumT_Ves1)(atof(_sumT_Ves_okr ves_det_1)) ves_det_1)
                    ves_det_all (* count ves_det_1))
     )
	   ;;;======= Дерево (Кобылка или Мауэрлат) +
   ((vl-position (car WHAT) '( "КОБЫЛКА" "МАУЭРЛАТ")) ;_Дерево
     (setq L (vl-string-translate "X" "Х" (car(str-str-lst (cadr what) " ")))) ;;;_ Заменяем  английское X на русское Х на у первых символов до пробела
     (setq L (str-str-lst L "Х"))
    (setq *MPROF* (STRCAT (if (= (car WHAT) "КОБЫЛКА") "Кобылка " "Мауэрлат ")
                          (dwgru-string-replace (rtos (apply 'min (mapcar 'atof L)) 2 1) ".0" "")
                          ))
     (if (= (length L) 3)(setq DLN 1))
     (setq ves_det_1 (* (apply '* (mapcar 'atof L)) DLN *STAL*  0.0001273885)
           ves_det_1   (if (_get_sumT_Ves1)(atof(_sumT_Ves_okr ves_det_1)) ves_det_1)
                    ves_det_all (* count ves_det_1))
     )
	 	;;;======= Дерево (Опорный или Угловой) +
   ((vl-position (car WHAT) '( "ОПОРНЫЙ" "УГЛОВОЙ")) ;_Сталь листовая
     (setq L (vl-string-translate "X" "Х" (car(str-str-lst (cadr what) " ")))) ;;;_ Заменяем  английское X на русское Х на у первых символов до пробела
     (setq L (str-str-lst L "Х"))
    (setq *MPROF* (STRCAT (if (= (car WHAT) "ОПОРНЫЙ") "Опорный " "Угловой ")
                          (dwgru-string-replace (rtos (apply 'min (mapcar 'atof L)) 2 1) ".0" "")
                          ))
     (if (= (length L) 3)(setq DLN 1))
     (setq ves_det_1 (* (apply '* (mapcar 'atof L)) DLN *STAL*  0.0001273885)
           ves_det_1   (if (_get_sumT_Ves1)(atof(_sumT_Ves_okr ves_det_1)) ves_det_1)
                    ves_det_all (* count ves_det_1))
     )
	 	 	;;;======= Дерево (Затяжка или Связь) +
   ((vl-position (car WHAT) '( "ЗАТЯЖКА" "СВЯЗЬ")) ;_Дерево
     (setq L (vl-string-translate "X" "Х" (car(str-str-lst (cadr what) " ")))) ;;;_ Заменяем  английское X на русское Х на у первых символов до пробела
     (setq L (str-str-lst L "Х"))
    (setq *MPROF* (STRCAT (if (= (car WHAT) "ЗАТЯЖКА") "Затяжка " "Связь ")
                          (dwgru-string-replace (rtos (apply 'min (mapcar 'atof L)) 2 1) ".0" "")
                          ))
     (if (= (length L) 3)(setq DLN 1))
     (setq ves_det_1 (* (apply '* (mapcar 'atof L)) DLN *STAL*  0.0001273885)
           ves_det_1   (if (_get_sumT_Ves1)(atof(_sumT_Ves_okr ves_det_1)) ves_det_1)
                    ves_det_all (* count ves_det_1))
     )
	 ;;;======= Дерево (Обрешетка или Брусок) +
   ((vl-position (car WHAT) '( "ОБРЕШЕТКА" "БРУСОК")) ;_Дерево
     (setq L (vl-string-translate "X" "Х" (car(str-str-lst (cadr what) " ")))) ;;;_ Заменяем  английское X на русское Х на у первых символов до пробела
     (setq L (str-str-lst L "Х"))
    (setq *MPROF* (STRCAT (if (= (car WHAT) "ОБРЕШЕТКА") "Обрешетка " "Брусок ")
                          (dwgru-string-replace (rtos (apply 'min (mapcar 'atof L)) 2 1) ".0" "")
                          ))
     (if (= (length L) 3)(setq DLN 1))
     (setq ves_det_1 (* (apply '* (mapcar 'atof L)) DLN *STAL*  0.0001273885)
           ves_det_1   (if (_get_sumT_Ves1)(atof(_sumT_Ves_okr ves_det_1)) ves_det_1)
                    ves_det_all (* count ves_det_1))
prokat.ves
Код:
[Выделить все]
;;; =============== Дерево ГОСТ 8486-86*  ====================
("БРУС" 43 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("ДОСКА" 44 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("ПЛАНКА" 45 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("ПОДКЛАДКА" 46 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("СТРОПИЛЬНАЯ" 47 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("ПОДКОС" 48 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("ДИАГОНАЛЬНАЯ" 49 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("РАСПРЕДЕЛИТЕЛЬНЫЙ" 50 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("ПОДКЛАДНАЯ" 51 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("СТОЙКА" 52 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("НАКЛАДКА" 53 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("КОБЫЛКА" 54 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("МАУЭРЛАТ" 55 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("ОПОРНЫЙ" 56 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("УГЛОВОЙ" 57 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("ОБРЕШЕТКА" 58 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("БРУСОК" 59 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("ЗАТЯЖКА" 60 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
("СВЯЗЬ" 61 "ГОСТ 8486-86;ГОСТ8486-86;ГОСТ 8486-86*;ГОСТ8486-86*" "Дерево_м3" "Дерево по ГОСТ 8486-86" (0))
выглядит коряво но считает дерево (м3) ч/з SPEC5

Последний раз редактировалось kshatriy, 29.07.2009 в 14:53.
kshatriy вне форума  
 
Непрочитано 13.05.2011, 13:02
#593
MrChert

Студент ПГС
 
Регистрация: 03.09.2010
Сообщений: 39
<phrase 1= Отправить сообщение для MrChert с помощью Skype™


Прошу меня извинить, некогда читать весь топик, можно в двух словах, как юзать данную тулзу?
Загрузил в кад sumT.LSP, какие дальше выполнять действия, чтобы суммировать данные из МТекста?
MrChert вне форума  
 
Непрочитано 13.05.2011, 14:56
1 | #594
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Нажми F2 и почитай команды
Цитата:
Наберите в командной строке
SumTN - суммирование тестов в новый текст
SumTE - суммирование тестов в существующий текст
MulTN - умножение тестов в новый текст
MulTE - умножение тестов в существующий текст
TOKR - округление текста
MulTC - перемножение текстов столбцами
MulTCv2 - перемножение текстов столбцами вариант 2
sumTSet - установки округления и высоты новых текстов
GSUM - рассчет групповой спецификации
SPECKG - рассчет спецификации (SPEC3 SPEC3D SPEC4 SPEC4D SPEC5 SPEC5D
SPECW - рассчет спецификации деревянных изделий (SPEC Wood
_-HYPERLINK - удаление гиперссылок (опция _Remove)
Твои красные
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 14.05.2011, 07:44
#595
MrChert

Студент ПГС
 
Регистрация: 03.09.2010
Сообщений: 39
<phrase 1= Отправить сообщение для MrChert с помощью Skype™


Цитата:
Сообщение от VVA Посмотреть сообщение
Нажми F2 и почитай команды
Не получается. У меня много МТекстов с цифрами, тексты расположены под разными углами и с подчеркиванием. Загрузил сию прогу в кад, выделил тексты, в консоль вбил команду SumTN, в итоге:
Цитата:
Команда: SumTN
Неизвестная команда "SUMTN". Для вызова справки нажмите F1.
Подскажите, что не так делаю?
MrChert вне форума  
 
Непрочитано 14.05.2011, 09:47
1 | #596
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от MrChert Посмотреть сообщение
Подскажите, что не так делаю?
После загрузки и нажатия F2 должен увидеть то, что я дал в цитате #594
Подробнее про загрузку читай по ссылке в моей подписи
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 14.07.2011, 16:51
#597
Nata1

Инженер
 
Регистрация: 10.11.2008
Владимирская обл., пос. Вольгинский
Сообщений: 147


Скачала лисп sumT.LSP. Большое спасибо разработчикам.
Хотелось бы сделать кнопку, чтобы удобнее вызывать команду. Нужно писать макрос для каждой команды отдельно? Как может выглядеть макрос кнопки для sumT.LSP? Меня интересуют кнопки для команд SumTN, SumTE.
__________________
AutoCAD 2014
Nata1 вне форума  
 
Непрочитано 14.07.2011, 18:46
#598
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Nata1 Посмотреть сообщение
Нужно писать макрос для каждой команды отдельно?

Цитата:
Сообщение от Nata1 Посмотреть сообщение
Как может выглядеть макрос кнопки для sumT.LSP? Меня интересуют кнопки для команд SumTN, SumTE.
Теория http://dwg.ru/pub/6 и http://dwg.ru/pub/9

Практика
Код:
[Выделить все]
^C^C(if (null C:SumTN)(load "sumT.lsp"));sumTN;
Код:
[Выделить все]
^C^C(if (null C:SumTE)(load "sumT.lsp"));sumTE;
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 14.07.2011, 19:23
#599
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


Добавлю свои 5 копеек...
Выкладываю SumT c меню и панелью инструментов...
Способ установки стандартный:
1. распаковать с помощью 7z 9.20;
2. прописать путь к папке, куда распаковали архив;
3. загрузить меню (прилагается файл SumT.mnu)

зы автору респект за так сказать код...
зы зы и меня тоже не
______________________________________________________________
18.06.2011
- Обновлены шрифты mipgost.shx и mipgost.ttf, теперь они поддерживают украинские буквы (благодаря VVA)
- немного покопался в коде... надеюсь все работает, как прежде (добавил функцию ss->vla-list, преобразующую в список vla-объектов...
- убрал файл CS_Gost2304.shp
Вложения
Тип файла: zip sumTV82.zip (375.1 Кб, 254 просмотров)

Последний раз редактировалось gomer, 18.07.2011 в 20:02.
gomer вне форума  
 
Непрочитано 15.07.2011, 08:14
#600
Nata1

Инженер
 
Регистрация: 10.11.2008
Владимирская обл., пос. Вольгинский
Сообщений: 147


Спасибо, добрые люди.
__________________
AutoCAD 2014
Nata1 вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как сосчитать сумму цифр из отдельных мтекстов (и лисп для подсчета спецификаций)

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сейсмозащита и сейсмоизоляция существующих, построенных зд. IANationalInformAgentstvo Прочее. Архитектура и строительство 216 20.01.2015 16:51
Предложения по расчетным моделям сооружений aldt Расчетные программы 8 06.07.2009 17:53
Мониторы LCD CRT Разное 94 17.06.2008 10:51
ЮМОР 2006 =) Perezz!! Разное 1122 04.01.2007 00:46