[Golem-iq]

Доброго времени суток!

Пишу на LISP.
Хочу попробовать дать свою программу проектировщикам на предприятие. Предприятие государственное, поэтому AutoCAD у них лицензионный. Возникает вопрос, смогут ли они пользоваться моей программой? (Сейчас бесплатно).

Основная часть программы написана мной, но есть один кусок кода в виде отдельного файла, который я нашёл на данном форуме. Он позволяет осуществлять передачу значения переменной между AutoCAD и Excel из конкретной ячейки в переменную (и наоборот). Файл называется InetExcel.fas. Чьё это творение я найти не могу, и условия распространения файла тоже не знаю. А написать свою замену не получается.

Если кто может помочь с передачей именно значения между AutoCAD и Excel, будьте добры помогите. На форуме есть примеры с передачей всей таблицы, с её связыванием, а именно считывание/передача одного значения не найду.

Вот листинг кода для передачи / приёма в эксель:

Код:

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

 (defun C:EXM ( / DESRNG EXCELAPP FILEPATH NEXTRNG SELRNG SHT SHTNUM WBK stroka colon)
  (setq FilePath (getfiled	"Выберите файл с прайсами :"
		 (getvar "dwgprefix")
			 "xlsx"
			 16
	         )
  )

  (setq ShtNum (getstring t "\nВведите имя листа <Лист1>: \n"))
  (if (eq ShtNum "")
    (setq ShtNum "Лист1")
  )
  (setq ExcelApp (vlax-get-or-create-object "Excel.Application"))
  (vla-put-visible ExcelApp :vlax-true)
  (setq Wbk (vl-catch-all-apply 'vla-open (list (vlax-get-property ExcelApp "WorkBooks") FilePath)))
  (vlax-invoke-method Wbk 'Activate)
  (setq Sht (vl-catch-all-apply 'vlax-get-property (list (vlax-get-property Wbk "Sheets") "Item" ShtNum)))
  (vlax-invoke-method Sht "Activate")

  ;; <действия в файле>
  (IN_WRITE-EXCEL 3 23 1000)
  (setq el1 (car (IN_READ-EXCEL 3 19 Param)))

  (vl-catch-all-apply 'vlax-invoke-method (list Wbk "Close" :vlax-true))
  (vl-catch-all-apply 'vlax-invoke-method (list ExcelApp "Quit"))
  (mapcar
    (function (lambda (x)
		(if (not (vlax-object-released-p x))
		  (vlax-release-object x)
		)
	      )
    )
    (list DesRng NextRng SelRng Sht Wbk ExcelApp); обязательно в обратном порядке
  )
  (setq	DesRng nil
	NextRng nil
	SelRng nil
	Sht nil
	Wbk nil
	ExcelApp nil
  )
  (gc)
  (gc)
  (gc)
  (prin1)
)

Вот ссылка на сам файл:

http://yadi.sk/d/giKeXlZ_54bK8

функции IN_WRITE-EXCEL и IN_READ-EXCEL для меня тёмный лес. Кто-нибудь может их раскрыть?

IN_WRITE-EXCEL X Y Z - записывает в конкретную ячейку значение
X - номер строки
Y - номер столбца
Z - значение

IN_READ-EXCEL X Y Z - считывает значение из конкретной ячейки
X - номер строки
Y - номер столбца
Z - значение

[Дима_]

Сообщение от Golem-iq На форуме есть примеры с передачей всей таблицы, с её связыванием, а именно считывание/передача одного значения не найду.

Откройте для себя гугл и научитесь искать не примеры не автолиспе, а функционал (API) той технологии которую Вы подразумеваете использовать (из лиспа получить данные excel можно как используя ActiveX модель, так и через истоник данных ODBC).

[maratovich]

Сообщение от Golem-iq Возникает вопрос, смогут ли они пользоваться моей программой? (Сейчас бесплатно)

1. Где Вы видели лисп программу ?
2. Лиспом пользоваться запросто, даже если у Вас хватит сил зарегистрировать в Роспатент с предоставлением кода, просто меняется половина кода на свои закарючки и всё.
3. Бесплатно сейчас - значит бесплатно всегда.
4. Покажите мне хоть один платный лисп.
5. Если хотите делать платное, то делайте изначально.

Сообщение от Golem-iq Чьё это творение я найти не могу, и условия распространения файла тоже не знаю. А написать свою замену не получается.

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

[hwd]

Сообщение от maratovich хотябы на VB6.

ну-ну...

Сообщение от Википедия В середине 1998 — вышла Visual Basic 6.0. После этого Microsoft резко изменила политику в отношении языков семейства Basic. Вместо развития Visual Basic, был создан абсолютно новый язык Visual Basic .NET, первая версия которого появилась в 2001. Это принципиально новый язык, имеющий, помимо синтаксиса, очень мало схожего с VB 6.0; и отличаясь от него так же сильно, как в своё время VB отличался от QBASIC. VB.NET сразу же занял место VB в Visual Studio, и на этом развитие классического Visual Basic остановилось.

@Golem-iq,
т.о., если сам себе не враг, то однозначно не VB6.

[maratovich]

Сообщение от hwd т.о., если сам себе не враг, то однозначно не VB6.

Напугал ежа голой ...ой!

Резюме Visual Basic команда стремится к "It Just Works" совместимость для Visual Basic 6.0 приложений на Windows Vista, Windows Server 2008 R2, включая Windows 7 и Windows 8. Цель Visual Basic команды состоит в том, что Visual Basic 6.0 приложений, работающих на Windows XP, также будут работать на Windows Vista, Windows Server 2008, Windows 7 и Windows 8. Как указано в этом документе, основные среды выполнения Visual Basic 6.0 будет поддерживаться в течение полного срока службы Windows Vista, Windows Server 2008, Windows 7 и Windows 8, что в пять лет основной поддержки следуют пять лет расширенной поддержки.

http://msdn.microsoft.com/en-us/vstudio/ms788708
Пока жив Уи́льям Ге́нри Гейтс III - VB6 никогда не загнётся (любимая игрушка).
Да и после этого проги работать будут всегда, а кода с примерами в интернете больше чем каких либо.

[hwd]

@maratovich,
Ты не ощущаешь никакой разницы между такими понятиями как "поддержка" и "развитие"? VB6 не развивается и развиваться уже не будет. Этого более чем достаточно для того, чтобы не тратить время на изучение языка, всё ещё подключенного к аппарату искусственного дыхания. Тем более, что существует его более продвинутый потомок, который как раз таки успешно развивается.

[maratovich]

1. В VB6 есть всё необходимое, даже к LT цепляется.
2. Лисп тоже доживает своё, давайте все бросим писать на нём.
3. Я ответил человеку на его вопрос, и предложил наиболее оптимальный вариант для его уровня и возможностей.
4. Если у автора появятся вопросы - он спросит.
5. Заканчивай флудить.

[hwd]

Offtop:

Сообщение от maratovich 5. Заканчивай флудить.

вот чья бы корова мычала...

Offtop:

Сообщение от maratovich 2. Лисп тоже доживает своё, давайте все бросим писать на нём.

"Лиспы" - они бывают разные, если ты этого не знаешь...

Offtop:

Сообщение от maratovich предложил наиболее оптимальный вариант для его уровня и возможностей

ну-ну, оценщик...

[Golem-iq]

Сообщение от maratovich 1. Где Вы видели лисп программу ? 2. Лиспом пользоваться запросто, даже если у Вас хватит сил зарегистрировать в Роспатент с предоставлением кода, просто меняется половина кода на свои закарючки и всё. 3. Бесплатно сейчас - значит бесплатно всегда. 4. Покажите мне хоть один платный лисп. 5. Если хотите делать платное, то делайте изначально. С такими вещами лучше не связываться, в один прекрасный момент Вас могут попросить.... и будет обидно. Даже если найдёте и Вам скажут, что бесплатно, автор никогда не даст Вам эксклюзивные права, а значит в любой момент может объявить о том, что его разработка платная и стоит больше чем Ваша программа. Вообще если делать что то платное, то надо менять язык, хотябы на VB6.

1. Странный вопрос, я привык называть то что пишется на каком-либо языке программирования "программой", без отхода в сторону надстройка это или же целый пакет приложений. Возможно это не правильное мышление, но под LISP-программой я понимаю загружаемый в AutoCAD файл, который добавляет функциональности. Если проще надстройка. (Вообще не суть важно, вроде...)
2. Согласен.
3. То же есть большая доля правды.
4. Вроде таких не видел, но вопрос не взбунтуется ли автор, что я просто взял и без спросу использовал его труд. Ему может просто быть обидно
5. Возьму мысль на вооружение

[maratovich]

Сообщение от Golem-iq Возьму мысль на вооружение

Это будет верный вариант.
Однажды я сам попал, сделал программу бесплатно для своего отдела (экономила кучу бабок директору), ну а когда он меня с ЗП кинул и я ушел, прога осталась (хоть и чистил компы перед уходом). Разные ситуации в жизни бывают. Зато жизнь учит.
А нормальную защиту на Лисп не поставить, даже на dll очень сложно, поэтому нужен exe файл.
И если сделаете платной, то можете сразу и лицензию и авторские права сделать.
Я тоже долго думал, и пришел к выводу - делаю программы платные, с нормальной защитой, но стоят они 100-300 руб. чтобы каждый мог себе позволить, а тем более контора для которой Вы хотите делать программу.

[Golem-iq]

Сообщение от maratovich Это будет верный вариант. Однажды я сам попал, сделал программу бесплатно для своего отдела (экономила кучу бабок директору), ну а когда он меня с ЗП кинул и я ушел, прога осталась (хоть и чистил компы перед уходом). Разные ситуации в жизни бывают. Зато жизнь учит. А нормальную защиту на Лисп не поставить, даже на dll очень сложно, поэтому нужен exe файл. И если сделаете платной, то можете сразу и лицензию и авторские права сделать. Я тоже долго думал, и пришел к выводу - делаю программы платные, с нормальной защитой, но стоят они 100-300 руб. чтобы каждый мог себе позволить, а тем более контора для которой Вы хотите делать программу.

А на чём пишите?

[maratovich]

Сообщение от Golem-iq А на чём пишите?

VB6
мои творения

[Golem-iq]

Сообщение от maratovich VB6 мои творения

Благодарю. Подумаю над переходом на VB6, но всё же сейчас у меня есть практически готовый проект на LISP, пусть и написанный моими кривыми руками, а VB6 я даже не изучал...

[maratovich]

Сообщение от Golem-iq а VB6 я даже не изучал...

Берёте код VBA (его куча на форуме), вставляете в VB6 и он работает, практически никакой разницы.
А Бейсик (он же VB6) насколько я понимаю, в школах ещё не перестали преподавать. Если что пишите в личку.

[Golem-iq]

Сообщение от maratovich Берёте код VBA (его куча на форуме), вставляете в VB6 и он работает, практически никакой разницы. А Бейсик (он же VB6) насколько я понимаю, в школах ещё не перестали преподавать. Если что пишите в личку.

хорошо, благодарю

[gomer]

Offtop: У меня как-то после запуска программы написанной на vb6, skiin3, отказывался запускаться автокад2008, так что не все так гладко, как кажется
ТС, вам всего лишь нужно, поднять свой анубис с места и покопаться в объектной модели Экселя, чтобы добавить пару строк в свою программу и забыть о чужом коде

[Golem-iq]

Сообщение от gomer Offtop: У меня как-то после запуска программы написанной на vb6, skiin3, отказывался запускаться автокад2008, так что не все так гладко, как кажется ТС, вам всего лишь нужно, поднять свой анубис с места и покопаться в объектной модели Экселя, чтобы добавить пару строк в свою программу и забыть о чужом коде

поднимал и пытался, плохо выходит пытался.

[Дима_]

Сообщение от maratovich Вообще если делать что то платное, то надо менять язык, хотябы на VB6.

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

Э.В. Дейкстра

[Do$]

Сообщение от maratovich 4. Покажите мне хоть один платный лисп.

А почему бы и нет? Показывать не стану, придется поверить на слово: платные разработки на голом (авто-,вижуал-) лиспе я делал. Встречались мне и различные модульные части в виде vlx в платных приложениях. Так что это вполне реально.

Сообщение от maratovich 2. Лисп тоже доживает своё

Это из области домыслов, мифов и легенд. Если говорить про встроенный в автокад лисп, то альтернативы ему нет.

[hwd]

Offtop:

Сообщение от Do$ Цитата: Это из области домыслов, мифов и легенд. Если говорить про встроенный в автокад лисп, то альтернативы ему нет.

Не обращай внимания : maratovich в очередной раз путает белое с пушистым: то "поддержку" с "развитием", а теперь "развитие" с "доживанием". Хотя, ладно бы он сам путался (ему можно), но печально, что эту лапшу он вешает тем, кто "не в теме" и те это "кушают"...

[Do$]

Offtop:

Сообщение от hwd Не обращай внимания

А вот не могу! Как правильно заметил, потому что:

Сообщение от hwd но печально, что эту лапшу он вешает тем, кто "не в теме" и те это "кушают"...

По теме - автор, разберись с работой с экселем и напиши сам эти функции, там ничего сложного. Примеров на форуме масса. Использовать "черный ящик" от неизвестного издателя - это, как минимум, рисковано с точки зрения стабильности работы приложения.

[VVA]

Посмотри тему Как работать с Excel из LISP
В посте #6 есть много ссылок. Часть, наверное, уже недействующие, но п.5 ( KozMos VLXLS Project ) еще доступен

KozMos VLXLS Project By using ActiveX, we can control Microsoft Excel from within Visual LISP. VLXLS is a fully open source project to demonstrate and execute the procedure of data IO (Input/Output) between Excel and AutoCAD. ActiveX uses variant but Visual LISP use normal list, VLXLS will translate between the two variable types very well. By doing so, the speed of reading data from Excel and writing data to Excel can be same as VB. We can pass HUGE list data into Excel within seconds!

[maratovich]

Offtop: Глубокоуважаемые
hwd
Do$
Вы лучше напишите что нибудь полезное автору, а то кроме флуда ничего от вас нет. И не надо выражаться.
Заодно на досуге умных людей почитайте http://kpblc.blogspot.ru/2011/12/blog-post.html

[Golem-iq]

Сообщение от VVA Посмотри тему Как работать с Excel из LISP В посте #6 есть много ссылок. Часть, наверное, уде недействующие, но п.5 ( KozMos VLXLS Project ) еще доступен

благодарю, посмотрю.

[hwd]

Сообщение от maratovich кроме флуда ничего от вас нет.

Т.е. аргументированно предостерегать топикстартера от изучения VB6 - это флуд, а агитация за VB6, причём с путаньем элементарных понятий - это не флуд? Не выдавай желаемое за действительное.

Сообщение от maratovich Вы лучше напишите что нибудь полезное автору

а мы и написали. Кто виноват, что ты в упор этого не видишь? Автору посоветовали не заморачиваться с VB6 и объяснили почему. Хочет - пусть изучает VB6.

Сообщение от maratovich Заодно на досуге умных людей почитайте

Тебе выше Дейкстру процитировали, "читатель"... Могу Стровструпа процитировать, если что... А по поводу данной тобою ссылке - ты на дату не забывай смотреть. Лисп из автокада никуда не денется: развиваться не будет, но и не умрёт. VBA в AutoCAD не так давно был обновлён до версии VBA 7.1, несмотря на то, что до этого Autodesk писала совсем обратное.

maratovich, мне глубоко наплевать как и на чём ты пишешь. Мои замечания - это предостережения, адресованные топикстартеру, а он уж пусть сам всё взвешивает и принимает решение.

[maratovich]

Offtop:

Сообщение от hwd а агитация за VB6

А мы ещё и читаем только что нам интересно ?

Сообщение от maratovich то надо менять язык, хотябы на VB6.

Если автокад прекратит поддержку лиспа, также как он сделал с VBA, то лисп накроется медным тазом, а VB6 спокойно будет продолжать работать по COM.
Мои замечания по делу указаны #3 #10 #14 и вслучае необходимости предложена помощь по этим вопросам и лицензированию

[hwd]

Offtop:

Сообщение от maratovich Если автокад прекратит поддержку лиспа...

Если бы у бабушки были яйца, то она была бы дедушкой.

Сообщение от maratovich хотябы на VB6

"Хотябы" пишется раздельно, а то глаз как-то режет...

пациент безнадёжен...

[gomer]

Сообщение от hwd Тебе выше Дейкстру процитировали

Не думаю, что цитата относится к VB6

[Golem-iq]

автор топика в шоке

[Do$]

Сообщение от maratovich Вы лучше напишите что нибудь полезное автору

Да автору уже все сказали. Самый лучший совет в этом случае - юзать поиск, эта ложка проблема поднималась уже много раз.
Владимир в #22 уже даже за автора это разжевал сделал. Добавить больше нечего, кроме как в рот положить написать готовый к использованию код.

[trir]

Offtop:
Обсуждать VB6 и COM, когда есть dotNET - смешно!

[Дима_]

Сообщение от maratovich Вы лучше напишите что нибудь полезное автору, а то кроме флуда ничего от вас нет. И не надо выражаться.

Хоть вышесказанное относиться и не ко мне, но с моей точки зрения указать автору как реализовать в автолиспе сей элементарный пример, а не привести его, гораздо полезнее, как для него, так и для отсутствия еще 10-ка подобных запросов. Код представленный автором уже содержит 95% необходимого для получения нужных данных из excel, который он судя по всему откуда-то "бездумно" скопировал. Я (и не только я) его "отослал" в поиск изучения объектной модели (без которой, кстати, знание никакого языка не поможет), хоть конечно и могу написать две строки для получения данных, но они так и останутся "филькиной грамотой" пока он не научиться понимать как исользовать ActiveX модель внешних приложений. Вы же предлагаете начать c изучения VB6 - причем "здравых" аргументов выбора я не увидел (язык который не может сделать exe и работать с COM моделью надо еще поискать), а уж с точки зрения базового подхода к реализаци алгоритмов в VB6, то я смело могут предположить, что мнение Дейкстры о нем бы не изменилось. Я бы тоже предостерег автора от изучения VB6 - ИХМО свое время лучше потратить на изучение более практичных и полезных вещей.