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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > ЛИСП для подсчета количества приметивов?

ЛИСП для подсчета количества приметивов?

Закрытая тема
Поиск в этой теме
Непрочитано 16.06.2007, 09:05 #1
ЛИСП для подсчета количества приметивов?
dextron3
 
проектировшик
 
СССР
Регистрация: 01.01.2007
Сообщений: 5,143

Задача: нужен ЛИСП

1) выделяем определенное количество приметивов
2) Производится запись результата в буфер обмена


По идеи в пропетисах можно видеть количество, но для ускорения надобно чтобы в буфер записывалось

:roll: :roll: :roll:
__________________
инженер проектировшик с опттом программа авто гад образование высшие
Просмотров: 3713
 
Непрочитано 16.06.2007, 09:09
#2
gad

Строитель
 
Регистрация: 02.09.2003
Лукоморье
Сообщений: 1,075


А быстрым выбором или фильтром воспользоваться слабо(в командной строке будет выведено количество выбранных элементов)?
gad вне форума  
 
Автор темы   Непрочитано 16.06.2007, 10:08
#3
dextron3

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


gad
так морочно, хочется в буфер на лету

Жду лисп,

советы контрц контрв, шифтинсерт и связанные с этими не принимаются
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 16.06.2007, 12:26
#4
fixo

Lisp/VBA/VB.NET Hobbyist
 
Регистрация: 24.03.2005
Славен Град Петров
Сообщений: 367


Цитата:
Сообщение от dextron3
gad
так морочно, хочется в буфер на лету

Жду лисп,

советы контрц контрв, шифтинсерт и связанные с этими не принимаются
Можно использовать функцию dos_clipboard из библиотеки
DosLib
или воспользоваться методом предложенным Eachy:

http://www.xdcad.net/forum/showthrea...hreadid=504042

с применением Интернет Эксплорер

~'J'~
fixo вне форума  
 
Непрочитано 16.06.2007, 12:43
#5
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,968


Цитата:
Сообщение от dextron3
gad
так морочно, хочется в буфер на лету

Жду лисп :twisted: ,

советы контрц контрв, шифтинсерт и связанные с этими не принимаются :twisted: :twisted: :twisted: :twisted:
Слушай наверняка тебе это наверняка надо для составления спецификаций, на autocad.ru и в dnl уча програмок которые тебе помогли бы.
Можно так же обратить внимание на PS-конструкции, а так же на VetCAD++.
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
DEM вне форума  
 
Непрочитано 16.06.2007, 16:17
#6
Krieger

инженер (КМ)
 
Регистрация: 30.10.2004
Красноярск
Сообщений: 3,825


С использованием упомянутой библиотеки DosLib:
Код:
[Выделить все]
(defun c:quantity (/ sum)
  (setq	sum (sslength (ssget))
  );end setq
  (if dos_clipboard (dos_clipboard (itoa sum)))
  (princ (strcat "\nКоличество выделенных примитивов: " (itoa sum)))
  (princ)
);end defun
Krieger вне форума  
 
Автор темы   Непрочитано 16.06.2007, 20:39
#7
dextron3

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


Цитата:
Сообщение от Krieger
С использованием упомянутой библиотеки DosLib:
Код:
[Выделить все]
(defun c:quantity (/ sum)
  (setq	sum (sslength (ssget))
  );end setq
  (if dos_clipboard (dos_clipboard (itoa sum)))
  (princ (strcat "\nКоличество выделенных примитивов: " (itoa sum)))
  (princ)
);end defun
а в буфер то не копирует? :twisted: :twisted: :twisted:
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 16.06.2007, 22:19
#8
Krieger

инженер (КМ)
 
Регистрация: 30.10.2004
Красноярск
Сообщений: 3,825


Библиотеку DOSLib17.arx подгрузил?
Krieger вне форума  
 
Автор темы   Непрочитано 17.06.2007, 11:59
#9
dextron3

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


Цитата:
Сообщение от Krieger
Библиотеку DOSLib17.arx подгрузил?
енто шо за штуковинка?
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 17.06.2007, 12:46
#10
Krieger

инженер (КМ)
 
Регистрация: 30.10.2004
Красноярск
Сообщений: 3,825


Цитата:
Сообщение от dextron3
Цитата:
Сообщение от Krieger
Библиотеку DOSLib17.arx подгрузил?
енто шо за штуковинка?
Я думал ты в курсе, перепутал с novichok7 из темы про длины отрезков.

пост 64:
http://dwg.ru/forum/viewtopic.php?t=953&start=60

Повторюсь:
Качаешь DOSLib вот от сюда:
http://www.en.na.mcneel.com/doslib.htm
Устанавливаешь, и в итоге у тебя появится "c:\Program Files\DOSLib 7.5\DOSLib17.arx"
Этот DOSLib17.arx кидаешь в автозагрузку.
Krieger вне форума  
 
Автор темы   Непрочитано 18.06.2007, 09:56
#11
dextron3

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


а вот и заработало :P

вот только забыл для чего хотел применить
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 18.06.2007, 09:59
#12
dextron3

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


Krieger

У меня в автокаде гдето около 19 лиспов в портфеле на подгрузке, пока автокад грузиться можно сходить покурить
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 18.06.2007, 10:04
#13
Krieger

инженер (КМ)
 
Регистрация: 30.10.2004
Красноярск
Сообщений: 3,825


Цитата:
Сообщение от dextron3
Krieger

У меня в автокаде гдето около 19 лиспов в портфеле на подгрузке, пока автокад грузиться можно сходить покурить
Чет маловато для хоть какой-нить серьёзной задержки. Я вот как-то rucad поюзал, там все лиспы перезагружаются при каждом обращении к визульному меню (там их тыщи). Вот там задержка так задержка...
Krieger вне форума  
 
Непрочитано 18.06.2007, 10:28
#14
Кулик Алексей aka kpblc
Moderator

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


Поддерживаю. У меня их грузится полтысячи, пауза не настолько большая. Может, лиспы так написаны? Приложи один ради интересу, если не жалко - поковыряем
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 18.06.2007, 10:32
#15
Krieger

инженер (КМ)
 
Регистрация: 30.10.2004
Красноярск
Сообщений: 3,825


Мож у него каждый лисп загружает по тыще других :idea:
Krieger вне форума  
 
Непрочитано 18.06.2007, 10:40
#16
Кулик Алексей aka kpblc
Moderator

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


Ээээ... Раз пошла такая пьянка
У меня в автозагрузке вообще ничего не появляется, вместе с меню грузится mnl, который и подгружает всю эту шарашку. ИМХО вопрос в качестве прописывания лиспа
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 18.06.2007, 12:36
#17
VVA

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


Без использованием упоминавшейся библиотеки DosLib:
Код:
[Выделить все]
(defun c:quantity (/ sum ieobj)
(vl-load-com)  
(setq   sum (sslength (ssget)));end setq
(setq ieobj (vlax-get-or-create-object "InternetExplorer.Application"))
(vlax-invoke ieobj 'navigate2 "about:blank")
(vlax-invoke(vlax-get(vlax-get (vlax-get ieobj 'document) 'parentwindow)
'clipboarddata)
'setdata
"text"
(itoa sum)
)
(vlax-release-object ieobj)  
(princ (strcat "\nКоличество выделенных примитивов: " (itoa sum))) 
(princ) 
);end defun
VVA вне форума  
 
Непрочитано 18.06.2007, 12:46
#18
VVA

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


Про загрузку всего одним махом можно здесь почитать
http://www.theswamp.org/index.php?topic=15057.0
VVA вне форума  
 
Автор темы   Непрочитано 18.06.2007, 16:54
#19
dextron3

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


Цитата:
Сообщение от VVA
Без использованием упоминавшейся библиотеки DosLib:
Код:
[Выделить все]
(defun c:quantity (/ sum ieobj)
(vl-load-com)  
(setq   sum (sslength (ssget)));end setq
(setq ieobj (vlax-get-or-create-object "InternetExplorer.Application"))
(vlax-invoke ieobj 'navigate2 "about:blank")
(vlax-invoke(vlax-get(vlax-get (vlax-get ieobj 'document) 'parentwindow)
'clipboarddata)
'setdata
"text"
(itoa sum)
)
(vlax-release-object ieobj)  
(princ (strcat "\nКоличество выделенных примитивов: " (itoa sum))) 
(princ) 
);end defun

автокад виснет после выполнения
подозрение на вирус
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
Закрытая тема
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > ЛИСП для подсчета количества приметивов?

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

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