Чат в автокаде? Реально ли это? Может кто встречался?

proektant-minsk · 09.08.2011, 15:41

Существует ли в среде автокад чат? То есть возможность обмениваться сообщениями с коллегами по локальной сети, через автокад? Может кто-то такое чудо видел, а может кто-то и сам написал?

Alan · 09.08.2011, 15:43

А вы не пробовали простой чат по сети?
Существует их куча бесплатных.
Автокад здесь вторичен...

T-Yoke · 10.08.2011, 19:17

Цитата:

Сообщение от proektant-minsk

Существует ли в среде автокад чат? То есть возможность обмениваться сообщениями с коллегами по локальной сети, через автокад?...

Говорят есть чат в Юниграфиксе, но требуется уровень доступа, к телу проектировщика, не ниже главного инженера завода.

alexandrius · 11.08.2011, 09:25

Цитата:

Сообщение от Alan

А вы не пробовали простой чат по сети?

Полагаю, на работе чаты запрещены. И, что бы "обойти" запрет, нужен чат через задницу автокад.

Alan · 11.08.2011, 11:24

Цитата:

Сообщение от alexandrius

Полагаю, на работе чаты запрещены.

Была тема http://forum.dwg.ru/showthread.php?t...E5%F0%ED%E5%F2 "Нужен ли Интернет на рабочем месте...." писал там пост №84, в том числе упоминал необходимость
чата для совместной работы.

ASLYS · 11.08.2011, 12:20

мы прикрутили net send к автокаду, очень даже неплохо работало.
PS код надо адаптировать под себя (заменить пути, создать пользователей и т.д.)

SergAM243 · 11.08.2011, 15:01

Вот бы еще испанский --> русский или английский

ASLYS · 12.08.2011, 13:32

Код:

[Выделить все]

 (defun c:mess(/ i j k l m n msg Usuario L-usuarios tmp-file L-msgs op)
 (load "C:\\Documents and Settings\\aly\\Escritorio\\Alex\\LISP\\_OPEN\\Messcad.LSP")
 (setq L-msgs nil) 
 (if(dos_filep(setq file(strcat(dos_tempdir)"mensajes-messcad.txt")))
  (progn 
   (setq tmp-file(open file "r"))
   (while(setq line-act(read-line tmp-file)) (setq L-msgs(cons line-act L-msgs)))
   (setq L-msgs(reverse L-msgs))
   (close tmp-file)
   (setq L-msgs(if(null L-msgs)'("")L-msgs))
  ) 
  (setq L-msgs '("")) 
 )    
 
 (setq msg(dos_combolist  "Mensaje a enviar" "Написать или выбрать сообщение (Редактировать сообщения \"EDM\") :" L-msgs))
  
 (if(null msg)(exit))
 (if (dos_filep "C:\\Documents and Settings\\aly\\Escritorio\\Alex\\LISP\\_OPENMesscad usuarios.txt")
  (progn 
   (setq usuarios-file(open "C:\\Documents and Settings\\aly\\Escritorio\\Alex\\LISP\\_OPENMesscad usuarios.txt" "r"))
   (setq L-usuarios nil) 
   (while(setq line-act(read-line usuarios-file))(setq L-usuarios(cons line-act L-usuarios)))
   (setq L-usuarios(reverse L-usuarios))
   (close usuarios-file)
   (setq L-usuarios(mapcar'(lambda(x)(dos_strtokens x "="))L-usuarios))
  ) 

  (setq L-usuarios(list 
		       '("Ezequiel" "idom-arq")
		       '("Oscar" "cmr")		       
		       '("Alberto" "Delinea_45")
                       '("Alexey" "pc013408")
		       '("Andrés" "casino0180")
                       '("Javier" "casinodelin70")
                       '("Carlos(electrico)" "PC123")
                       '("Hugex" "Delineante001")
                       '("Deivid" "Davidtorres")
                       '("Javi" "Jdelgado")
		       '("Aurori" "Civdelin")
		       '("Laura" "Lmb_09")
		       '("Stefany" "D8bd6r3j")
                  )
 ))  
 (if(null L-usuarios)(exit)) 
 (setq i(dos_checklist "Mensajero Autocad" "Получатель  (Редактировать список  \"EDUS\")" (mapcar'(lambda(x)(cons(car x)0))L-usuarios)))
 (setq j(vl-remove nil(mapcar'(lambda(x)(if(=(cdr x)1)(car x)))i)))
  
 (setq k(vl-remove nil(mapcar'(lambda(x)(if(=(cdr x)1)(strcat (car x) " --> " (cadr(assoc (car x) L-usuarios)))))i)))
  
 (setq l "" l(foreach i k(setq l (strcat l "\n" i))l))
 (setq op(dos_msgboxex(strcat "*Получат: " l "\n\n*Сообщение:\n\"" msg"\"\n\n") "Mensajero Autocad"(list "Отправить и сохранить >>" "Отмена" "Только отправить >>")))
 (if(= op 1)(exit)) 
 (if(= op 0)
  (progn 
   (setq L-msgs(append L-msgs (list msg)) L-msgs (Quita-repetidos L-msgs))
   (setq tmp-file(open(strcat(dos_tempdir)"mensajes-messcad.txt")"w"))
   (setq L-msgs(vl-remove "" L-msgs)) 
   (foreach i L-msgs(write-line i tmp-file))
   (close tmp-file)
  )
 )  
 (foreach i j
  ;(setq i(nth 0 j))
  ;Destinatario del mensaje     
  (setq Usuario(cadr(assoc i L-usuarios)))
  ;usuario que manda el mensaje 
  (setq k(car(nth(vl-position (dos_computer)(mapcar '(lambda(x)(strcase(cadr x)))L-usuarios))L-usuarios)))
  (startapp (strcat "net send " Usuario " " (strcat (substr k 1 (vl-string-search " " k))" dice: "msg)))
 )
 
)

;Edita el archivo de mensajes enviados
(defun c:EDM( / i j k msg Usuario L-usuarios tmp-file L-msgs)
 (if(dos_filep (strcat(dos_tempdir)"mensajes-messcad.txt"))
  (progn
   (dos_msgbox "Se editará el archivo de mensajes enviados..." "Mensajero Autocad" 1 1) 
   (startapp "notepad" (strcat(dos_tempdir)"mensajes-messcad.txt"))
  ) 
  (dos_msgbox "**** No se encontró ningún archivo de mensajes antiguos ****" "Mensajero Autocad" 1 1) 
 )  
;;; (setq tmp-file(open(strcat(dos_tempdir)"mensajes-messcad.txt")"r"))
;;; (setq L-msgs nil) 
;;; (while(setq line-act(read-line tmp-file))
;;;  (setq L-msgs(cons line-act L-msgs))
;;; )
;;; (setq L-msgs(reverse L-msgs))
;;; (close tmp-file)
;;; (setq L-msgs(dos_editlist "Mensajero Autocad" "Agrega o elimina mensajes de la lista:" (if(null L-msgs)'("")L-msgs)))
;;; (if(null(vl-remove nil L-msgs))
;;;  (dos_delete (strcat(dos_tempdir)"mensajes-messcad.txt"))
;;;  (progn 
;;;   (setq tmp-file(open(strcat(dos_tempdir)"mensajes-messcad.txt")"w"))
;;;   (foreach i L-msgs(write-line i tmp-file))
;;;   (close tmp-file)
;;;  )
;;; )  
;;; (if(= 0(dos_msgboxex "  Quieres mandar un mensaje ahora?        " "Mensajero Autocad" (list "Enviar un msg >>" "Terminar >>")3))
;;;  (c:mess) 
;;; ) 
)


;Edita el archivo de usuarios de messcad
(defun c:edus( / i j k msg Usuario L-usuarios usuarios-file L-usuarios)
 (setq usuarios-file(open "C:\\Documents and Settings\\aly\\Escritorio\\Alex\\LISP\\_OPENMesscad usuarios.txt" "r"))
 (setq L-usuarios nil) 
 (while(setq line-act(read-line usuarios-file))
  (setq L-usuarios(cons line-act L-usuarios))
 )
 (setq L-usuarios(reverse L-usuarios))
 (close usuarios-file)
 (setq L-usuarios(dos_editlist "Mensajero Autocad" "Edita o agrega los usuarios en la lista con -->" L-usuarios))
 (if(null(vl-remove nil L-usuarios))
  (dos_delete "C:\\Documents and Settings\\aly\\Escritorio\\Alex\\LISP\\_OPENMesscad usuarios.txt")
  (progn 
   (setq usuarios-file(open "C:\\Documents and Settings\\aly\\Escritorio\\Alex\\LISP\\_OPENMesscad usuarios.txt" "w"))
   (foreach i L-usuarios(write-line i usuarios-file))
   (close usuarios-file)
  )
 )
 ;(dos_msgbox "El usuario fue agregado con éxito a la lista" "Mensajero Autocad"1 1) 
)

;Elimina elementos repetidos de una lista                                                   
;elimina repetidos; elimina listas repetidas;  elimina valores repetidos;                   
(defun Quita-repetidos(L0 / L1 band i j)
 (if (null L0)
  nil
  (progn 
   (setq L1(list(car L0)))
   (foreach i L0
    (setq band T)(foreach j L1(if(equal i j)(setq band nil)))
    (if band(setq L1(cons i L1)))     
   )  
   (reverse L1)
  )
 )  
)

proektant-minsk · 14.08.2011, 22:38

а как эта штука ваще работает? у нас инета на работе нет((( только локальная сеть, в ней у каждого своя папка и права в ней что то создавать или из нее удалять. папок с общим доступом для всех нету

ASLYS · 16.08.2011, 11:59

Интернет не нужен, нужна локальная сеть
В этой штуке надо прописать свои пути к файлу, т.е. заменить все C:\\Documents and Settings\\aly\\Escritorio\\Alex\\LISP\\_OPEN\\Messcad.LSP на свои
Прописать имена пользователей, т.е. заменить "Alexey" "pc013408" на "Вася" "имя компа"
Создать в той же папке пустой файл Messcad usuarios.txt
Загрузить Messcad.LSP, и ввести в ком. строку mess

Edm – редактировать список сохраненных сообщений
Edus- редактировать список пользователей

Кулик Алексей aka kpblc · 16.08.2011, 13:25

ASLYS, зря сделал привязку на DosLib (ИМХО)

ASLYS · 16.08.2011, 13:34

Цитата:

Сообщение от Кулик Алексей aka kpblc

ASLYS, зря сделал привязку на DosLib (ИМХО)

точно, еще DosLib надо в портфель положить
а почему зря?

Кулик Алексей aka kpblc · 16.08.2011, 13:45

Потому что это стороннее приложение, вдобавок зависит от версии AutoCAD. Допустим, у меня 2002 или 2005. Для всех версий будешь закидывать DosLib?

gomer · 16.08.2011, 20:03

Как по мне это нужно делать именно на arx или net в виде клиента, подключающегося к основной, передающей программе, которую можно писать на чем угодно... при этом arx модуль отвечает за интерфейс и подготовку данных к передаче... на лиспе такое сделать, да хоть скриншот текущего вида - никаких костылей не хватит...

Кулик Алексей aka kpblc · 16.08.2011, 22:58

В таком случае для чата есть масса готовых решений - от Microsoft Communicator до Vypress chat. Смысл изобретать велосипед?

hwd · 16.08.2011, 22:59

кабздец... хочу, чтобы автокад за пивом бегал и на работу за меня ходил... Может кто-то такое чудо видел, а может кто-то и сам написал? (с)...

gomer · 17.08.2011, 01:49

Цитата:

Сообщение от hwd

хочу, чтобы автокад за пивом бегал и на работу за меня ходил...

Цитата:

Сообщение от Кулик Алексей aka kpblc

Смысл изобретать велосипед?

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

Laborant · 17.08.2011, 02:26

Offtop: Чмоки всем, кто в этом чате...

gomer · 17.08.2011, 02:44

Идите в чат, я вам дело говорю

Кулик Алексей aka kpblc · 17.08.2011, 06:59

Цитата:

Сообщение от gomer

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

Почта, коммуникатор, скайп, TeamViewer... Мало?

hwd · 17.08.2011, 08:16

Цитата:

Сообщение от gomer

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

Необходимости в отправке нет, т.к. руководитель просто берёт и открывает этот файл из сети, безо всяких там отправок, ибо в нормальных проектных компаниях сеть имеется, а все файлы проекта лежат именно в сети. Просьбу о просмотре можно сформировать устно, если он в том же кабинете, или через мессенджер, который опять же - в нормальных компаниях админы устанавливают, дабы юзеры могли общаться (по работе) др. с др. не бегая по кабинетам и не стоя в очереди на "позвонить по телефону". Рукожопные прочие варианты - это от глупости.

Автору топика рекомендую внимательно, вдумчиво прочитать подпись под моими сообщениями - это как раз его случай.

ASLYS · 17.08.2011, 12:15

Начал внедрять мессенгер в своем новом отделе. Все в восторге! Кофепитие и перекуры теперь назначаются только через автокад. Или сообщения типа "Эй, чудак, чертеж закрой!"
Вот бы еще к этому говорилку приделать!

Цитата:

Сообщение от hwd

кабздец... хочу, чтобы автокад за пивом бегал и на работу за меня ходил... Может кто-то такое чудо видел, а может кто-то и сам написал? (с)...

Был у нас один товарищ. Он в Сamtasia Studio записал пару часов работы в акаде, а потом приходил на работу, включал запись и ... засыпал. Кстати мы его вычислили благодаря мессенгеру, отправили сообщение попить кофе, а он не среагировал. Подошли, смотрим, курсор двигается, автокад рисует, а он спит!

hwd · 17.08.2011, 15:41

Цитата:

Сообщение от ASLYS

Вот бы еще к этому говорилку приделать!

А ещё бы в Heroes of Might and Magic через автокад играть, электронные платежи через него проводить, ну и... сетчатку глаза сканировать. Или ещё "круче" - облачные вычисления через автокад реализовать...

P.S. Обозначенные мною задачи весьма востребованы в узком кругу ограниченных людей. Решите их (до кучи к чату и говорилке) и будет вам мировое признание (с белыми санитарами). Раз уж не знаете куда себя применить...

gomer · 17.08.2011, 19:27

Цитата:

Сообщение от Кулик Алексей aka kpblc

Почта, коммуникатор, скайп, TeamViewer... Мало?

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

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

думаю пока не появится готовое решение многие будут к этой затее скептически относиться...
спрашивается... зачем к автокаду прикрутили .Net? Чтоб чертить арматуру или вставлять форматки?

ASLYS · 17.08.2011, 19:42

Цитата:

Сообщение от hwd

А ещё бы в Heroes of Might and Magic через автокад играть, электронные платежи через него проводить, ну и... сетчатку глаза сканировать. Или ещё "круче" - облачные вычисления через автокад реализовать...

P.S. Обозначенные мною задачи весьма востребованы в узком кругу ограниченных людей. Решите их (до кучи к чату и говорилке) и будет вам мировое признание (с белыми санитарами). Раз уж не знаете куда себя применить...

Ваши белые санитары, тараканы в голове, электронные платежи, облачные вычисления, проблемы сетчатки глаза и мировое признание это не совсем то, о чем спросил автор топика. Он имел ввиду "возможность обмениваться сообщениями с коллегами по локальной сети, через автокад"
рекомендую внимательно, вдумчиво читать первое сообщение а не свою подпись

Цитата:

Сообщение от hwd

кабздец... хочу, чтобы автокад за пивом бегал и на работу за меня ходил... Может кто-то такое чудо видел, а может кто-то и сам написал? (с)...

похоже что сбегал... пива не было, взял екстези для тараканов

Кулик Алексей aka kpblc · 17.08.2011, 21:27

Цитата:

Сообщение от gomer

На отправку комплекта чертежей по электронке уходит половина рабочего дня... мало?

создать подшивку и ее запаковать - сложно?

Цитата:

Сообщение от gomer

Некоторые товарищи вообще мылом не умеют пользоваться...

Это не означает, что на них надо равняться.

Цитата:

Сообщение от gomer

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

А можно просто выделить заранее оговоренным методом, раз уж скайп / TeamViewer / Communicator / наконец, просто распечатка - исключаются из рассмотрения.

Цитата:

Сообщение от gomer

тимвьюер хорошая программа, но при медленном соединении...

А сеть нормальную проложить не катит?

hwd · 17.08.2011, 21:50

Удивляюсь... С каким энтузиазмом взрослые люди обсуждают откровенную херню фигню.

Лёша, твои доводы им думаю не интересны, потому как обыденны: каким-то мессенджером пользоваться, подшивками, скайпом, почтой - это так банально и не интересно... Забивать автокадом гвозди - вот это да, это то, что нужно... Самое что смешное - и ведь ухватились за неё (идею) и что-то там даже настрочили на лиспе... Т.е. пациент не одинок. Задуматься о целесообразности сего некогда, ибо мысль уже ускакала вперёд, развивая сей "чудопроект"... Гугловые конкуренты млин

Рената Литвинова отдыхает...

gomer · 17.08.2011, 22:42

Цитата:

Сообщение от Кулик Алексей aka kpblc

А сеть нормальную проложить не катит?

Сидит какой-нибудь сеньор инженер в славном городе Бобруйске и раскидывает работу фрилансерам... а у него инет только зг... и нормальная сетка только в мечтах у доброй половины обывателей славного города...

Цитата:

Сообщение от hwd

что-то там даже настрочили на лиспе...

в некоторых конторах есть строгий контроль за установленным ПО... а лисп устанавливать не надо...
зы у нас в локалке нашел остатки чата... не акадовского... не прижилось... каждый выполняет работу самостоятельно... проверяется уже бумажный вариант... это имхо не лучший вариант... но по другому мы пока не научились

Кулик Алексей aka kpblc · 17.08.2011, 22:45

Цитата:

Сообщение от gomer

есть строгий контроль за установленным ПО...

Обходится элементарно: надо доказать, что отсутствие какого-либо ПО обходится дороже, чем его наличие

hwd · 17.08.2011, 22:50

Цитата:

Сообщение от gomer

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

Ну... значит я работаю в раю: нормальная локальная сеть; майкрософтовский мессенджер для общения юзеров между собой; все проекты в сетке, а не каждый на своём компе хранит свой файл; хелпдеск; оутлук; обменник (каталоги в сети для обмена юзеров файлами между собой - у каждого юзера свой каталог); ежедневное резервное копирование всех документов. Всё ПО лицензионное. Да, и проекты оформляются акадовскими подшивками (юзеры прониклись сей темой).

Offtop: п.с. про бесплатное питание (кормят по-домашнему) молчу

gomer · 18.08.2011, 04:15

Цитата:

Сообщение от Кулик Алексей aka kpblc

Обходится элементарно

ну не знаю-не знаю... как-то ко мне пришли и сказали, что у меня установлен мс офис... который был снесен несколько лет назад...

Boxa · 24.08.2011, 20:52

имхо. Вопрос, цены вопроса. Писать просто из любви к искусству никто не будет. А за некоторую сумму вам что угодно напишут. =)
Да и сложного там ничего нет. Взять открытый клиент(библиотеку) и сделать вывод и ввод сообщений через акад. Вопрос именно мотивации.

ЗЫ. Можно еще проще.
Ставите бесплатный и открытий веб сервер, коих масса. Ставите на него бесплатный веб чат, коих так же огромное количество. В Acad vba создаете форму, на форму кидаете ie контрол. Вуаля, локальный чат в Автокаде готов! =)))))))

kakt00z · 02.09.2011, 02:10

помолчу

09.08.2011, 15:41		#1
Чат в автокаде? Реально ли это? Может кто встречался? proektant-minsk Проектировщик ОВ Минск Регистрация: 15.10.2010 Сообщений: 42 Существует ли в среде автокад чат? То есть возможность обмениваться сообщениями с коллегами по локальной сети, через автокад? Может кто-то такое чудо видел, а может кто-то и сам написал?
Просмотров: 11085

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Может кто подскажет метод расчета опоры под фундамент?	masha_	Основания и фундаменты	8	16.05.2011 13:38
Может кто знает	Maxx	Прочее. Архитектура и строительство	13	24.09.2007 22:44
Поможите, люди добрые. Может кто знает...	kent3000	Прочее. Архитектура и строительство	8	19.02.2005 23:20
хочу с асада перейти в Excel-помогите кто чем может	maxw	AutoCAD	2	05.10.2004 13:33
подскажите кто может где взять литературу по VBA for AutoCad	er	Программирование	2	28.10.2003 14:08