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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Lisp_ Сумма значений текста и размера

Lisp_ Сумма значений текста и размера

Ответ
Поиск в этой теме
Непрочитано 24.02.2016, 11:18 #1
Lisp_ Сумма значений текста и размера
xxxNaruto
 
Регистрация: 24.02.2016
Сообщений: 2

Лисп найден (разработан добрым человеком на другом форуме). Считает сумму значения текста и проставленного значения! Может кому пригодиться!

(defun c:ОО (/ r txt1 txt2)
(prompt "\n Выберите текст")
(setq r (entsel)
txt1 (atof (cdr (assoc 1 (entget (car r)))))
) ;_ конец setq
(prompt "\n Выберите размер")
(setq r (entsel)
txt2 (cdr (assoc 42 (entget (car r))))
txt1 (+ txt1 txt2)
) ;_ конец setq
(command "_.TEXT" '(0 0 0) "0.5" 0 (rtos txt1 2 2))
(setvar "orthomode" 0)
(command "_.MOVE" (entlast) "" '(0 0 0))
) ;_ конец defun
(print "Наберите в комстроке - ОО")

Вложения
Тип файла: lsp summator 2.lsp (1.3 Кб, 562 просмотров)


Последний раз редактировалось xxxNaruto, 25.02.2016 в 09:49.
Просмотров: 5524
 
Непрочитано 24.02.2016, 12:22
#2
Кулик Алексей aka kpblc
Moderator

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


А теперь узнай про тэг [code][/code] и оформи стартовый пост в нормальном, читабельном режиме. Разбираться, где там первый лисп, а где второй - мало кто будет.

----- добавлено через 38 сек. -----
Цитата:
Сообщение от xxxNaruto Посмотреть сообщение
Может кто дать требуемый для конкретной задачи лисп или подредактировать эти?! Заранее благодарен!
С такими запросами прямая дорога в "Поиск исполнителей"
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 24.02.2016, 12:44
1 | #3
Boxa

КЖ; C#
 
Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,588


Вот это простыня!
Да тут не только тег [code], тут еще и [more] нужно, хотя ИМХО, луче файлами.
Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
С такими запросами прямая дорога в "Поиск исполнителей"
Да ладно, ща самаритяне набегут и сделают, но вот почему этот топик в ветке ГОТОВЫЕ программы, для меня загадка.
Boxa вне форума  
 
Автор темы   Непрочитано 24.02.2016, 13:37
#4
xxxNaruto


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


Перезалил!
xxxNaruto вне форума  
 
Непрочитано 24.02.2016, 13:45
#5
Кулик Алексей aka kpblc
Moderator

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


Цитата:
Сообщение от Boxa Посмотреть сообщение
но вот почему этот топик в ветке ГОТОВЫЕ программы, для меня загадка.
Спасибо, переместил.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 16.11.2018, 13:15
#6
A-Vitus


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


Большое спасибо за Lisp, очень полезно для меня лично.
Но хотелось бы усовершенствовать как-то данную штуку. Возможно где-то на форуме уже есть, но я не нашел. Возможно ли результат сделать в виде поля, изменяемого в зависимости от редактирования слагаемых? Ну то есть, изменяю я одно из чисел, а при регенерации (или при обновлении поля) результат тоже меняется. Я знаю что это возможно и вручную при помощи добавления полей я эту зависимость делал, но к сожалению оформить это в лисп я не умею, а каждый раз писать формулу для каждого набора слагаемых достаточно долго. Куда удобней, как тут - "потыкал" нужные числа, вставил результат и готово. Но проблема в том, что эти числа меняются и приходится "тыкать" заново. Может быть есть тут люди, разбирающиеся...
A-Vitus вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Lisp_ Сумма значений текста и размера

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как уменьшить отступ текста размера от выносной линии Aqualung AutoCAD 30 14.11.2021 01:56
LISP. Подскажите пожалуйста, как узнать ширину текста? LastGraff LISP 4 01.02.2012 06:38
Как задать толщину текста в размерах отличную от толщины линий размера beholder AutoCAD 4 01.10.2009 14:57
размещение текста углового размера Bull AutoCAD 9 08.04.2008 09:03
Как включить рамку вокруг разм. текста для одного размера? kp+ AutoCAD 8 31.01.2006 12:51