[proektant-minsk]

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

[Alan]

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

[T-Yoke]

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

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

[alexandrius]

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

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

[Alan]

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

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

[ASLYS]

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

[SergAM243]

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

[ASLYS]

Код:

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

 (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]

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

[ASLYS]

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

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

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

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

[ASLYS]

Сообщение от Кулик Алексей aka kpblc ASLYS, зря сделал привязку на DosLib (ИМХО)

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

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

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

[gomer]

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

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

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

[hwd]

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

[gomer]

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

Сообщение от Кулик Алексей aka kpblc Смысл изобретать велосипед?

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

[Laborant]

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

[gomer]

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

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

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

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